| [453] | 1 | //kt -- Modified with SourceScanner on 8/7/2007
|
|---|
| 2 | unit fTIUView;
|
|---|
| 3 |
|
|---|
| 4 | interface
|
|---|
| 5 |
|
|---|
| 6 | uses
|
|---|
| 7 | Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, ORFN,
|
|---|
| 8 | StdCtrls, ExtCtrls, ORCtrls, ComCtrls, ORDtTm, Spin, uTIU;
|
|---|
| 9 |
|
|---|
| 10 | type
|
|---|
| 11 | TfrmTIUView = class(TForm)
|
|---|
| 12 | pnlBase: TORAutoPanel;
|
|---|
| 13 | lblBeginDate: TLabel;
|
|---|
| 14 | calBeginDate: TORDateBox;
|
|---|
| 15 | lblEndDate: TLabel;
|
|---|
| 16 | calEndDate: TORDateBox;
|
|---|
| 17 | lblStatus: TLabel;
|
|---|
| 18 | lstStatus: TORListBox;
|
|---|
| 19 | lblAuthor: TLabel;
|
|---|
| 20 | cmdOK: TButton;
|
|---|
| 21 | cmdCancel: TButton;
|
|---|
| 22 | cboAuthor: TORComboBox;
|
|---|
| 23 | lblMaxDocs: TLabel;
|
|---|
| 24 | edMaxDocs: TCaptionEdit;
|
|---|
| 25 | lblContains: TLabel;
|
|---|
| 26 | txtKeyword: TCaptionEdit;
|
|---|
| 27 | Bevel1: TBevel;
|
|---|
| 28 | grpListView: TGroupBox;
|
|---|
| 29 | radListSort: TRadioGroup;
|
|---|
| 30 | lblSortBy: TLabel;
|
|---|
| 31 | cboSortBy: TORComboBox;
|
|---|
| 32 | grpTreeView: TGroupBox;
|
|---|
| 33 | lblGroupBy: TOROffsetLabel;
|
|---|
| 34 | cboGroupBy: TORComboBox;
|
|---|
| 35 | radTreeSort: TRadioGroup;
|
|---|
| 36 | Bevel2: TBevel;
|
|---|
| 37 | cmdClear: TButton;
|
|---|
| 38 | ckShowSubject: TCheckBox;
|
|---|
| 39 | grpWhereEitherOf: TGroupBox;
|
|---|
| 40 | ckTitle: TCheckBox;
|
|---|
| 41 | ckSubject: TCheckBox;
|
|---|
| 42 | procedure cmdOKClick(Sender: TObject);
|
|---|
| 43 | procedure cmdCancelClick(Sender: TObject);
|
|---|
| 44 | procedure lstStatusSelect(Sender: TObject);
|
|---|
| 45 | procedure cboAuthorNeedData(Sender: TObject; const StartFrom: String;
|
|---|
| 46 | Direction, InsertAt: Integer);
|
|---|
| 47 | procedure cmdClearClick(Sender: TObject);
|
|---|
| 48 | private
|
|---|
| 49 | FChanged: Boolean;
|
|---|
| 50 | FBeginDate: string;
|
|---|
| 51 | FFMBeginDate: TFMDateTime;
|
|---|
| 52 | FEndDate: string;
|
|---|
| 53 | FFMEndDate: TFMDateTime;
|
|---|
| 54 | FStatus: string;
|
|---|
| 55 | FAuthor: Int64;
|
|---|
| 56 | FMaxDocs: integer;
|
|---|
| 57 | FShowSubject: Boolean;
|
|---|
| 58 | FSortBy: string;
|
|---|
| 59 | FListAscending: Boolean;
|
|---|
| 60 | FGroupBy: string;
|
|---|
| 61 | FTreeAscending: Boolean;
|
|---|
| 62 | FSearchField: string;
|
|---|
| 63 | FKeyWord: string;
|
|---|
| 64 | FFiltered: Boolean;
|
|---|
| 65 | FCurrentContext: TTIUContext;
|
|---|
| 66 | end;
|
|---|
| 67 |
|
|---|
| 68 | function SelectTIUView(FontSize: Integer; ShowForm: Boolean; CurrentContext: TTIUContext; var TIUContext: TTIUContext): boolean ;
|
|---|
| 69 |
|
|---|
| 70 | implementation
|
|---|
| 71 |
|
|---|
| 72 | {$R *.DFM}
|
|---|
| 73 |
|
|---|
| 74 | uses rCore, uCore, rTIU(*, fNotes, fDCSumm, rDCSumm*)
|
|---|
| 75 | ,DKLang //kt
|
|---|
| 76 | ;
|
|---|
| 77 |
|
|---|
| 78 | //const
|
|---|
| 79 | // TX_DATE_ERR = 'Enter valid beginning and ending dates or press Cancel.'; <-- original line. //kt 8/7/2007
|
|---|
| 80 | // TX_DATE_ERR_CAP = 'Error in Date Range'; <-- original line. //kt 8/7/2007
|
|---|
| 81 | // TX_AUTH_ERR = 'You must select an author for this retrieval method.'; <-- original line. //kt 8/7/2007
|
|---|
| 82 | // TX_AUTH_ERR_CAP = 'No author selected'; <-- original line. //kt 8/7/2007
|
|---|
| 83 |
|
|---|
| 84 | var
|
|---|
| 85 | TX_DATE_ERR : string; //kt
|
|---|
| 86 | TX_DATE_ERR_CAP : string; //kt
|
|---|
| 87 | TX_AUTH_ERR : string; //kt
|
|---|
| 88 | TX_AUTH_ERR_CAP : string; //kt
|
|---|
| 89 |
|
|---|
| 90 |
|
|---|
| 91 | procedure SetupVars;
|
|---|
| 92 | //kt Added entire function to replace constant declarations 8/7/2007
|
|---|
| 93 | begin
|
|---|
| 94 | TX_DATE_ERR := DKLangConstW('fTIUView_Enter_valid_beginning_and_ending_dates_or_press_Cancelx');
|
|---|
| 95 | TX_DATE_ERR_CAP := DKLangConstW('fTIUView_Error_in_Date_Range');
|
|---|
| 96 | TX_AUTH_ERR := DKLangConstW('fTIUView_You_must_select_an_author_for_this_retrieval_methodx');
|
|---|
| 97 | TX_AUTH_ERR_CAP := DKLangConstW('fTIUView_No_author_selected');
|
|---|
| 98 | end;
|
|---|
| 99 |
|
|---|
| 100 | function SelectTIUView(FontSize: Integer; ShowForm: Boolean; CurrentContext: TTIUContext; var TIUContext: TTIUContext): boolean ;
|
|---|
| 101 | { displays select form for Notes and returns a record of the selection }
|
|---|
| 102 | var
|
|---|
| 103 | frmTIUView: TfrmTIUView;
|
|---|
| 104 | W, H: Integer;
|
|---|
| 105 | CurrentAuthor: Int64;
|
|---|
| 106 | CurrentStatus: string;
|
|---|
| 107 | begin
|
|---|
| 108 | frmTIUView := TfrmTIUView.Create(Application);
|
|---|
| 109 | try
|
|---|
| 110 | with frmTIUView do
|
|---|
| 111 | begin
|
|---|
| 112 | Font.Size := FontSize;
|
|---|
| 113 | W := ClientWidth;
|
|---|
| 114 | H := ClientHeight;
|
|---|
| 115 | ResizeToFont(FontSize, W, H);
|
|---|
| 116 | ClientWidth := W; pnlBase.Width := W;
|
|---|
| 117 | ClientHeight := H; pnlBase.Height := H;
|
|---|
| 118 | FChanged := False;
|
|---|
| 119 | FFiltered := False;
|
|---|
| 120 | FCurrentContext := CurrentContext;
|
|---|
| 121 | calBeginDate.Text := CurrentContext.BeginDate;
|
|---|
| 122 | calEndDate.Text := CurrentContext.EndDate;
|
|---|
| 123 | if calEndDate.Text = '' then calEndDate.Text := 'TODAY';
|
|---|
| 124 | CurrentStatus := CurrentContext.Status;
|
|---|
| 125 | with lstStatus do
|
|---|
| 126 | if CurrentStatus <> '' then
|
|---|
| 127 | SelectByID(CurrentStatus)
|
|---|
| 128 | else
|
|---|
| 129 | SelectByID('1');
|
|---|
| 130 | //lstStatusSelect(frmTIUView); moved down - v24.1 (RV)
|
|---|
| 131 | CurrentAuthor := CurrentContext.Author;
|
|---|
| 132 | with cboAuthor do
|
|---|
| 133 | if CurrentAuthor > 0 then
|
|---|
| 134 | begin
|
|---|
| 135 | InitLongList(ExternalName(CurrentAuthor, 200));
|
|---|
| 136 | if Enabled then SelectByIEN(CurrentAuthor);
|
|---|
| 137 | FAuthor := CurrentAuthor;
|
|---|
| 138 | end
|
|---|
| 139 | else
|
|---|
| 140 | begin
|
|---|
| 141 | InitLongList(User.Name);
|
|---|
| 142 | SelectByIEN(User.DUZ);
|
|---|
| 143 | FAuthor := ItemIEN;
|
|---|
| 144 | end;
|
|---|
| 145 | if CurrentContext.MaxDocs > 0 then
|
|---|
| 146 | edMaxDocs.Text := IntToStr(CurrentContext.MaxDocs)
|
|---|
| 147 | else
|
|---|
| 148 | edMaxDocs.Text := '';
|
|---|
| 149 | FMaxDocs := StrToIntDef(edMaxDocs.Text, 0);
|
|---|
| 150 | txtKeyword.Text := CurrentContext.Keyword;
|
|---|
| 151 | if CurrentContext.SearchField <> '' then
|
|---|
| 152 | begin
|
|---|
| 153 | ckTitle.Checked := (CurrentContext.SearchField[1] in ['T','B']) and (CurrentContext.Keyword <> '');
|
|---|
| 154 | ckSubject.Checked := (CurrentContext.SearchField[1] in ['S','B'])and (CurrentContext.Keyword <> '');
|
|---|
| 155 | end;
|
|---|
| 156 | ckShowSubject.Checked := CurrentContext.ShowSubject;
|
|---|
| 157 | //with radTreeSort do if SortNotesAscending then ItemIndex := 1 else ItemIndex := 0;
|
|---|
| 158 | with radTreeSort do if CurrentContext.TreeAscending then ItemIndex := 0 else ItemIndex := 1;
|
|---|
| 159 | with radListSort do if CurrentContext.ListAscending then ItemIndex := 0 else ItemIndex := 1;
|
|---|
| 160 | cboSortBy.SelectByID(CurrentContext.SortBy);
|
|---|
| 161 | cboGroupBy.SelectByID(CurrentContext.GroupBy);
|
|---|
| 162 | lstStatusSelect(frmTIUView); // from above in v24.1, (RV)
|
|---|
| 163 |
|
|---|
| 164 | if ShowForm then ShowModal else cmdOKClick(frmTIUView);
|
|---|
| 165 |
|
|---|
| 166 | with TIUContext do
|
|---|
| 167 | begin
|
|---|
| 168 | Changed := FChanged;
|
|---|
| 169 | BeginDate := FBeginDate;
|
|---|
| 170 | FMBeginDate := FFMBeginDate;
|
|---|
| 171 | EndDate := FEndDate;
|
|---|
| 172 | FMEndDate := FFMEndDate;
|
|---|
| 173 | Status := FStatus;
|
|---|
| 174 | Author := FAuthor;
|
|---|
| 175 | MaxDocs := FMaxDocs;
|
|---|
| 176 | ShowSubject := FShowSubject;
|
|---|
| 177 | SortBy := FSortBy;
|
|---|
| 178 | ListAscending := FListAscending;
|
|---|
| 179 | GroupBy := FGroupBy;
|
|---|
| 180 | TreeAscending := FTreeAscending;
|
|---|
| 181 | SearchField := FSearchField;
|
|---|
| 182 | KeyWord := FKeyWord;
|
|---|
| 183 | Filtered := FFiltered;
|
|---|
| 184 | Result := Changed ;
|
|---|
| 185 | end;
|
|---|
| 186 |
|
|---|
| 187 | end; {with frmTIUView}
|
|---|
| 188 | finally
|
|---|
| 189 | frmTIUView.Release;
|
|---|
| 190 | end;
|
|---|
| 191 | end;
|
|---|
| 192 |
|
|---|
| 193 | procedure TfrmTIUView.cmdOKClick(Sender: TObject);
|
|---|
| 194 | var
|
|---|
| 195 | bdate, edate: TFMDateTime;
|
|---|
| 196 | begin
|
|---|
| 197 | SetupVars; //kt added 8/7/2007 to replace constants with vars.
|
|---|
| 198 | FStatus := lstStatus.ItemID;
|
|---|
| 199 |
|
|---|
| 200 | if calBeginDate.Text <> '' then
|
|---|
| 201 | bdate := StrToFMDateTime(calBeginDate.Text)
|
|---|
| 202 | else
|
|---|
| 203 | bdate := 0 ;
|
|---|
| 204 |
|
|---|
| 205 | if calEndDate.Text <> '' then
|
|---|
| 206 | edate := StrToFMDateTime(calEndDate.Text)
|
|---|
| 207 | else
|
|---|
| 208 | edate := 0 ;
|
|---|
| 209 |
|
|---|
| 210 | if (bdate <= edate) then
|
|---|
| 211 | begin
|
|---|
| 212 | FBeginDate := calBeginDate.Text;
|
|---|
| 213 | FFMBeginDate := bdate;
|
|---|
| 214 | FEndDate := calEndDate.Text;
|
|---|
| 215 | FFMEndDate := edate;
|
|---|
| 216 | end
|
|---|
| 217 | else
|
|---|
| 218 | begin
|
|---|
| 219 | InfoBox(TX_DATE_ERR, TX_DATE_ERR_CAP, MB_OK or MB_ICONWARNING);
|
|---|
| 220 | Exit;
|
|---|
| 221 | end;
|
|---|
| 222 |
|
|---|
| 223 | FAuthor := cboAuthor.ItemIEN;
|
|---|
| 224 | if (FStatus = '4') and (FAuthor = 0) then
|
|---|
| 225 | begin
|
|---|
| 226 | InfoBox(TX_AUTH_ERR, TX_AUTH_ERR_CAP, MB_OK or MB_ICONWARNING);
|
|---|
| 227 | Exit;
|
|---|
| 228 | end;
|
|---|
| 229 |
|
|---|
| 230 | FSortBy := cboSortBy.ItemID;
|
|---|
| 231 | if FSortBy = '' then FSortBy := 'R';
|
|---|
| 232 | FListAscending := (radListSort.ItemIndex = 0);
|
|---|
| 233 | FTreeAscending := (radTreeSort.ItemIndex = 0);
|
|---|
| 234 |
|
|---|
| 235 | FKeyWord := txtKeyWord.Text;
|
|---|
| 236 | if (ckTitle.Checked) and (ckSubject.Checked) then
|
|---|
| 237 | FSearchField := 'B'
|
|---|
| 238 | else if ckTitle.Checked then
|
|---|
| 239 | FSearchField := 'T'
|
|---|
| 240 | else if ckSubject.Checked then
|
|---|
| 241 | FSearchField := 'S'
|
|---|
| 242 | else if not (ckTitle.Checked or ckSubject.Checked) then
|
|---|
| 243 | begin
|
|---|
| 244 | FKeyWord := '';
|
|---|
| 245 | FSearchField := '';
|
|---|
| 246 | end;
|
|---|
| 247 | if (FKeyword <> '') then
|
|---|
| 248 | FFiltered := True;
|
|---|
| 249 |
|
|---|
| 250 | if ckSubject.Checked then ckShowSubject.Checked := True;
|
|---|
| 251 | FShowSubject := ckShowSubject.Checked;
|
|---|
| 252 | FMaxDocs := StrToIntDef(edMaxDocs.Text, 0);
|
|---|
| 253 | if cboGroupBy.ItemID <> '' then
|
|---|
| 254 | FGroupBy := cboGroupBy.ItemID
|
|---|
| 255 | else
|
|---|
| 256 | FGroupBy := '';
|
|---|
| 257 | FChanged := True;
|
|---|
| 258 | Close;
|
|---|
| 259 | end;
|
|---|
| 260 |
|
|---|
| 261 | procedure TfrmTIUView.cmdCancelClick(Sender: TObject);
|
|---|
| 262 | begin
|
|---|
| 263 | FChanged := False;
|
|---|
| 264 | Close;
|
|---|
| 265 | end;
|
|---|
| 266 |
|
|---|
| 267 | procedure TfrmTIUView.lstStatusSelect(Sender: TObject);
|
|---|
| 268 | var
|
|---|
| 269 | EnableDates: Boolean;
|
|---|
| 270 | begin
|
|---|
| 271 | EnableDates := (lstStatus.ItemID <> '1');
|
|---|
| 272 | lblBeginDate.Enabled := EnableDates;
|
|---|
| 273 | calBeginDate.Enabled := EnableDates;
|
|---|
| 274 | lblEndDate.Enabled := EnableDates;
|
|---|
| 275 | calEndDate.Enabled := EnableDates;
|
|---|
| 276 | if not EnableDates then
|
|---|
| 277 | begin
|
|---|
| 278 | calBeginDate.Text := '';
|
|---|
| 279 | calEndDate.Text := '';
|
|---|
| 280 | end
|
|---|
| 281 | else
|
|---|
| 282 | begin
|
|---|
| 283 | calBeginDate.Text := FCurrentContext.BeginDate;
|
|---|
| 284 | calEndDate.Text := FCurrentContext.EndDate;
|
|---|
| 285 | if FCurrentContext.EndDate = '' then calEndDate.FMDateTime := FMToday;
|
|---|
| 286 | end;
|
|---|
| 287 | if lstStatus.ItemID = '3' then
|
|---|
| 288 | // lblAuthor.Caption := 'Expected Cosigner:' <-- original line. //kt 8/7/2007
|
|---|
| 289 | lblAuthor.Caption := DKLangConstW('fTIUView_Expected_Cosignerx') //kt added 8/7/2007
|
|---|
| 290 | else
|
|---|
| 291 | // lblAuthor.Caption := 'Author:'; <-- original line. //kt 8/7/2007
|
|---|
| 292 | lblAuthor.Caption := DKLangConstW('fTIUView_Authorx'); //kt added 8/7/2007
|
|---|
| 293 | cboAuthor.Caption := lblAuthor.Caption;
|
|---|
| 294 | if (lstStatus.ItemID = '1') or (lstStatus.ItemID = '5') then
|
|---|
| 295 | begin
|
|---|
| 296 | cboAuthor.ItemIndex := -1;
|
|---|
| 297 | cboAuthor.Enabled := False;
|
|---|
| 298 | lblAuthor.Enabled := False;
|
|---|
| 299 | if FMaxDocs > 0 then
|
|---|
| 300 | edMaxDocs.Text := IntToStr(FMaxDocs)
|
|---|
| 301 | else
|
|---|
| 302 | edMaxDocs.Text := '';
|
|---|
| 303 | edMaxDocs.Enabled := True;
|
|---|
| 304 | lblMaxDocs.Enabled := True;
|
|---|
| 305 | end
|
|---|
| 306 | else
|
|---|
| 307 | begin
|
|---|
| 308 | cboAuthor.Enabled := True;
|
|---|
| 309 | cboAuthor.SelectByIEN(FAuthor);
|
|---|
| 310 | lblAuthor.Enabled := True;
|
|---|
| 311 | edMaxDocs.Text := '';
|
|---|
| 312 | edMaxDocs.Enabled := False;
|
|---|
| 313 | lblMaxDocs.Enabled := False;
|
|---|
| 314 | end;
|
|---|
| 315 | end;
|
|---|
| 316 |
|
|---|
| 317 |
|
|---|
| 318 | procedure TfrmTIUView.cboAuthorNeedData(Sender: TObject;
|
|---|
| 319 | const StartFrom: string; Direction, InsertAt: Integer);
|
|---|
| 320 | begin
|
|---|
| 321 | cboAuthor.ForDataUse(SubSetOfActiveAndInactivePersons(StartFrom, Direction));
|
|---|
| 322 | end;
|
|---|
| 323 |
|
|---|
| 324 | procedure TfrmTIUView.cmdClearClick(Sender: TObject);
|
|---|
| 325 | begin
|
|---|
| 326 | cboSortBy.ItemIndex := -1;
|
|---|
| 327 | cboGroupBy.ItemIndex := -1;
|
|---|
| 328 | ckTitle.Checked := False;
|
|---|
| 329 | ckSubject.Checked := False;
|
|---|
| 330 | txtKeyWord.Text := '';
|
|---|
| 331 | radTreeSort.ItemIndex := 1;
|
|---|
| 332 | radListSort.ItemIndex := 1;
|
|---|
| 333 | end;
|
|---|
| 334 |
|
|---|
| 335 | end.
|
|---|
