function incremCode(Old_Code:shortstring) : shortstring; var new_yy : string[2]; old_a : char; begin new_yy := formatdatetime('yy', date); old_a := Old_Code[3]; if new_yy <> copy( Old_Code, 1, 2) then result := new_yy+'A' else result := new_yy + chr(byte(old_a) +1); end;
var New_Code = shortstring; begin tbCota.last; // aller au dernier enregistrement New_Code := InCremCode( tbCota.fieldbyname('NumCota').asstring); // calcul de nouveau code tbCota.append; // nouvel enregistrement tbCota.fieldbyname('NumCota').asstring := New_Code; // on y colle le code calculé end;
new_yy <> Copy(Old_Code, 1, 2)
new_yy = Copy(Old_Code, 1, 2)
Result := new_yy + Chr(Byte(old_a) + 1);
Result := Copy(Old_Code, 1, 2) + Chr(Byte(old_a) + 1);
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.