× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



Not sure I understand. The format of our invoice numbers are
yyyy-mm-xxxxxxxxx where the x's are sequential. All I am doing is moving
where the yyyy-mm is being added. The output is the same in the end. My
only concern was changing from decimal to character and if something would
scream at me for doing that.

--
Mike Wills
http://mikewills.me


On Fri, Feb 10, 2012 at 11:00 AM, Carel Teijgeler <coteijgeler@xxxxxxxxx>wrote:

Mike,
.
The problem is not the return value.

Your problem would be the value of "dInvoice"

Invoice numbers should be sequential without gaps. yo are changing the
format and lay out of the value thus breaking the rules. Do not think the
financial department, auditors and other financial control agencies would
like that.

Regards,
Carel Teijgeler

*********** REPLY SEPARATOR ***********

On 10-2-2012 at 9:54 Mike Wills wrote:

I don't know what I was thinking when I wrote it (I'm sure I thought I was
cleaver) but I wrote a subprocedure that pulled the next invoice number.
That in itself is good, but then in the calling code, I had to do this:

dInvoice = %subst(%char(%date():*iso):1:7) + '-' +
%subst(%editc(GetNextInvoiceNumber():'X'):2:7);

WHAT THE?!? Ideally it should be:

dInvoice = GetNextInvoiceNumber();

Normally I wouldn't re-factor things like this, but now other software
will soon be creating invoices and needs to get invoice numbers. What
dangers
are there in changing the subprocedure from a decimal return field to a
character? I have tracked down all of the programs that call this function
(that I know of). Or should I create a new subprocedure and leave the old
one just in case I missed something? For course if we change the format of
the number, we will quickly have problems that way.



--
This is the RPG programming on the IBM i / System i (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.



As an Amazon Associate we earn from qualifying purchases.

This thread ...

Follow-Ups:
Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.