Execute function for two minutes or until nested function responds true in Business central

Pablogrind

Hi

I need execute TryCallData for two minutes or until GetPDF responds true

How can i do it in Business central?, Thanks

procedure GetPDF(Bill: text) ReturnPDF: Boolean
    begin
        <Statement>  
    end;


procedure TryCallData()
    begin

        while not GetPDF('HMO986') do
            message('waiting...');

    end;

txeriff

Pablogrind wrote: »

thanks @txeriff Is there a way to stop if loop takes more than 2 minutes?

Hi,

Not sure what you trying to run on GetPDF but if you want to wait 2 minutes try

getpdf('');
sleep(10800); //seconds
and thats it.


it won´t be time but I don´t want now to write you the whole code´(and time calculations are always pain), just use a counter :

vcounter:=0;
repeat
vcounter+=1;
until vcounter>=10800

for time:

vTime:=TIME;

SLEEP(3000); //wait 3 seconds
vTimeDec:=TIME-vTime;

MESSAGE(FORMAT(vTimeDec)); //time difference

txeriff

Dear god, this is basic coding issue:

procedure TryCallData()
var vFinished: boolean;
    begin
        vfinished:=false;
        repeat
             vfinished:=GetPDF('HMO986');
         until vfinished=true;

    end;

Pablogrind

thanks @txeriff Is there a way to stop if loop takes more than 2 minutes?

txeriff

Pablogrind wrote: »

thanks @txeriff Is there a way to stop if loop takes more than 2 minutes?

Hi,

Not sure what you trying to run on GetPDF but if you want to wait 2 minutes try

getpdf('');
sleep(10800); //seconds
and thats it.


it won´t be time but I don´t want now to write you the whole code´(and time calculations are always pain), just use a counter :

vcounter:=0;
repeat
vcounter+=1;
until vcounter>=10800

for time:

vTime:=TIME;

SLEEP(3000); //wait 3 seconds
vTimeDec:=TIME-vTime;

MESSAGE(FORMAT(vTimeDec)); //time difference

Pablogrind

Thanks @txeriff