Добрый вечер!
Прошу помочь со скриптом для заполнения поля "Поставлено" в таблице товар на форме закупка.
Примерный вид скрипта прилагаю:
var
i,c: integer;
k,q: integer;
s: string;
begin
Zakupka.Tablenom.BeginUpdate;
q := Zakupka.Tablenom.Columns.Count-1;
c := Zakupka.Tablenom.RowCount - 1;
for i := 0 to c do
begin
if Zakupka.Tablenom.Cells[10,i] <= Zakupka.Tablenom.Cells[8,i] then
begin
s := Zakupka.Tablenom.Cells[10,i];
for k := 0 to q do
Zakupka.Tablenom.Cells[10,i]].Text := Запрос не могу сообразить как корректно указать (примерный запрос ниже) ;
end;
end;
Zakupka.Tablenom.EndUpdate
end;
SELECT
SUM(SpecEntrance.number)
FROM ZakEnt
LEFT JOIN Entrance ON ZakEnt.id_Entrance=Entrance.id
LEFT JOIN SpecEntrance ON SpecEntrance.id_Entrance=Entrance.id
WHERE ZakEnt.id_Zakupka=' +frmZakupka.Edit4.sqlValue+' and SpecEntrance.id_Nomenklature='+Zakupka.Tablenom.Cells[4,i]'
Файл с базой прилагаю