- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 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;