Browse Subversion Repository
Diff of /Unit4.pas
 Parent Directory
|  Revision Log
|  Patch
| 97 |
end; |
end; |
| 98 |
|
|
| 99 |
procedure TCartForm.IWButton1Click(Sender: TObject); |
procedure TCartForm.IWButton1Click(Sender: TObject); |
| 100 |
|
var |
| 101 |
|
s: TUserForm; |
| 102 |
begin |
begin |
| 103 |
if IWGrid1.RowCount > 0 then |
if (UserSession.user_number <> 0) and (IWGrid1.RowCount > 0) then |
| 104 |
TPayForm.Create(WebApplication).Show; |
if DM.FDTable1.FieldByName('EMAIL').AsString = '' then |
| 105 |
if (UserSession.user_number <> 0) and |
begin |
| 106 |
(DM.FDTable1.FieldByName('EMAIL').AsString = '') then |
s := TUserForm.Create(WebApplication); |
| 107 |
TUserForm.Create(WebApplication).Show; |
s.pay := IWGrid1.RowCount>0; |
| 108 |
|
s.Show; |
| 109 |
|
end |
| 110 |
|
else |
| 111 |
|
TPayForm.Create(WebApplication).Show; |
| 112 |
Release; |
Release; |
| 113 |
end; |
end; |
| 114 |
|
|
|
|
Legend:
| Removed from v.12 |
|
| changed lines |
| |
Added in v.13 |
|
|
| 
Parent Directory
Revision Log
Patch