W
Wiktor
Guest
I update some fields with external procedure ( i cannot modify base program ) .
I try to jump over field I need, but on one, my program is freezing. The procedure looks like that:
PAUSE 0 NO-MESSAGE.
IF FOCUS = field1
THEN DO:
field1:screen-value = ''.
APPLY 'ENTER' .
PAUSE 0 .
END.
IF FOCUS = field2
THEN DO:
field2:screen-value = 'U'.
APPLY 'ENTER' .
PAUSE 0 .
END.
IF FOCUS = field3
THEN DO:
field3:screen-value = 'N'.
APPLY 'ENTER' .
PAUSE 0 .
APPLY 'ENTER' .
PAUSE 0.
END.
PAUSE 0.
I put PAUSE 0, because its solve similiar case when I was in field2, but in field3 its not working. What others step I can make? Thank You for answers. Regards.
e: When i said "Freeze" i mean Its waiting for any key. After 'any key' it goes onwards. Its problem, because i neet to automatize evrything .
e: And now i guess its not after APPLY statement but in some moment when i jumping over the fields. When i normally use the original program this freeze/waiting for key is unseen. So what in the code above can cause such an effect?
e: Its after APPLY "ENTER" on specific fields. Not for evry but some fields causes freezing ( not with Press Space message ). Pause 0 not working for them.
e: After using only this code :
IF FOCUS = field1
THEN DO:
APPLY 'ENTER' .
APPLY 'COMPLETE' TO FOCUS.
PAUSE 0.
MESSAGE 'dfdfd' VIEW-AS ALERT-BOX.
END.
Its freezing after showing the message. Dont know why...
Continue reading...
I try to jump over field I need, but on one, my program is freezing. The procedure looks like that:
PAUSE 0 NO-MESSAGE.
IF FOCUS = field1
THEN DO:
field1:screen-value = ''.
APPLY 'ENTER' .
PAUSE 0 .
END.
IF FOCUS = field2
THEN DO:
field2:screen-value = 'U'.
APPLY 'ENTER' .
PAUSE 0 .
END.
IF FOCUS = field3
THEN DO:
field3:screen-value = 'N'.
APPLY 'ENTER' .
PAUSE 0 .
APPLY 'ENTER' .
PAUSE 0.
END.
PAUSE 0.
I put PAUSE 0, because its solve similiar case when I was in field2, but in field3 its not working. What others step I can make? Thank You for answers. Regards.
e: When i said "Freeze" i mean Its waiting for any key. After 'any key' it goes onwards. Its problem, because i neet to automatize evrything .
e: And now i guess its not after APPLY statement but in some moment when i jumping over the fields. When i normally use the original program this freeze/waiting for key is unseen. So what in the code above can cause such an effect?
e: Its after APPLY "ENTER" on specific fields. Not for evry but some fields causes freezing ( not with Press Space message ). Pause 0 not working for them.
e: After using only this code :
IF FOCUS = field1
THEN DO:
APPLY 'ENTER' .
APPLY 'COMPLETE' TO FOCUS.
PAUSE 0.
MESSAGE 'dfdfd' VIEW-AS ALERT-BOX.
END.
Its freezing after showing the message. Dont know why...
Continue reading...