- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
- 18
- 19
- 20
procedure TOstatkiForm.FormCreate(Sender: TObject);
begin
OstatkiTovarList:=TStringList.Create;
btnShowToConvert.Enabled := False;
grpToConvert.Visible := False;
zqrToConvert.SQL.Text := 'select null::integer ostid,' + #13#10 +
'null::integer tovarid,' + #13#10 +
'null::bigint kt,' + #13#10 +
'null::varchar nt,' + #13#10 +
'null::numeric cen,' + #13#10 +
'null::integer edizmerid,' + #13#10 +
'null::varchar name_u,' + #13#10 +
'null::date income_period,' + #13#10 +
'null::varchar ss,' + #13#10 +
'null::numeric ost_doc,' + #13#10 +
'null::numeric gsum' + #13#10 +
'where 1=2';
end;
ObeseYoungPidor # 0
Floating_cockerel # 0
Поди, чтоб условия потом туда котенировать?
Baiumka # 0 ⇈