1 /**************************************************************
2 *
3 * Licensed to the Apache Software Foundation (ASF) under one
4 * or more contributor license agreements. See the NOTICE file
5 * distributed with this work for additional information
6 * regarding copyright ownership. The ASF licenses this file
7 * to you under the Apache License, Version 2.0 (the
8 * "License"); you may not use this file except in compliance
9 * with the License. You may obtain a copy of the License at
10 *
11 * http://www.apache.org/licenses/LICENSE-2.0
12 *
13 * Unless required by applicable law or agreed to in writing,
14 * software distributed under the License is distributed on an
15 * "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
16 * KIND, either express or implied. See the License for the
17 * specific language governing permissions and limitations
18 * under the License.
19 *
20 *************************************************************/
21
22
23
24 // MARKER(update_precomp.py): autogen include statement, do not remove
25 #include "precompiled_scui.hxx"
26
27
28
29
30 #ifndef PCH
31 #include <vcl/waitobj.hxx>
32 #endif
33
34 // INCLUDE ---------------------------------------------------------------
35
36 #include "viewdata.hxx"
37 #include "document.hxx"
38 #include "uiitems.hxx"
39 #include "global.hxx"
40 #include "dbcolect.hxx"
41 #include "scresid.hxx"
42
43 #include "sc.hrc"
44 #include "filter.hrc"
45 #include "globstr.hrc"
46
47 #define _PFILTDLG_CXX
48 #include "pfiltdlg.hxx"
49 #undef _PFILTDLG_CXX
50 #include <svl/zforlist.hxx>
51
52 //==================================================================
53
ScPivotFilterDlg(Window * pParent,const SfxItemSet & rArgSet,SCTAB nSourceTab)54 ScPivotFilterDlg::ScPivotFilterDlg( Window* pParent,
55 const SfxItemSet& rArgSet,
56 SCTAB nSourceTab )
57
58 : ModalDialog ( pParent, ScResId( RID_SCDLG_PIVOTFILTER ) ),
59 //
60 aFlCriteria ( this, ScResId( FL_CRITERIA ) ),
61 aLbField1 ( this, ScResId( LB_FIELD1 ) ),
62 aLbCond1 ( this, ScResId( LB_COND1 ) ),
63 aEdVal1 ( this, ScResId( ED_VAL1 ) ),
64 aLbConnect1 ( this, ScResId( LB_OP1 ) ),
65 aLbField2 ( this, ScResId( LB_FIELD2 ) ),
66 aLbCond2 ( this, ScResId( LB_COND2 ) ),
67 aEdVal2 ( this, ScResId( ED_VAL2 ) ),
68 aLbConnect2 ( this, ScResId( LB_OP2 ) ),
69 aLbField3 ( this, ScResId( LB_FIELD3 ) ),
70 aLbCond3 ( this, ScResId( LB_COND3 ) ),
71 aEdVal3 ( this, ScResId( ED_VAL3 ) ),
72 aFtConnect ( this, ScResId( FT_OP ) ),
73 aFtField ( this, ScResId( FT_FIELD ) ),
74 aFtCond ( this, ScResId( FT_COND ) ),
75 aFtVal ( this, ScResId( FT_VAL ) ),
76 aFlOptions ( this, ScResId( FL_OPTIONS ) ),
77 aBtnCase ( this, ScResId( BTN_CASE ) ),
78 aBtnRegExp ( this, ScResId( BTN_REGEXP ) ),
79 aBtnUnique ( this, ScResId( BTN_UNIQUE ) ),
80 aFtDbAreaLabel ( this, ScResId( FT_DBAREA_LABEL ) ),
81 aFtDbArea ( this, ScResId( FT_DBAREA ) ),
82 aBtnOk ( this, ScResId( BTN_OK ) ),
83 aBtnCancel ( this, ScResId( BTN_CANCEL ) ),
84 aBtnHelp ( this, ScResId( BTN_HELP ) ),
85 aBtnMore ( this, ScResId( BTN_MORE ) ),
86 aStrUndefined ( ScResId( SCSTR_UNDEFINED ) ),
87 aStrNoName ( ScGlobal::GetRscString(STR_DB_NONAME) ),
88 aStrNone ( ScResId( SCSTR_NONE ) ),
89 aStrEmpty ( ScResId( SCSTR_EMPTY ) ),
90 aStrNotEmpty ( ScResId( SCSTR_NOTEMPTY ) ),
91 aStrRow ( ScResId( SCSTR_ROW ) ),
92 aStrColumn ( ScResId( SCSTR_COLUMN ) ),
93 //
94 nWhichQuery ( rArgSet.GetPool()->GetWhich( SID_QUERY ) ),
95 theQueryData ( ((const ScQueryItem&)
96 rArgSet.Get( nWhichQuery )).GetQueryData() ),
97 pOutItem ( NULL ),
98 pViewData ( NULL ),
99 pDoc ( NULL ),
100 nSrcTab ( nSourceTab ), // ist nicht im QueryParam
101 nFieldCount ( 0 )
102 {
103 for (sal_uInt16 i=0; i<=MAXCOL; i++)
104 pEntryLists[i] = NULL;
105
106 Init( rArgSet );
107 FreeResource();
108 }
109
110 //------------------------------------------------------------------------
111
~ScPivotFilterDlg()112 __EXPORT ScPivotFilterDlg::~ScPivotFilterDlg()
113 {
114 for (sal_uInt16 i=0; i<=MAXCOL; i++)
115 delete pEntryLists[i];
116
117 if ( pOutItem )
118 delete pOutItem;
119 }
120
121 //------------------------------------------------------------------------
122
Init(const SfxItemSet & rArgSet)123 void __EXPORT ScPivotFilterDlg::Init( const SfxItemSet& rArgSet )
124 {
125 const ScQueryItem& rQueryItem = (const ScQueryItem&)
126 rArgSet.Get( nWhichQuery );
127
128 aBtnCase.SetClickHdl ( LINK( this, ScPivotFilterDlg, CheckBoxHdl ) );
129
130 aLbField1.SetSelectHdl ( LINK( this, ScPivotFilterDlg, LbSelectHdl ) );
131 aLbField2.SetSelectHdl ( LINK( this, ScPivotFilterDlg, LbSelectHdl ) );
132 aLbField3.SetSelectHdl ( LINK( this, ScPivotFilterDlg, LbSelectHdl ) );
133 aLbConnect1.SetSelectHdl( LINK( this, ScPivotFilterDlg, LbSelectHdl ) );
134 aLbConnect2.SetSelectHdl( LINK( this, ScPivotFilterDlg, LbSelectHdl ) );
135
136 aBtnMore.AddWindow( &aBtnCase );
137 aBtnMore.AddWindow( &aBtnRegExp );
138 aBtnMore.AddWindow( &aBtnUnique );
139 aBtnMore.AddWindow( &aFtDbAreaLabel );
140 aBtnMore.AddWindow( &aFtDbArea );
141 aBtnMore.AddWindow( &aFlOptions );
142
143 aBtnCase .Check( theQueryData.bCaseSens );
144 aBtnRegExp .Check( theQueryData.bRegExp );
145 aBtnUnique .Check( !theQueryData.bDuplicate );
146
147 pViewData = rQueryItem.GetViewData();
148 pDoc = pViewData ? pViewData->GetDocument() : NULL;
149
150 // fuer leichteren Zugriff:
151 aFieldLbArr [0] = &aLbField1;
152 aFieldLbArr [1] = &aLbField2;
153 aFieldLbArr [2] = &aLbField3;
154 aValueEdArr [0] = &aEdVal1;
155 aValueEdArr [1] = &aEdVal2;
156 aValueEdArr [2] = &aEdVal3;
157 aCondLbArr [0] = &aLbCond1;
158 aCondLbArr [1] = &aLbCond2;
159 aCondLbArr [2] = &aLbCond3;
160
161 if ( pViewData && pDoc )
162 {
163 String theAreaStr;
164 ScRange theCurArea ( ScAddress( theQueryData.nCol1,
165 theQueryData.nRow1,
166 nSrcTab ),
167 ScAddress( theQueryData.nCol2,
168 theQueryData.nRow2,
169 nSrcTab ) );
170 ScDBCollection* pDBColl = pDoc->GetDBCollection();
171 String theDbArea;
172 String theDbName = aStrNoName;
173
174 /*
175 * Ueberpruefen, ob es sich bei dem uebergebenen
176 * Bereich um einen Datenbankbereich handelt:
177 */
178
179 theCurArea.Format( theAreaStr, SCR_ABS_3D, pDoc, pDoc->GetAddressConvention() );
180
181 if ( pDBColl )
182 {
183 ScAddress& rStart = theCurArea.aStart;
184 ScAddress& rEnd = theCurArea.aEnd;
185 ScDBData* pDBData = pDBColl->GetDBAtArea( rStart.Tab(),
186 rStart.Col(), rStart.Row(),
187 rEnd.Col(), rEnd.Row() );
188 if ( pDBData )
189 pDBData->GetName( theDbName );
190 }
191
192 theDbArea.AppendAscii(RTL_CONSTASCII_STRINGPARAM(" ("));
193 theDbArea += theDbName;
194 theDbArea += ')';
195 aFtDbArea.SetText( theDbArea );
196 }
197 else
198 {
199 aFtDbArea.SetText( EMPTY_STRING );
200 }
201
202 // Feldlisten einlesen und Eintraege selektieren:
203
204 FillFieldLists();
205
206 for ( SCSIZE i=0; i<3; i++ )
207 {
208 if ( theQueryData.GetEntry(i).bDoQuery )
209 {
210 ScQueryEntry& rEntry = theQueryData.GetEntry(i);
211
212 String aValStr = *rEntry.pStr;
213 if (!rEntry.bQueryByString && aValStr == EMPTY_STRING)
214 {
215 if (rEntry.nVal == SC_EMPTYFIELDS)
216 aValStr = aStrEmpty;
217 else if (rEntry.nVal == SC_NONEMPTYFIELDS)
218 aValStr = aStrNotEmpty;
219 }
220 sal_uInt16 nCondPos = (sal_uInt16)rEntry.eOp;
221 sal_uInt16 nFieldSelPos = GetFieldSelPos( static_cast<SCCOL>(rEntry.nField) );
222
223 aFieldLbArr[i]->SelectEntryPos( nFieldSelPos );
224 aCondLbArr [i]->SelectEntryPos( nCondPos );
225 UpdateValueList( static_cast<sal_uInt16>(i+1) );
226 aValueEdArr[i]->SetText( aValStr );
227 if (aValStr == aStrEmpty || aValStr == aStrNotEmpty)
228 aCondLbArr[i]->Disable();
229 }
230 else
231 {
232 aFieldLbArr[i]->SelectEntryPos( 0 ); // "keiner" selektieren
233 aCondLbArr [i]->SelectEntryPos( 0 ); // "=" selektieren
234 UpdateValueList( static_cast<sal_uInt16>(i) );
235 aValueEdArr[i]->SetText( EMPTY_STRING );
236 }
237 aValueEdArr[i]->SetModifyHdl( LINK( this, ScPivotFilterDlg, ValModifyHdl ) );
238 }
239
240 // Disable/Enable Logik:
241
242 (aLbField1.GetSelectEntryPos() != 0)
243 && (aLbField2.GetSelectEntryPos() != 0)
244 ? aLbConnect1.SelectEntryPos( (sal_uInt16)theQueryData.GetEntry(1).eConnect )
245 : aLbConnect1.SetNoSelection();
246
247 (aLbField2.GetSelectEntryPos() != 0)
248 && (aLbField3.GetSelectEntryPos() != 0)
249 ? aLbConnect2.SelectEntryPos( (sal_uInt16)theQueryData.GetEntry(2).eConnect )
250 : aLbConnect2.SetNoSelection();
251
252 if ( aLbField1.GetSelectEntryPos() == 0 )
253 {
254 aLbConnect1.Disable();
255 aLbField2.Disable();
256 aLbCond2.Disable();
257 aEdVal2.Disable();
258 }
259 else if ( aLbConnect1.GetSelectEntryCount() == 0 )
260 {
261 aLbField2.Disable();
262 aLbCond2.Disable();
263 aEdVal2.Disable();
264 }
265
266 if ( aLbField2.GetSelectEntryPos() == 0 )
267 {
268 aLbConnect2.Disable();
269 aLbField3.Disable();
270 aLbCond3.Disable();
271 aEdVal3.Disable();
272 }
273 else if ( aLbConnect2.GetSelectEntryCount() == 0 )
274 {
275 aLbField3.Disable();
276 aLbCond3.Disable();
277 aEdVal3.Disable();
278 }
279 }
280
281 //------------------------------------------------------------------------
282
FillFieldLists()283 void ScPivotFilterDlg::FillFieldLists()
284 {
285 aLbField1.Clear();
286 aLbField2.Clear();
287 aLbField3.Clear();
288 aLbField1.InsertEntry( aStrNone, 0 );
289 aLbField2.InsertEntry( aStrNone, 0 );
290 aLbField3.InsertEntry( aStrNone, 0 );
291
292 if ( pDoc )
293 {
294 String aFieldName;
295 SCTAB nTab = nSrcTab;
296 SCCOL nFirstCol = theQueryData.nCol1;
297 SCROW nFirstRow = theQueryData.nRow1;
298 SCCOL nMaxCol = theQueryData.nCol2;
299 SCCOL col = 0;
300 sal_uInt16 i=1;
301
302 for ( col=nFirstCol; col<=nMaxCol; col++ )
303 {
304 pDoc->GetString( col, nFirstRow, nTab, aFieldName );
305 if ( aFieldName.Len() == 0 )
306 {
307 aFieldName = aStrColumn;
308 aFieldName += ' ';
309 aFieldName += ScColToAlpha( col );
310 }
311 aLbField1.InsertEntry( aFieldName, i );
312 aLbField2.InsertEntry( aFieldName, i );
313 aLbField3.InsertEntry( aFieldName, i );
314 i++;
315 }
316 nFieldCount = i;
317 }
318 }
319
320 //------------------------------------------------------------------------
321
UpdateValueList(sal_uInt16 nList)322 void ScPivotFilterDlg::UpdateValueList( sal_uInt16 nList )
323 {
324 if ( pDoc && nList>0 && nList<=3 )
325 {
326 ComboBox* pValList = aValueEdArr[nList-1];
327 sal_uInt16 nFieldSelPos = aFieldLbArr[nList-1]->GetSelectEntryPos();
328 sal_uInt16 nListPos = 0;
329 String aCurValue = pValList->GetText();
330
331 pValList->Clear();
332 pValList->InsertEntry( aStrNotEmpty, 0 );
333 pValList->InsertEntry( aStrEmpty, 1 );
334 nListPos = 2;
335
336 if ( pDoc && nFieldSelPos )
337 {
338 SCCOL nColumn = theQueryData.nCol1 + static_cast<SCCOL>(nFieldSelPos) - 1;
339 if (!pEntryLists[nColumn])
340 {
341 WaitObject aWaiter( this );
342
343 SCTAB nTab = nSrcTab;
344 SCROW nFirstRow = theQueryData.nRow1;
345 SCROW nLastRow = theQueryData.nRow2;
346 nFirstRow++;
347 bool bHasDates = false;
348
349 pEntryLists[nColumn] = new TypedScStrCollection( 128, 128 );
350 pEntryLists[nColumn]->SetCaseSensitive( aBtnCase.IsChecked() );
351 pDoc->GetFilterEntriesArea( nColumn, nFirstRow, nLastRow,
352 nTab, *pEntryLists[nColumn], bHasDates );
353 }
354
355 TypedScStrCollection* pColl = pEntryLists[nColumn];
356 sal_uInt16 nValueCount = pColl->GetCount();
357 if ( nValueCount > 0 )
358 {
359 for ( sal_uInt16 i=0; i<nValueCount; i++ )
360 {
361 pValList->InsertEntry( (*pColl)[i]->GetString(), nListPos );
362 nListPos++;
363 }
364 }
365 }
366 pValList->SetText( aCurValue );
367 }
368 }
369
370 //------------------------------------------------------------------------
371
ClearValueList(sal_uInt16 nList)372 void ScPivotFilterDlg::ClearValueList( sal_uInt16 nList )
373 {
374 if ( nList>0 && nList<=3 )
375 {
376 ComboBox* pValList = aValueEdArr[nList-1];
377 pValList->Clear();
378 pValList->InsertEntry( aStrNotEmpty, 0 );
379 pValList->InsertEntry( aStrEmpty, 1 );
380 pValList->SetText( EMPTY_STRING );
381 }
382 }
383
384 //------------------------------------------------------------------------
385
GetFieldSelPos(SCCOL nField)386 sal_uInt16 ScPivotFilterDlg::GetFieldSelPos( SCCOL nField )
387 {
388 if ( nField >= theQueryData.nCol1 && nField <= theQueryData.nCol2 )
389 return static_cast<sal_uInt16>(nField - theQueryData.nCol1 + 1);
390 else
391 return 0;
392 }
393
394 //------------------------------------------------------------------------
395
GetOutputItem()396 const ScQueryItem& ScPivotFilterDlg::GetOutputItem()
397 {
398 ScQueryParam theParam( theQueryData );
399 sal_uInt16 nConnect1 = aLbConnect1.GetSelectEntryPos();
400 sal_uInt16 nConnect2 = aLbConnect2.GetSelectEntryPos();
401
402 for ( SCSIZE i=0; i<3; i++ )
403 {
404 sal_uInt16 nField = aFieldLbArr[i]->GetSelectEntryPos();
405 ScQueryOp eOp = (ScQueryOp)aCondLbArr[i]->GetSelectEntryPos();
406
407 sal_Bool bDoThis = (aFieldLbArr[i]->GetSelectEntryPos() != 0);
408 theParam.GetEntry(i).bDoQuery = bDoThis;
409
410 if ( bDoThis )
411 {
412 ScQueryEntry& rEntry = theParam.GetEntry(i);
413
414 String aStrVal( aValueEdArr[i]->GetText() );
415
416 /*
417 * Dialog liefert die ausgezeichneten Feldwerte "leer"/"nicht leer"
418 * als Konstanten in nVal in Verbindung mit dem Schalter
419 * bQueryByString auf FALSE.
420 */
421 if ( aStrVal == aStrEmpty )
422 {
423 *rEntry.pStr = EMPTY_STRING;
424 rEntry.nVal = SC_EMPTYFIELDS;
425 rEntry.bQueryByString = sal_False;
426 }
427 else if ( aStrVal == aStrNotEmpty )
428 {
429 *rEntry.pStr = EMPTY_STRING;
430 rEntry.nVal = SC_NONEMPTYFIELDS;
431 rEntry.bQueryByString = sal_False;
432 }
433 else
434 {
435 *rEntry.pStr = aStrVal;
436 rEntry.nVal = 0;
437 rEntry.bQueryByString = sal_True;
438 }
439
440 rEntry.nField = nField ? (theQueryData.nCol1 +
441 static_cast<SCCOL>(nField) - 1) : static_cast<SCCOL>(0);
442 rEntry.eOp = eOp;
443 }
444 }
445
446 theParam.GetEntry(1).eConnect = (nConnect1 != LISTBOX_ENTRY_NOTFOUND)
447 ? (ScQueryConnect)nConnect1
448 : SC_AND;
449 theParam.GetEntry(2).eConnect = (nConnect2 != LISTBOX_ENTRY_NOTFOUND)
450 ? (ScQueryConnect)nConnect2
451 : SC_AND;
452
453 theParam.bInplace = sal_False;
454 theParam.nDestTab = 0; // Woher kommen diese Werte?
455 theParam.nDestCol = 0;
456 theParam.nDestRow = 0;
457
458 theParam.bDuplicate = !aBtnUnique.IsChecked();
459 theParam.bCaseSens = aBtnCase.IsChecked();
460 theParam.bRegExp = aBtnRegExp.IsChecked();
461
462 if ( pOutItem ) DELETEZ( pOutItem );
463 pOutItem = new ScQueryItem( nWhichQuery, &theParam );
464
465 return *pOutItem;
466 }
467
468 //------------------------------------------------------------------------
469 // Handler:
470 //------------------------------------------------------------------------
471
IMPL_LINK(ScPivotFilterDlg,LbSelectHdl,ListBox *,pLb)472 IMPL_LINK( ScPivotFilterDlg, LbSelectHdl, ListBox*, pLb )
473 {
474 /*
475 * Behandlung der Enable/Disable-Logik,
476 * abhaengig davon, welche ListBox angefasst wurde:
477 */
478
479 if ( pLb == &aLbConnect1 )
480 {
481 if ( !aLbField2.IsEnabled() )
482 {
483 aLbField2.Enable();
484 aLbCond2.Enable();
485 aEdVal2.Enable();
486 }
487 }
488 else if ( pLb == &aLbConnect2 )
489 {
490 if ( !aLbField3.IsEnabled() )
491 {
492 aLbField3.Enable();
493 aLbCond3.Enable();
494 aEdVal3.Enable();
495 }
496 }
497 else if ( pLb == &aLbField1 )
498 {
499 if ( aLbField1.GetSelectEntryPos() == 0 )
500 {
501 aLbConnect1.SetNoSelection();
502 aLbConnect2.SetNoSelection();
503 aLbField2.SelectEntryPos( 0 );
504 aLbField3.SelectEntryPos( 0 );
505 aLbCond2.SelectEntryPos( 0 );
506 aLbCond3.SelectEntryPos( 0 );
507 ClearValueList( 1 );
508 ClearValueList( 2 );
509 ClearValueList( 3 );
510
511 aLbConnect1.Disable();
512 aLbConnect2.Disable();
513 aLbField2.Disable();
514 aLbField3.Disable();
515 aLbCond2.Disable();
516 aLbCond3.Disable();
517 aEdVal2.Disable();
518 aEdVal3.Disable();
519 }
520 else
521 {
522 UpdateValueList( 1 );
523 if ( !aLbConnect1.IsEnabled() )
524 {
525 aLbConnect1.Enable();
526 }
527 }
528 }
529 else if ( pLb == &aLbField2 )
530 {
531 if ( aLbField2.GetSelectEntryPos() == 0 )
532 {
533 aLbConnect2.SetNoSelection();
534 aLbField3.SelectEntryPos( 0 );
535 aLbCond3.SelectEntryPos( 0 );
536 ClearValueList( 2 );
537 ClearValueList( 3 );
538
539 aLbConnect2.Disable();
540 aLbField3.Disable();
541 aLbCond3.Disable();
542 aEdVal3.Disable();
543 }
544 else
545 {
546 UpdateValueList( 2 );
547 if ( !aLbConnect2.IsEnabled() )
548 {
549 aLbConnect2.Enable();
550 }
551 }
552 }
553 else if ( pLb == &aLbField3 )
554 {
555 ( aLbField3.GetSelectEntryPos() == 0 )
556 ? ClearValueList( 3 )
557 : UpdateValueList( 3 );
558 }
559
560 return 0;
561 }
562
563 //----------------------------------------------------------------------------
564
IMPL_LINK(ScPivotFilterDlg,CheckBoxHdl,CheckBox *,pBox)565 IMPL_LINK( ScPivotFilterDlg, CheckBoxHdl, CheckBox*, pBox )
566 {
567 // bei Gross-/Kleinschreibung die Werte-Listen aktualisieren
568
569 if ( pBox == &aBtnCase ) // Wertlisten
570 {
571 for (sal_uInt16 i=0; i<=MAXCOL; i++)
572 DELETEZ( pEntryLists[i] );
573
574 String aCurVal1 = aEdVal1.GetText();
575 String aCurVal2 = aEdVal2.GetText();
576 String aCurVal3 = aEdVal3.GetText();
577 UpdateValueList( 1 );
578 UpdateValueList( 2 );
579 UpdateValueList( 3 );
580 aEdVal1.SetText( aCurVal1 );
581 aEdVal2.SetText( aCurVal2 );
582 aEdVal3.SetText( aCurVal3 );
583 }
584
585 return 0;
586 }
587
588 //------------------------------------------------------------------------
589
IMPL_LINK(ScPivotFilterDlg,ValModifyHdl,ComboBox *,pEd)590 IMPL_LINK( ScPivotFilterDlg, ValModifyHdl, ComboBox*, pEd )
591 {
592 if ( pEd )
593 {
594 String aStrVal = pEd->GetText();
595 ListBox* pLb = &aLbCond1;
596
597 if ( pEd == &aEdVal2 ) pLb = &aLbCond2;
598 else if ( pEd == &aEdVal3 ) pLb = &aLbCond3;
599
600 // wenn einer der Sonderwerte leer/nicht-leer
601 // gewaehlt wird, so macht nur der =-Operator Sinn:
602
603 if ( aStrEmpty == aStrVal || aStrNotEmpty == aStrVal )
604 {
605 pLb->SelectEntry( '=' );
606 pLb->Disable();
607 }
608 else
609 pLb->Enable();
610 }
611
612 return 0;
613 }
614
615
616