Ok, so I'm bored today...

This one DOES take into account the "ZZ" scenario and increment the number
portion as well...


<cfoutput>#incProjNum("001000ZZ")#</cfoutput>

Will spit out 001001AA

I don�t know what Outlook or HoF is going to do to the formatting of this
but just paste it into a template and it should come out fine.


<cfscript>
function incProjNum(LastjobNumber)
{
        alpha = "A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z";
        
        FirstLetter = ucase(left(right(LastJobNumber, 2), 1));
        LastLetter = ucase(right(ucase(LastJobNumber), 1));
        NumberPrefix = rereplace(LastJobNumber, "[^0-9]", "", "ALL");
        
        NewNumberPrefix = NumberPrefix;
        
        if (FirstLetter & LastLetter is "ZZ")
        {
                IncrementLetters = false;
                NewFirstLetter = "A";
                NewLastLetter = "A";
        }
        else
        {
                IncrementLetters = true;
        }
        
        if (IncrementLetters)
        {
                if (LastLetter is "Z")
                {
                        NewLastLetter = "A";
                        IncrementFirst = true;
                }
                else
                {
                        LastLetterPosition = ListFind(alpha, LastLetter);
                        NewFirstLetter = FirstLetter;
                        NewLastLetter = ListGetAt(alpha,
LastLetterPosition+1);
                        IncrementFirst = false;
                }
                
                if (IncrementFirst)
                {
                        FirstLetterPosition = ListFind(alpha, FirstLetter);
                        NewFirstLetter = ListGetAt(alpha,
FirstLetterPosition+1);
                }
        
        }
        else
        {
                NewNumberPrefix = numberformat(NumberPrefix + 1, "000000");
        }
        
        return NewNumberPrefix & NewFirstLetter & NewLastLetter;
}
</cfscript>


-- 
No virus found in this outgoing message.
Checked by AVG Anti-Virus.
Version: 7.0.308 / Virus Database: 266.11.12 - Release Date: 5/17/2005
 


~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|
Find out how CFTicket can increase your company's customer support 
efficiency by 100%
http://www.houseoffusion.com/banners/view.cfm?bannerid=49

Message: http://www.houseoffusion.com/lists.cfm/link=i:4:207099
Archives: http://www.houseoffusion.com/cf_lists/threads.cfm/4
Subscription: http://www.houseoffusion.com/lists.cfm/link=s:4
Unsubscribe: 
http://www.houseoffusion.com/cf_lists/unsubscribe.cfm?user=11502.10531.4
Donations & Support: http://www.houseoffusion.com/tiny.cfm/54

Reply via email to