Autogenerate Business Partner Code

Question

Hi,
Has anyone customized the B1 BP Master Data form to enable the system to automatically generate a BP code while in ADD mode?  Our client, understandably, does not want to have to refer to a separate list in order to find the next sequential BP number when adding a new BP.  It would also be very cool if customer codes could be preceded by a "C", vendor codes by a "V" and leads by an "L".
Any information is appreciated.
Thanks,
Ted

Answer 1

This is the formatted search I'm using. I quite like it
DECLARE @MAXC as varchar(5)
SET @MAXC=(SELECT MAX( RIGHT(T2.CardCode,5)) FROM OCRD T2 WHERE T2.CardType='C')
DECLARE @MAXS as varchar(5)
SET @MAXS=(SELECT MAX( RIGHT(T2.CardCode,5)) FROM OCRD T2 WHERE T2.CardType='S')
SET @MAXS=(SELECT @MAXS+1)
SET @MAXC=(SELECT @MAXC+1)
SELECT CASE
     WHEN $[OCRD.CardType]='C' THEN (SELECT DISTINCT CASE
          WHEN LEN(@MAXC)=5 THEN (SELECT 'C'  + @MAXC)
          WHEN LEN(@MAXC)=4 THEN (SELECT 'C' + '0' + @MAXC)
          WHEN LEN(@MAXC)=3 THEN (SELECT 'C' + '00' + @MAXC)
          WHEN LEN(@MAXC)=2 THEN (SELECT 'C' + '000' + @MAXC)
          WHEN LEN(@MAXC)=1 THEN (SELECT 'C' + '0000' + @MAXC)
          END FROM OCRD )
     WHEN $[OCRD.CardType]='S' THEN (SELECT DISTINCT CASE
          WHEN LEN(@MAXS)=5 THEN (SELECT 'S'  + @MAXS)
          WHEN LEN(@MAXS)=4 THEN (SELECT 'S' + '0' + @MAXS)
          WHEN LEN(@MAXS)=3 THEN (SELECT 'S' + '00' + @MAXS)
          WHEN LEN(@MAXS)=2 THEN (SELECT 'S' + '000' + @MAXS)
          WHEN LEN(@MAXS)=1 THEN (SELECT 'S' + '0000' + @MAXS)
          END FROM OCRD )
END