[progress Communities] [progress Openedge Abl] Forum Post: Re: Incrementing A Part Number

  • Thread starter Thread starter David Abdala
  • Start date Start date
Status
Not open for further replies.
D

David Abdala

Guest
METHOD INTEGER ValidatePartNumber(iNPUT ipinNewPartNumber AS INTEGER): DEFINE VARIABLE mlgFound AS LOGICAL NO-UNDO INITIAL TRUE. DO WHILE mlgFound: FIND Part WHERE Part.PartNumber EQ ipinNewPartNumber NO-ERROR. mlgFound = AVAILABLE Part. IF mlgFound THEN ipinPartNumber = ipinPartNumber + 1. END. /* DO */ RETURN ipinPartNumber. END METHOD. Anyhow, I think this is better for finding the next part number: FOR EACH Part BY PartNumber DESCENDING: NewPartNumber = Part.PartNumber + 1. LEAVE. END.

Continue reading...
 
Status
Not open for further replies.
Back
Top