PrJlndni
Member
Hi Good day!
I would like to ask some help of your expertise of my program problem. Everytime I clicked the PF4 key the second time, an error occured. The following are my codes. Please help.
I would like to ask some help of your expertise of my program problem. Everytime I clicked the PF4 key the second time, an error occured. The following are my codes. Please help.
Code:
ON choose of b-new IN frame fr-buttons
do:
define var l-end as logical init false.
pass = 0.
lnew = true.
ledit = false.
disable all with frame fr-buttons.
run init-vars.
RUN Get-Type(INPUT-OUTPUT t-partno, INPUT-OUTPUT t-desc).
RUN Count-Rec(INPUT-OUTPUT t-recno).
IF t-parno NE "" OR t-desc NE "" AND t-recno > 0 THEN DO:
display dtoday t-partno t-desc with frame loadparts.
enable all except dtoday t-partno /*t-fano t-parno*/ t-status t-transcnt with frame loadparts.
END.
MESSAGE "done" VIEW-AS ALERT-BOX.
end.
ON PF4, ENDKEY of ptype IN FRAME fr-ptype
do:
hide frame fr-ptype.
ENABLE b-new b-newcpu b-browse b-find b-exit WITH FRAME fr-buttons.
end.
ON PF4 OF FRAME loadparts DO:
CLEAR FRAME loadparts.
ASSIGN t-partno = "" t-desc = "" t-recno = 0.
DISABLE ALL WITH FRAME loadparts.
enable b-new b-newcpu b-browse b-find b-exit with frame fr-buttons.
WAIT-FOR CHOOSE OF b-new, b-newcpu, b-browse, b-find, b-exit IN FRAME fr-buttons FOCUS b-new.
END.
Last edited by a moderator: