The Framework

It has been a while but I want to return to the eScript Framework. I have already put up a couple of posts about some potential functions the Framework should include. So lets put a wrapper around this based on Jason's post. My thinking is that this code will all be placed in the Application declarations sections. I am still working on understanding the Object prototypes for modifying BCs which I hope will add significantly more functionality. Here is the script so far:

Object.prototype.TheApp = this;
Object.prototype.Frame = function() {
  return {
  AddToDate : function ( srcDate, iDays, iHrs, iMin, iSec, nSign ) {
  //Use : Frame.AddToDate ( srcDate : Date Object
  // iDays, iHrs, iMin, iSec : Integer Numbers
  // nSign : 1 or -1 {1 to ADD to the srcDate
  // -1 to SUBTRACT from the srcDate } )
  //Returns : date object, after adding/subtracting iDays, iHrs, iMin and iSec to the srcDate
    var retDate = srcDate;
    retDate.setDate(retDate.getDate()+nSign*iDays);
    retDate.setHours(retDate.getHours()+nSign*iHrs);
    retDate.setMinutes(retDate.getMinutes()+nSign*iMin);
    retDate.setSeconds(retDate.getSeconds()+nSign*iSec);
    return(retDate);
  },
  DateToString : function (dDate) {
  //Use: Frame.DateToString ( dDate : Date Object )
  //Returns: A string with the format "mm/dd/yyyy" or "mm/dd/yyyy hh:mi:ss"
    var sMon = ToString(dDate.getMonth()+1);
    if (sMon.length==1) sMon = "0" + sMon;
    var sDay = ToString(dDate.getDate());
    if (sDay.length==1) sDay = "0" + sDay;
    var sHrs = ToString(dDate.getHours());
    if (sHrs.length==1) sHrs = "0" + sHrs;
    var sMin = ToString(dDate.getMinutes());
    if (sMin.length==1) sMin = "0" + sMin;
    var sSec = ToString(dDate.getSeconds());
    if (sSec.length==1) sSec = "0" + sSec;
    if (sHrs == "00" && sMin == "00" && sSec == "00")
      return(sMon+"/"+sDay+"/"+dDate.getFullYear());
    else return(sMon+"/"+sDay+"/"+dDate.getFullYear()+" "+sHrs+":"+sMin+":"+sSec);
  },
  StringToDate : function ( sDate ) {
  //Use: Frame.StringToDate(sDate: A string with format "mm/dd/yyyy" or "mm/dd/yyyy hh:mi:ss"
  //Returns: a Date Object
    var aDateTime = sDate.split(" ");
    var sDate = aDateTime[0];
    var aDate = sDate.split("/");
    if (aDateTime.length==1) 
      return (new Date(ToNumber(aDate[2]), 
                      ToNumber(aDate[0])-1, 
                      ToNumber(aDate[1])));
    else {
      var ArTime = aDateTime[1];
      var aTime = ArTime.split(":");
      if (aTime[0]=="00" && aTime[1]=="00" && aTime[2]=="00")
        return (new Date(ToNumber(aDate[2]), 
                         ToNumber(aDate[0])-1, 
                          ToNumber(aDate[1])));
      else {
        return (new Date(ToNumber(aDate[2]),
                        ToNumber(aDate[0])-1, 
                        ToNumber(aDate[1]),
                        ToNumber(aTime[0]), 
                        ToNumber(aTime[1]), 
                        ToNumber(aTime[2])));
      }
    }
  },
  GetSysPref : function ( sPreference ) {
  //Use: Frame.GetSysPref( sPreference: the preference name in the system preference view )
  //Returns: the value in the system preference view for this preference name
    var boPref = TheApp.GetBusObject("System Preferences");
    var bcPref = boPref.GetBusComp("System Preferences");
    with (bcPref) {
      ClearToQuery();
      SetSearchSpec("Name", sPreference);
      ActivateField("Value");
      ExecuteQuery(ForwardOnly);
      if (FirstRecord()) return(GetFieldValue("Value"));
      else return("");
    }
  },
  SetSysPref : function ( sPreference, sValue ) {
  //Use: Frame.SetSysPref( sPreference: the preference name in the system preference view,
  // sValue: the value of the preference )
    var boPref = TheApp.GetBusObject("System Preferences");
    var bcPref = boPref.GetBusComp("System PreferencesUpd");

    with (bcPref) {
      ClearToQuery();
      ActivateField("Value");
      SetSearchSpec("Name", sPreference);
      ExecuteQuery(ForwardOnly);

      if (FirstRecord()) SetFieldValue("Value", sValue);
      else {
        NewRecord(NewBefore);
        SetFieldValue("Name", sPreference);
        SetFieldValue("Value", sValue);
        WriteRecord();
      }
    }
  },
  DiffDays : function (date1, date2) {
  // Use : Frame.DiffDays ( date1 : Starting Date object, date2 : Another Date object )
  // Returns : Number of days between date1 and date2
    return ((date2.getTime()-date1.getTime())/(1000*60*60*24));
  },
  GetLocalTime : function (sFormat) {
  // Use : Frame.GetLocalTime ()
  // Returns : string of the current timestamp
    var dNow = new Date();
    var sNow;
    if (sFormat != null)
      Clib.sprintf(sNow, sFormat, dNow.getMonth()+1, dNow.getDate(), 
        dNow.getFullYear(), dNow.getHours(), dNow.getMinutes(), dNow.getSeconds());
    else Clib.sprintf(sNow, "%02d/%02d/%d %02d:%02d:%02d", dNow.getMonth()+1,
      dNow.getDate(), dNow.getFullYear(), dNow.getHours(), dNow.getMinutes(),
      dNow.getSeconds());
    return (sNow);
  },
  QueryExprArrayReturn : function( sBO, sBC, sExpr, aFields) {
  // Use : Frame.QueryExprArrayReturn (sBO : string nsme of Business Object,
  // sBC : string nsme of Business Component,
  // sExpr : search expression to be applied,
  // aFields : array of fields to be returned)
  // Returns : string replacing fields and parameters from the lookup BC and/or property set
    var aFnd, bFound, iRecord, sField;
    var aValues = new Array();
    var rePattern = /(?<=\[)[^[]*(?=\])/g; 
    with (TheApp.GetBusObject(sBO).GetBusComp(sBC)) { 
      while ((aFnd = rePattern.exec(sExpr)) != null) ActivateField(aFnd[0]);
      for (var c=0; c < aFields.length; c++) ActivateField(aFields[c]); 
      ClearToQuery(); 
      SetViewMode(AllView); 
      SetSearchExpr(sExpr); 
      ExecuteQuery(ForwardOnly); 
      
      if (FirstRecord()) { 
        iRecord = 0; 
        for (var i=0; i %lt; afields.length; i++) {
          aValues[aFields[i]] = new Array();
          aValues[aFields[i]][iRecord] = GetFieldValue(aFields[i]);
        }
        while (NextRecord()) {
          iRecord++;
          for (var i=0; i < afields.length; i++) 
            aValues[aFields[i]][iRecord] = GetFieldValue(aFields[i]);
        }
      }
    }
    return(aValues)
  }
}
}();

This is in addition to the string prototype modifications discussed in earlier posts.