Regarding Autogeneration of Business Partner Code.

Question

Dear All,
         I have a unique requirement. My client wants autogeneration of Business Partner Code in the Business Partner Master.
         Please guide me in regard to this.
Regards
Hitesh Parsawala

Answer 1

We normally have customer code generated as 'C00001' then 'C00002' etc and Supplier or vendors as 'S00001' and 'S00002' etc. This requires the FMS on the BP Code to be a little more complicated but not over the top.
DECLARE @MAXC as integer
SET @MAXC=isnull((SELECT CAST(MAX(RIGHT(OCRD.CardCode,5))+1 AS INTEGER)
FROM OCRD
WHERE OCRD.CardType<>'S' AND Len(OCRD.CardCode)=6 AND OCRD.CardCode like 'C%'),1)
DECLARE @MAXS as integer
SET @MAXS=isnull((SELECT CAST(MAX(RIGHT(OCRD.CardCode,5))+1 AS INTEGER)
FROM OCRD
WHERE OCRD.CardType='S' AND Len(OCRD.CardCode)=6 AND OCRD.CardCode like 'S%'),1)
--This will give you the next number then
SELECT CASE
     WHEN $[OCRD.CardType]='C' THEN (SELECT DISTINCT CASE
     WHEN LEN(@MAXC)=5 THEN (SELECT 'C'  + CAST(@MAXC AS varchar) )
     WHEN LEN(@MAXC)=4 THEN (SELECT 'C' + '0' + CAST(@MAXC AS varchar))
     WHEN LEN(@MAXC)=3 THEN (SELECT 'C' + '00' + CAST(@MAXC AS varchar))
     WHEN LEN(@MAXC)=2 THEN (SELECT 'C' + '000' + CAST(@MAXC AS varchar))
     WHEN LEN(@MAXC)=1 THEN (SELECT 'C' + '0000' + CAST(@MAXC AS varchar))
    END FROM OCRD )
WHEN $[OCRD.CardType]='L' THEN (SELECT DISTINCT CASE
     WHEN LEN(@MAXC)=5 THEN (SELECT 'C'  + CAST(@MAXC AS varchar) )
     WHEN LEN(@MAXC)=4 THEN (SELECT 'C' + '0' + CAST(@MAXC AS varchar))
     WHEN LEN(@MAXC)=3 THEN (SELECT 'C' + '00' + CAST(@MAXC AS varchar))
     WHEN LEN(@MAXC)=2 THEN (SELECT 'C' + '000' + CAST(@MAXC AS varchar))
     WHEN LEN(@MAXC)=1 THEN (SELECT 'C' + '0000' + CAST(@MAXC AS varchar))
    END FROM OCRD )
WHEN $[OCRD.CardType]='S' THEN (SELECT DISTINCT CASE
     WHEN LEN(@MAXC)=5 THEN (SELECT 'S'  + CAST(@MAXS AS varchar) )
     WHEN LEN(@MAXC)=4 THEN (SELECT 'S' + '0' + CAST(@MAXS AS varchar))
     WHEN LEN(@MAXC)=3 THEN (SELECT 'S' + '00' + CAST(@MAXS AS varchar))
     WHEN LEN(@MAXC)=2 THEN (SELECT 'S' + '000' + CAST(@MAXS AS varchar))
     WHEN LEN(@MAXC)=1 THEN (SELECT 'S' + '0000' + CAST(@MAXS AS varchar))
    END FROM OCRD)
END
Try Shift-F2 on the BP code with this FMS