Forum

Explicit lock of scheduled jobs

Aurimas Fišeras	#1 Nov 29, 2014 12:36 AM
Active user Points:: 0 Joined:: May 15, 2013	An explicit lock of scheduled jobs is applied to the infobase via the cluster console. How to detect this situation in 1C code?
	Profile

Alex Shirokov	#2 Nov 30, 2014 05:51 AM
Just came Points:: 0 Joined:: Nov 30, 2014	You can create another scheduled job (eg every minute), which would be writing to some constant or register (new) just the last execution. Through a global handler expectations (AttachIdleHandler) (eg every 2-5 minutes) to check the difference between the current time and the last entry in the constant (or register) if the difference is greater than it should be, then the schedule is not working. Not very elegant, but it might work =)
	Profile

Alex Shirokov

Dec 01, 2014 12:07 AM

Just came

Points:: 0
Joined:: Nov 30, 2014

Or, you can use this code:

Code

   ClusterAdminName      = "YourClusterAdminName";
   ClusterAdminPassword   = "YourClusterAdminPassword";

   ServerAdminName         = "YourServerAdminName";
   ServerAdminPassword      = "YourServerAdminPassword";  

   BaseName         = "YourBaseName";

   ServerAddress         = "YourServerAddress"; //eg localhost  

   Connector = New COMОбъект("V83.COMConnector");
   AgentConnection = Connector.ConnectAgent(ServerAddress); 

   AgentConnection.AuthenticateAgent(ServerAdminName, ServerAdminPassword);  

   Clusters = AgentConnection.GetClusters();
   Cluster = Clusters.GetValue(Clusters.GetLowerBound()); // first cluster

   AgentConnection.Authenticate(Cluster, ClusterAdminName, ClusterAdminPassword);

   WorkProcs = AgentConnection.GetWorkingProcesses(Cluster);

   WorkProc = WorkProcs.GetValue(WorkProcs.GetLowerBound()); // first work process

   AddressWorkProc = "tcp://" + WorkProc.HostName + ":" + XMLString(WorkProc.MainPort);

   ConnectionWithWorkProc = Connector.ConnectWorkingProcess(AddressWorkProc);
  

   InfoBases = ConnectionWithWorkProc.GetInfoBases();  

    BaseFound = False;

    For each WorkBase in InfoBases Do

        xBase = НРег("""" + WorkBase.Name + """");

        BaseFound = Find(BaseName,xBase) > 0;

        If BaseFound Then

            Break;                

        EndIf;

    EndDo;

   Message(?(WorkBase.ScheduledJobsDenied,"OFF","ON"));

   Connector = Undefined;

Profile

Aurimas Fišeras	#4 Dec 01, 2014 04:09 AM
Active user Points:: 0 Joined:: May 15, 2013	Thank you for your suggestions. The second one is too complicated to use by the end user and is not available on Linux. The first one is also quite complicated but probably doable. I might try it if there is no better solution.
	Profile

Evgeny Sosna

Dec 01, 2014 09:31 AM

Just came

Points:: 0
Joined:: Jul 7, 2013

on linux use:

Code
cd /opt/1C/i386/ ras cluster localhost:1540 & rac cluster list rac infobase summary list --cluster=uuid rac infobase info --infobase=uuid --cluster=uuid

Profile

Aurimas Fišeras	#6 Dec 12, 2014 03:51 AM
Active user Points:: 0 Joined:: May 15, 2013	Thank you for your suggestions, but they all where too complicated in our case, so we opted just to show a warning so that a user would not forget to check it manually.
	Profile