xsharp.eu

Code: Select all

CLASS MYOB
  STATIC HIDDEN _inst AS MYOB //Note this, the placeholder for the object
  HIDDEN oConfig AS ApiConfiguration
  HIDDEN oCFService AS CompanyFileService
  HIDDEN oCOFileList AS //oCFService:GetRange()  Check what the type is that GetRange returns
  HIDDEN sStatusText AS STRING
  HIDDEN oCOFile AS Version
  HIDDEN oCredentials AS CompanyFileCredentials
  HIDDEN oAccService AS AccountService
  HIDDEN oAccList AS //oAccService:GetRange(oCOFile,NULL,oCredentials,NULL) Check type of GetRange

  STATIC CONSTRUCTOR()
    _inst := MYOB{} // This creates the single instance of MYOB in your application.
  RETURN

  HIDDEN CONSTRUCTOR() // This will be automatically called by the STATIC CONSTRUCTOR.
    SELF:InitializeMYOB()
  RETURN

  HIDDEN InitializeMYOB() AS VOID
    SELF:oConfig := ApiConfiguration{"http://localhost:8080/accountright"}
    SELF:oCFService := CompanyFileService{oConfig}
    SELF:oCOFileList := oCFService:GetRange()  
    SELF:sStatusText := "Company Files set"
    SELF:oCOFile := oCOFileList.FirstOrDefault({x => Version{x:ProductVersion} >= Version{"2013.3"}})
    SELF:oCredentials := CompanyFileCredentials{"Administrator","xxxxxxxxxxx"}
    SELF:oAccService := AccountService{oConfig}                          
    SELF:oAccList := oAccService:GetRange(oCOFile,NULL,oCredentials,NULL)
  RETURN
  
STATIC PROPERTY Inst AS MYOB // To access the MYOB object
    GET
      RETURN _inst
    END GET
  END PROPERTY

  //This you need to extend to include all hidden Properties of the class you need to expose.
  //I will do the StatusText.  Just copy and paste and change <Name>, <Type> and what to RETURN.
  PROPERTY Status AS STRING
    GET
      RETURN SELF:sStatusText
    END GET
  END PROPERTY
END CLASS

//Where you need the MYOB class in your app
VAR oMYOB := MYOB.Inst // Note NEVER MYOB{}
//or
LOCAL oMYOB AS MYOB
oMYOB := MYOB.Inst // Always .Inst It is a static property of the class not a property of the object
// Note in both cases NEVER MYOB{} since the class will do it automatically first time you access it.
// Your only way of getting the object is by use of MYOB.Inst
oMYOB:Status

Code: Select all

PROPERTY Config AS STRING
  STATIC LOCAL lIsSet AS LOGIC
  GET
    IF lIsSet
      RETURN SELF:sConfig
    ENDIF
    THROW Exception{"Configuration not set"}
  END GET
  SET
    IF lIsSet
      THROW Exception{"Configuration already set"}
    ENDIF
    SELF:sConfig := VALUE
    SELF:oConfig := ApiConfiguration{VALUE}
    lIsSet := TRUE
  END SET
END PROPERTY

Code: Select all

private static bool IsSet;

private static string sConfig;
public static string Config
{
    get
    {
        if (IsSet)
            return sConfig;
        else
            .......
    }
    set
    {
        if (IsSet)
            .......
        sConfig = value;
        .....
        IsSet = true;
    }
}

Code: Select all

PROPERTY Config1 AS STRING
  STATIC LOCAL lIsSet AS LOGIC
  // This is as far as I know only a VO/Vulcan/X# feature.
  //  Keep the value of lIsSet even if out of scope.
  GET
    ....
  END GET
  SET
    ....
  END SET
END PROPERTY
PROPERTY Config2 AS STRING
  STATIC LOCAL lIsSet AS LOGIC
  GET
    ...
  END GET
  SET
    ....
  END SET
END PROPERTY

Code: Select all

MySingleton.Inst

Code: Select all

#command FORCE SET PROPERTY <p> AS <t> GETSET <i> => ....
#command FORCE SINGLE SET PROPERTY <p> AS <t> GETSET <i> => ....

Code: Select all

FORCE SET PROPERTY Config1 AS STRING GETSET oConfig1
FORCE SINGLE SET PROPERTY Config2 AS STRING GETSET oConfig2

Code: Select all

property MyProp as string
  get
    return _cMyProp
  end get
  set
    _cMyProp := value
  end set
end property

Code: Select all

property MyProp as string get _cMyProp set _cMyProp := value