Search options (Page 2 of 4)

Что, ни у кого ни каких идей не будет?

Сделал так:

iCol := 5;
     While iCol <= c do
       begin
          for iRow := 0 to r do
            if  (datato.TableGrid3.Cells[iCol,iRow])<> '' then
              begin
                 if (datato.TableGrid3.Cells[iCol,iRow])= '1' then datato.TableGrid3.Cell[iCol+1,iRow].Color := clGreen else datato.TableGrid3.Cell[iCol+1,iRow].Color := clYellow ;
              end;
         iCol := iCol+4;
       end;

Мой скрипт:

procedure Form1_Button74_OnAfterClick (Sender: string);

var
    sFile: string;
    sDest: string;
    sName: string;
    sRas: string;

begin
if Form1.CheckBox5.Checked = True then
        begin
           sFile := Form1.frxPDFExport1.FileName;
           sName := ''+FormatDateTime('YYYYMMDD_hhmm', now)+'' ;
           sRas := '.pdf';
           sDest := 'Рayments\'+FormatDateTime('YYYY-MM-DD', now)+'\';

          if ForceDirectories(sDest) then
            begin
             CopyFile(sFile, sDest+sName+sRas);
             OpenFile(sDest+sName+sRas); // if you want open file
            end;

            DeleteFile(sFile);

      end;
end;

Опробовал скрипт и заметил интересную вещь - если акробат уже запущен то всё срабатывает на отлично (у меня сохраняет в pdf), а если нет то выходит ошибка (во вложении)

В понедельник

В принципе работает такой скрипт:

procedure dogovor_TableGrid1_OnCellDoubleClick (Sender: string; ACol, ARow: Integer);
var
   s: string;
begin

     s := SaveFileFromDataBase('scandog', 'scan', dogovor.TableGrid1.dbItemID);
     OpenFile(s);
end;

но, выскакивает надоедливый запрос

Напишу здесь же.
Пробовал как в примере:

procedure dogovor_TableGrid1_OnCellDoubleClick (Sender: string; ACol, ARow: Integer);
var
    FileName: string;
begin
    FileName := SQLExecute('SELECT scan_filename FROM scandog WHERE id='+dogovor.TableGrid1.sqlValue);
    FileName := ExtractFileDir(Application.ExeName)+FileName;
    if FileExists(FileName) then OpenFile(FileName);
end;

ни какой реакции. В чем может быть проблема?

Да, запрет на открытие формы по двойному клику естественно прописал тоже.

Ещё вопрос - как мне связать таблицы через одну? Значение я получаю через вычислительное поле:

(SELECT user.user FROM user WHERE user.id=dogovor.id_user) AS 'dogovor.user_calc',

основная таблица с которой формирую отчет напрямую связана только с таблицей dogovor

LEFT OUTER JOIN dogovor ON buh_doc.id_dogovor=dogovor.id   

но мне необходимо сделать окончательную фильтрацию по полю user.user примерно так:

WHERE buh_doc.datapay={MonthCalendar1} AND buh_doc.pay=0 AND user.user = {Edit5}

Как мне прописать LEFT OUTER JOIN ?

Используется

FROM buh_doc
LEFT OUTER JOIN dogovor ON buh_doc.id_dogovor=dogovor.id                     
LEFT OUTER JOIN block ON buh_doc.id_block=block.id
LEFT OUTER JOIN currency ON buh_doc.id_currency=currency.id

WHERE buh_doc.datapay={MonthCalendar1} AND buh_doc.pay="0"       

?

вкладка "К оплате -> на неделю -> выбрать дату на календаре, Button7 (шаблон platezh_week)