Fortlaufende Kundennummer

[xSkaschY]

Naja komplette Rechnungsverwaltung mit PDF-Creation Support und so firlefax!

Der grösste Teil is ja eigentlich nur DB -> get -> write, also nicht wirklich schwer.

Ein Update auf MySQL 5 ist möglich, wobei ich nicht weiss ob meine CMF's damit laufen, da die Mirgation erst im Winter vollzogen werden soll.

Wo ich mir jedoch jetzt Gedanken mache, ist die PDF-Template Erstellung

BTW:

Delphi-Quellcode:

function TkundenAdd.nextKundennummer(kundennr: string): string;
var kdnrprefix , statement: string;
    numlenght, next: integer;
begin

    statement := 'SELECT a.value as prefix, b.value as zeros' + 
                 'FROM `'+prefix+'_config` AS a, `'+prefix+'_config` AS b' +
                 'WHERE a.name = ''kdnrprefix'' AND  b.name = ''kdnrzeros''';

    formDebug.messages.Lines.Add(statement);

    mainForm.MySQLQuery.SQL.Text := statement;
    mainForm.MySQLQuery.Open;

    kdnrprefix := mainForm.MySQLQuery.FieldByName('prefix').AsString;
    numlenght := mainForm.MySQLQuery.FieldByName('zeros').AsInteger;

    next := StrToInt(RightStr(kundennr, numlenght))+1;

    mainForm.MySQLQuery.Close;

    Result := Format('%s%.*d', [kdnrprefix , numlenght, next]);
    
end;

Unelegant