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
