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 :roll:

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 :duck:

[Jelly]

Zitat:

Zitat von xSkaschY

Unelegant :duck:

Nicht nur das... Du holst Dir mit deiner Funktion ja lediglich eine neue ID, Prefix bezogen... Aber irgendwie muss Du die aber auch wieder zurückschreiben in die Tabelle, und zwar so schnell als möglich. Zum Glück kennt MySQL im Prinzip keine Transaktionen (ausser innoDB), so dass die Vergabe der ID somit halbwegs sicher sein sollte... Aber wichtig ist eben, so schnell als möglich den neuen Record anzulegen, damit dir keine andere User dazwischen funken und die gleiche ID kriegen.

[xSkaschY]

Hallo Jelly,

unwahrscheinlich, da die neue Kundennummer erst vergeben wird wenn der Kunde gespeichert wird. Aber das konnte ja keine sehen, habe gehört die Glaskugeln sind, seit es das Internet gibt, sehr unzuverlässig geworden! :mrgreen:

Quasi

Delphi-Quellcode:

// @return int last_insert_id();

function saveKunde(...): integer;
var kdnr: string;
begin
   kdnr := nextKundennummer();

   // Kunde wird eingefügt (sql insert into)
end;