Search options (Page 300 of 400)

(case strftime('%m', date(datefield)) when '01' then 'Январь' when '02' then 'Февраль' when '03' then 'Март' when '04' then 'Апрель' when '05' then 'Май' when '06' then 'Июнь' when '07' then 'Июль' when '08' then 'Август' when '09' then 'Сентябрь' when '10' then 'Октябрь' when '11' then 'Ноябрь' when '12' then 'Декабрь' else '' end) || ' ' || strftime('%Y', date(datefield))

procedure Orders_EXW_OnClick (Sender: string);
begin
    if Orders.EXW.Checked then 
    begin
       Orders.CFR.Enabled :=False; 
       Orders.FOB.Enabled :=False;
    end else
    begin
       Orders.CFR.Enabled :=True;
    end;
end;

function CheckDublicate (sTable, sField, sValue: string): boolean;
var
   s: string;
begin
     result := False;

     s := SQLExecute ('SELECT Count(*) FROM '+sTable+' WHERE '+sField+' LIKE "' + sValue + '"');
     if StrToInt(s) > 0 then result := True;
end;

procedure frmApplication_Button4_OnClick (Sender: string; var Cancel: boolean);
begin
    if CheckDublicate('bl_list_klient', 'name', frmApplication.edClient.Text) then
     begin
          ShowMessage('Данный клиент в черном списке.');
          Cancel := True;
     end;
end;