
INSERT INTO LD0P0Q01 SELECT 'LNINRIKTN', KOD + 100000, 
KLARTEXT,AKTIV,EXTKOD,XNUM1,
XTXT1,XNUM2,XTXT2,XNUM3,XTXT3,XNUM4,XTXT4,XNUM5,XTXT5,
UPDDAT,UPDSIGN,XNUM6,XTXT6,XNUM7,XTXT7,XNUM8,XTXT8,XNUM9,XTXT9,
XNUM10,XTXT10,SORTORDN,XNUM11,XTXT11,XNUM12,XTXT12,XNUM13,XTXT13,
XNUM14,XTXT14,XNUM15,XTXT15,XNUM16,XTXT16,XNUM17,XTXT17,
XNUM18,XTXT18,XNUM19,XTXT19,XNUM20,XTXT20,
XNUM21,XTXT21,
XNUM22,XTXT22,
XNUM23,XTXT23,
XNUM24,XTXT24,
XNUM25,XTXT25,
XNUM26,XTXT26,
XNUM27,XTXT27,
XNUM28,XTXT28,
XNUM29,XTXT29,
XNUM30,XTXT30,
XNUM31, XNUM32,
XNUM33, XNUM34,
XNUM35, XNUM36,
XNUM37, XNUM38,
XNUM39, XNUM40,
XNUM41, XNUM42,
XNUM43, XNUM44,
XNUM45, XNUM46,
XNUM47, XNUM48,
XNUM49, XNUM50
FROM LD0P0Q01 WHERE KODTYP = 'LNPRAKTYP'
;

UPDATE LD0P0LNR SET LNR = (SELECT ISNULL(MAX(KOD) + 1,1) FROM LD0P0Q01 WHERE KODTYP = 'LNINRIKTN') 
WHERE LNRTYP = 376
;
