CusCod := FormatDateTime('yyyymm',date)+'%';
with Q_CusCod do begin
Close;
SQL.Clear;
SQL.ADD('SELECT MAX( Cuscod )Cuscod ');
SQL.ADD('FROM "T_BASE02.db" T_base02 ');
SQL.ADD('WHERE Cuscod LIKE :CusCod ');
ParamByName('CusCod').AsString := CusCod;
Open;
end;
E_Addres.Text := IntToStr(Q_CusCod.RecordCount);
if Q_CusCod.RecordCount <> 0 then
E_CusCod.text := IntToStr(StrToInt(Q_CusCod.fieldbyname('Cuscod').AsString) + 1)
ELSE E_CusCod.Text := FormatDateTime('yyyymm',date) + '0000';
Check_Flag := 'Insert';
파라독스 사용해서여~
년월뒤에 카운트 붙여서 코드를 생성하는데여~
위의 코드는 분명문제가 있는데 어케해결해야할지요~
레코드가 하나도 없는 상황에서도 1개가 나오거든요..
다른방법을 써야 할까요?
조언 부탁드립니다.
즐거운 하루 되세요~
즐프하세요...