Ramesh Chand Rebari
New Member
I am able to get how many Orders of the Customer (that is entered by user).
but am not able to get orders of that customer that should be return by internal procedure.
define variable iNum as integer no-undo.
define variable istatus as integer no-undo.
form
iNum label "enter the number" skip
with frame f
title "display customer number order number:".
update iNum with frame f.
run Proc1(input iNum ,output istatus).
display istatus label "Order of the Customer".
procedure Proc1:
define input parameter iNumber as integer no-undo.
define output parameter iOrder as integer no-undo.
for each Order no-lock where Order.CustNum = iNumber:
if available Order then
do:
iOrder = iOrder + 1.
end.
end.
end Procedure.
but am not able to get orders of that customer that should be return by internal procedure.
define variable iNum as integer no-undo.
define variable istatus as integer no-undo.
form
iNum label "enter the number" skip
with frame f
title "display customer number order number:".
update iNum with frame f.
run Proc1(input iNum ,output istatus).
display istatus label "Order of the Customer".
procedure Proc1:
define input parameter iNumber as integer no-undo.
define output parameter iOrder as integer no-undo.
for each Order no-lock where Order.CustNum = iNumber:
if available Order then
do:
iOrder = iOrder + 1.
end.
end.
end Procedure.
Last edited: