Properties SourceCde
txt 
1
*&---------------------------------------------------------------------*
2
*&  Include           ZSOFTCOPY_HTML_ADD                               *
3
*&                                                                     *
4
*&---------------------------------------------------------------------*
5
*&                                                                     *
6
*& This file is part of ZSOFTCOPY.                                     *
7
*&                                                                     *
8
*& ZSOFTCOPY is free software: you can redistribute it and/or modify   *
9
*& it under the terms of the GNU General Public License as published   *
10
*& by the Free Software Foundation, either version 3 of the License,   *
11
*& or any later version.                                               *
12
*&                                                                     *
13
*& ZSOFTCOPY is distributed in the hope that it will be useful,        *
14
*& but WITHOUT ANY WARRANTY; without even the implied warranty of      *
15
*& MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the       *
16
*& GNU General Public License for more details.                        *
17
*&                                                                     *
18
*& You should have received a copy of the GNU General Public License   *
19
*& along with ZDOWNLOAD. If not, see <http://www.gnu.org/licenses/>.   *
20
*&                                                                     *
21
*&---------------------------------------------------------------------*
22
*&                                                                     *
23
*&  Author:     Ruediger von Creytz     ruediger.creytz@globalbit.net  *
24
*&  Copyright:  globalBIT, LLC          http://www.globalbit.net       *
25
*&                                                                     *
26
*&---------------------------------------------------------------------*
27
 
28
 
29
*-----------------------------------------------------------------------
30
* form: html_add_attributes_1
31
*-----------------------------------------------------------------------
32
FORM html_add_attributes_1
33
  USING
34
    is_attributes TYPE st_attributes
35
    value(i_id)
36
    value(i_on)
37
  CHANGING
38
    ct_html TYPE it_string.
39
 
40
  PERFORM html_add_div_begin
41
    USING
42
      i_id
43
      i_on
44
    CHANGING
45
      ct_html.
46
 
47
  PERFORM html_add_attributes_1nodiv
48
    USING
49
      is_attributes
50
    CHANGING
51
      ct_html.
52
 
53
  PERFORM html_add_div_end
54
    CHANGING
55
      ct_html.
56
 
57
ENDFORM.                    "html_add_attributes_1
58
 
59
 
60
*-----------------------------------------------------------------------
61
* form: html_add_attributes_1NoDiv
62
*-----------------------------------------------------------------------
63
FORM html_add_attributes_1nodiv
64
  USING
65
    is_attributes TYPE st_attributes
66
  CHANGING
67
    ct_html TYPE it_string.
68
 
69
  DATA:
70
  ls_html TYPE string,
71
  l_name_text TYPE char255,
72
  l_bname TYPE char255,
73
  l_date_last_changed TYPE char255,
74
  l_devclass TYPE char255,
75
  l_devclass_descr TYPE char255,
76
  l_laiso TYPE char255,
77
  l_sptxt TYPE char255,
78
  l_checked TYPE string.
79
 
80
  WRITE is_attributes-name_text TO l_name_text.
81
  WRITE is_attributes-bname TO l_bname.
82
  WRITE is_attributes-date_last_changed TO l_date_last_changed.
83
  WRITE is_attributes-devclass TO l_devclass.
84
  WRITE is_attributes-devclass_descr TO l_devclass_descr.
85
  WRITE is_attributes-laiso TO l_laiso.
86
  WRITE is_attributes-sptxt TO l_sptxt.
87
 
88
  CONCATENATE
89
      '<table class="titleTable">'
90
        '<tr>'
91
          '<td class="titleTableText">' txt_last_changed_on_by '</td>'
92
          '<td class="titleTableDescr" colspan="2">'
93
            '<a href="#" onclick="return false;"'
94
            ' title="' l_name_text '">'
95
              l_bname
96
            '</a>'
97
          '</td>'
98
          '<td class="titleTableDescr">'
99
            l_date_last_changed
100
          '</td>'
101
          '<td>&#160;</td>'
102
          '<td>&#160;</td>'
103
        '</tr>'
104
        '<tr>'
105
          '<td class="titleTableText">' txt_package '</td>'
106
          '<td class="titleTableDescr" colspan="4">'
107
            l_devclass
108
          '</td>'
109
          '<td>' l_devclass_descr '</td>'
110
        '</tr>'
111
        '<tr>'
112
          '<td class="titleTableText">' txt_original_language '</td>'
113
          '<td class="titleTableDescr">'
114
            l_laiso
115
          '</td>'
116
          '<td colspan="4">'
117
            l_sptxt
118
          '</td>'
119
        '</tr>'
120
      INTO ls_html.
121
  APPEND ls_html TO ct_html.
122
  IF is_attributes-display_rfcenable = abap_true.
123
    CLEAR l_checked.
124
    IF is_attributes-rfcenable = abap_true.
125
      l_checked = ' checked="checked"'.
126
    ENDIF.
127
    CONCATENATE
128
        '<tr><td colspan="6">&#160;</td></tr>'
129
        '<tr><td colspan="6">&#160;</td></tr>'
130
        '<tr>'
131
          '<td colspan="6">'
132
            '<table>'
133
              '<tr>'
134
                '<td>'
135
                  '<input class="innerTableFlag"'
136
                  l_checked
137
                  ' disabled="disabled" type="checkbox"'
138
                  ' value="' is_attributes-rfcenable '"/>'
139
                '</td>'
140
                '<td>' txt_allow_rfc '</td>'
141
              '</tr>'
142
            '</table>'
143
          '</td>'
144
        '</tr>'
145
        INTO ls_html.
146
    APPEND ls_html TO ct_html.
147
  ENDIF.
148
  IF is_attributes-display_appview = abap_true.
149
    CONCATENATE
150
        '<tr><td colspan="6">&#160;</td></tr>'
151
        '<tr><td colspan="6">&#160;</td></tr>'
152
        '<tr>'
153
          '<td class="titleTableText">' txt_appending_view '</td>'
154
          '<td class="titleTableDescr" colspan="4">'
155
            is_attributes-appview
156
          '</td>'
157
          '<td>&#160;</td>'
158
        '</tr>'
159
        INTO ls_html.
160
    APPEND ls_html TO ct_html.
161
  ENDIF.
162
  APPEND '</table>' TO ct_html.
163
 
164
ENDFORM.                    "html_add_attributes_1NoDiv
165
 
166
 
167
*-----------------------------------------------------------------------
168
* form: html_add_attributes_2
169
*-----------------------------------------------------------------------
170
FORM html_add_attributes_2
171
  USING
172
    is_attributes TYPE st_attributes
173
    value(i_id)
174
    value(i_on)
175
  CHANGING
176
    ct_html TYPE it_string.
177
 
178
  DATA:
179
  ls_html TYPE string,
180
  l_descript TYPE char255,
181
  l_author TYPE char255,
182
  l_author_text TYPE char255,
183
  l_date_created TYPE char255,
184
  l_bname TYPE char255,
185
  l_name_text TYPE char255,
186
  l_date_last_changed TYPE char255,
187
  l_devclass TYPE char255,
188
  l_devclass_descr TYPE char255,
189
  l_laiso TYPE char255,
190
  l_sptxt TYPE char255,
191
  l_internal_name TYPE char255,
192
  l_initial_bsp TYPE char255,
193
  l_application_class TYPE char255,
194
  l_theme TYPE char255,
195
  l_checked TYPE string.
196
 
197
  WRITE is_attributes-descript TO l_descript.
198
  WRITE is_attributes-author TO l_author.
199
  WRITE is_attributes-author_text TO l_author_text.
200
  WRITE is_attributes-date_created TO l_date_created.
201
  WRITE is_attributes-bname TO l_bname.
202
  WRITE is_attributes-name_text TO l_name_text.
203
  WRITE is_attributes-date_last_changed TO l_date_last_changed.
204
  WRITE is_attributes-devclass TO l_devclass.
205
  WRITE is_attributes-devclass_descr TO l_devclass_descr.
206
  WRITE is_attributes-laiso TO l_laiso.
207
  WRITE is_attributes-sptxt TO l_sptxt.
208
  WRITE is_attributes-internal_name TO l_internal_name.
209
  WRITE is_attributes-initial_bsp TO l_initial_bsp.
210
  WRITE is_attributes-application_class TO l_application_class.
211
  WRITE is_attributes-theme TO l_theme.
212
 
213
  PERFORM html_add_div_begin
214
    USING
215
      i_id
216
      i_on
217
    CHANGING
218
      ct_html.
219
 
220
  CONCATENATE
221
      '<table class="titleTable">'
222
        '<tr>'
223
          '<td class="titleTableText">'
224
            txt_short_description___2
225
          '</td>'
226
          '<td class="titleTableDescr" colspan="7">' l_descript '</td>'
227
        '</tr>'
228
      INTO ls_html.
229
  APPEND ls_html TO ct_html.
230
  IF is_attributes-space_after_descript = abap_true.
231
    CONCATENATE
232
        '<tr>'
233
          '<td colspan="8">&#160;</td>'
234
        '</tr>'
235
        INTO ls_html.
236
    APPEND ls_html TO ct_html.
237
  ENDIF.
238
  CONCATENATE
239
        '<tr>'
240
          '<td class="titleTableText">' txt_created_by___2 '</td>'
241
          '<td class="titleTableDescr" colspan="2">'
242
            '<a href="#" onclick="return false;"'
243
            ' title="' l_author_text '">'
244
              l_author
245
            '</a>'
246
          '</td>'
247
          '<td>&#160;</td>'
248
          '<td class="titleTableText" colspan="2">'
249
            txt_created_on
250
          '</td>'
251
          '<td class="titleTableDescr">' l_date_created '</td>'
252
          '<td>&#160;</td>'
253
        '</tr>'
254
        '<tr>'
255
          '<td class="titleTableText">' txt_last_changed_by___2 '</td>'
256
          '<td class="titleTableDescr" colspan="2">'
257
            '<a href="#" onclick="return false;"'
258
            ' title="' l_name_text '">'
259
              l_bname
260
            '</a>'
261
          '</td>'
262
          '<td>&#160;</td>'
263
          '<td class="titleTableText" colspan="2">'
264
            txt_changed_on
265
          '</td>'
266
          '<td class="titleTableDescr">' l_date_last_changed '</td>'
267
          '<td>&#160;</td>'
268
        '</tr>'
269
        '<tr>'
270
          '<td class="titleTableText">' txt_package '</td>'
271
          '<td class="titleTableDescr" colspan="4">'
272
            '<a href="#" onclick="return false;"'
273
            ' title="' l_devclass_descr '">'
274
              l_devclass
275
            '</a>'
276
          '</td>'
277
          '<td colspan="3">&#160;</td>'
278
        '</tr>'
279
        '<tr>'
280
          '<td class="titleTableText">' txt_original_language '</td>'
281
          '<td class="titleTableDescr" colspan="1">'
282
            '<a href="#" onclick="return false;"'
283
            ' title="' l_sptxt '">'
284
              l_laiso
285
            '</a>'
286
          '</td>'
287
          '<td colspan="6">&#160;</td>'
288
        '</tr>'
289
      INTO ls_html.
290
  APPEND ls_html TO ct_html.
291
  IF is_attributes-is_bsp_appl = abap_true.
292
    CONCATENATE
293
        '<tr>'
294
          '<td class="titleTableText">' txt_internal_name '</td>'
295
          '<td class="titleTableDescr" colspan="4">'
296
            l_internal_name
297
          '</td>'
298
          '<td colspan="3">&#160;</td>'
299
        '</tr>'
300
        '<tr>'
301
          '<td colspan="8">&#160;</td>'
302
        '</tr>'
303
        '<tr>'
304
          '<td class="titleTableText">'
305
            txt_initial_bsp
306
          '</td>'
307
          '<td class="titleTableDescr" colspan="7">'
308
            l_initial_bsp
309
          '</td>'
310
        '</tr>'
311
        '<tr>'
312
          '<td class="titleTableText">' txt_application_class '</td>'
313
          '<td class="titleTableDescr" colspan="4">'
314
            l_application_class
315
          '</td>'
316
          '<td colspan="3">&#160;</td>'
317
        '</tr>'
318
        '<tr>'
319
          '<td class="titleTableText">' txt_theme '</td>'
320
          '<td class="titleTableDescr" colspan="4">'
321
            l_theme
322
          '</td>'
323
          '<td colspan="3">&#160;</td>'
324
        '</tr>'
325
        '<tr>'
326
          '<td colspan="8">'
327
            '<table>'
328
        INTO ls_html.
329
    APPEND ls_html TO ct_html.
330
    CLEAR l_checked.
331
    IF is_attributes-stateful = abap_true.
332
      l_checked = ' checked="checked"'.
333
    ENDIF.
334
    CONCATENATE
335
              '<tr>'
336
                '<td>'
337
                  '<input class="innerTableFlag"'
338
                  l_checked
339
                  ' disabled="disabled" type="checkbox"'
340
                  ' value="' is_attributes-stateful '"/>'
341
                '</td>'
342
                '<td>' txt_stateful '</td>'
343
              '</tr>'
344
        INTO ls_html.
345
    APPEND ls_html TO ct_html.
346
    CLEAR l_checked.
347
    IF is_attributes-supports_portal_integration = abap_true.
348
      l_checked = ' checked="checked"'.
349
    ENDIF.
350
    CONCATENATE
351
              '<tr>'
352
                '<td>'
353
                  '<input class="innerTableFlag"'
354
                  l_checked
355
                  ' disabled="disabled" type="checkbox"'
356
                  ' value="' is_attributes-supports_portal_integration
357
                  '"/>'
358
                '</td>'
359
                '<td>' txt_supports_portal_integratio '</td>'
360
              '</tr>'
361
            '</table>'
362
          '</td>'
363
        '</tr>'
364
        INTO ls_html.
365
    APPEND ls_html TO ct_html.
366
  ENDIF.
367
  IF is_attributes-display_rfcenable = abap_true.
368
    CLEAR l_checked.
369
    IF is_attributes-rfcenable = abap_true.
370
      l_checked = ' checked="checked"'.
371
    ENDIF.
372
    CONCATENATE
373
        '<tr><td colspan="8">&#160;</td></tr>'
374
        '<tr><td colspan="8">&#160;</td></tr>'
375
        '<tr>'
376
          '<td colspan="8">'
377
            '<table>'
378
              '<tr>'
379
                '<td>'
380
                  '<input class="innerTableFlag"'
381
                  l_checked
382
                  ' disabled="disabled" type="checkbox"'
383
                  ' value="' is_attributes-rfcenable '"/>'
384
                '</td>'
385
                '<td>' txt_allow_rfc '</td>'
386
              '</tr>'
387
            '</table>'
388
          '</td>'
389
        '</tr>'
390
        INTO ls_html.
391
    APPEND ls_html TO ct_html.
392
  ENDIF.
393
  APPEND '</table>' TO ct_html.
394
 
395
  PERFORM html_add_div_end
396
    CHANGING
397
      ct_html.
398
 
399
ENDFORM.                    "html_add_attributes_2
400
 
401
 
402
*-----------------------------------------------------------------------
403
* form: html_add_attributes_3
404
*-----------------------------------------------------------------------
405
FORM html_add_attributes_3
406
  USING
407
    is_attributes TYPE st_attributes
408
    value(i_title_ml)
409
    value(i_name_ml)
410
    it_accessmode_ml TYPE it_access
411
    value(i_title_mr)
412
    it_ti_mr TYPE it_textinput
413
    value(i_title_u)
414
    it_ti_u TYPE it_textinput
415
    value(i_id)
416
    value(i_on)
417
  CHANGING
418
    ct_html TYPE it_string.
419
 
420
  DATA:
421
  ls_html TYPE string,
422
  l_descript TYPE char255,
423
  l_devclass TYPE char255,
424
  l_devclass_descr TYPE char255,
425
  l_laiso TYPE char255,
426
  l_sptxt TYPE char255,
427
  l_date_last_changed TYPE char255,
428
  l_time_last_changed TYPE char255,
429
  l_date_last_generation TYPE char255,
430
  l_time_last_generation TYPE char255.
431
 
432
  WRITE is_attributes-descript TO l_descript.
433
  WRITE is_attributes-devclass TO l_devclass.
434
  WRITE is_attributes-devclass_descr TO l_devclass_descr.
435
  WRITE is_attributes-laiso TO l_laiso.
436
  WRITE is_attributes-sptxt TO l_sptxt.
437
  WRITE is_attributes-date_last_changed TO l_date_last_changed.
438
  WRITE is_attributes-time_last_changed TO l_time_last_changed.
439
  WRITE is_attributes-date_last_generation TO l_date_last_generation.
440
  WRITE is_attributes-time_last_generation TO l_time_last_generation.
441
 
442
  PERFORM html_add_div_begin
443
    USING
444
      i_id
445
      i_on
446
    CHANGING
447
      ct_html.
448
 
449
  CONCATENATE
450
      '<table>'
451
        '<tr>'
452
          '<td colspan="3">'
453
            '<table>'
454
              '<tr>'
455
                '<td class="titleTableText">'
456
                  txt_short_description___1
457
                '</td>'
458
                '<td class="titleTableDescr" colspan="7">'
459
                  l_descript
460
                '</td>'
461
              '</tr>'
462
              '<tr>'
463
                '<td class="titleTableText">'
464
                  txt_original_language
465
                '</td>'
466
                '<td class="titleTableDescr">' l_laiso '</td>'
467
                '<td colspan="4">' l_sptxt '</td>'
468
                '<td class="titleTableText">' txt_package '</td>'
469
                '<td class="titleTableDescr">'
470
                  '<a href="#" onclick="return false;"'
471
                  ' title="' l_devclass_descr '">'
472
                    l_devclass
473
                  '</a>'
474
                '</td>'
475
              '</tr>'
476
              '<tr>'
477
                '<td class="titleTableText">'
478
                  txt_last_changed_on_by
479
                '</td>'
480
                '<td class="titleTableDescr" colspan="2">'
481
                  l_date_last_changed
482
                '</td>'
483
                '<td>&#160;</td>'
484
                '<td class="titleTableDescr">'
485
                  l_time_last_changed
486
                '</td>'
487
                '<td>&#160;</td>'
488
                '<td colspan="2">&#160;</td>'
489
              '</tr>'
490
              '<tr>'
491
                '<td class="titleTableText">'
492
                  txt_last_generation
493
                '</td>'
494
                '<td class="titleTableDescr" colspan="2">'
495
                  l_date_last_generation
496
                '</td>'
497
                '<td>&#160;</td>'
498
                '<td class="titleTableDescr">'
499
                  l_time_last_generation
500
                '</td>'
501
                '<td>&#160;</td>'
502
                '<td colspan="2">&#160;</td>'
503
              '</tr>'
504
            '</table>'
505
          '</td>'
506
        '</tr>'
507
        '<tr><td colspan="3">&#160;</td></tr>'
508
        '<tr>'
509
          '<td style="vertical-align:top">'
510
      INTO ls_html.
511
  APPEND ls_html TO ct_html.
512
 
513
  PERFORM html_add_box_radiobuttonsnodiv
514
    USING
515
      i_title_ml
516
      i_name_ml
517
      it_accessmode_ml
518
    CHANGING
519
      ct_html.
520
 
521
  APPEND '</td><td>&#160;</td><td style="vertical-align:top">'
522
      TO ct_html.
523
 
524
  PERFORM html_add_box_textinputnodiv
525
    USING
526
      i_title_mr
527
      it_ti_mr
528
    CHANGING
529
      ct_html.
530
 
531
  CONCATENATE
532
          '</td>'
533
        '</tr>'
534
        '<tr>'
535
          '<td>&#160;</td>'
536
        '</tr>'
537
        '<tr>'
538
          '<td style="vertical-align:top">'
539
      INTO ls_html.
540
  APPEND ls_html TO ct_html.
541
 
542
  PERFORM html_add_box_textinputnodiv
543
    USING
544
      i_title_u
545
      it_ti_u
546
    CHANGING
547
      ct_html.
548
 
549
  APPEND '</td></tr></table>' TO ct_html.
550
 
551
  PERFORM html_add_div_end
552
    CHANGING
553
      ct_html.
554
 
555
ENDFORM.                    "html_add_attributes_3
556
 
557
 
558
*-----------------------------------------------------------------------
559
* form: html_add_attributes_4
560
*-----------------------------------------------------------------------
561
FORM html_add_attributes_4
562
  USING
563
    is_attributes TYPE st_attributes
564
    value(i_title_m)
565
    it_ti_m TYPE it_textinput
566
    value(i_title_u)
567
    it_ti_u TYPE it_textinput
568
    value(i_id)
569
    value(i_on)
570
  CHANGING
571
    ct_html TYPE it_string.
572
 
573
  DATA:
574
  ls_html TYPE string,
575
  l_descript TYPE char255,
576
  l_person_responsible TYPE char255,
577
  l_person_responsible_descr TYPE char255,
578
  l_created_by TYPE char255,
579
  l_created_by_descr TYPE char255,
580
  l_created_on TYPE char255,
581
  l_last_changed_by TYPE char255,
582
  l_last_changed_by_descr TYPE char255,
583
  l_changed_on TYPE char255,
584
  l_application_component TYPE char255.
585
 
586
  WRITE is_attributes-descript TO l_descript.
587
  WRITE is_attributes-person_responsible TO l_person_responsible.
588
  WRITE is_attributes-person_responsible_text
589
      TO l_person_responsible_descr.
590
  WRITE is_attributes-author TO l_created_by.
591
  WRITE is_attributes-author_text TO l_created_by_descr.
592
  WRITE is_attributes-date_created TO l_created_on.
593
  WRITE is_attributes-bname TO l_last_changed_by.
594
  WRITE is_attributes-name_text TO l_last_changed_by_descr.
595
  WRITE is_attributes-date_last_changed TO l_changed_on.
596
  WRITE is_attributes-application_component
597
      TO l_application_component.
598
 
599
  PERFORM html_add_div_begin
600
    USING
601
      i_id
602
      i_on
603
    CHANGING
604
      ct_html.
605
 
606
  CONCATENATE
607
      '<table>'
608
        '<tr>'
609
          '<td colspan="3">'
610
            '<table>'
611
              '<tr>'
612
                '<td class="titleTableText">'
613
                  txt_short_description___1
614
                '</td>'
615
                '<td class="titleTableDescr" colspan="6">'
616
                  l_descript
617
                '</td>'
618
              '</tr>'
619
              '<tr>'
620
                '<td class="titleTableText">'
621
                  txt_person_responsible___2
622
                '</td>'
623
                '<td class="titleTableDescr">'
624
                  '<a href="#" onclick="return false;"'
625
                  ' title="' l_person_responsible_descr '">'
626
                    l_person_responsible
627
                  '</a>'
628
                '</td>'
629
                '<td colspan="5">&#160;</td>'
630
              '</tr>'
631
              '<tr>'
632
                '<td class="titleTableText">' txt_created_by___2 '</td>'
633
                '<td class="titleTableDescr">'
634
                  '<a href="#" onclick="return false;"'
635
                  ' title="' l_created_by_descr '">'
636
                    l_created_by
637
                  '</a>'
638
                '</td>'
639
                '<td>&#160;</td>'
640
                '<td class="titleTableText" colspan="2">'
641
                  txt_created_on
642
                '</td>'
643
                '<td class="titleTableDescr">'
644
                  l_created_on
645
                '</td>'
646
                '<td>&#160;</td>'
647
              '</tr>'
648
              '<tr>'
649
                '<td class="titleTableText">'
650
                  txt_last_changed_by___2
651
                '</td>'
652
                '<td class="titleTableDescr">'
653
                  '<a href="#" onclick="return false;"'
654
                  ' title="' l_last_changed_by_descr '">'
655
                    l_last_changed_by
656
                  '</a>'
657
                '</td>'
658
                '<td>&#160;</td>'
659
                '<td class="titleTableText" colspan="2">'
660
                  txt_changed_on
661
                '</td>'
662
                '<td class="titleTableDescr">'
663
                  l_changed_on
664
                '</td>'
665
                '<td>&#160;</td>'
666
              '</tr>'
667
              '<tr>'
668
                '<td class="titleTableText">'
669
                  txt_application_component
670
                '</td>'
671
                '<td class="titleTableDescr" colspan="3">'
672
                  l_application_component
673
                '</td>'
674
                '<td>&#160;</td>'
675
                '<td>&#160;</td>'
676
                '<td>&#160;</td>'
677
              '</tr>'
678
            '</table>'
679
          '</td>'
680
        '</tr>'
681
        '<tr><td>&#160;</td></tr>'
682
        '<tr>'
683
          '<td style="vertical-align:top">'
684
      INTO ls_html.
685
  APPEND ls_html TO ct_html.
686
 
687
  PERFORM html_add_box_textinputnodiv
688
    USING
689
      i_title_m
690
      it_ti_m
691
    CHANGING
692
      ct_html.
693
 
694
  CONCATENATE
695
          '</td>'
696
        '</tr>'
697
        '<tr>'
698
          '<td>&#160;</td>'
699
        '</tr>'
700
        '<tr>'
701
          '<td style="vertical-align:top">'
702
      INTO ls_html.
703
  APPEND ls_html TO ct_html.
704
 
705
  PERFORM html_add_box_textinputnodiv
706
    USING
707
      i_title_u
708
      it_ti_u
709
    CHANGING
710
      ct_html.
711
 
712
  APPEND '</td></tr></table>' TO ct_html.
713
 
714
  PERFORM html_add_div_end
715
    CHANGING
716
      ct_html.
717
 
718
ENDFORM.                    "html_add_attributes_4
719
 
720
 
721
*-----------------------------------------------------------------------
722
* form: html_add_box_begin
723
*-----------------------------------------------------------------------
724
FORM html_add_box_begin
725
  USING
726
    value(i_title)
727
    value(i_colspan)
728
  CHANGING
729
    ct_html TYPE it_string.
730
 
731
  DATA:
732
  l_colspan TYPE num1,
733
  l_str TYPE string VALUE '',
734
  ls_html TYPE string.
735
 
736
  l_colspan = i_colspan.
737
  IF i_colspan > 1.
738
    CONCATENATE ' colspan="' l_colspan '"' INTO l_str.
739
  ENDIF.
740
 
741
  CONCATENATE
742
      '<table border="0" cellpadding="0" cellspacing="0" class="box">'
743
        '<tr class="boxContent">'
744
          '<td class="boxContent"' l_str '>'
745
            '<table class="boxName">'
746
              '<tr>'
747
                '<td>'
748
                  '<span>' i_title '</span>'
749
                '</td>'
750
              '</tr>'
751
            '</table>'
752
          '</td>'
753
        '</tr>'
754
        '<tr class="boxContent">'
755
          '<td class="boxContent">'
756
      INTO ls_html.
757
  APPEND ls_html TO ct_html.
758
 
759
ENDFORM.                    "html_add_box_begin
760
 
761
 
762
*-----------------------------------------------------------------------
763
* form: html_add_box_end
764
*-----------------------------------------------------------------------
765
FORM html_add_box_end
766
  CHANGING
767
    ct_html TYPE it_string.
768
 
769
  APPEND '</td></tr></table>' TO ct_html.
770
 
771
ENDFORM.                    "html_add_box_end
772
 
773
 
774
*-----------------------------------------------------------------------
775
* form: html_add_box1RB_1TIhornodiv
776
*-----------------------------------------------------------------------
777
FORM html_add_box1rb_1tihornodiv
778
  USING
779
    value(i_title)
780
    it_accessmode TYPE it_access
781
    it_ti TYPE it_textinput
782
  CHANGING
783
    ct_html TYPE it_string.
784
 
785
  DATA:
786
  ls_html TYPE string.
787
 
788
  PERFORM html_add_box_begin
789
    USING i_title '1'
790
    CHANGING ct_html.
791
 
792
  CONCATENATE
793
      '<table>'
794
        '<tr>'
795
          '<td>'
796
      INTO ls_html.
797
  APPEND ls_html TO ct_html.
798
 
799
  PERFORM html_add_radiobuttonsnodiv
800
    USING
801
      'boxz'
802
      it_accessmode
803
    CHANGING
804
      ct_html.
805
 
806
  CONCATENATE
807
          '</td>'
808
          '<td>&#160;</td>'
809
          '<td>'
810
      INTO ls_html.
811
  APPEND ls_html TO ct_html.
812
 
813
  PERFORM html_add_textinputnodiv
814
    USING it_ti
815
    CHANGING ct_html.
816
 
817
  CONCATENATE
818
          '</td>'
819
        '</tr>'
820
      '</table>'
821
      INTO ls_html.
822
  APPEND ls_html TO ct_html.
823
 
824
  PERFORM html_add_box_end
825
    CHANGING ct_html.
826
 
827
ENDFORM.                    "html_add_box1RB_1TIhornodiv
828
 
829
 
830
*-----------------------------------------------------------------------
831
* form: html_add_box1RB_1TIvernodiv
832
*-----------------------------------------------------------------------
833
FORM html_add_box1rb_1tivernodiv
834
  USING
835
    value(i_title)
836
    it_accessmode TYPE it_access
837
    it_ti TYPE it_textinput
838
  CHANGING
839
    ct_html TYPE it_string.
840
 
841
  DATA:
842
  ls_html TYPE string.
843
 
844
  PERFORM html_add_box_begin
845
    USING i_title '1'
846
    CHANGING ct_html.
847
 
848
  CONCATENATE
849
      '<table>'
850
        '<tr>'
851
          '<td>'
852
      INTO ls_html.
853
  APPEND ls_html TO ct_html.
854
 
855
  PERFORM html_add_radiobuttonsnodiv
856
    USING
857
      'boxx'
858
      it_accessmode
859
    CHANGING
860
      ct_html.
861
 
862
  CONCATENATE
863
          '</td>'
864
        '</tr>'
865
        '<tr>'
866
          '<td>'
867
      INTO ls_html.
868
  APPEND ls_html TO ct_html.
869
 
870
  PERFORM html_add_textinputnodiv
871
    USING it_ti
872
    CHANGING ct_html.
873
 
874
  CONCATENATE
875
          '</td>'
876
        '</tr>'
877
      '</table>'
878
      INTO ls_html.
879
  APPEND ls_html TO ct_html.
880
 
881
  PERFORM html_add_box_end
882
    CHANGING ct_html.
883
 
884
ENDFORM.                    "html_add_box1RB_1TIvernodiv
885
 
886
 
887
*-----------------------------------------------------------------------
888
* form: html_add_box1RB_subbox2TI
889
*-----------------------------------------------------------------------
890
FORM html_add_box1rb_subbox2ti
891
  USING
892
    value(i_title)
893
    it_accessmode TYPE it_access
894
    value(i_subtitle)
895
    it_ti_l TYPE it_textinput
896
    it_ti_r TYPE it_textinput
897
    value(i_id)
898
    value(i_on)
899
  CHANGING
900
    ct_html TYPE it_string.
901
 
902
  PERFORM html_add_div_begin
903
    USING
904
      i_id
905
      i_on
906
    CHANGING
907
      ct_html.
908
 
909
  PERFORM html_add_box1rb_subbox2tinodiv
910
    USING
911
      i_title
912
      it_accessmode
913
      i_subtitle
914
      it_ti_l
915
      it_ti_r
916
    CHANGING
917
      ct_html.
918
 
919
  PERFORM html_add_div_end
920
    CHANGING
921
      ct_html.
922
 
923
ENDFORM.                    "html_add_box1RB_subbox2TI
924
 
925
 
926
*-----------------------------------------------------------------------
927
* form: html_add_box1RB_subbox2TInodiv
928
*-----------------------------------------------------------------------
929
FORM html_add_box1rb_subbox2tinodiv
930
  USING
931
    value(i_title)
932
    it_accessmode TYPE it_access
933
    value(i_subtitle)
934
    it_ti_l TYPE it_textinput
935
    it_ti_r TYPE it_textinput
936
  CHANGING
937
    ct_html TYPE it_string.
938
 
939
  DATA:
940
  ls_html TYPE string.
941
 
942
  PERFORM html_add_box_begin
943
    USING i_title '1'
944
    CHANGING ct_html.
945
 
946
  CONCATENATE
947
      '<table>'
948
        '<tr>'
949
          '<td>'
950
      INTO ls_html.
951
  APPEND ls_html TO ct_html.
952
 
953
  PERFORM html_add_radiobuttonsnodiv
954
    USING
955
      'box'
956
      it_accessmode
957
    CHANGING
958
      ct_html.
959
 
960
  CONCATENATE
961
          '</td>'
962
        '</tr>'
963
        '<tr><td>&#160;</td></tr>'
964
        '<tr>'
965
          '<td>'
966
      INTO ls_html.
967
  APPEND ls_html TO ct_html.
968
 
969
  PERFORM html_add_box_begin
970
    USING i_subtitle '3'
971
    CHANGING ct_html.
972
 
973
  CONCATENATE
974
      '<table>'
975
        '<tr>'
976
          '<td>'
977
      INTO ls_html.
978
  APPEND ls_html TO ct_html.
979
 
980
  PERFORM html_add_textinputnodiv
981
    USING it_ti_l
982
    CHANGING ct_html.
983
 
984
  CONCATENATE
985
          '</td>'
986
          '<td>&#160;</td>'
987
          '<td>'
988
      INTO ls_html.
989
  APPEND ls_html TO ct_html.
990
 
991
  PERFORM html_add_textinputnodiv
992
    USING it_ti_r
993
    CHANGING ct_html.
994
 
995
  CONCATENATE
996
          '</td>'
997
        '</tr>'
998
      '</table>'
999
      INTO ls_html.
1000
  APPEND ls_html TO ct_html.
1001
 
1002
  PERFORM html_add_box_end
1003
    CHANGING ct_html.
1004
 
1005
  CONCATENATE
1006
          '</td>'
1007
        '</tr>'
1008
      '</table>'
1009
      INTO ls_html.
1010
  APPEND ls_html TO ct_html.
1011
 
1012
  PERFORM html_add_box_end
1013
    CHANGING ct_html.
1014
 
1015
ENDFORM.                    "html_add_box1RB_subbox2TInodiv
1016
 
1017
 
1018
*-----------------------------------------------------------------------
1019
* form: html_add_box1TI_subboxMSnodiv
1020
*-----------------------------------------------------------------------
1021
FORM html_add_box1ti_subboxmsnodiv
1022
  USING
1023
    value(i_title)
1024
    it_ti TYPE it_textinput
1025
    value(i_subtitle)
1026
    value(i_step) TYPE c
1027
    value(i_overview_screen)
1028
    value(i_single_screen)
1029
  CHANGING
1030
    ct_html TYPE it_string.
1031
 
1032
  DATA:
1033
  ls_html TYPE string,
1034
  l_int TYPE i,
1035
  l_overview_screen TYPE string,
1036
  l_single_screen TYPE string.
1037
 
1038
  l_int = i_overview_screen.
1039
  l_overview_screen = l_int.
1040
  l_int = i_single_screen.
1041
  l_single_screen = l_int.
1042
 
1043
  PERFORM html_add_box_begin
1044
    USING i_title '1'
1045
    CHANGING ct_html.
1046
 
1047
  CONCATENATE
1048
      '<table>'
1049
        '<tr>'
1050
          '<td>'
1051
      INTO ls_html.
1052
  APPEND ls_html TO ct_html.
1053
 
1054
  PERFORM html_add_textinputnodiv
1055
    USING it_ti
1056
    CHANGING ct_html.
1057
 
1058
  CONCATENATE
1059
          '</td>'
1060
        '</tr>'
1061
        '<tr><td>&#160;</td></tr>'
1062
        '<tr>'
1063
          '<td>'
1064
      INTO ls_html.
1065
  APPEND ls_html TO ct_html.
1066
 
1067
  PERFORM html_add_box_begin
1068
    USING i_subtitle '1'
1069
    CHANGING ct_html.
1070
 
1071
*Maintenance Screens
1072
* one step
1073
  CONCATENATE
1074
      '<table>'
1075
        '<tr>'
1076
          '<td class="titleTableText">'
1077
            txt_maintenance_type
1078
          '</td>'
1079
          '<td>'
1080
            '<input'
1081
      INTO ls_html.
1082
  IF i_step = '1'.
1083
    CONCATENATE ls_html ' checked="checked"' INTO ls_html.
1084
  ENDIF.
1085
  CONCATENATE
1086
                  ls_html
1087
                  ' class="radio"'
1088
                  ' disabled="disabled" name="ms"'
1089
                  ' type="radio"'
1090
                  ' value="1"/>'
1091
          '</td>'
1092
          '<td>'
1093
            '<span>' txt_one_step '</span>'
1094
          '</td>'
1095
          '<td>&#160;</td>'
1096
        '</tr>'
1097
      INTO ls_html.
1098
  APPEND ls_html TO ct_html.
1099
* two step
1100
  CONCATENATE
1101
        '<tr>'
1102
          '<td>&#160;</td>'
1103
          '<td>'
1104
            '<input'
1105
      INTO ls_html.
1106
  IF i_step = '2'.
1107
    CONCATENATE ls_html ' checked="checked"' INTO ls_html.
1108
  ENDIF.
1109
  CONCATENATE
1110
                  ls_html
1111
                  ' class="radio"'
1112
                  ' disabled="disabled" name="ms"'
1113
                  ' type="radio"'
1114
                  ' value="1"/>'
1115
          '</td>'
1116
          '<td>'
1117
            '<span>' txt_two_step '</span>'
1118
          '</td>'
1119
          '<td>&#160;</td>'
1120
        '</tr>'
1121
      INTO ls_html.
1122
  APPEND ls_html TO ct_html.
1123
* Overview screen
1124
  CONCATENATE
1125
        '<tr>'
1126
          '<td class="titleTableText">'
1127
            txt_maint_screen_no
1128
          '</td>'
1129
          '<td class="titleTableText" colspan="2">'
1130
            txt_overview_screen
1131
          '</td>'
1132
          '<td class="titleTableDescr">'
1133
            '<span>'
1134
              l_overview_screen
1135
            '</span>'
1136
          '</td>'
1137
        '</tr>'
1138
      INTO ls_html.
1139
  APPEND ls_html TO ct_html.
1140
* Single screen
1141
  CONCATENATE
1142
        '<tr>'
1143
          '<td>&#160;</td>'
1144
          '<td class="titleTableText" colspan="2">'
1145
            txt_single_screen
1146
          '</td>'
1147
          '<td class="titleTableDescr">'
1148
            '<span>'
1149
              l_single_screen
1150
            '</span>'
1151
          '</td>'
1152
        '</tr>'
1153
      '</table>'
1154
      INTO ls_html.
1155
  APPEND ls_html TO ct_html.
1156
 
1157
  PERFORM html_add_box_end
1158
    CHANGING ct_html.
1159
 
1160
  CONCATENATE
1161
          '</td>'
1162
        '</tr>'
1163
      '</table>'
1164
      INTO ls_html.
1165
  APPEND ls_html TO ct_html.
1166
 
1167
  PERFORM html_add_box_end
1168
    CHANGING ct_html.
1169
 
1170
ENDFORM.                    "html_add_box1TI_subboxMSnodiv
1171
 
1172
 
1173
*-----------------------------------------------------------------------
1174
* form: html_add_box1TI_2RB_TI
1175
*-----------------------------------------------------------------------
1176
FORM html_add_box1ti_2rb_ti
1177
  USING
1178
    value(i_title_o)
1179
    it_ti_o TYPE it_textinput
1180
    value(i_title_ul)
1181
    value(i_name_ul)
1182
    it_accessmode_ul TYPE it_access
1183
    value(i_title_ur)
1184
    it_ti_ur TYPE it_textinput
1185
    value(i_id)
1186
    value(i_on)
1187
  CHANGING
1188
    ct_html TYPE it_string.
1189
 
1190
  DATA:
1191
  ls_html TYPE string.
1192
 
1193
  PERFORM html_add_div_begin
1194
    USING
1195
      i_id
1196
      i_on
1197
    CHANGING
1198
      ct_html.
1199
 
1200
  CONCATENATE
1201
      '<table>'
1202
        '<tr>'
1203
          '<td colspan="3">'
1204
      INTO ls_html.
1205
  APPEND ls_html TO ct_html.
1206
 
1207
  PERFORM html_add_box_textinputnodiv
1208
    USING
1209
      i_title_o
1210
      it_ti_o
1211
    CHANGING
1212
      ct_html.
1213
 
1214
  CONCATENATE
1215
          '</td>'
1216
        '</tr>'
1217
        '<tr>'
1218
          '<td>&#160;</td>'
1219
        '</tr>'
1220
        '<tr>'
1221
          '<td style="vertical-align:top">'
1222
      INTO ls_html.
1223
  APPEND ls_html TO ct_html.
1224
 
1225
  PERFORM html_add_box_radiobuttonsnodiv
1226
    USING
1227
      i_title_ul
1228
      i_name_ul
1229
      it_accessmode_ul
1230
    CHANGING
1231
      ct_html.
1232
 
1233
  APPEND '</td><td>&#160;</td><td style="vertical-align:top">'
1234
      TO ct_html.
1235
 
1236
  PERFORM html_add_box_textinputnodiv
1237
    USING
1238
      i_title_ur
1239
      it_ti_ur
1240
    CHANGING
1241
      ct_html.
1242
 
1243
  CONCATENATE
1244
          '</td>'
1245
        '</tr>'
1246
      '</table>'
1247
      INTO ls_html.
1248
  APPEND ls_html TO ct_html.
1249
 
1250
  PERFORM html_add_div_end
1251
    CHANGING
1252
      ct_html.
1253
 
1254
ENDFORM.                    "html_add_box1TI_2RB_TI
1255
 
1256
 
1257
*-----------------------------------------------------------------------
1258
* form: html_add_box1TI_2TIverNoDiv
1259
*-----------------------------------------------------------------------
1260
FORM html_add_box1ti_2tivernodiv
1261
  USING
1262
    value(i_title_l)
1263
    it_ti_l TYPE it_textinput
1264
    value(i_title_ro)
1265
    it_ti_ro TYPE it_textinput
1266
    value(i_title_ru)
1267
    it_ti_ru TYPE it_textinput
1268
  CHANGING
1269
    ct_html TYPE it_string.
1270
 
1271
  DATA:
1272
  ls_html TYPE string.
1273
 
1274
  CONCATENATE
1275
      '<table>'
1276
        '<tr>'
1277
          '<td class="boxContainerTd" rowspan="3">'
1278
      INTO ls_html.
1279
  APPEND ls_html TO ct_html.
1280
 
1281
  PERFORM html_add_box_textinputnodiv
1282
    USING
1283
      i_title_l
1284
      it_ti_l
1285
    CHANGING
1286
      ct_html.
1287
 
1288
  CONCATENATE
1289
          '</td>'
1290
          '<td class="boxContainerTd" rowspan="3">&#160;</td>'
1291
          '<td class="boxContainerTd">'
1292
      INTO ls_html.
1293
  APPEND ls_html TO ct_html.
1294
 
1295
  PERFORM html_add_box_textinputnodiv
1296
    USING
1297
      i_title_ro
1298
      it_ti_ro
1299
    CHANGING
1300
      ct_html.
1301
 
1302
  CONCATENATE
1303
          '</td>'
1304
        '</tr>'
1305
        '<tr><td class="boxContainerTd">&#160;</td></tr>'
1306
        '<tr>'
1307
          '<td class="boxContainerTd">'
1308
      INTO ls_html.
1309
  APPEND ls_html TO ct_html.
1310
 
1311
  PERFORM html_add_box_textinputnodiv
1312
    USING
1313
      i_title_ru
1314
      it_ti_ru
1315
    CHANGING
1316
      ct_html.
1317
 
1318
  CONCATENATE
1319
          '</td>'
1320
        '</tr>'
1321
      '</table>'
1322
      INTO ls_html.
1323
  APPEND ls_html TO ct_html.
1324
 
1325
ENDFORM.                    "html_add_box1TI_2TIverNoDiv
1326
 
1327
 
1328
*-----------------------------------------------------------------------
1329
* form: html_add_box1TIDbl_Box2TI_2TIx
1330
*-----------------------------------------------------------------------
1331
FORM html_add_box1tidbl_box2ti_2tix
1332
  USING
1333
    value(i_title_o)
1334
    it_ti_ol TYPE it_textinput
1335
    it_ti_or TYPE it_textinput
1336
    value(i_title_m)
1337
    value(i_title_ml)
1338
    value(i_title_mr)
1339
    it_ti_ml TYPE it_textinput
1340
    it_ti_mr TYPE it_textinput
1341
    value(i_title_ul)
1342
    value(i_title_ur)
1343
    it_ti_ul TYPE it_textinput
1344
    it_ti_ur TYPE it_textinput
1345
  CHANGING
1346
    ct_html TYPE it_string.
1347
 
1348
  DATA:
1349
  ls_html TYPE string.
1350
 
1351
  CONCATENATE
1352
      '<table>'
1353
        '<tr>'
1354
          '<td class="boxContainerTd" colspan="3">'
1355
      INTO ls_html.
1356
  APPEND ls_html TO ct_html.
1357
 
1358
  PERFORM html_add_box_textinputdblnodiv
1359
    USING
1360
      i_title_o
1361
      it_ti_ol
1362
      it_ti_or
1363
    CHANGING
1364
      ct_html.
1365
 
1366
  PERFORM html_add_box_begin
1367
    USING i_title_m '5'
1368
    CHANGING ct_html.
1369
 
1370
  PERFORM html_add_box_textinputnodiv
1371
    USING
1372
      i_title_ml
1373
      it_ti_ml
1374
    CHANGING
1375
      ct_html.
1376
 
1377
  CONCATENATE
1378
                '</td>'
1379
                '<td class="boxContent">&#160;</td>'
1380
                '<td class="boxContent">'
1381
      INTO ls_html.
1382
  APPEND ls_html TO ct_html.
1383
 
1384
  PERFORM html_add_box_textinputnodiv
1385
    USING
1386
      i_title_mr
1387
      it_ti_mr
1388
    CHANGING
1389
      ct_html.
1390
 
1391
  CONCATENATE
1392
                '</td>'
1393
                '<td class="boxContent">&#160;&#160;</td>'
1394
              '</tr>'
1395
              '<tr><td class="boxContent" colspan="5">&#160;</td></tr>'
1396
            '</table>'
1397
          '</td>'
1398
        '</tr>'
1399
        '<tr><td class="boxContainerTd" colspan="3">&#160;</td></tr>'
1400
        '<tr>'
1401
          '<td class="boxContainerTd">'
1402
      INTO ls_html.
1403
  APPEND ls_html TO ct_html.
1404
 
1405
  PERFORM html_add_box_textinputnodiv
1406
    USING
1407
      i_title_ul
1408
      it_ti_ul
1409
    CHANGING
1410
      ct_html.
1411
 
1412
  CONCATENATE
1413
          '</td>'
1414
          '<td class="boxContainerTd">&#160;</td>'
1415
          '<td class="boxContainerTd">'
1416
      INTO ls_html.
1417
  APPEND ls_html TO ct_html.
1418
 
1419
  PERFORM html_add_box_textinputnodiv
1420
    USING
1421
      i_title_ur
1422
      it_ti_ur
1423
    CHANGING
1424
      ct_html.
1425
 
1426
  PERFORM html_add_box_end
1427
    CHANGING ct_html.
1428
 
1429
ENDFORM.                    "html_add_box1TIDbl_Box2TI_2TIx
1430
 
1431
 
1432
*-----------------------------------------------------------------------
1433
* form: html_add_box_radioButtons
1434
*-----------------------------------------------------------------------
1435
FORM html_add_box_radiobuttons
1436
  USING
1437
    value(i_title)
1438
    value(i_name)
1439
    it_accessmode TYPE it_access
1440
    value(i_id)
1441
    value(i_on)
1442
  CHANGING
1443
    ct_html TYPE it_string.
1444
 
1445
  PERFORM html_add_div_begin
1446
    USING
1447
      i_id
1448
      i_on
1449
    CHANGING
1450
      ct_html.
1451
 
1452
  PERFORM html_add_box_radiobuttonsnodiv
1453
    USING
1454
      i_title
1455
      i_name
1456
      it_accessmode
1457
    CHANGING
1458
      ct_html.
1459
 
1460
  PERFORM html_add_div_end
1461
    CHANGING
1462
      ct_html.
1463
 
1464
ENDFORM.                    "html_add_box_radioButtons
1465
 
1466
 
1467
*-----------------------------------------------------------------------
1468
* form: html_add_box_radioButtonsNoDiv
1469
*-----------------------------------------------------------------------
1470
FORM html_add_box_radiobuttonsnodiv
1471
  USING
1472
    value(i_title)
1473
    value(i_name)
1474
    it_accessmode TYPE it_access
1475
  CHANGING
1476
    ct_html TYPE it_string.
1477
 
1478
  PERFORM html_add_box_begin
1479
    USING i_title '1'
1480
    CHANGING ct_html.
1481
 
1482
  PERFORM html_add_radiobuttonsnodiv
1483
    USING
1484
      i_name
1485
      it_accessmode
1486
    CHANGING
1487
      ct_html.
1488
 
1489
  PERFORM html_add_box_end
1490
    CHANGING ct_html.
1491
 
1492
ENDFORM.                    "html_add_box_radioButtonsNoDiv
1493
 
1494
 
1495
*-----------------------------------------------------------------------
1496
* form: html_add_box_textInput2Ver
1497
*-----------------------------------------------------------------------
1498
FORM html_add_box_textinput2ver
1499
  USING
1500
    value(i_title_o)
1501
    it_ti_o TYPE it_textinput
1502
    value(i_title_u)
1503
    it_ti_u TYPE it_textinput
1504
    value(i_id)
1505
    value(i_on)
1506
  CHANGING
1507
    ct_html TYPE it_string.
1508
 
1509
  DATA:
1510
  ls_html TYPE string.
1511
 
1512
  PERFORM html_add_div_begin
1513
    USING
1514
      i_id
1515
      i_on
1516
    CHANGING
1517
      ct_html.
1518
 
1519
  CONCATENATE
1520
      '<table>'
1521
        '<tr>'
1522
          '<td>'
1523
      INTO ls_html.
1524
  APPEND ls_html TO ct_html.
1525
 
1526
  PERFORM html_add_box_textinputnodiv
1527
    USING
1528
      i_title_o
1529
      it_ti_o
1530
    CHANGING
1531
      ct_html.
1532
 
1533
  CONCATENATE
1534
          '</td>'
1535
        '</tr>'
1536
        '<tr>'
1537
          '<td>&#160;</td>'
1538
        '</tr>'
1539
        '<tr>'
1540
          '<td>'
1541
      INTO ls_html.
1542
  APPEND ls_html TO ct_html.
1543
 
1544
  PERFORM html_add_box_textinputnodiv
1545
    USING
1546
      i_title_u
1547
      it_ti_u
1548
    CHANGING
1549
      ct_html.
1550
 
1551
  APPEND '</td></tr></table>' TO ct_html.
1552
 
1553
  PERFORM html_add_div_end
1554
    CHANGING
1555
      ct_html.
1556
 
1557
ENDFORM.                    "html_add_boxTextInput2Ver
1558
 
1559
 
1560
*-----------------------------------------------------------------------
1561
* form: html_add_box_data_transport
1562
*-----------------------------------------------------------------------
1563
FORM html_add_box_data_transport
1564
  USING
1565
    value(i_title)
1566
    value(i_recording) TYPE flag
1567
    value(i_compare_flag) TYPE string
1568
  CHANGING
1569
    ct_html TYPE it_string.
1570
 
1571
  DATA:
1572
  ls_html TYPE string.
1573
 
1574
  PERFORM html_add_box_begin
1575
    USING i_title '1'
1576
    CHANGING ct_html.
1577
 
1578
*Recording routine
1579
* Standard recording routine
1580
  CONCATENATE
1581
      '<table>'
1582
        '<tr>'
1583
          '<td class="titleTableText">'
1584
            txt_recording_routine
1585
          '</td>'
1586
          '<td>'
1587
            '<input'
1588
      INTO ls_html.
1589
  IF i_recording = abap_false.
1590
    CONCATENATE ls_html ' checked="checked"' INTO ls_html.
1591
  ENDIF.
1592
  CONCATENATE
1593
                  ls_html
1594
                  ' class="radio"'
1595
                  ' disabled="disabled" name="rr"'
1596
                  ' type="radio"'
1597
                  ' value="1"/>'
1598
          '</td>'
1599
          '<td>'
1600
            '<span>' txt_standard_recording_routine '</span>'
1601
          '</td>'
1602
          '<td>&#160;</td>'
1603
        '</tr>'
1604
      INTO ls_html.
1605
  APPEND ls_html TO ct_html.
1606
* no, or user, recording routine
1607
  CONCATENATE
1608
        '<tr>'
1609
          '<td>&#160;</td>'
1610
          '<td>'
1611
            '<input'
1612
      INTO ls_html.
1613
  IF i_recording = abap_true.
1614
    CONCATENATE ls_html ' checked="checked"' INTO ls_html.
1615
  ENDIF.
1616
  CONCATENATE
1617
                  ls_html
1618
                  ' class="radio"'
1619
                  ' disabled="disabled" name="ms"'
1620
                  ' type="radio"'
1621
                  ' value="1"/>'
1622
          '</td>'
1623
          '<td>'
1624
            '<span>' txt_no_or_user_recording_routi '</span>'
1625
          '</td>'
1626
          '<td>&#160;</td>'
1627
        '</tr>'
1628
      INTO ls_html.
1629
  APPEND ls_html TO ct_html.
1630
* Compare Flag
1631
  CONCATENATE
1632
        '<tr>'
1633
          '<td class="titleTableText">'
1634
            txt_compare_flag
1635
          '</td>'
1636
          '<td class="titleTableDescr" colspan="3">'
1637
            '<span>'
1638
              i_compare_flag
1639
            '</span>'
1640
          '</td>'
1641
        '</tr>'
1642
      '</table>'
1643
      INTO ls_html.
1644
  APPEND ls_html TO ct_html.
1645
 
1646
  PERFORM html_add_box_end
1647
    CHANGING ct_html.
1648
 
1649
ENDFORM.                    "html_add_box_data_transport
1650
 
1651
 
1652
*-----------------------------------------------------------------------
1653
* form: html_add_box_textInputDblNoDiv
1654
*-----------------------------------------------------------------------
1655
FORM html_add_box_textinputdblnodiv
1656
  USING
1657
    value(i_title)
1658
    it_ti_l TYPE it_textinput
1659
    it_ti_r TYPE it_textinput
1660
  CHANGING
1661
    ct_html TYPE it_string.
1662
 
1663
  DATA:
1664
  ls_html TYPE string.
1665
 
1666
  PERFORM html_add_box_begin
1667
    USING i_title '3'
1668
    CHANGING ct_html.
1669
 
1670
  PERFORM html_add_textinputnodiv
1671
    USING
1672
      it_ti_l
1673
    CHANGING
1674
      ct_html.
1675
 
1676
  CONCATENATE
1677
          '</td>'
1678
          '<td>&#160;</td>'
1679
          '<td>'
1680
      INTO ls_html.
1681
  APPEND ls_html TO ct_html.
1682
 
1683
  PERFORM html_add_textinputnodiv
1684
    USING
1685
      it_ti_r
1686
    CHANGING
1687
      ct_html.
1688
 
1689
  PERFORM html_add_box_end
1690
    CHANGING ct_html.
1691
 
1692
ENDFORM.                    "html_add_box_textInputDblNoDiv
1693
 
1694
 
1695
*-----------------------------------------------------------------------
1696
* form: html_add_box_textInputNoDiv
1697
*-----------------------------------------------------------------------
1698
FORM html_add_box_textinputnodiv
1699
  USING
1700
    value(i_title)
1701
    it_ti TYPE it_textinput
1702
  CHANGING
1703
    ct_html TYPE it_string.
1704
 
1705
  DATA:
1706
  ls_html TYPE string.
1707
 
1708
  PERFORM html_add_box_begin
1709
    USING i_title '1'
1710
    CHANGING ct_html.
1711
 
1712
  PERFORM html_add_textinputnodiv
1713
    USING
1714
      it_ti
1715
    CHANGING
1716
      ct_html.
1717
 
1718
  PERFORM html_add_box_end
1719
    CHANGING ct_html.
1720
 
1721
ENDFORM.                    "html_add_box_textInputNoDiv
1722
 
1723
 
1724
*-----------------------------------------------------------------------
1725
* form: html_add_container_begin
1726
*-----------------------------------------------------------------------
1727
FORM html_add_container_begin
1728
  USING
1729
    it_tabstrip TYPE it_tabstrip
1730
    value(i_id)
1731
    value(i_on)
1732
  CHANGING
1733
    ct_html TYPE it_string.
1734
 
1735
  DATA:
1736
  lt_tabstrip TYPE it_tabstrip,
1737
  ls_html TYPE string,
1738
  l_class TYPE string.
1739
 
1740
  FIELD-SYMBOLS:
1741
  <ls_tabstrip> TYPE st_tabstrip.
1742
 
1743
  PERFORM get_tabstrip_defined
1744
    USING it_tabstrip
1745
    CHANGING lt_tabstrip.
1746
 
1747
  PERFORM html_add_div_begin
1748
    USING
1749
      i_id
1750
      i_on
1751
    CHANGING
1752
      ct_html.
1753
 
1754
  CONCATENATE
1755
      '<table>'
1756
        '<tr>'
1757
          '<td class="contentTable">'
1758
            '<table border="0" cellpadding="0" cellspacing="0"'
1759
            ' class="contentTable">'
1760
              '<tr>'
1761
        INTO ls_html.
1762
  APPEND ls_html TO ct_html.
1763
  LOOP AT lt_tabstrip ASSIGNING <ls_tabstrip>
1764
    WHERE hidden = abap_false
1765
    AND parent_id = i_id.
1766
    IF <ls_tabstrip>-disabled = abap_true.
1767
      l_class = 'contentTabDisabled'.
1768
    ELSEIF <ls_tabstrip>-active = abap_true.
1769
      l_class = 'contentTabOn'.
1770
    ELSE.
1771
      l_class = 'contentTabOff'.
1772
    ENDIF.
1773
    IF <ls_tabstrip>-disabled = abap_false.
1774
      CONCATENATE '<td class="' l_class '" id="' <ls_tabstrip>-id
1775
        'tab"><a href="#" onclick="openChildTab('''
1776
        <ls_tabstrip>-parent_id ''','''
1777
        <ls_tabstrip>-id ''')">'
1778
        <ls_tabstrip>-text '</a></td>' INTO ls_html.
1779
      APPEND ls_html TO ct_html.
1780
    ELSE.
1781
      CONCATENATE '<td class="' l_class '" id="' <ls_tabstrip>-id
1782
        'tab"><a class="linkDisabled" href="#"'
1783
        ' onclick="return false">'
1784
        <ls_tabstrip>-text '</a></td>' INTO ls_html.
1785
      APPEND ls_html TO ct_html.
1786
    ENDIF.
1787
  ENDLOOP.
1788
  CONCATENATE
1789
            '</tr>'
1790
          '</table>'
1791
        '</td>'
1792
      '</tr>'
1793
      INTO ls_html.
1794
  APPEND ls_html TO ct_html.
1795
  APPEND '<tr>' TO ct_html.
1796
  APPEND '<td class="contentBox">' TO ct_html.
1797
 
1798
ENDFORM.                    "html_add_container_begin
1799
 
1800
 
1801
*-----------------------------------------------------------------------
1802
* form: html_add_container_end
1803
*-----------------------------------------------------------------------
1804
FORM html_add_container_end
1805
  CHANGING
1806
    ct_html TYPE it_string.
1807
 
1808
  APPEND '</td></tr></table>' TO ct_html.
1809
 
1810
  PERFORM html_add_div_end
1811
    CHANGING
1812
      ct_html.
1813
 
1814
ENDFORM.                    "html_add_container_end
1815
 
1816
 
1817
*-----------------------------------------------------------------------
1818
* form: html_add_data_type
1819
*-----------------------------------------------------------------------
1820
FORM html_add_data_type
1821
  USING
1822
    is_data_type TYPE st_data_type
1823
    value(i_id)
1824
    value(i_on)
1825
  CHANGING
1826
    ct_html TYPE it_string.
1827
 
1828
  DATA:
1829
  ls_html TYPE string,
1830
 
1831
  l_checked_12 TYPE string,
1832
 
1833
  l_checked_1 TYPE string,
1834
  l_domname_1 TYPE char255,
1835
  l_domdescr_1 TYPE char255,
1836
  l_datatype_1 TYPE char255,
1837
  l_datadescr_1 TYPE char255,
1838
  l_dataleng_1 TYPE string,
1839
  l_datadeci_1 TYPE string,
1840
 
1841
  l_checked_2 TYPE string,
1842
  l_datatype_2 TYPE char255,
1843
  l_dataleng_2 TYPE string,
1844
  l_datadeci_2 TYPE string,
1845
 
1846
  l_checked_34 TYPE string,
1847
 
1848
  l_checked_3 TYPE string,
1849
  l_reftypename_3 TYPE string,
1850
 
1851
  l_checked_4 TYPE string,
1852
  l_datatype_4 TYPE char255,
1853
  l_datadescr_4 TYPE char255,
1854
  l_dataleng_4 TYPE string,
1855
  l_datadeci_4 TYPE string.
1856
 
1857
 
1858
  CASE is_data_type-refkind.
1859
    WHEN 'R'.
1860
      l_checked_34 = ' checked="checked" '.
1861
      CASE is_data_type-reftype.
1862
        WHEN 'B'.
1863
          l_checked_4 = ' checked="checked" '.
1864
          WRITE is_data_type-datatype TO l_datatype_4.
1865
          WRITE is_data_type-datadescr TO l_datadescr_4.
1866
          PERFORM get_unpacked
1867
            USING
1868
              is_data_type-dataleng
1869
            CHANGING
1870
              l_dataleng_4.
1871
          PERFORM get_unpacked
1872
            USING
1873
              is_data_type-datadeci
1874
            CHANGING
1875
              l_datadeci_4.
1876
        WHEN OTHERS.
1877
          l_checked_3 = ' checked="checked" '.
1878
          l_reftypename_3 = is_data_type-domname.
1879
      ENDCASE.
1880
    WHEN 'D'.
1881
      l_checked_12 = ' checked="checked" '.
1882
      l_checked_1 = ' checked="checked" '.
1883
      WRITE is_data_type-domname TO l_domname_1.
1884
      WRITE is_data_type-domdescr TO l_domdescr_1.
1885
      WRITE is_data_type-datatype TO l_datatype_1.
1886
      WRITE is_data_type-datadescr TO l_datadescr_1.
1887
      PERFORM get_unpacked
1888
        USING
1889
          is_data_type-dataleng
1890
        CHANGING
1891
          l_dataleng_1.
1892
      PERFORM get_unpacked
1893
        USING
1894
          is_data_type-datadeci
1895
        CHANGING
1896
          l_datadeci_1.
1897
    WHEN OTHERS.
1898
      l_checked_12 = ' checked="checked" '.
1899
      l_checked_2 = ' checked="checked" '.
1900
      WRITE is_data_type-datatype TO l_datatype_2.
1901
      PERFORM get_unpacked
1902
        USING
1903
          is_data_type-dataleng
1904
        CHANGING
1905
          l_dataleng_2.
1906
      PERFORM get_unpacked
1907
        USING
1908
          is_data_type-datadeci
1909
        CHANGING
1910
          l_datadeci_2.
1911
  ENDCASE.
1912
 
1913
  PERFORM html_add_div_begin
1914
    USING
1915
      i_id
1916
      i_on
1917
    CHANGING
1918
      ct_html.
1919
 
1920
  CONCATENATE
1921
      '<form action="#" method="post">'
1922
        '<table class="titleTable">'
1923
          '<tr>'
1924
            '<td>'
1925
              '<input ' l_checked_12 ' class="radio"'
1926
              ' disabled="disabled" name="type"'
1927
              ' type="radio" value="elementaryType"/>'
1928
            '</td>'
1929
            '<td colspan="2">' txt_elementary_type '</td>'
1930
            '<td>&#160;</td>'
1931
            '<td>&#160;</td>'
1932
            '<td>&#160;</td>'
1933
            '<td>&#160;</td>'
1934
            '<td>&#160;</td>'
1935
          '</tr>'
1936
          '<tr>'
1937
            '<td>&#160;</td>'
1938
            '<td>'
1939
              '<input ' l_checked_1 ' class="radio"'
1940
              ' disabled="disabled" name="subtype"'
1941
              ' type="radio" value="domain"/>'
1942
            '</td>'
1943
            '<td>' txt_domain '</td>'
1944
            '<td class="titleTableDescr" colspan="3">'
1945
              l_domname_1
1946
            '</td>'
1947
            '<td colspan="2">' l_domdescr_1 '</td>'
1948
          '</tr>'
1949
          '<tr>'
1950
            '<td colspan="3">&#160;</td>'
1951
            '<td class="titleTableText">' txt_data_type '</td>'
1952
            '<td>' l_datatype_1 '</td>'
1953
            '<td colspan="3">' l_datadescr_1 '</td>'
1954
          '</tr>'
1955
          '<tr>'
1956
            '<td colspan="3">&#160;</td>'
1957
            '<td class="titleTableText">' txt_length '</td>'
1958
            '<td>' l_dataleng_1 '</td>'
1959
            '<td class="titleTableText" colspan="2">'
1960
              txt_decimal_places___m
1961
            '</td>'
1962
            '<td>' l_datadeci_1 '</td>'
1963
          '</tr>'
1964
          '<tr><td colspan="8">&#160;</td></tr>'
1965
          '<tr>'
1966
            '<td>&#160;</td>'
1967
            '<td>'
1968
              '<input ' l_checked_2 ' class="radio"'
1969
              ' disabled="disabled" name="subtype"'
1970
              ' type="radio" value="buildinType"/>'
1971
            '</td>'
1972
            '<td>' txt_built_in_type '</td>'
1973
            '<td class="titleTableText">' txt_data_type '</td>'
1974
            '<td class="titleTableDescr">' l_datatype_2 '</td>'
1975
            '<td colspan="3">&#160;</td>'
1976
          '</tr>'
1977
          '<tr>'
1978
            '<td colspan="3">&#160;</td>'
1979
            '<td class="titleTableText">' txt_length '</td>'
1980
            '<td class="titleTableDescr">' l_dataleng_2 '</td>'
1981
            '<td class="titleTableText" colspan="2">'
1982
              txt_decimal_places___m
1983
            '</td>'
1984
            '<td class="titleTableDescr">' l_datadeci_2 '</td>'
1985
          '</tr>'
1986
      INTO ls_html.
1987
  APPEND ls_html TO ct_html.
1988
  IF is_data_type-reftype <> '#'.
1989
    CONCATENATE
1990
          '<tr>'
1991
            '<td>'
1992
              '<input ' l_checked_34 ' class="radio"'
1993
              ' disabled="disabled" name="type"'
1994
              ' type="radio" value="referenceType"/>'
1995
            '</td>'
1996
            '<td colspan="2">' txt_reference_type '</td>'
1997
            '<td colspan="5">&#160;</td>'
1998
          '</tr>'
1999
          '<tr>'
2000
            '<td>&#160;</td>'
2001
            '<td>'
2002
              '<input ' l_checked_3 ' class="radio"'
2003
              ' disabled="disabled" name="subtype"'
2004
              ' type="radio" value="referencedType"/>'
2005
            '</td>'
2006
            '<td>' txt_name_of_ref_type '</td>'
2007
            '<td class="titleTableDescr" colspan="3">'
2008
              l_reftypename_3
2009
            '</td>'
2010
            '<td colspan="2">&#160;</td>'
2011
          '</tr>'
2012
          '<tr><td colspan="8">&#160;</td></tr>'
2013
          '<tr>'
2014
            '<td>&#160;</td>'
2015
            '<td>'
2016
              '<input ' l_checked_4 ' class="radio"'
2017
              ' disabled="disabled" name="subtype"'
2018
              ' type="radio" value="referenceToBuildinType"/>'
2019
            '</td>'
2020
            '<td>' txt_reference_to_predefined_ty '</td>'
2021
            '<td colspan="5">&#160;</td>'
2022
          '</tr>'
2023
          '<tr>'
2024
            '<td colspan="3">&#160;</td>'
2025
            '<td class="titleTableText">' txt_data_type '</td>'
2026
            '<td>' l_datatype_4 '</td>'
2027
            '<td colspan="3">' l_datadescr_4 '</td>'
2028
          '</tr>'
2029
          '<tr>'
2030
            '<td colspan="3">&#160;</td>'
2031
            '<td class="titleTableText">' txt_length '</td>'
2032
            '<td>' l_dataleng_4 '</td>'
2033
            '<td class="titleTableText" colspan="2">'
2034
              txt_decimal_places___m
2035
            '</td>'
2036
            '<td>' l_datadeci_4 '</td>'
2037
          '</tr>'
2038
        INTO ls_html.
2039
    APPEND ls_html TO ct_html.
2040
  ENDIF.
2041
  CONCATENATE
2042
        '</table>'
2043
      '</form>'
2044
      INTO ls_html.
2045
  APPEND ls_html TO ct_html.
2046
 
2047
  PERFORM html_add_div_end
2048
    CHANGING
2049
      ct_html.
2050
 
2051
ENDFORM.                    "html_add_data_type
2052
 
2053
 
2054
*-----------------------------------------------------------------------
2055
* form: html_add_definition_1
2056
*-----------------------------------------------------------------------
2057
FORM html_add_definition_1
2058
  USING
2059
    is_definition TYPE st_definition_1
2060
    value(i_id)
2061
    value(i_on)
2062
  CHANGING
2063
    ct_html TYPE it_string.
2064
 
2065
  DATA:
2066
  ls_html TYPE string,
2067
  l_dataleng TYPE string,
2068
  l_datadeci TYPE string,
2069
  l_outputlen TYPE string,
2070
  lt_ti TYPE it_textinput,
2071
  ls_ti TYPE st_textinput,
2072
  l_datatype TYPE char255,
2073
  l_datadescr TYPE char255,
2074
  l_convexit TYPE char255,
2075
  l_signflag TYPE char255,
2076
  l_lowercase TYPE char255.
2077
 
2078
  WRITE is_definition-datatype TO l_datatype.
2079
  WRITE is_definition-datadescr TO l_datadescr.
2080
  WRITE is_definition-convexit TO l_convexit.
2081
  WRITE is_definition-signflag TO l_signflag.
2082
  WRITE is_definition-lowercase TO l_lowercase.
2083
 
2084
  PERFORM get_unpacked
2085
    USING
2086
      is_definition-dataleng
2087
    CHANGING
2088
      l_dataleng.
2089
  PERFORM get_unpacked
2090
    USING
2091
      is_definition-datadeci
2092
    CHANGING
2093
      l_datadeci.
2094
  PERFORM get_unpacked
2095
    USING
2096
      is_definition-outputlen
2097
    CHANGING
2098
      l_outputlen.
2099
 
2100
  PERFORM html_add_div_begin
2101
    USING
2102
      i_id
2103
      i_on
2104
    CHANGING
2105
      ct_html.
2106
 
2107
  CONCATENATE
2108
      '<table class="titleTable">'
2109
        '<tr>'
2110
          '<td>'
2111
      INTO ls_html.
2112
  APPEND ls_html TO ct_html.
2113
 
2114
  REFRESH lt_ti.
2115
  CLEAR ls_ti.
2116
  ls_ti-name = txt_data_type.
2117
  ls_ti-value = l_datatype.
2118
  ls_ti-input = abap_true.
2119
  ls_ti-description = l_datadescr.
2120
  APPEND ls_ti TO lt_ti.
2121
  CLEAR ls_ti.
2122
  ls_ti-name = txt_no_of_characters.
2123
  ls_ti-value = l_dataleng.
2124
  ls_ti-input = abap_true.
2125
  APPEND ls_ti TO lt_ti.
2126
  CLEAR ls_ti.
2127
  ls_ti-name = txt_decimal_places___m.
2128
  ls_ti-value = l_datadeci.
2129
  ls_ti-input = abap_true.
2130
  APPEND ls_ti TO lt_ti.
2131
 
2132
  PERFORM html_add_box_textinputnodiv
2133
    USING
2134
      txt_formatting
2135
      lt_ti
2136
    CHANGING
2137
      ct_html.
2138
 
2139
  CONCATENATE
2140
          '</td>'
2141
        '</tr>'
2142
        '<tr>'
2143
          '<td>&#160;</td>'
2144
        '</tr>'
2145
        '<tr>'
2146
          '<td>'
2147
      INTO ls_html.
2148
  APPEND ls_html TO ct_html.
2149
 
2150
  REFRESH lt_ti.
2151
  CLEAR ls_ti.
2152
  ls_ti-name = txt_output_length.
2153
  ls_ti-value = l_outputlen.
2154
  ls_ti-input = abap_true.
2155
  APPEND ls_ti TO lt_ti.
2156
  CLEAR ls_ti.
2157
  ls_ti-name = txt_convers_routine.
2158
  ls_ti-value = l_convexit.
2159
  ls_ti-input = abap_true.
2160
  APPEND ls_ti TO lt_ti.
2161
  CLEAR ls_ti.
2162
  ls_ti-name = txt_sign.
2163
  ls_ti-value = l_signflag.
2164
  ls_ti-flag = abap_true.
2165
  APPEND ls_ti TO lt_ti.
2166
  CLEAR ls_ti.
2167
  ls_ti-name = txt_lowercase.
2168
  ls_ti-value = l_lowercase.
2169
  ls_ti-flag = abap_true.
2170
  APPEND ls_ti TO lt_ti.
2171
 
2172
  PERFORM html_add_box_textinputnodiv
2173
    USING
2174
      txt_output_characteristics
2175
      lt_ti
2176
    CHANGING
2177
      ct_html.
2178
 
2179
  CONCATENATE
2180
          '</td>'
2181
        '</tr>'
2182
      '</table>'
2183
      INTO ls_html.
2184
  APPEND ls_html TO ct_html.
2185
 
2186
  PERFORM html_add_div_end
2187
    CHANGING
2188
      ct_html.
2189
 
2190
ENDFORM.                    "addHTMLDefinition_1
2191
 
2192
 
2193
*-----------------------------------------------------------------------
2194
* form: html_add_definition_2
2195
*-----------------------------------------------------------------------
2196
FORM html_add_definition_2
2197
  USING
2198
    is_definition TYPE st_definition_2
2199
    i_param_table TYPE string
2200
    it_param_content TYPE ANY TABLE
2201
    value(i_id)
2202
    value(i_on)
2203
  CHANGING
2204
    ct_html TYPE it_string.
2205
 
2206
  DATA:
2207
  ls_html TYPE string,
2208
  lt_ti TYPE it_textinput,
2209
  ls_ti TYPE st_textinput,
2210
  l_selmethod TYPE char255,
2211
  l_texttab TYPE char255,
2212
  l_dialogtype TYPE char255,
2213
  l_hotkey TYPE char255,
2214
  l_selmexit TYPE char255.
2215
 
2216
  WRITE is_definition-selmethod TO l_selmethod.
2217
  WRITE is_definition-texttab TO l_texttab.
2218
  WRITE is_definition-dialogtype TO l_dialogtype.
2219
  WRITE is_definition-hotkey TO l_hotkey.
2220
  WRITE is_definition-selmexit TO l_selmexit.
2221
 
2222
  PERFORM html_add_div_begin
2223
    USING
2224
      i_id
2225
      i_on
2226
    CHANGING
2227
      ct_html.
2228
 
2229
  CONCATENATE
2230
      '<table class="titleTable">'
2231
        '<tr>'
2232
          '<td>'
2233
      INTO ls_html.
2234
  APPEND ls_html TO ct_html.
2235
 
2236
  REFRESH lt_ti.
2237
  ls_ti-name = txt_selection_method.
2238
  ls_ti-value = l_selmethod.
2239
  ls_ti-input = abap_true.
2240
  APPEND ls_ti TO lt_ti.
2241
  ls_ti-name = txt_text_table.
2242
  ls_ti-value = l_texttab.
2243
  ls_ti-input = abap_false.
2244
  APPEND ls_ti TO lt_ti.
2245
  PERFORM html_add_box_textinputnodiv
2246
    USING
2247
      txt_data_collection
2248
      lt_ti
2249
    CHANGING
2250
      ct_html.
2251
 
2252
  CONCATENATE
2253
          '</td>'
2254
          '<td>'
2255
      INTO ls_html.
2256
  APPEND ls_html TO ct_html.
2257
 
2258
  REFRESH lt_ti.
2259
  ls_ti-name = txt_dialog_type.
2260
  ls_ti-value = l_dialogtype.
2261
  ls_ti-input = abap_true.
2262
  APPEND ls_ti TO lt_ti.
2263
  ls_ti-name = txt_hot_key.
2264
  ls_ti-value = l_hotkey.
2265
  ls_ti-input = abap_true.
2266
  APPEND ls_ti TO lt_ti.
2267
  PERFORM html_add_box_textinputnodiv
2268
    USING
2269
      txt_dialog_behavior
2270
      lt_ti
2271
    CHANGING
2272
      ct_html.
2273
 
2274
  CONCATENATE
2275
          '</td>'
2276
        '</tr>'
2277
        '<tr>'
2278
          '<td colspan="2">'
2279
            '<table>'
2280
              '<tr>'
2281
                '<td class="titleTableText">'
2282
                  txt_search_help_exit
2283
                '</td>'
2284
                '<td class="titleTableDescr">' l_selmexit '</td>'
2285
              '</tr>'
2286
            '</table>'
2287
          '</td>'
2288
        '</tr>'
2289
        '<tr><td colspan="2">&#160;</td></tr>'
2290
        '<tr>'
2291
          '<td colspan="2">'
2292
            '<table border="0" cellpadding="0" cellspacing="0"'
2293
            ' class="container">'
2294
              '<tr>'
2295
                '<td class="containerTitle">' txt_parameters '</td>'
2296
              '</tr>'
2297
              '<tr>'
2298
                '<td class="containerContent">'
2299
      INTO ls_html.
2300
  APPEND ls_html TO ct_html.
2301
 
2302
  PERFORM html_add_tablenodiv
2303
    USING
2304
      i_param_table
2305
      it_param_content
2306
      it_param_content
2307
    CHANGING
2308
      ct_html.
2309
 
2310
  CONCATENATE
2311
                '</td>'
2312
              '</tr>'
2313
            '</table>'
2314
          '</td>'
2315
        '</tr>'
2316
      '</table>'
2317
      INTO ls_html.
2318
  APPEND ls_html TO ct_html.
2319
 
2320
  PERFORM html_add_div_end
2321
    CHANGING
2322
      ct_html.
2323
 
2324
ENDFORM.                    "html_add_definition_2
2325
 
2326
 
2327
*-----------------------------------------------------------------------
2328
* form: html_add_deliv_maint
2329
*-----------------------------------------------------------------------
2330
FORM html_add_deliv_maint
2331
  USING
2332
    is_deliv_maint TYPE st_deliv_maint
2333
    it_access TYPE it_access
2334
    value(i_id)
2335
    value(i_on)
2336
  CHANGING
2337
    ct_html TYPE it_string.
2338
 
2339
  DATA:
2340
  l_tabix TYPE sytabix,
2341
  l_checked TYPE string,
2342
  ls_html TYPE string,
2343
  l_rowcount TYPE i,
2344
  l_rowspan TYPE string,
2345
 
2346
  l_contflag TYPE char255,
2347
  l_contflag_text TYPE char255,
2348
  l_mainflag_text TYPE char255,
2349
  l_sqltab TYPE char255.
2350
 
2351
  FIELD-SYMBOLS:
2352
  <ls_access> TYPE st_access.
2353
 
2354
  WRITE is_deliv_maint-contflag TO l_contflag.
2355
  WRITE is_deliv_maint-contflag_text TO l_contflag_text.
2356
  WRITE is_deliv_maint-mainflag_text TO l_mainflag_text.
2357
  WRITE is_deliv_maint-sqltab TO l_sqltab.
2358
 
2359
  PERFORM html_add_div_begin
2360
    USING
2361
      i_id
2362
      i_on
2363
    CHANGING
2364
      ct_html.
2365
 
2366
  APPEND '<table class="titleTable">' TO ct_html.
2367
*pool/cluster
2368
  IF NOT l_sqltab IS INITIAL.
2369
    CONCATENATE
2370
        '<tr>'
2371
          '<td class="titleTableText">' txt_pool_cluster '</td>'
2372
          '<td class="titleTableDescr" colspan="3">' l_sqltab '</td>'
2373
        '</tr>'
2374
        INTO ls_html.
2375
    APPEND ls_html TO ct_html.
2376
  ENDIF.
2377
*access
2378
  IF NOT it_access IS INITIAL.
2379
    CONCATENATE
2380
        '<tr>'
2381
          '<td colspan="4">'
2382
        INTO ls_html.
2383
    APPEND ls_html TO ct_html.
2384
 
2385
    PERFORM html_add_box_radiobuttonsnodiv
2386
      USING
2387
        txt_access
2388
        'access'
2389
        it_access
2390
      CHANGING
2391
        ct_html.
2392
 
2393
    CONCATENATE
2394
          '</td>'
2395
        '</tr>'
2396
        INTO ls_html.
2397
    APPEND ls_html TO ct_html.
2398
  ENDIF.
2399
*cont
2400
  IF is_deliv_maint-display_cont = abap_true.
2401
    CONCATENATE
2402
        '<tr>'
2403
          '<td class="titleTableText">' txt_delivery_class '</td>'
2404
          '<td class="titleTableDescr">' l_contflag '</td>'
2405
          '<td>'
2406
            l_contflag_text
2407
          '</td>'
2408
          '<td colspan="2">&#160;</td>'
2409
        '</tr>'
2410
        INTO ls_html.
2411
    APPEND ls_html TO ct_html.
2412
  ENDIF.
2413
*main
2414
  IF is_deliv_maint-display_main = abap_true.
2415
    CONCATENATE
2416
        '<tr>'
2417
          '<td class="titleTableText">'
2418
            txt_data_browser_table_view_ma
2419
          '</td>'
2420
          '<td class="titleTableDescr" colspan="3">'
2421
            l_mainflag_text
2422
          '</td>'
2423
        '</tr>'
2424
        INTO ls_html.
2425
    APPEND ls_html TO ct_html.
2426
  ENDIF.
2427
***
2428
  APPEND '</table>' TO ct_html.
2429
 
2430
  PERFORM html_add_div_end
2431
    CHANGING
2432
      ct_html.
2433
 
2434
ENDFORM.                    "html_add_deliv_maint
2435
 
2436
 
2437
*-----------------------------------------------------------------------
2438
* form: html_add_div_begin
2439
*-----------------------------------------------------------------------
2440
FORM html_add_div_begin
2441
  USING
2442
    value(i_id)
2443
    value(i_on)
2444
  CHANGING
2445
    ct_html TYPE it_string.
2446
 
2447
  DATA:
2448
  l_style TYPE string,
2449
  ls_html TYPE string.
2450
 
2451
  IF i_on = abap_true.
2452
    l_style = 'display:block;visibility:visible'.
2453
  ELSE.
2454
    l_style = 'display:none;visibility:hidden'.
2455
  ENDIF.
2456
 
2457
  CONCATENATE
2458
      '<div class="contentDiv" id="' i_id 'div" style="' l_style ';">'
2459
      INTO ls_html.
2460
  APPEND ls_html TO ct_html.
2461
 
2462
ENDFORM.                    "html_add_div_begin
2463
 
2464
 
2465
*-----------------------------------------------------------------------
2466
* form: html_add_div_end
2467
*-----------------------------------------------------------------------
2468
FORM html_add_div_end
2469
  CHANGING
2470
    ct_html TYPE it_string.
2471
 
2472
  APPEND '</div>' TO ct_html.
2473
 
2474
ENDFORM.                    "html_add_div_end
2475
 
2476
 
2477
*-----------------------------------------------------------------------
2478
* form: html_add_doc
2479
*-----------------------------------------------------------------------
2480
FORM html_add_doc
2481
  USING
2482
    it_doc TYPE it_string
2483
    value(i_id)
2484
    value(i_on)
2485
  CHANGING
2486
    ct_html TYPE it_string.
2487
 
2488
  DATA:
2489
  l_text TYPE string,
2490
  ls_html TYPE string,
2491
  l_tabix TYPE string,
2492
  l_titletag_open TYPE string,
2493
  l_titletag_close TYPE string.
2494
 
2495
  FIELD-SYMBOLS:
2496
  <ls_doc> TYPE string.
2497
 
2498
  PERFORM html_add_div_begin
2499
    USING
2500
      i_id
2501
      i_on
2502
    CHANGING
2503
      ct_html.
2504
 
2505
  CONCATENATE
2506
      '<table class="scrollTable">'
2507
        '<tr>'
2508
          '<td style="border-spacing:0px;padding:0px">'
2509
            '<div id="' i_id 'scroll" class="scrollDiv">'
2510
      INTO ls_html.
2511
  APPEND ls_html TO ct_html.
2512
 
2513
  LOOP AT it_doc ASSIGNING <ls_doc>.
2514
    APPEND <ls_doc> TO ct_html.
2515
  ENDLOOP.
2516
 
2517
  CONCATENATE
2518
            '</div>'
2519
          '</td>'
2520
        '</tr>'
2521
      '</table>'
2522
      INTO ls_html.
2523
  APPEND ls_html TO ct_html.
2524
 
2525
  PERFORM html_add_div_end
2526
    CHANGING
2527
      ct_html.
2528
 
2529
ENDFORM.                    "html_add_doc
2530
 
2531
 
2532
*-----------------------------------------------------------------------
2533
* form: html_add_field_label
2534
*-----------------------------------------------------------------------
2535
FORM html_add_field_label
2536
  USING
2537
    is_field_label TYPE st_field_label
2538
    value(i_id)
2539
    value(i_on)
2540
  CHANGING
2541
    ct_html TYPE it_string.
2542
 
2543
  DATA:
2544
  l_uname TYPE string,
2545
  l_date_last_changed TYPE string,
2546
  l_pack TYPE string,
2547
  l_pack_descr TYPE string,
2548
  l_langu TYPE sylangu,
2549
  l_langu_descr TYPE string,
2550
  ls_html TYPE string,
2551
 
2552
  l_headlen TYPE string,
2553
  l_reptext TYPE char255,
2554
  l_scrlen_s TYPE string,
2555
  l_scrlen_m TYPE string,
2556
  l_scrlen_l TYPE string,
2557
  l_scrtext_s TYPE char255,
2558
  l_scrtext_m TYPE char255,
2559
  l_scrtext_l TYPE char255.
2560
 
2561
  WRITE is_field_label-reptext TO l_reptext.
2562
  WRITE is_field_label-scrtext_l TO l_scrtext_l.
2563
  WRITE is_field_label-scrtext_m TO l_scrtext_m.
2564
  WRITE is_field_label-scrtext_s TO l_scrtext_s.
2565
 
2566
  PERFORM get_unpacked
2567
    USING
2568
      is_field_label-headlen
2569
    CHANGING
2570
      l_headlen.
2571
  PERFORM get_unpacked
2572
    USING
2573
      is_field_label-scrlen_l
2574
    CHANGING
2575
      l_scrlen_l.
2576
  PERFORM get_unpacked
2577
    USING
2578
      is_field_label-scrlen_m
2579
    CHANGING
2580
      l_scrlen_m.
2581
  PERFORM get_unpacked
2582
    USING
2583
      is_field_label-scrlen_s
2584
    CHANGING
2585
      l_scrlen_s.
2586
 
2587
  PERFORM html_add_div_begin
2588
    USING
2589
      i_id
2590
      i_on
2591
    CHANGING
2592
      ct_html.
2593
 
2594
  CONCATENATE
2595
      '<table class="titleTable">'
2596
        '<tr>'
2597
          '<td>&#160;</td>'
2598
          '<td colspan="2">' txt_length '</td>'
2599
          '<td colspan="4">' txt_field_label '</td>'
2600
        '</tr>'
2601
        '<tr>'
2602
          '<td class="titleTableText">' txt_short '</td>'
2603
          '<td class="titleTableDescr">' l_scrlen_s '</td>'
2604
          '<td>&#160;</td>'
2605
          '<td class="titleTableDescr">' l_scrtext_s '</td>'
2606
          '<td colspan="3">&#160;</td>'
2607
        '</tr>'
2608
        '<tr>'
2609
          '<td class="titleTableText">' txt_medium '</td>'
2610
          '<td class="titleTableDescr">' l_scrlen_m '</td>'
2611
          '<td>&#160;</td>'
2612
          '<td class="titleTableDescr" colspan="2">' l_scrtext_m '</td>'
2613
          '<td colspan="2">&#160;</td>'
2614
        '</tr>'
2615
        '<tr>'
2616
          '<td class="titleTableText">' txt_long '</td>'
2617
          '<td class="titleTableDescr">' l_scrlen_l '</td>'
2618
          '<td>&#160;</td>'
2619
          '<td class="titleTableDescr" colspan="3">' l_scrtext_l '</td>'
2620
          '<td>&#160;</td>'
2621
        '</tr>'
2622
        '<tr>'
2623
          '<td class="titleTableText">' txt_heading '</td>'
2624
          '<td class="titleTableDescr">' l_headlen '</td>'
2625
          '<td>&#160;</td>'
2626
          '<td class="titleTableDescr" colspan="4">' l_reptext '</td>'
2627
        '</tr>'
2628
      '</table>'
2629
      INTO ls_html.
2630
  APPEND ls_html TO ct_html.
2631
 
2632
  PERFORM html_add_div_end
2633
    CHANGING
2634
      ct_html.
2635
 
2636
ENDFORM.                    "html_add_field_label
2637
 
2638
 
2639
*-----------------------------------------------------------------------
2640
* form: html_add_further_char
2641
*-----------------------------------------------------------------------
2642
FORM html_add_further_char
2643
  USING
2644
    is_further_char TYPE st_further_char
2645
    value(i_id)
2646
    value(i_on)
2647
  CHANGING
2648
    ct_html TYPE it_string.
2649
 
2650
  DATA:
2651
  ls_html TYPE string,
2652
  lt_ti TYPE it_textinput,
2653
  ls_ti TYPE st_textinput,
2654
  l_deffdname TYPE char255,
2655
  l_memoryid TYPE char255,
2656
  l_shlpfield TYPE char255,
2657
  l_shlpname TYPE char255,
2658
  l_checked TYPE string.
2659
 
2660
  WRITE is_further_char-deffdname TO l_deffdname.
2661
  WRITE is_further_char-memoryid TO l_memoryid.
2662
  WRITE is_further_char-shlpfield TO l_shlpfield.
2663
  WRITE is_further_char-shlpname TO l_shlpname.
2664
 
2665
  PERFORM html_add_div_begin
2666
    USING
2667
      i_id
2668
      i_on
2669
    CHANGING
2670
      ct_html.
2671
 
2672
  CONCATENATE
2673
      '<table class="titleTable">'
2674
        '<tr>'
2675
          '<td colspan="2">'
2676
      INTO ls_html.
2677
  APPEND ls_html TO ct_html.
2678
 
2679
  REFRESH lt_ti.
2680
  ls_ti-name = txt_name.
2681
  ls_ti-value = l_shlpname.
2682
  ls_ti-input = abap_true.
2683
  APPEND ls_ti TO lt_ti.
2684
  ls_ti-name = txt_parameters.
2685
  ls_ti-value = l_shlpfield.
2686
  ls_ti-input = abap_true.
2687
  APPEND ls_ti TO lt_ti.
2688
  PERFORM html_add_box_textinputnodiv
2689
    USING
2690
      txt_srch_help
2691
      lt_ti
2692
    CHANGING
2693
      ct_html.
2694
 
2695
  CLEAR l_checked.
2696
  IF is_further_char-logflag = abap_true.
2697
    l_checked = ' checked="checked"'.
2698
  ENDIF.
2699
  CONCATENATE
2700
          '</td>'
2701
        '</tr>'
2702
        '<tr><td colspan="2">&#160;</td></tr>'
2703
        '<tr>'
2704
          '<td class="titleTableText">' txt_parameter_id '</td>'
2705
          '<td class="titleTableDescr">' l_memoryid '</td>'
2706
        '</tr>'
2707
        '<tr><td colspan="5">&#160;</td></tr>'
2708
        '<tr>'
2709
          '<td class="titleTableText">'
2710
            txt_default_component_name
2711
          '</td>'
2712
          '<td class="titleTableDescr">' l_deffdname '</td>'
2713
        '</tr>'
2714
        '<tr><td colspan="2">&#160;</td></tr>'
2715
        '<tr>'
2716
          '<td colspan="2">'
2717
            '<table>'
2718
              '<tr>'
2719
                '<td>'
2720
                  '<input class="innerTableFlag"'
2721
                  l_checked
2722
                  ' disabled="disabled" type="checkbox"'
2723
                  ' value="' is_further_char-logflag '"/>'
2724
                '</td>'
2725
                '<td>' txt_change_document '</td>'
2726
              '</tr>'
2727
            '</table>'
2728
          '</td>'
2729
        '</tr>'
2730
      '</table>'
2731
      INTO ls_html.
2732
  APPEND ls_html TO ct_html.
2733
 
2734
  PERFORM html_add_div_end
2735
    CHANGING
2736
      ct_html.
2737
 
2738
ENDFORM.                    "html_add_further_char
2739
 
2740
 
2741
*-----------------------------------------------------------------------
2742
* form: html_add_iFrame
2743
*-----------------------------------------------------------------------
2744
FORM html_add_iframe
2745
  USING
2746
    value(i_url)
2747
    value(i_id)
2748
    value(i_on)
2749
  CHANGING
2750
    ct_html TYPE it_string.
2751
 
2752
  DATA:
2753
  ls_html TYPE string.
2754
 
2755
  PERFORM html_add_div_begin
2756
    USING
2757
      i_id
2758
      i_on
2759
    CHANGING
2760
      ct_html.
2761
 
2762
  APPEND '<table class="scrollTable">' TO ct_html.
2763
  CONCATENATE
2764
        '<tr>'
2765
          '<td id="' i_id 'iframe"'
2766
            ' style="border-spacing:0px;padding:0px">'
2767
      INTO ls_html.
2768
  APPEND ls_html TO ct_html.
2769
  IF NOT i_url IS INITIAL.
2770
    CONCATENATE
2771
            '<iframe frameborder="0"'
2772
              ' height="400"'
2773
              ' id="' i_id 'scroll"'
2774
              ' scrolling="auto"'
2775
              ' src="' i_url '"'
2776
              ' width="90%">'
2777
            '</iframe>'
2778
        INTO ls_html.
2779
    APPEND ls_html TO ct_html.
2780
  ENDIF.
2781
  CONCATENATE
2782
          '</td>'
2783
        '</tr>'
2784
      '</table>'
2785
      INTO ls_html.
2786
  APPEND ls_html TO ct_html.
2787
 
2788
  PERFORM html_add_div_end
2789
    CHANGING
2790
      ct_html.
2791
 
2792
ENDFORM.                    "html_add_iFrame
2793
 
2794
 
2795
*-----------------------------------------------------------------------
2796
* form: html_add_init_access
2797
*-----------------------------------------------------------------------
2798
FORM html_add_init_access
2799
  USING
2800
    is_init_access TYPE st_init_access
2801
    it_accessmode TYPE it_access
2802
    value(i_id)
2803
    value(i_on)
2804
  CHANGING
2805
    ct_html TYPE it_string.
2806
 
2807
  DATA:
2808
  ls_html TYPE string,
2809
  l_info1 TYPE char255,
2810
  l_info2 TYPE char255,
2811
  l_occurs TYPE string.
2812
 
2813
  WRITE is_init_access-info1 TO l_info1.
2814
  WRITE is_init_access-info2 TO l_info2.
2815
 
2816
  PERFORM get_unpacked
2817
    USING
2818
      is_init_access-occurs
2819
    CHANGING
2820
      l_occurs.
2821
 
2822
  PERFORM html_add_div_begin
2823
    USING
2824
      i_id
2825
      i_on
2826
    CHANGING
2827
      ct_html.
2828
 
2829
  APPEND '<table class="titleTable">' TO ct_html.
2830
  IF NOT is_init_access-info1 IS INITIAL.
2831
    CONCATENATE
2832
        '<tr>'
2833
          '<td class="info" colspan="3">' l_info1 '</td>'
2834
        '</tr>'
2835
        INTO ls_html.
2836
    APPEND ls_html TO ct_html.
2837
  ENDIF.
2838
  IF is_init_access-unknown = abap_false.
2839
    CONCATENATE
2840
          '<tr>'
2841
            '<td class="titleTableText">'
2842
              txt_initial_line_number
2843
            '</td>'
2844
            '<td class="titleTableDescr">'
2845
              l_occurs
2846
            '</td>'
2847
            '<td>&#160;</td>'
2848
          '</tr>'
2849
        INTO ls_html.
2850
    APPEND ls_html TO ct_html.
2851
  ENDIF.
2852
  IF NOT is_init_access-info2 IS INITIAL.
2853
    CONCATENATE
2854
        '<tr>'
2855
          '<td class="info" colspan="3">' l_info2 '</td>'
2856
        '</tr>'
2857
        INTO ls_html.
2858
    APPEND ls_html TO ct_html.
2859
  ENDIF.
2860
  CONCATENATE
2861
        '<tr>'
2862
          '<td colspan="3">'
2863
      INTO ls_html.
2864
  APPEND ls_html TO ct_html.
2865
 
2866
  PERFORM html_add_box_radiobuttonsnodiv
2867
    USING
2868
      txt_access
2869
      'accessmode'
2870
      it_accessmode
2871
    CHANGING
2872
      ct_html.
2873
 
2874
  CONCATENATE
2875
          '</td>'
2876
        '</tr>'
2877
      '</table>'
2878
      INTO ls_html.
2879
  APPEND ls_html TO ct_html.
2880
 
2881
  PERFORM html_add_div_end
2882
    CHANGING
2883
      ct_html.
2884
 
2885
ENDFORM.                    "html_add_init_access
2886
 
2887
 
2888
*-----------------------------------------------------------------------
2889
* form: html_add_key
2890
*-----------------------------------------------------------------------
2891
FORM html_add_key
2892
  USING
2893
    is_key TYPE st_key
2894
    it_keydef TYPE it_access
2895
    it_keykind TYPE it_access
2896
    i_keycomp_table TYPE string
2897
    it_keycomp_content TYPE ANY TABLE
2898
    value(i_id)
2899
    value(i_on)
2900
  CHANGING
2901
    ct_html TYPE it_string.
2902
 
2903
  DATA:
2904
  ls_html TYPE string.
2905
 
2906
  PERFORM html_add_div_begin
2907
    USING
2908
      i_id
2909
      i_on
2910
    CHANGING
2911
      ct_html.
2912
 
2913
  APPEND '<table class="titleTable">' TO ct_html.
2914
  IF NOT is_key-info IS INITIAL.
2915
    CONCATENATE
2916
        '<tr>'
2917
          '<td class="info" colspan="8">'
2918
            is_key-info
2919
          '</td>'
2920
        '</tr>'
2921
        INTO ls_html.
2922
    APPEND ls_html TO ct_html.
2923
  ENDIF.
2924
  CONCATENATE
2925
        '<tr>'
2926
          '<td style="vertical-align:top">'
2927
        INTO ls_html.
2928
  APPEND ls_html TO ct_html.
2929
 
2930
  PERFORM html_add_box_radiobuttonsnodiv
2931
    USING
2932
      txt_key_definition
2933
      'keydef'
2934
      it_keydef
2935
    CHANGING
2936
      ct_html.
2937
 
2938
  CONCATENATE
2939
          '</td>'
2940
          '<td style="vertical-align:top">'
2941
      INTO ls_html.
2942
  APPEND ls_html TO ct_html.
2943
 
2944
  PERFORM html_add_box_radiobuttonsnodiv
2945
    USING
2946
      txt_key_category
2947
      'keykind'
2948
      it_keykind
2949
    CHANGING
2950
      ct_html.
2951
 
2952
  CONCATENATE
2953
          '</td>'
2954
        '</tr>'
2955
        '<tr>'
2956
          '<td colspan="2">&#160;</td>'
2957
        '</tr>'
2958
        '<tr>'
2959
          '<td colspan="2">'
2960
            '<table border="0" cellpadding="0" cellspacing="0"'
2961
            ' class="container">'
2962
              '<tr>'
2963
                '<td class="containerTitle">' txt_key_components '</td>'
2964
              '</tr>'
2965
              '<tr>'
2966
                '<td class="containerContent">'
2967
      INTO ls_html.
2968
  APPEND ls_html TO ct_html.
2969
 
2970
  PERFORM html_add_tablenodiv
2971
    USING
2972
      i_keycomp_table
2973
      it_keycomp_content
2974
      it_keycomp_content
2975
    CHANGING
2976
      ct_html.
2977
 
2978
  CONCATENATE
2979
                '</td>'
2980
              '</tr>'
2981
            '</table>'
2982
          '</td>'
2983
        '</tr>'
2984
      '</table>'
2985
      INTO ls_html.
2986
  APPEND ls_html TO ct_html.
2987
 
2988
  PERFORM html_add_div_end
2989
    CHANGING
2990
      ct_html.
2991
 
2992
ENDFORM.                    "html_add_key
2993
 
2994
 
2995
*-----------------------------------------------------------------------
2996
* form: html_add_line_type_1
2997
*-----------------------------------------------------------------------
2998
FORM html_add_line_type_1
2999
  USING
3000
    is_line_type TYPE st_line_type
3001
    value(i_id)
3002
    value(i_on)
3003
  CHANGING
3004
    ct_html TYPE it_string.
3005
 
3006
  DATA:
3007
  ls_html TYPE string,
3008
  l_info TYPE char255,
3009
 
3010
  l_checked_1 TYPE string,
3011
  l_linetype_1 TYPE string,
3012
  l_rowtype_1 TYPE char255,
3013
  l_rowdescr_1 TYPE char255,
3014
 
3015
  l_checked_2 TYPE string,
3016
  l_datatype_2 TYPE char255,
3017
  l_dataleng_2 TYPE string,
3018
  l_datadeci_2 TYPE string,
3019
  l_info_2 TYPE string,
3020
 
3021
  l_checked_3 TYPE string,
3022
 
3023
  l_checked_31 TYPE string,
3024
  l_reftypename_31 TYPE char255,
3025
  l_reftypedescr_31 TYPE char255,
3026
 
3027
  l_checked_32 TYPE string,
3028
  l_datatype_32 TYPE char255,
3029
  l_dataleng_32 TYPE string,
3030
  l_datadeci_32 TYPE string.
3031
 
3032
 
3033
  CASE is_line_type-rowkind.
3034
    WHEN 'E'.
3035
      l_checked_1 = ' checked="checked" '.
3036
      l_linetype_1 = txt_elementary_type.
3037
      WRITE is_line_type-rowtype TO l_rowtype_1.
3038
      WRITE is_line_type-rowdescr TO l_rowdescr_1.
3039
    WHEN 'S'.
3040
      l_checked_1 = ' checked="checked" '.
3041
      l_linetype_1 = txt_structured_type.
3042
      WRITE is_line_type-rowtype TO l_rowtype_1.
3043
      WRITE is_line_type-rowdescr TO l_rowdescr_1.
3044
    WHEN 'L'.
3045
      l_checked_1 = ' checked="checked" '.
3046
      l_linetype_1 = txt_table_type.
3047
      WRITE is_line_type-rowtype TO l_rowtype_1.
3048
      WRITE is_line_type-rowdescr TO l_rowdescr_1.
3049
    WHEN space.
3050
      l_checked_2 = ' checked="checked" '.
3051
      WRITE is_line_type-datatype TO l_datatype_2.
3052
      PERFORM get_unpacked
3053
        USING
3054
          is_line_type-dataleng
3055
        CHANGING
3056
          l_dataleng_2.
3057
      PERFORM get_unpacked
3058
        USING
3059
          is_line_type-datadeci
3060
        CHANGING
3061
          l_datadeci_2.
3062
      IF is_line_type-dataleng IS INITIAL.
3063
        l_info_2 = txt_no_length_restriction.
3064
      ENDIF.
3065
    WHEN 'R'.
3066
      l_checked_3 = ' checked="checked" '.
3067
      CASE is_line_type-reftype.
3068
        WHEN 'D' OR 'O'.
3069
          l_checked_31 = ' checked="checked" '.
3070
          WRITE is_line_type-rowtype TO l_reftypename_31.
3071
        WHEN 'B'.
3072
          l_checked_32 = ' checked="checked" '.
3073
          WRITE is_line_type-rowtype TO l_datatype_32.
3074
          PERFORM get_unpacked
3075
            USING
3076
              is_line_type-dataleng
3077
            CHANGING
3078
              l_dataleng_32.
3079
          PERFORM get_unpacked
3080
            USING
3081
              is_line_type-datadeci
3082
            CHANGING
3083
              l_datadeci_32.
3084
        WHEN 'E' OR 'S' OR 'C' OR 'I'.
3085
          l_checked_31 = ' checked="checked" '.
3086
          WRITE is_line_type-rowtype TO l_reftypename_31.
3087
          WRITE is_line_type-refdescr TO l_reftypedescr_31.
3088
      ENDCASE.
3089
  ENDCASE.
3090
 
3091
  PERFORM html_add_div_begin
3092
    USING i_id i_on
3093
    CHANGING ct_html.
3094
 
3095
  WRITE is_line_type-info TO l_info.
3096
 
3097
  CONCATENATE
3098
      '<form action="#" method="post">'
3099
        '<table class="titleTable">'
3100
      INTO ls_html.
3101
  APPEND ls_html TO ct_html.
3102
  IF NOT l_info IS INITIAL.
3103
    CONCATENATE
3104
          '<tr>'
3105
            '<td class="info" colspan="8">'
3106
              l_info
3107
            '</td>'
3108
          '</tr>'
3109
        INTO ls_html.
3110
    APPEND ls_html TO ct_html.
3111
  ENDIF.
3112
  CONCATENATE
3113
          '<tr>'
3114
            '<td>'
3115
              '<input ' l_checked_1 ' class="radio"'
3116
              ' disabled="disabled" name="subtype"'
3117
              ' type="radio" value="domain"/>'
3118
            '</td>'
3119
            '<td colspan="2">' txt_line_type '</td>'
3120
            '<td class="titleTableDescr" colspan="3">'
3121
              l_rowtype_1
3122
            '</td>'
3123
            '<td>' l_rowdescr_1 '</td>'
3124
            '<td>' l_linetype_1 '</td>'
3125
          '</tr>'
3126
          '<tr><td colspan="8">&#160;</td></tr>'
3127
          '<tr>'
3128
            '<td>'
3129
              '<input ' l_checked_2 ' class="radio"'
3130
              ' disabled="disabled" name="subtype"'
3131
              ' type="radio" value="buildinType"/>'
3132
            '</td>'
3133
            '<td colspan="2">' txt_built_in_type '</td>'
3134
            '<td colspan="5">&#160;</td>'
3135
          '</tr>'
3136
          '<tr>'
3137
            '<td colspan="2">&#160;</td>'
3138
            '<td class="titleTableText" colspan="2">'
3139
              txt_data_type
3140
            '</td>'
3141
            '<td class="titleTableDescr" colspan="2">'
3142
              l_datatype_2
3143
            '</td>'
3144
            '<td colspan="3">&#160;</td>'
3145
          '</tr>'
3146
          '<tr>'
3147
            '<td colspan="2">&#160;</td>'
3148
            '<td class="titleTableText">' txt_no_of_characters '</td>'
3149
            '<td class="titleTableDescr">' l_dataleng_2 '</td>'
3150
            '<td>&#160;</td>'
3151
            '<td class="titleTableText" colspan="2">'
3152
              txt_decimal_places___m
3153
            '</td>'
3154
            '<td class="titleTableDescr">' l_datadeci_2 '</td>'
3155
            '<td>&#160;</td>'
3156
          '</tr>'
3157
      INTO ls_html.
3158
  APPEND ls_html TO ct_html.
3159
  IF NOT l_info_2 IS INITIAL.
3160
    CONCATENATE
3161
          '<tr>'
3162
            '<td class="info" colspan="8">'
3163
              l_info_2
3164
            '</td>'
3165
          '</tr>'
3166
        INTO ls_html.
3167
    APPEND ls_html TO ct_html.
3168
  ENDIF.
3169
  IF is_line_type-reftype <> '#'.  "R/3 4.6 does not know ref type
3170
    CONCATENATE
3171
          '<tr><td colspan="8">&#160;</td></tr>'
3172
          '<tr>'
3173
            '<td>'
3174
              '<input ' l_checked_3 ' class="radio"'
3175
              ' disabled="disabled" name="type"'
3176
              ' type="radio" value="referenceType"/>'
3177
            '</td>'
3178
            '<td colspan="2">' txt_reference_type '</td>'
3179
            '<td colspan="5">&#160;</td>'
3180
          '</tr>'
3181
          '<tr>'
3182
            '<td>&#160;</td>'
3183
            '<td>'
3184
              '<input ' l_checked_31 ' class="radio"'
3185
              ' disabled="disabled" name="subtype"'
3186
              ' type="radio" value="referencedType"/>'
3187
            '</td>'
3188
            '<td colspan="2">' txt_name_of_ref_type '</td>'
3189
            '<td class="titleTableDescr" colspan="3">'
3190
              l_reftypename_31
3191
            '</td>'
3192
            '<td>' l_reftypedescr_31 '</td>'
3193
          '</tr>'
3194
          '<tr><td colspan="8">&#160;</td></tr>'
3195
          '<tr>'
3196
            '<td>&#160;</td>'
3197
            '<td>'
3198
              '<input ' l_checked_32 ' class="radio"'
3199
              ' disabled="disabled" name="subtype"'
3200
              ' type="radio" value="referenceToBuildinType"/>'
3201
            '</td>'
3202
            '<td>' txt_reference_to_predefined_ty '</td>'
3203
            '<td colspan="5">&#160;</td>'
3204
          '</tr>'
3205
          '<tr>'
3206
            '<td colspan="3">&#160;</td>'
3207
            '<td class="titleTableText">' txt_data_type '</td>'
3208
            '<td>' l_datatype_32 '</td>'
3209
            '<td colspan="3">&#160;</td>'
3210
          '</tr>'
3211
          '<tr>'
3212
            '<td colspan="3">&#160;</td>'
3213
            '<td class="titleTableText">' txt_length '</td>'
3214
            '<td>' l_dataleng_32 '</td>'
3215
            '<td class="titleTableText" colspan="2">'
3216
              txt_decimal_places___m
3217
            '</td>'
3218
            '<td>' l_datadeci_32 '</td>'
3219
          '</tr>'
3220
        INTO ls_html.
3221
    APPEND ls_html TO ct_html.
3222
  ENDIF.
3223
  CONCATENATE
3224
        '</table>'
3225
      '</form>'
3226
      INTO ls_html.
3227
  APPEND ls_html TO ct_html.
3228
 
3229
  PERFORM html_add_div_end
3230
    CHANGING ct_html.
3231
 
3232
ENDFORM.                    "html_add_line_type_1
3233
 
3234
 
3235
*-----------------------------------------------------------------------
3236
* form: html_add_line_type_2
3237
*-----------------------------------------------------------------------
3238
FORM html_add_line_type_2
3239
  USING
3240
    is_line_type TYPE st_line_type
3241
    value(i_id)
3242
    value(i_on)
3243
  CHANGING
3244
    ct_html TYPE it_string.
3245
 
3246
  DATA:
3247
  ls_html TYPE string,
3248
  l_info TYPE char255,
3249
 
3250
  l_checked_1 TYPE string,
3251
  l_range_ctyp_1 TYPE string,
3252
 
3253
  l_checked_2 TYPE string,
3254
  l_datatype_2 TYPE char255,
3255
  l_datadescr_2 TYPE string,
3256
  l_dataleng_2 TYPE string,
3257
  l_datadeci_2 TYPE string,
3258
 
3259
  l_rowtype TYPE char255.
3260
 
3261
 
3262
  IF NOT is_line_type-range_ctyp IS INITIAL.
3263
    l_checked_1 = ' checked="checked" '.
3264
    l_range_ctyp_1 = is_line_type-range_ctyp.
3265
  ELSE.
3266
    l_checked_2 = ' checked="checked" '.
3267
    WRITE is_line_type-ctdatatype TO l_datatype_2.
3268
    PERFORM get_dom_value_text
3269
      USING 'DATATYP' l_datatype_2
3270
      CHANGING l_datadescr_2.
3271
    PERFORM get_unpacked
3272
      USING is_line_type-ctleng
3273
      CHANGING l_dataleng_2.
3274
    PERFORM get_unpacked
3275
      USING is_line_type-ctdecimals
3276
      CHANGING l_datadeci_2.
3277
  ENDIF.
3278
 
3279
  WRITE is_line_type-rowtype TO l_rowtype.
3280
 
3281
 
3282
  PERFORM html_add_div_begin
3283
    USING i_id i_on
3284
    CHANGING ct_html.
3285
 
3286
  CONCATENATE
3287
      '<form action="#" method="post">'
3288
        '<table class="titleTable">'
3289
          '<tr>'
3290
            '<td>'
3291
      INTO ls_html.
3292
  APPEND ls_html TO ct_html.
3293
 
3294
  PERFORM html_add_box_begin
3295
    USING txt_associated_type_for_low_hi '1'
3296
    CHANGING ct_html.
3297
 
3298
  CONCATENATE
3299
      '<table>'
3300
        '<tr>'
3301
          '<td>'
3302
            '<input ' l_checked_1 ' class="radio"'
3303
            ' disabled="disabled" name="subtype"'
3304
            ' type="radio" value="domain"/>'
3305
          '</td>'
3306
          '<td>' txt_data_element___1 '</td>'
3307
          '<td class="titleTableDescr" colspan="3">'
3308
            l_range_ctyp_1
3309
          '</td>'
3310
          '<td>&#160;</td>'
3311
        '</tr>'
3312
        '<tr>'
3313
          '<td>'
3314
            '<input ' l_checked_2 ' class="radio"'
3315
            ' disabled="disabled" name="subtype"'
3316
            ' type="radio" value="domain"/>'
3317
          '</td>'
3318
          '<td>' txt_built_in_type '</td>'
3319
          '<td colspan="4">&#160;</td>'
3320
        '</tr>'
3321
        '<tr>'
3322
          '<td>&#160;</td>'
3323
          '<td class="titleTableText">' txt_data_type '</td>'
3324
          '<td class="titleTableDescr" colspan="2">'
3325
            l_datatype_2
3326
          '</td>'
3327
          '<td colspan="2">' l_datadescr_2 '</td>'
3328
        '</tr>'
3329
        '<tr>'
3330
          '<td>&#160;</td>'
3331
          '<td class="titleTableText">' txt_no_of_characters '</td>'
3332
          '<td class="titleTableDescr">' l_dataleng_2 '</td>'
3333
          '<td>&#160;</td>'
3334
          '<td class="titleTableText">' txt_decimal_places___m '</td>'
3335
          '<td class="titleTableDescr">' l_datadeci_2 '</td>'
3336
        '</tr>'
3337
      '</table>'
3338
      INTO ls_html.
3339
  APPEND ls_html TO ct_html.
3340
 
3341
  PERFORM html_add_box_end
3342
    CHANGING ct_html.
3343
 
3344
  CONCATENATE
3345
            '</td>'
3346
          '</tr>'
3347
          '<tr><td>&#160;</td></tr>'
3348
          '<tr>'
3349
            '<td>'
3350
              '<table>'
3351
                '<tr>'
3352
                  '<td class="titleTableText">'
3353
                    txt_structured_row_type
3354
                  '</td>'
3355
                  '<td class="titleTableDescr">'
3356
                    l_rowtype
3357
                  '</td>'
3358
                '</tr>'
3359
              '</table>'
3360
            '</td>'
3361
          '</tr>'
3362
        '</table>'
3363
      '</form>'
3364
      INTO ls_html.
3365
  APPEND ls_html TO ct_html.
3366
 
3367
  PERFORM html_add_div_end
3368
    CHANGING
3369
      ct_html.
3370
 
3371
ENDFORM.                    "html_add_line_type_2
3372
 
3373
 
3374
*-----------------------------------------------------------------------
3375
* form: html_add_meta
3376
*-----------------------------------------------------------------------
3377
FORM html_add_meta
3378
        CHANGING
3379
          ct_html TYPE it_string.
3380
 
3381
  DATA:
3382
    l_laiso TYPE laiso,
3383
    l_sptxt TYPE sptxt,
3384
    ls_html TYPE string.
3385
 
3386
  PERFORM get_spras USING sy-langu l_laiso l_sptxt.
3387
 
3388
* charset
3389
  APPEND '<meta charset="iso-8859-1"/>' TO ct_html.
3390
* application-name
3391
  APPEND '<meta name="application-name" content="SoftCopy"/>'
3392
    TO ct_html.
3393
* author
3394
  APPEND '<meta name="author" content="Ruediger von Creytz"/>'
3395
    TO ct_html.
3396
* copyright
3397
  APPEND '<meta name="copyright" content="globalBIT, LLC"/>'
3398
    TO ct_html.
3399
* date
3400
  CONCATENATE
3401
    '<meta name="date" content="'
3402
    sy-datum+0(4) '-' sy-datum+4(2) '-' sy-datum+6(2) '">'
3403
    INTO ls_html.
3404
  APPEND ls_html TO ct_html.
3405
* generator
3406
  CONCATENATE
3407
    '<meta name="generator" content="SoftCopy.' gc_version '"/>'
3408
    INTO ls_html.
3409
  APPEND ls_html TO ct_html.
3410
* language
3411
  CONCATENATE
3412
    '<meta name="language" content="' l_laiso '"/>'
3413
    INTO ls_html.
3414
  APPEND ls_html TO ct_html.
3415
* rights
3416
  APPEND '<meta name="rights" content="globalBIT, LLC"/>'
3417
    TO ct_html.
3418
 
3419
ENDFORM.                    "html_add_meta
3420
 
3421
 
3422
*-----------------------------------------------------------------------
3423
* form: html_add_methodNoDiv
3424
*-----------------------------------------------------------------------
3425
FORM html_add_methodnodiv
3426
        USING
3427
          value(i_cpdname)
3428
          value(i_active)
3429
          value(i_text_method)
3430
          i_table TYPE string
3431
          it_table TYPE ANY TABLE
3432
          it_table_ext TYPE ANY TABLE
3433
          it_source TYPE it_string
3434
          value(i_filename)
3435
          value(i_filename_no_includes)
3436
          value(i_filename_compressed)
3437
          value(i_extension)
3438
          value(i_id)
3439
        CHANGING
3440
          ct_html TYPE it_string.
3441
 
3442
  DATA:
3443
  ls_html TYPE string,
3444
  l_id_sc TYPE string.
3445
 
3446
  CONCATENATE
3447
    '<table class="titleTable">'
3448
      '<tr>'
3449
        '<td>'
3450
    INTO ls_html.
3451
  APPEND ls_html TO ct_html.
3452
 
3453
  PERFORM html_add_tablenodiv
3454
    USING
3455
      i_table
3456
      it_table
3457
      it_table_ext
3458
    CHANGING
3459
      ct_html.
3460
 
3461
  CONCATENATE
3462
        '</td>'
3463
      '</tr>'
3464
      '<tr>'
3465
        '<td style="padding-bottom:2px;padding-top:5px">'
3466
          '<table class="titleTable">'
3467
            '<tr>'
3468
              '<td class="titleTableText">' i_text_method '</td>'
3469
              '<td class="titleTableDescr">' i_cpdname '</td>'
3470
              '<td>' i_active '</td>'
3471
              '<td>&#160;</td>'
3472
            '</tr>'
3473
          '</table>'
3474
        '</td>'
3475
      '</tr>'
3476
      '<tr>'
3477
        '<td>'
3478
    INTO ls_html.
3479
  APPEND ls_html TO ct_html.
3480
 
3481
  PERFORM get_id
3482
    USING i_id 'SC'
3483
    CHANGING l_id_sc.
3484
  PERFORM html_add_sourcecodenodiv
3485
    USING
3486
      it_source
3487
      i_filename
3488
      i_filename_no_includes
3489
      i_filename_compressed
3490
      i_extension
3491
      l_id_sc
3492
    CHANGING
3493
      ct_html.
3494
 
3495
  CONCATENATE
3496
        '</td>'
3497
      '</tr>'
3498
    '</table>'
3499
    INTO ls_html.
3500
  APPEND ls_html TO ct_html.
3501
 
3502
ENDFORM.                    "html_add_methodNoDiv
3503
 
3504
 
3505
*-----------------------------------------------------------------------
3506
* form: html_add_properties
3507
*-----------------------------------------------------------------------
3508
FORM html_add_properties
3509
        USING
3510
          is_properties TYPE st_properties
3511
          it_ti TYPE it_textinput
3512
          i_typegroup_table TYPE string
3513
          it_typegroup TYPE ANY TABLE
3514
          value(i_id)
3515
          value(i_on)
3516
        CHANGING
3517
          ct_html TYPE it_string.
3518
 
3519
  DATA:
3520
  ls_html TYPE string,
3521
  l_superclass TYPE char255,
3522
  l_check_model_inh TYPE flag,
3523
  l_description TYPE char255,
3524
  l_creatable TYPE char255,
3525
  l_clsfinal TYPE flag,
3526
  l_checked TYPE string.
3527
 
3528
  WRITE is_properties-superclass TO l_superclass.
3529
  WRITE is_properties-check_model_inh TO l_check_model_inh.
3530
  WRITE is_properties-descript TO l_description.
3531
  WRITE is_properties-creatable TO l_creatable.
3532
  WRITE is_properties-clsfinal TO l_clsfinal.
3533
 
3534
  PERFORM html_add_div_begin
3535
    USING
3536
      i_id
3537
      i_on
3538
    CHANGING
3539
      ct_html.
3540
 
3541
  CONCATENATE
3542
      '<table class="titleTable">'
3543
        '<tr>'
3544
          '<td>'
3545
            '<table class="titleTable">'
3546
      INTO ls_html.
3547
  APPEND ls_html TO ct_html.
3548
 
3549
  IF NOT l_superclass IS INITIAL.
3550
    CLEAR l_checked.
3551
    IF l_check_model_inh = abap_true.
3552
      l_checked = ' checked="checked"'.
3553
    ENDIF.
3554
    CONCATENATE
3555
              '<tr>'
3556
                '<td class="titleTableText">' txt_superclass '</td>'
3557
                '<td class="titleTableDescr" colspan="2">'
3558
                  l_superclass
3559
                '</td>'
3560
                '<td colspan="2">'
3561
                  '<table>'
3562
                    '<tr>'
3563
                      '<td>'
3564
                        '<input class="innerTableFlag"'
3565
                        l_checked
3566
                        ' disabled="disabled" type="checkbox"'
3567
                        ' value="' l_check_model_inh '"/>'
3568
                      '</td>'
3569
                      '<td>' txt_modeled_only '</td>'
3570
                    '</tr>'
3571
                  '</table>'
3572
                '</td>'
3573
              '</tr>'
3574
        INTO ls_html.
3575
    APPEND ls_html TO ct_html.
3576
  ENDIF.
3577
  IF NOT l_description IS INITIAL.
3578
    CONCATENATE
3579
              '<tr>'
3580
                '<td class="titleTableText">' txt_description '</td>'
3581
                '<td class="titleTableDescr" colspan="3">'
3582
                  l_description
3583
                '</td>'
3584
                '<td>&#160;</td>'
3585
              '</tr>'
3586
        INTO ls_html.
3587
    APPEND ls_html TO ct_html.
3588
  ENDIF.
3589
  IF NOT l_creatable IS INITIAL.
3590
    IF l_clsfinal = abap_true.
3591
      l_checked = ' checked="checked"'.
3592
    ENDIF.
3593
    CONCATENATE
3594
              '<tr>'
3595
                '<td class="titleTableText">' txt_instantiation '</td>'
3596
                '<td class="titleTableDescr">'
3597
                  l_creatable
3598
                '</td>'
3599
                '<td colspan="3">&#160;</td>'
3600
              '</tr>'
3601
              '<tr>'
3602
                '<td colspan="5">'
3603
                  '<table>'
3604
                    '<tr>'
3605
                      '<td>'
3606
                        '<input class="innerTableFlag"'
3607
                        l_checked
3608
                        ' disabled="disabled" type="checkbox"'
3609
                        ' value="' l_clsfinal '"/>'
3610
                      '</td>'
3611
                      '<td>' txt_final '</td>'
3612
                    '</tr>'
3613
                  '</table>'
3614
                '</td>'
3615
              '</tr>'
3616
        INTO ls_html.
3617
    APPEND ls_html TO ct_html.
3618
  ENDIF.
3619
  CONCATENATE
3620
            '</table>'
3621
          '</td>'
3622
          '<td rowspan="2">'
3623
            '<table border="0" cellpadding="0" cellspacing="0"'
3624
            ' class="container">'
3625
              '<tr>'
3626
                '<td class="containerTitle">'
3627
                  txt_forward_declarations
3628
                '</td>'
3629
              '</tr>'
3630
              '<tr>'
3631
                '<td class="containerContent">'
3632
      INTO ls_html.
3633
  APPEND ls_html TO ct_html.
3634
 
3635
  PERFORM html_add_tablenodiv
3636
    USING
3637
      i_typegroup_table
3638
      it_typegroup
3639
      it_typegroup
3640
    CHANGING
3641
      ct_html.
3642
 
3643
  CONCATENATE
3644
                '</td>'
3645
              '</tr>'
3646
            '</table>'
3647
          '</td>'
3648
        '</tr>'
3649
        '<tr>'
3650
          '<td>'
3651
      INTO ls_html.
3652
  APPEND ls_html TO ct_html.
3653
 
3654
  PERFORM html_add_box_textinputnodiv
3655
    USING
3656
      txt_general_data
3657
      it_ti
3658
    CHANGING
3659
      ct_html.
3660
 
3661
  CONCATENATE
3662
          '</td>'
3663
        '</tr>'
3664
      '</table>'
3665
      INTO ls_html.
3666
  APPEND ls_html TO ct_html.
3667
 
3668
  PERFORM html_add_div_end
3669
    CHANGING
3670
      ct_html.
3671
 
3672
ENDFORM.                    "html_add_properties
3673
 
3674
 
3675
*-----------------------------------------------------------------------
3676
* form: html_add_properties_o2
3677
*-----------------------------------------------------------------------
3678
FORM html_add_properties_o2
3679
  USING
3680
    it_header TYPE it_textinput
3681
    i_page_type_title TYPE string
3682
    it_page_type_rb TYPE it_access
3683
    it_page_type_ti TYPE it_textinput
3684
    i_error_title TYPE string
3685
    it_error TYPE it_textinput
3686
    i_status_title TYPE string
3687
    it_status_rb TYPE it_access
3688
    it_status_ti TYPE it_textinput
3689
    i_cache_title TYPE string
3690
    it_cache_li TYPE it_textinput
3691
    it_cache_re TYPE it_textinput
3692
    i_transfer_title TYPE string
3693
    it_transfer_li TYPE it_textinput
3694
    it_transfer_re TYPE it_textinput
3695
    it_footer TYPE it_textinput
3696
    value(i_id)
3697
    value(i_on)
3698
  CHANGING
3699
    ct_html TYPE it_string.
3700
 
3701
  DATA:
3702
  ls_html TYPE string.
3703
 
3704
  PERFORM html_add_div_begin
3705
    USING
3706
      i_id
3707
      i_on
3708
    CHANGING
3709
      ct_html.
3710
 
3711
  APPEND '<table class="titleTable">' TO ct_html.
3712
 
3713
* Header
3714
  IF NOT it_header IS INITIAL.
3715
    CONCATENATE
3716
          '<tr>'
3717
            '<td>'
3718
        INTO ls_html.
3719
    APPEND ls_html TO ct_html.
3720
    PERFORM html_add_textinputnodiv
3721
      USING it_header
3722
      CHANGING ct_html.
3723
    CONCATENATE
3724
            '</td>'
3725
          '</tr>'
3726
        INTO ls_html.
3727
    APPEND ls_html TO ct_html.
3728
  ENDIF.
3729
 
3730
* Page Type
3731
  IF NOT it_page_type_rb IS INITIAL
3732
  AND NOT it_page_type_ti IS INITIAL.
3733
    CONCATENATE
3734
          '<tr>'
3735
            '<td>'
3736
        INTO ls_html.
3737
    APPEND ls_html TO ct_html.
3738
    PERFORM html_add_box1rb_1tihornodiv
3739
      USING i_page_type_title it_page_type_rb it_page_type_ti
3740
      CHANGING ct_html.
3741
    CONCATENATE
3742
            '</td>'
3743
          '</tr>'
3744
        INTO ls_html.
3745
    APPEND ls_html TO ct_html.
3746
  ENDIF.
3747
 
3748
* Error Handling
3749
  IF NOT it_error IS INITIAL.
3750
    CONCATENATE
3751
          '<tr>'
3752
            '<td>'
3753
        INTO ls_html.
3754
    APPEND ls_html TO ct_html.
3755
    PERFORM html_add_box_textinputnodiv
3756
      USING i_error_title it_error
3757
      CHANGING ct_html.
3758
    CONCATENATE
3759
            '</td>'
3760
          '</tr>'
3761
        INTO ls_html.
3762
    APPEND ls_html TO ct_html.
3763
  ENDIF.
3764
 
3765
* Status
3766
  IF NOT it_status_ti IS INITIAL AND NOT it_status_rb IS INITIAL.
3767
    CONCATENATE
3768
          '<tr>'
3769
            '<td>'
3770
        INTO ls_html.
3771
    APPEND ls_html TO ct_html.
3772
    PERFORM html_add_box1rb_1tivernodiv
3773
      USING i_status_title it_status_rb it_status_ti
3774
      CHANGING ct_html.
3775
    CONCATENATE
3776
            '</td>'
3777
          '</tr>'
3778
        INTO ls_html.
3779
    APPEND ls_html TO ct_html.
3780
  ENDIF.
3781
 
3782
* Cache
3783
  IF NOT it_cache_li IS INITIAL AND NOT it_cache_re IS INITIAL.
3784
    CONCATENATE
3785
          '<tr>'
3786
            '<td>'
3787
        INTO ls_html.
3788
    APPEND ls_html TO ct_html.
3789
    PERFORM html_add_box_textinputdblnodiv
3790
      USING i_cache_title it_cache_li it_cache_re
3791
      CHANGING ct_html.
3792
    CONCATENATE
3793
            '</td>'
3794
          '</tr>'
3795
        INTO ls_html.
3796
    APPEND ls_html TO ct_html.
3797
  ENDIF.
3798
 
3799
* Transfer Options
3800
  IF NOT it_transfer_li IS INITIAL
3801
  AND NOT it_transfer_re IS INITIAL.
3802
    CONCATENATE
3803
          '<tr>'
3804
            '<td>'
3805
        INTO ls_html.
3806
    APPEND ls_html TO ct_html.
3807
    PERFORM html_add_box_textinputdblnodiv
3808
      USING i_transfer_title it_transfer_li it_transfer_re
3809
      CHANGING ct_html.
3810
    CONCATENATE
3811
            '</td>'
3812
          '</tr>'
3813
        INTO ls_html.
3814
    APPEND ls_html TO ct_html.
3815
  ENDIF.
3816
 
3817
* Footer
3818
  IF NOT it_footer IS INITIAL.
3819
    CONCATENATE
3820
          '<tr>'
3821
            '<td>'
3822
        INTO ls_html.
3823
    APPEND ls_html TO ct_html.
3824
    PERFORM html_add_textinputnodiv
3825
      USING it_footer
3826
      CHANGING ct_html.
3827
    CONCATENATE
3828
            '</td>'
3829
          '</tr>'
3830
        INTO ls_html.
3831
    APPEND ls_html TO ct_html.
3832
  ENDIF.
3833
 
3834
*
3835
  APPEND '</table>' TO ct_html.
3836
 
3837
  PERFORM html_add_div_end
3838
    CHANGING
3839
      ct_html.
3840
 
3841
ENDFORM.                    "html_add_properties_o2
3842
 
3843
 
3844
*-----------------------------------------------------------------------
3845
* form: html_add_radioButtonsNoDiv
3846
*-----------------------------------------------------------------------
3847
FORM html_add_radiobuttonsnodiv
3848
  USING
3849
    value(i_name)
3850
    it_accessmode TYPE it_access
3851
  CHANGING
3852
    ct_html TYPE it_string.
3853
 
3854
  DATA:
3855
  l_first_row TYPE flag VALUE abap_true,
3856
  ls_html TYPE string,
3857
  l_colspan TYPE n,
3858
  l_name TYPE string,
3859
  l_ddtext TYPE char255,
3860
  l_tabix TYPE string.
3861
 
3862
  FIELD-SYMBOLS:
3863
  <ls_access> TYPE st_access.
3864
 
3865
  APPEND '<table class="titleTable">' TO ct_html.
3866
 
3867
  LOOP AT it_accessmode ASSIGNING <ls_access>.
3868
    l_tabix = sy-tabix.
3869
    CONDENSE l_tabix.
3870
    WRITE <ls_access>-ddtext TO l_ddtext.
3871
    APPEND '<tr>' TO ct_html.
3872
    IF <ls_access>-sub IS INITIAL.
3873
      l_colspan = 2.
3874
    ELSE.
3875
      l_colspan = 1.
3876
      APPEND '<td>&#160;</td>' TO ct_html.
3877
    ENDIF.
3878
    CONCATENATE
3879
                '<td>'
3880
                  '<input '
3881
        INTO ls_html.
3882
    IF <ls_access>-checked = abap_true.
3883
      CONCATENATE ls_html ' checked="checked"' INTO ls_html.
3884
    ENDIF.
3885
 
3886
    CONCATENATE i_name <ls_access>-sub INTO l_name.
3887
    CONCATENATE
3888
                  ls_html
3889
                  ' class="radio"'
3890
                  ' disabled="disabled" name="' l_name '"'
3891
                  ' type="radio"'
3892
                  ' value="' <ls_access>-sub 'x' l_tabix '"/>'
3893
                '</td>'
3894
                '<td colspan="' l_colspan '">'
3895
                  '<span>' l_ddtext '</span>'
3896
                '</td>'
3897
              '</tr>'
3898
        INTO ls_html.
3899
    APPEND ls_html TO ct_html.
3900
  ENDLOOP.
3901
 
3902
  APPEND '</table>' TO ct_html.
3903
 
3904
ENDFORM.                    "html_add_radioButtonsNoDiv
3905
 
3906
 
3907
*-----------------------------------------------------------------------
3908
* form: html_add_sourceCode
3909
*-----------------------------------------------------------------------
3910
FORM html_add_sourcecode
3911
  USING
3912
    it_source TYPE it_string
3913
    value(i_filename)
3914
    value(i_filename_no_includes)
3915
    value(i_filename_compressed)
3916
    value(i_extension)
3917
    value(i_id)
3918
    value(i_on) TYPE flag
3919
  CHANGING
3920
    ct_html TYPE it_string.
3921
 
3922
  PERFORM html_add_div_begin
3923
    USING
3924
      i_id
3925
      i_on
3926
    CHANGING
3927
      ct_html.
3928
  PERFORM html_add_sourcecodenodiv
3929
    USING
3930
      it_source
3931
      i_filename
3932
      i_filename_no_includes
3933
      i_filename_compressed
3934
      i_extension
3935
      i_id
3936
    CHANGING
3937
      ct_html.
3938
  PERFORM html_add_div_end
3939
    CHANGING
3940
      ct_html.
3941
 
3942
ENDFORM.                    "html_add_sourceCode
3943
 
3944
 
3945
*-----------------------------------------------------------------------
3946
* form: html_add_sourceCodeNoDiv
3947
*-----------------------------------------------------------------------
3948
FORM html_add_sourcecodenodiv
3949
  USING
3950
    it_source TYPE it_string
3951
    value(i_filename)
3952
    value(i_filename_no_includes)
3953
    value(i_filename_compressed)
3954
    value(i_extension)
3955
    value(i_id)
3956
  CHANGING
3957
    ct_html TYPE it_string.
3958
 
3959
  DATA:
3960
  l_style TYPE string,
3961
  l_source TYPE string,
3962
  ls_html TYPE string,
3963
  l_tabix TYPE string,
3964
  lt_filename TYPE it_string,
3965
  l_filename TYPE string,
3966
  l_filename_no_includes TYPE string,
3967
  l_filename_compressed TYPE string,
3968
  l_strlen TYPE i.
3969
 
3970
  FIELD-SYMBOLS:
3971
  <ls_source> TYPE string.
3972
 
3973
  SPLIT i_filename AT '/' INTO TABLE lt_filename.
3974
  LOOP AT lt_filename INTO l_filename.
3975
  ENDLOOP.
3976
  PERFORM replace_all
3977
    USING '<' '-'
3978
    CHANGING l_filename.
3979
  PERFORM replace_all
3980
    USING '>' '-'
3981
    CHANGING l_filename.
3982
 
3983
  SPLIT i_filename_no_includes AT '/' INTO TABLE lt_filename.
3984
  LOOP AT lt_filename INTO l_filename_no_includes.
3985
  ENDLOOP.
3986
  PERFORM replace_all
3987
    USING '<' '-'
3988
    CHANGING l_filename_no_includes.
3989
  PERFORM replace_all
3990
    USING '>' '-'
3991
    CHANGING l_filename_no_includes.
3992
 
3993
  SPLIT i_filename_compressed AT '/' INTO TABLE lt_filename.
3994
  LOOP AT lt_filename INTO l_filename_compressed.
3995
  ENDLOOP.
3996
  PERFORM replace_all
3997
    USING '<' '-'
3998
    CHANGING l_filename_compressed.
3999
  PERFORM replace_all
4000
    USING '>' '-'
4001
    CHANGING l_filename_compressed.
4002
 
4003
  APPEND '<table class="scrollTable">' TO ct_html.
4004
  IF NOT l_filename IS INITIAL AND NOT i_extension IS INITIAL.
4005
    CONCATENATE
4006
        '<tr>'
4007
          '<td style="border-spacing:0px;margin-right:1em;'
4008
          'padding:0px;text-align:right">'
4009
            '<table class="titleTable">'
4010
              '<tr>'
4011
                '<td class="button">'
4012
                  '<a href="' l_filename '.' i_extension '"'
4013
                  ' onclick="window.open(this.href); return false">'
4014
                    i_extension
4015
                  '</a>'
4016
                '</td>'
4017
        INTO ls_html.
4018
    APPEND ls_html TO ct_html.
4019
    IF NOT l_filename_no_includes IS INITIAL.
4020
      CONCATENATE
4021
                '<td>&#160;</td>'
4022
                '<td class="button">'
4023
                  '<a href="' l_filename_no_includes '.' i_extension '"'
4024
                  ' onclick="window.open(this.href); return false">'
4025
                    txt_complete '.' i_extension
4026
                  '</a>'
4027
                '</td>'
4028
          INTO ls_html.
4029
      APPEND ls_html TO ct_html.
4030
    ENDIF.
4031
 
4032
    IF NOT l_filename_compressed IS INITIAL.
4033
      CONCATENATE
4034
                '<td>&#160;</td>'
4035
                '<td class="button">'
4036
                  '<a href="' l_filename_compressed '.' i_extension '"'
4037
                  ' onclick="window.open(this.href); return false">'
4038
                    txt_compressed '.' i_extension
4039
                  '</a>'
4040
                '</td>'
4041
          INTO ls_html.
4042
      APPEND ls_html TO ct_html.
4043
    ENDIF.
4044
 
4045
    CONCATENATE
4046
              '</tr>'
4047
            '</table>'
4048
          '</td>'
4049
        '</tr>'
4050
        INTO ls_html.
4051
    APPEND ls_html TO ct_html.
4052
  ENDIF.
4053
  CONCATENATE
4054
        '<tr>'
4055
          '<td style="border-spacing:0px;padding:0px">'
4056
            '<div id="' i_id 'scroll" class="scrollDiv">'
4057
              '<table class="src">'
4058
      INTO ls_html.
4059
  APPEND ls_html TO ct_html.
4060
 
4061
  LOOP AT it_source ASSIGNING <ls_source>.
4062
    l_tabix = sy-tabix.
4063
    CONDENSE l_tabix.
4064
    l_style = 'srcLine'.
4065
    l_strlen = strlen( <ls_source> ).
4066
    IF l_strlen > 1 AND <ls_source>(1) = '*'.
4067
      l_style = 'srcLineComment'.
4068
    ENDIF.
4069
    l_source = <ls_source>.
4070
    PERFORM encode_html_force CHANGING l_source.
4071
    IF l_source IS INITIAL.
4072
      l_source = '&#160;'.
4073
    ENDIF.
4074
    CONCATENATE
4075
                '<tr>'
4076
                  '<td class="srcLineNumber">'
4077
                    '<pre>' l_tabix '</pre>'
4078
                  '</td>'
4079
                  '<td class="' l_style '">'
4080
                    '<pre>' l_source '</pre>'
4081
                  '</td>'
4082
                '</tr>'
4083
        INTO ls_html.
4084
    APPEND ls_html TO ct_html.
4085
  ENDLOOP.
4086
 
4087
  CONCATENATE
4088
              '</table>'
4089
            '</div>'
4090
          '</td>'
4091
        '</tr>'
4092
      '</table>'
4093
      INTO ls_html.
4094
  APPEND ls_html TO ct_html.
4095
 
4096
ENDFORM.                    "html_add_sourceCodeNoDiv
4097
 
4098
 
4099
*-----------------------------------------------------------------------
4100
* form: html_add_table
4101
*-----------------------------------------------------------------------
4102
FORM html_add_table
4103
  USING
4104
    i_table TYPE string
4105
    it_content TYPE ANY TABLE
4106
    it_content_ext TYPE ANY TABLE
4107
    value(i_id)
4108
    value(i_on)
4109
  CHANGING
4110
    ct_html TYPE it_string.
4111
 
4112
  DATA:
4113
  ls_html TYPE string.
4114
 
4115
  PERFORM html_add_div_begin
4116
    USING
4117
      i_id
4118
      i_on
4119
    CHANGING
4120
      ct_html.
4121
  PERFORM html_add_tablenodiv
4122
    USING
4123
      i_table
4124
      it_content
4125
      it_content_ext
4126
    CHANGING
4127
      ct_html.
4128
  PERFORM html_add_div_end
4129
    CHANGING
4130
      ct_html.
4131
 
4132
ENDFORM.                    "html_add_table
4133
 
4134
 
4135
*-----------------------------------------------------------------------
4136
* form: html_add_table2hor
4137
*-----------------------------------------------------------------------
4138
FORM html_add_table2hor
4139
  USING
4140
    i_table_l TYPE string
4141
    it_content_l TYPE ANY TABLE
4142
    it_content_ext_l TYPE ANY TABLE
4143
    i_table_r TYPE string
4144
    it_content_r TYPE ANY TABLE
4145
    it_content_ext_r TYPE ANY TABLE
4146
    value(i_id)
4147
    value(i_on)
4148
  CHANGING
4149
    ct_html TYPE it_string.
4150
 
4151
  DATA:
4152
  ls_html TYPE string.
4153
 
4154
  PERFORM html_add_div_begin
4155
    USING
4156
      i_id
4157
      i_on
4158
    CHANGING
4159
      ct_html.
4160
 
4161
  CONCATENATE
4162
      '<table>'
4163
        '<tr>'
4164
          '<td style="vertical-align:top">'
4165
      INTO ls_html.
4166
  APPEND ls_html TO ct_html.
4167
 
4168
  PERFORM html_add_tablenodiv
4169
    USING
4170
      i_table_l
4171
      it_content_l
4172
      it_content_ext_l
4173
    CHANGING
4174
      ct_html.
4175
 
4176
  APPEND '</td><td>&#160;</td><td style="vertical-align:top">'
4177
      TO ct_html.
4178
 
4179
  PERFORM html_add_tablenodiv
4180
    USING
4181
      i_table_r
4182
      it_content_r
4183
      it_content_ext_r
4184
    CHANGING
4185
      ct_html.
4186
 
4187
  APPEND '</td></tr></table>' TO ct_html.
4188
 
4189
  PERFORM html_add_div_end
4190
    CHANGING
4191
      ct_html.
4192
 
4193
ENDFORM.                    "html_add_table2hor
4194
 
4195
 
4196
*-----------------------------------------------------------------------
4197
* form: html_add_table2ver
4198
*-----------------------------------------------------------------------
4199
FORM html_add_table2ver
4200
  USING
4201
    i_table_o TYPE string
4202
    it_content_o TYPE ANY TABLE
4203
    it_content_ext_o TYPE ANY TABLE
4204
    i_table_u TYPE string
4205
    it_content_u TYPE ANY TABLE
4206
    it_content_ext_u TYPE ANY TABLE
4207
    value(i_id)
4208
    value(i_on)
4209
  CHANGING
4210
    ct_html TYPE it_string.
4211
 
4212
  DATA:
4213
  ls_html TYPE string.
4214
 
4215
  PERFORM html_add_div_begin
4216
    USING
4217
      i_id
4218
      i_on
4219
    CHANGING
4220
      ct_html.
4221
 
4222
  CONCATENATE
4223
      '<table>'
4224
        '<tr>'
4225
          '<td>'
4226
      INTO ls_html.
4227
  APPEND ls_html TO ct_html.
4228
 
4229
  PERFORM html_add_tablenodiv
4230
    USING
4231
      i_table_o
4232
      it_content_o
4233
      it_content_ext_o
4234
    CHANGING
4235
      ct_html.
4236
 
4237
  CONCATENATE
4238
          '</td>'
4239
        '</tr>'
4240
        '<tr>'
4241
          '<td>&#160;</td>'
4242
        '</tr>'
4243
        '<tr>'
4244
          '<td>'
4245
      INTO ls_html.
4246
  APPEND ls_html TO ct_html.
4247
 
4248
  PERFORM html_add_tablenodiv
4249
    USING
4250
      i_table_u
4251
      it_content_u
4252
      it_content_ext_u
4253
    CHANGING
4254
      ct_html.
4255
 
4256
  APPEND '</td></tr></table>' TO ct_html.
4257
 
4258
  PERFORM html_add_div_end
4259
    CHANGING
4260
      ct_html.
4261
 
4262
ENDFORM.                    "html_add_table2ver
4263
 
4264
 
4265
*-----------------------------------------------------------------------
4266
* form: html_add_tableMaintGenerator
4267
*-----------------------------------------------------------------------
4268
FORM html_add_tablemaintgenerator
4269
  USING
4270
    value(i_tdd_title)
4271
    it_tdd_textinput TYPE it_textinput
4272
    value(i_tdd_subtitle)
4273
    value(i_tdd_step) TYPE c
4274
    value(i_tdd_overview_screen)
4275
    value(i_tdd_single_screen)
4276
    value(i_ddtd_title)
4277
    value(i_ddtd_recording) TYPE flag
4278
    value(i_ddtd_compare_flag) TYPE string
4279
    value(i_id)
4280
    value(i_on)
4281
  CHANGING
4282
    ct_html TYPE it_string.
4283
 
4284
  DATA:
4285
  ls_html TYPE string.
4286
 
4287
  PERFORM html_add_div_begin
4288
    USING
4289
      i_id
4290
      i_on
4291
    CHANGING
4292
      ct_html.
4293
 
4294
  CONCATENATE
4295
      '<table>'
4296
        '<tr>'
4297
          '<td>'
4298
      INTO ls_html.
4299
  APPEND ls_html TO ct_html.
4300
 
4301
  PERFORM html_add_box1ti_subboxmsnodiv
4302
    USING
4303
      i_tdd_title
4304
      it_tdd_textinput
4305
      i_tdd_subtitle
4306
      i_tdd_step
4307
      i_tdd_overview_screen
4308
      i_tdd_single_screen
4309
    CHANGING
4310
      ct_html.
4311
 
4312
  CONCATENATE
4313
          '</td>'
4314
        '</tr>'
4315
        '<tr>'
4316
          '<td>&#160;</td>'
4317
        '</tr>'
4318
        '<tr>'
4319
          '<td>'
4320
      INTO ls_html.
4321
  APPEND ls_html TO ct_html.
4322
 
4323
  PERFORM html_add_box_data_transport
4324
    USING
4325
      i_ddtd_title
4326
      i_ddtd_recording
4327
      i_ddtd_compare_flag
4328
    CHANGING
4329
      ct_html.
4330
 
4331
  APPEND '</td></tr></table>' TO ct_html.
4332
 
4333
  PERFORM html_add_div_end
4334
    CHANGING
4335
      ct_html.
4336
 
4337
ENDFORM.                    "html_add_tableMaintGenerator
4338
 
4339
 
4340
*-----------------------------------------------------------------------
4341
* form: html_add_tableNoDiv
4342
*-----------------------------------------------------------------------
4343
FORM html_add_tablenodiv
4344
  USING
4345
    i_table TYPE string
4346
    it_content TYPE ANY TABLE
4347
    it_content_ext TYPE ANY TABLE
4348
  CHANGING
4349
    ct_html TYPE it_string.
4350
 
4351
  DATA:
4352
  l_tabid TYPE string,
4353
  l_tabcomp TYPE string,
4354
  l_txt TYPE char255,
4355
  l_text TYPE string,
4356
  l_link TYPE char255,
4357
  l_colored TYPE flag,
4358
  l_class TYPE string,
4359
  ls_html TYPE string,
4360
  l_align TYPE string,
4361
  l_tabix TYPE sytabix,
4362
  l_int TYPE i,
4363
  l_checked TYPE string,
4364
  l_title TYPE string.
4365
 
4366
  FIELD-SYMBOLS:
4367
  <ls_tabdef> TYPE st_table_structure,
4368
  <ls_content> TYPE ANY,
4369
  <ls_content_ext> TYPE ANY,
4370
  <l_value> TYPE ANY,
4371
  <l_link> TYPE ANY,
4372
  <l_colored> TYPE ANY.
4373
 
4374
  SPLIT i_table AT '|' INTO l_tabid l_tabcomp.
4375
 
4376
  CONCATENATE
4377
      '<table border="0" cellpadding="0" cellspacing="0"'
4378
      ' class="innerTable">'
4379
        '<tr>'
4380
      INTO ls_html.
4381
  APPEND ls_html TO ct_html.
4382
 
4383
*title row
4384
  LOOP AT gt_table_structure ASSIGNING <ls_tabdef>
4385
      WHERE id = l_tabid.
4386
    CASE <ls_tabdef>-comparator.
4387
      WHEN 'CO'.
4388
        IF NOT l_tabcomp CO <ls_tabdef>-comp_value.
4389
          CONTINUE.
4390
        ENDIF.
4391
    ENDCASE.
4392
    l_title = <ls_tabdef>-title.
4393
    PERFORM encode_html CHANGING l_title.
4394
    IF l_title IS INITIAL.
4395
      l_title = '&#160;'.
4396
    ENDIF.
4397
    CONCATENATE
4398
          '<th class="innerTableTH">' l_title '</th>'
4399
        INTO ls_html.
4400
    APPEND ls_html TO ct_html.
4401
  ENDLOOP.
4402
  APPEND '</tr>' TO ct_html.
4403
 
4404
*content rows
4405
  LOOP AT it_content ASSIGNING <ls_content>.
4406
    l_tabix = sy-tabix.
4407
    LOOP AT it_content_ext ASSIGNING <ls_content_ext>.
4408
      IF sy-tabix = l_tabix.
4409
        EXIT.
4410
      ENDIF.
4411
    ENDLOOP.
4412
 
4413
    APPEND '<tr>' TO ct_html.
4414
 
4415
    LOOP AT gt_table_structure ASSIGNING <ls_tabdef>
4416
        WHERE id = l_tabid.
4417
      CASE <ls_tabdef>-comparator.
4418
        WHEN 'CO'.
4419
          IF NOT l_tabcomp CO <ls_tabdef>-comp_value.
4420
            CONTINUE.
4421
          ENDIF.
4422
      ENDCASE.
4423
      CLEAR l_txt.
4424
      CLEAR l_text.
4425
      ASSIGN COMPONENT <ls_tabdef>-fieldname
4426
          OF STRUCTURE <ls_content> TO <l_value>.
4427
      IF NOT <l_value> IS ASSIGNED.
4428
        ASSIGN COMPONENT <ls_tabdef>-fieldname
4429
            OF STRUCTURE <ls_content_ext> TO <l_value>.
4430
      ENDIF.
4431
      IF <l_value> IS ASSIGNED.
4432
        WRITE <l_value> TO l_txt.
4433
        UNASSIGN <l_value>.
4434
      ENDIF.
4435
      l_text = l_txt.
4436
      PERFORM encode_html CHANGING l_text.
4437
 
4438
      CLEAR l_link.
4439
      IF NOT <ls_tabdef>-link_row IS INITIAL.
4440
        ASSIGN COMPONENT <ls_tabdef>-link_row
4441
            OF STRUCTURE <ls_content> TO <l_link>.
4442
        IF NOT <l_link> IS ASSIGNED.
4443
          ASSIGN COMPONENT <ls_tabdef>-link_row
4444
              OF STRUCTURE <ls_content_ext> TO <l_link>.
4445
        ENDIF.
4446
        IF <l_link> IS ASSIGNED.
4447
          WRITE <l_link> TO l_link.
4448
          UNASSIGN <l_link>.
4449
        ENDIF.
4450
      ENDIF.
4451
 
4452
      CLEAR l_colored.
4453
      IF NOT <ls_tabdef>-colored_row IS INITIAL.
4454
        ASSIGN COMPONENT <ls_tabdef>-colored_row
4455
            OF STRUCTURE <ls_content> TO <l_colored>.
4456
        IF NOT <l_colored> IS ASSIGNED.
4457
          ASSIGN COMPONENT <ls_tabdef>-colored_row
4458
              OF STRUCTURE <ls_content_ext> TO <l_colored>.
4459
        ENDIF.
4460
        IF <l_colored> IS ASSIGNED.
4461
          l_colored = <l_colored>.
4462
          UNASSIGN <l_colored>.
4463
        ENDIF.
4464
      ENDIF.
4465
 
4466
      l_align = 'left'.
4467
      CASE <ls_tabdef>-row_def.
4468
        WHEN 'B'.
4469
          l_align = 'center'.
4470
          IF NOT l_text IS INITIAL.
4471
            CONCATENATE
4472
              '<input class="innerTableButton"'
4473
              ' onclick="' l_link '"'
4474
              ' value="' l_text '"/>'
4475
              INTO l_text.
4476
          ENDIF.
4477
        WHEN 'C'.
4478
          l_align = 'center'.
4479
        WHEN 'F'.
4480
          l_align = 'center'.
4481
          CLEAR l_checked.
4482
          IF l_text = abap_undefined.
4483
            l_text = space.
4484
          ELSE.
4485
            IF l_text = abap_true.
4486
              l_checked = ' checked="checked"'.
4487
            ENDIF.
4488
            CONCATENATE
4489
              '<input class="innerTableFlag"'
4490
              l_checked
4491
              ' disabled="disabled" type="checkbox"'
4492
              ' value="' l_text '"/>'
4493
              INTO l_text.
4494
          ENDIF.
4495
        WHEN 'H'.
4496
          l_align = 'left'.
4497
          IF l_colored IS INITIAL.
4498
            l_class = 'tableLink'.
4499
          ELSE.
4500
            l_class = 'tableLinkColored'.
4501
          ENDIF.
4502
          CONCATENATE
4503
            '<a class="' l_class '" href="#"'
4504
            ' onclick="' l_link '">'
4505
            l_text
4506
            '</a>'
4507
            INTO l_text.
4508
        WHEN 'I'.
4509
          l_align = 'right'.
4510
          l_int = l_text.
4511
          l_text = l_int.
4512
          CONDENSE l_text.
4513
        WHEN 'L'.
4514
          l_align = 'left'.
4515
        WHEN 'R'.
4516
          l_align = 'right'.
4517
      ENDCASE.
4518
      IF l_text IS INITIAL.
4519
        l_text = '&#160;'.
4520
      ENDIF.
4521
      IF l_colored IS INITIAL.
4522
        l_class = 'innerTableTD'.
4523
      ELSE.
4524
        l_class = 'innerTableTDColored'.
4525
      ENDIF.
4526
      CONCATENATE
4527
        '<td class="' l_class '"'
4528
        ' style="text-align:' l_align ';vertical-align:middle">'
4529
          l_text
4530
        '</td>'
4531
          INTO ls_html.
4532
      APPEND ls_html TO ct_html.
4533
    ENDLOOP.
4534
    APPEND '</tr>' TO ct_html.
4535
  ENDLOOP.
4536
 
4537
  APPEND '</table>' TO ct_html.
4538
ENDFORM.                    "html_add_tableNoDiv
4539
 
4540
 
4541
*-----------------------------------------------------------------------
4542
* form: html_add_tables
4543
*-----------------------------------------------------------------------
4544
FORM html_add_tables
4545
  USING
4546
    it_tables TYPE it_tables
4547
    value(i_id)
4548
    value(i_on)
4549
  CHANGING
4550
    ct_html TYPE it_string.
4551
 
4552
  DATA:
4553
  ls_html TYPE string,
4554
  ls_tables TYPE st_tables,
4555
  lt_ti TYPE it_textinput,
4556
  ls_ti TYPE st_textinput,
4557
  l_enqmode TYPE char255,
4558
  l_tabname TYPE char255.
4559
 
4560
  FIELD-SYMBOLS:
4561
  <ls_tables> TYPE st_tables.
4562
 
4563
  READ TABLE it_tables INTO ls_tables
4564
      WITH KEY primary = abap_true.
4565
  WRITE ls_tables-enqmode TO l_enqmode.
4566
  WRITE ls_tables-tabname TO l_tabname.
4567
 
4568
  PERFORM html_add_div_begin
4569
    USING
4570
      i_id
4571
      i_on
4572
    CHANGING
4573
      ct_html.
4574
 
4575
  CONCATENATE
4576
      '<table class="titleTable">'
4577
        '<tr>'
4578
          '<td colspan="5">'
4579
      INTO ls_html.
4580
  APPEND ls_html TO ct_html.
4581
 
4582
  REFRESH lt_ti.
4583
  CLEAR ls_ti.
4584
  ls_ti-name = txt_name.
4585
  ls_ti-value = l_tabname.
4586
  ls_ti-input = abap_true.
4587
  APPEND ls_ti TO lt_ti.
4588
  CLEAR ls_ti.
4589
  ls_ti-name = txt_lock_mode.
4590
  ls_ti-value = l_enqmode.
4591
  ls_ti-input = abap_true.
4592
  APPEND ls_ti TO lt_ti.
4593
  PERFORM html_add_box_textinputnodiv
4594
    USING
4595
      txt_primary_table
4596
      lt_ti
4597
    CHANGING
4598
      ct_html.
4599
 
4600
  CONCATENATE
4601
        '<tr><td colspan="5">&#160;</td></tr>'
4602
        '<tr>'
4603
          '<td>'
4604
            '<table border="0" cellpadding="0" cellspacing="0"'
4605
            ' class="box">'
4606
              '<tr class="boxContent">'
4607
                '<td class="boxContent">'
4608
                  '<table class="boxName">'
4609
                    '<tr>'
4610
                      '<td>'
4611
                        '<span>' txt_secondary_tables '</span>'
4612
                      '</td>'
4613
                    '</tr>'
4614
                  '</table>'
4615
                '</td>'
4616
              '</tr>'
4617
              '<tr class="boxContent">'
4618
                '<td class="boxContent">'
4619
                  '<table border="0" cellpadding="0" cellspacing="0"'
4620
                  ' class="innerTable">'
4621
                    '<tr>'
4622
                      '<th class="innerTableTH"'
4623
                      ' style="text-align:left">'
4624
                        txt_name
4625
                      '</th>'
4626
                      '<th class="innerTableTH"'
4627
                      ' style="text-align:left">'
4628
                        txt_lock_mode
4629
                      '</th>'
4630
                    '</tr>'
4631
      INTO ls_html.
4632
  APPEND ls_html TO ct_html.
4633
  LOOP AT it_tables ASSIGNING <ls_tables>
4634
      WHERE primary = abap_false.
4635
    WRITE <ls_tables>-enqmode TO l_enqmode.
4636
    WRITE <ls_tables>-tabname TO l_tabname.
4637
    CONCATENATE
4638
                    '<tr>'
4639
                      '<td class="innerTableTD">' l_tabname '</td>'
4640
                      '<td class="innerTableTD">' l_enqmode '</td>'
4641
                    '</tr>'
4642
        INTO ls_html.
4643
    APPEND ls_html TO ct_html.
4644
  ENDLOOP.
4645
  CONCATENATE
4646
                  '</table>'
4647
                '</td>'
4648
              '</tr>'
4649
            '</table>'
4650
          '</td>'
4651
        '</tr>'
4652
      '</table>'
4653
      INTO ls_html.
4654
  APPEND ls_html TO ct_html.
4655
 
4656
  PERFORM html_add_div_end
4657
    CHANGING
4658
      ct_html.
4659
 
4660
ENDFORM.                    "html_add_tables
4661
 
4662
 
4663
*-----------------------------------------------------------------------
4664
* form: html_add_tech_settings
4665
*-----------------------------------------------------------------------
4666
FORM html_add_tech_settings
4667
  USING
4668
    i_title_params TYPE string
4669
    it_ti_params TYPE it_textinput
4670
    i_title_buffer TYPE string
4671
    it_access_buffer TYPE it_access
4672
    i_title_buffer_type TYPE string
4673
    it_ti_buffer_type_l TYPE it_textinput
4674
    it_ti_buffer_type_r TYPE it_textinput
4675
    it_ti_bottom TYPE it_textinput
4676
    value(i_id)
4677
    value(i_on)
4678
  CHANGING
4679
    ct_html TYPE it_string.
4680
 
4681
  DATA:
4682
  ls_html TYPE string.
4683
 
4684
  PERFORM html_add_div_begin
4685
    USING
4686
      i_id
4687
      i_on
4688
    CHANGING
4689
      ct_html.
4690
 
4691
  CONCATENATE
4692
      '<table>'
4693
        '<tr>'
4694
          '<td>'
4695
      INTO ls_html.
4696
  APPEND ls_html TO ct_html.
4697
 
4698
  PERFORM html_add_box_textinputnodiv
4699
    USING
4700
      i_title_params
4701
      it_ti_params
4702
    CHANGING
4703
      ct_html.
4704
 
4705
  CONCATENATE
4706
          '</td>'
4707
        '</tr>'
4708
        '<tr><td>&#160;</td></tr>'
4709
        '<tr>'
4710
          '<td>'
4711
      INTO ls_html.
4712
  APPEND ls_html TO ct_html.
4713
 
4714
  PERFORM html_add_box1rb_subbox2tinodiv
4715
    USING
4716
      i_title_buffer
4717
      it_access_buffer
4718
      i_title_buffer_type
4719
      it_ti_buffer_type_l
4720
      it_ti_buffer_type_r
4721
    CHANGING
4722
      ct_html.
4723
 
4724
  CONCATENATE
4725
          '</td>'
4726
        '</tr>'
4727
        '<tr><td>&#160;</td></tr>'
4728
        '<tr>'
4729
          '<td>'
4730
      INTO ls_html.
4731
  APPEND ls_html TO ct_html.
4732
 
4733
  PERFORM html_add_textinputnodiv
4734
    USING it_ti_bottom
4735
    CHANGING ct_html.
4736
 
4737
  CONCATENATE
4738
          '</td>'
4739
        '</tr>'
4740
      '</table>'
4741
      INTO ls_html.
4742
  APPEND ls_html TO ct_html.
4743
 
4744
  PERFORM html_add_div_end
4745
    CHANGING
4746
      ct_html.
4747
 
4748
ENDFORM.                    "html_add_tech_settings
4749
 
4750
 
4751
*-----------------------------------------------------------------------
4752
* form: html_add_textInput
4753
*-----------------------------------------------------------------------
4754
FORM html_add_textinput
4755
  USING
4756
    it_ti TYPE it_textinput
4757
    value(i_id)
4758
    value(i_on)
4759
  CHANGING
4760
    ct_html TYPE it_string.
4761
 
4762
  DATA:
4763
  ls_html TYPE string.
4764
 
4765
  PERFORM html_add_div_begin
4766
    USING
4767
      i_id
4768
      i_on
4769
    CHANGING
4770
      ct_html.
4771
 
4772
  PERFORM html_add_textinputnodiv
4773
    USING
4774
      it_ti
4775
    CHANGING
4776
      ct_html.
4777
 
4778
  PERFORM html_add_div_end
4779
    CHANGING
4780
      ct_html.
4781
 
4782
ENDFORM.                    "html_add_textInput
4783
 
4784
 
4785
*-----------------------------------------------------------------------
4786
* form: html_add_textInputNoDiv
4787
*-----------------------------------------------------------------------
4788
FORM html_add_textinputnodiv
4789
  USING
4790
    it_ti TYPE it_textinput
4791
  CHANGING
4792
    ct_html TYPE it_string.
4793
 
4794
  DATA:
4795
  l_first_row TYPE flag VALUE abap_true,
4796
  ls_html TYPE string,
4797
  ls_ti TYPE st_textinput,
4798
  ls_ti2 TYPE st_textinput,
4799
  l_has_description TYPE flag,
4800
  l_description TYPE char255,
4801
  l_name TYPE char255,
4802
  l_name_suffix TYPE char255,
4803
  l_value TYPE char255,
4804
  l_value_text TYPE char255,
4805
  l_value_ext TYPE char255,
4806
  l_value_ext_text TYPE char255,
4807
  l_value_class TYPE string,
4808
  l_tabix TYPE i,
4809
  l_colspan TYPE string,
4810
  l_checked TYPE string.
4811
 
4812
  FIELD-SYMBOLS:
4813
  <ls_ti> TYPE st_textinput.
4814
 
4815
  LOOP AT it_ti ASSIGNING <ls_ti>
4816
      WHERE description <> space.
4817
    l_has_description = abap_true.
4818
    EXIT.
4819
  ENDLOOP.
4820
 
4821
  APPEND '<table class="titleTable">' TO ct_html.
4822
 
4823
  LOOP AT it_ti INTO ls_ti
4824
      WHERE flag_col <= 1.
4825
    l_tabix = sy-tabix.
4826
    WRITE ls_ti-description TO l_description.
4827
    IF l_description IS INITIAL.
4828
      l_description = '&#160;'.
4829
    ENDIF.
4830
    WRITE ls_ti-name TO l_name.
4831
    IF l_name IS INITIAL.
4832
      l_name = '&#160;'.
4833
    ENDIF.
4834
    WRITE ls_ti-name_suffix TO l_name_suffix.
4835
    WRITE ls_ti-value TO l_value.
4836
    IF l_value IS INITIAL.
4837
      l_value = '&#160;'.
4838
    ENDIF.
4839
    WRITE ls_ti-value_text TO l_value_text.
4840
    WRITE ls_ti-value_ext TO l_value_ext.
4841
    WRITE ls_ti-value_ext_text TO l_value_ext_text.
4842
    IF l_value_ext IS INITIAL.
4843
      l_value_ext = '&#160;'.
4844
    ENDIF.
4845
 
4846
    APPEND '<tr>' TO ct_html.
4847
*   Space
4848
    IF ls_ti-space = abap_true.
4849
      CONCATENATE
4850
                '<td colspan="4">'
4851
                  '&#160;'
4852
                '</td>'
4853
          INTO ls_html.
4854
      APPEND ls_html TO ct_html.
4855
*   Flag
4856
    ELSEIF ls_ti-flag = abap_true.
4857
      CLEAR l_checked.
4858
      IF l_value = abap_true.
4859
        l_checked = ' checked="checked"'.
4860
      ENDIF.
4861
      CONCATENATE
4862
                '<td colspan="5">'
4863
                  '<table>'
4864
                    '<tr>'
4865
                      '<td>'
4866
                        '<input class="innerTableFlag"'
4867
                        l_checked
4868
                        ' disabled="disabled" type="checkbox"'
4869
                        ' value="' l_value '"/>'
4870
                      '</td>'
4871
                      '<td>' l_name '</td>'
4872
          INTO ls_html.
4873
      APPEND ls_html TO ct_html.
4874
      l_tabix = l_tabix + 1.
4875
*     a row can have multiple checkboxes
4876
      LOOP AT it_ti INTO ls_ti2
4877
          FROM l_tabix.
4878
        IF ls_ti2-flag_col > 1.
4879
          WRITE ls_ti2-name TO l_name.
4880
          IF l_name IS INITIAL.
4881
            l_name = '&#160;'.
4882
          ENDIF.
4883
          WRITE ls_ti2-value TO l_value.
4884
          IF l_value IS INITIAL.
4885
            l_value = '&#160;'.
4886
          ENDIF.
4887
          CLEAR l_checked.
4888
          IF l_value = abap_true.
4889
            l_checked = ' checked="checked"'.
4890
          ENDIF.
4891
          CONCATENATE
4892
                      '<td>&#160;</td>'
4893
                      '<td>'
4894
                        '<input class="innerTableFlag"'
4895
                        l_checked
4896
                        ' disabled="disabled" type="checkbox"'
4897
                        ' value="' l_value '"/>'
4898
                      '</td>'
4899
                      '<td>' l_name '</td>'
4900
              INTO ls_html.
4901
          APPEND ls_html TO ct_html.
4902
        ELSE.
4903
          EXIT.
4904
        ENDIF.
4905
      ENDLOOP.
4906
      CONCATENATE
4907
                    '</tr>'
4908
                  '</table>'
4909
                '</td>'
4910
          INTO ls_html.
4911
      APPEND ls_html TO ct_html.
4912
*   Textinput
4913
    ELSE.
4914
      IF ls_ti-no_name = abap_false.
4915
        IF l_name_suffix IS INITIAL.
4916
          CONCATENATE
4917
                    '<td class="titleTableText" colspan="2">'
4918
                      l_name
4919
                    '</td>'
4920
              INTO ls_html.
4921
        ELSE.
4922
          CONCATENATE
4923
                    '<td class="titleTableText">'
4924
                      l_name
4925
                    '</td>'
4926
                    '<td class="titleTableText">'
4927
                      l_name_suffix
4928
                    '</td>'
4929
              INTO ls_html.
4930
        ENDIF.
4931
        APPEND ls_html TO ct_html.
4932
      ENDIF.
4933
      IF ls_ti-has_value_ext = abap_true
4934
      AND ls_ti-value_double_length = abap_false.
4935
        l_colspan = '1'.
4936
      ELSE.
4937
        l_colspan = '3'.
4938
      ENDIF.
4939
      IF ls_ti-no_name = abap_true.
4940
        l_colspan = l_colspan + 1.
4941
      ENDIF.
4942
      IF ls_ti-input = abap_true.
4943
        l_value_class = ' class="titleTableDescr"'.
4944
      ELSE.
4945
        CLEAR l_value_class.
4946
      ENDIF.
4947
      CONCATENATE
4948
                '<td ' l_value_class ' colspan="' l_colspan '">'
4949
                  '<span>'
4950
          INTO ls_html.
4951
      APPEND ls_html TO ct_html.
4952
      IF NOT l_value_text IS INITIAL.
4953
        CONCATENATE
4954
                    '<a href="#" onclick="return false;"'
4955
                    ' title="' l_value_text '">'
4956
                      l_value
4957
                    '</a>'
4958
            INTO ls_html.
4959
        APPEND ls_html TO ct_html.
4960
      ELSE.
4961
        APPEND l_value TO ct_html.
4962
      ENDIF.
4963
      CONCATENATE
4964
                  '</span>'
4965
                '</td>'
4966
          INTO ls_html.
4967
      APPEND ls_html TO ct_html.
4968
      IF ls_ti-has_value_ext = abap_true
4969
      AND ls_ti-value_double_length = abap_false.
4970
        IF ls_ti-value_ext_space = abap_true.
4971
          CLEAR l_value_class.
4972
        ENDIF.
4973
        CONCATENATE
4974
                '<td>&#160;</td>'
4975
                '<td' l_value_class '>'
4976
                  '<span>'
4977
            INTO ls_html.
4978
        APPEND ls_html TO ct_html.
4979
        IF NOT l_value_ext_text IS INITIAL.
4980
          CONCATENATE
4981
                      '<a href="#" onclick="return false;"'
4982
                      ' title="' l_value_ext_text '">'
4983
                        l_value_ext
4984
                      '</a>'
4985
              INTO ls_html.
4986
          APPEND ls_html TO ct_html.
4987
        ELSE.
4988
          APPEND l_value_ext TO ct_html.
4989
        ENDIF.
4990
        CONCATENATE
4991
                  '</span>'
4992
                '</td>'
4993
            INTO ls_html.
4994
        APPEND ls_html TO ct_html.
4995
      ENDIF.
4996
    ENDIF.
4997
    IF l_has_description = abap_true.
4998
      CONCATENATE
4999
                '<td>' l_description '</td>'
5000
          INTO ls_html.
5001
      APPEND ls_html TO ct_html.
5002
    ENDIF.
5003
    APPEND '</tr>' TO ct_html.
5004
  ENDLOOP.
5005
 
5006
  APPEND '</table>' TO ct_html.
5007
 
5008
ENDFORM.                    "html_add_textInputNoDiv
5009
 
5010
 
5011
*-----------------------------------------------------------------------
5012
* form: html_add_textInput_subBox
5013
*-----------------------------------------------------------------------
5014
FORM html_add_textinput_subbox
5015
  USING
5016
    it_ti TYPE it_textinput
5017
    value(i_subbox_title)
5018
    it_subbox_ti TYPE it_textinput
5019
    value(i_id)
5020
    value(i_on)
5021
  CHANGING
5022
    ct_html TYPE it_string.
5023
 
5024
  DATA:
5025
  ls_html TYPE string.
5026
 
5027
  PERFORM html_add_div_begin
5028
    USING
5029
      i_id
5030
      i_on
5031
    CHANGING
5032
      ct_html.
5033
 
5034
  CONCATENATE
5035
      '<table>'
5036
        '<tr>'
5037
          '<td style="vertical-align:top">'
5038
      INTO ls_html.
5039
  APPEND ls_html TO ct_html.
5040
 
5041
  PERFORM html_add_textinputnodiv
5042
    USING
5043
      it_ti
5044
    CHANGING
5045
      ct_html.
5046
 
5047
  CONCATENATE
5048
          '</td>'
5049
            '</tr>'
5050
            '<tr>'
5051
              '<td>&#160;</td>'
5052
            '</tr>'
5053
            '<tr>'
5054
              '<td style="vertical-align:top">'
5055
      INTO ls_html.
5056
  APPEND ls_html TO ct_html.
5057
 
5058
  PERFORM html_add_box_textinputnodiv
5059
    USING
5060
      i_subbox_title
5061
      it_subbox_ti
5062
    CHANGING
5063
      ct_html.
5064
 
5065
  APPEND '</td></tr></table>' TO ct_html.
5066
 
5067
  PERFORM html_add_div_end
5068
    CHANGING
5069
      ct_html.
5070
 
5071
 
5072
ENDFORM.                    "html_add_textInput_subBox
5073
 
5074
 
5075
*-----------------------------------------------------------------------
5076
* form: html_add_textInput_subBox
5077
*-----------------------------------------------------------------------
5078
FORM html_add_textinput_subboxes
5079
  USING
5080
    it_ti TYPE it_textinput
5081
    value(i_subbox1_title)
5082
    value(i_subbox1_name)
5083
    it_subbox1 TYPE it_access
5084
    value(i_subbox2_title)
5085
    it_subbox2 TYPE it_textinput
5086
    value(i_subbox3_title)
5087
    it_subbox3 TYPE it_textinput
5088
    value(i_id)
5089
    value(i_on)
5090
  CHANGING
5091
    ct_html TYPE it_string.
5092
 
5093
  DATA:
5094
  ls_html TYPE string.
5095
 
5096
  PERFORM html_add_div_begin
5097
    USING
5098
      i_id
5099
      i_on
5100
    CHANGING
5101
      ct_html.
5102
 
5103
  CONCATENATE
5104
      '<table>'
5105
        '<tr>'
5106
          '<td style="vertical-align:top">'
5107
      INTO ls_html.
5108
  APPEND ls_html TO ct_html.
5109
 
5110
  PERFORM html_add_textinputnodiv
5111
    USING
5112
      it_ti
5113
    CHANGING
5114
      ct_html.
5115
 
5116
  CONCATENATE
5117
          '</td>'
5118
            '</tr>'
5119
            '<tr>'
5120
              '<td>&#160;</td>'
5121
            '</tr>'
5122
            '<tr>'
5123
              '<td style="vertical-align:top">'
5124
      INTO ls_html.
5125
  APPEND ls_html TO ct_html.
5126
 
5127
  PERFORM html_add_box_radiobuttonsnodiv
5128
    USING
5129
      i_subbox1_title
5130
      i_subbox1_name
5131
      it_subbox1
5132
    CHANGING
5133
      ct_html.
5134
 
5135
  CONCATENATE
5136
          '</td>'
5137
            '</tr>'
5138
            '<tr>'
5139
              '<td>&#160;</td>'
5140
            '</tr>'
5141
            '<tr>'
5142
              '<td style="vertical-align:top">'
5143
      INTO ls_html.
5144
  APPEND ls_html TO ct_html.
5145
 
5146
  PERFORM html_add_box_textinputnodiv
5147
    USING
5148
      i_subbox2_title
5149
      it_subbox2
5150
    CHANGING
5151
      ct_html.
5152
 
5153
  CONCATENATE
5154
          '</td>'
5155
            '</tr>'
5156
            '<tr>'
5157
              '<td>&#160;</td>'
5158
            '</tr>'
5159
            '<tr>'
5160
              '<td style="vertical-align:top">'
5161
      INTO ls_html.
5162
  APPEND ls_html TO ct_html.
5163
 
5164
  PERFORM html_add_box_textinputnodiv
5165
    USING
5166
      i_subbox3_title
5167
      it_subbox3
5168
    CHANGING
5169
      ct_html.
5170
 
5171
  APPEND '</td></tr></table>' TO ct_html.
5172
 
5173
  PERFORM html_add_div_end
5174
    CHANGING
5175
      ct_html.
5176
 
5177
 
5178
ENDFORM.                    "html_add_textInput_subBox
5179
 
5180
 
5181
*-----------------------------------------------------------------------
5182
* form: html_add_transaction
5183
*-----------------------------------------------------------------------
5184
FORM html_add_transaction
5185
  USING
5186
    is_tran TYPE st_transaction
5187
    it_auth_value TYPE ANY TABLE
5188
    it_defval_for TYPE it_textinput
5189
    it_gui_support TYPE it_textinput
5190
    it_defval TYPE ANY TABLE
5191
    value(i_id)
5192
    value(i_on)
5193
  CHANGING
5194
    ct_html TYPE it_string.
5195
 
5196
  DATA:
5197
  ls_html TYPE string.
5198
 
5199
  PERFORM html_add_div_begin
5200
    USING
5201
      i_id
5202
      i_on
5203
    CHANGING
5204
      ct_html.
5205
 
5206
*Transaction   begin
5207
  CONCATENATE
5208
      '<table>'
5209
        '<tr>'
5210
          '<td>'
5211
            '<table>'
5212
              '<tr>'
5213
                '<td class="titleTableText" colspan="2">'
5214
                  txt_transaction_text
5215
                '</td>'
5216
                '<td class="titleTableDescr" colspan="4">'
5217
                  is_tran-ttext
5218
                '</td>'
5219
              '</tr>'
5220
      INTO ls_html.
5221
  APPEND ls_html TO ct_html.
5222
*Transaction - Dialog   begin
5223
  IF is_tran-ttype = gc_tcode_dialog.
5224
    CONCATENATE
5225
              '<tr>'
5226
                '<td class="titleTableText" colspan="2">'
5227
                  txt_program
5228
                '</td>'
5229
                '<td class="titleTableDescr" colspan="4">'
5230
                  is_tran-pgmna
5231
                '</td>'
5232
                '<td>&#160;</td>'
5233
                '<td>&#160;</td>'
5234
              '</tr>'
5235
              '<tr>'
5236
                '<td class="titleTableText" colspan="2">'
5237
                  txt_selection_screen
5238
                '</td>'
5239
                '<td class="titleTableDescr" colspan="2">'
5240
                  is_tran-dypno
5241
                '</td>'
5242
                '<td>&#160;</td>'
5243
                '<td>&#160;</td>'
5244
              '</tr>'
5245
              '<tr>'
5246
                '<td class="titleTableText" colspan="2">'
5247
                  txt_authorization_object___1
5248
                '</td>'
5249
                '<td class="titleTableDescr" colspan="2">'
5250
                  is_tran-objct
5251
                '</td>'
5252
                '<td>&#160;</td>'
5253
                '<td>&#160;</td>'
5254
              '</tr>'
5255
              '<tr>'
5256
                '<td>&#160;</td>'
5257
                '<td>&#160;</td>'
5258
                '<td colspan="4">'
5259
        INTO ls_html.
5260
    APPEND ls_html TO ct_html.
5261
 
5262
    PERFORM html_add_tablenodiv
5263
      USING
5264
        'TRAN_AUTHV'
5265
        it_auth_value
5266
        it_auth_value
5267
      CHANGING
5268
        ct_html.
5269
 
5270
    CONCATENATE
5271
                '</td>'
5272
              '</tr>'
5273
              '<tr>'
5274
                '<td>&#160;</td>'
5275
                '<td>&#160;</td>'
5276
                '<td>&#160;</td>'
5277
                '<td>&#160;</td>'
5278
                '<td>&#160;</td>'
5279
                '<td>&#160;</td>'
5280
              '</tr>'
5281
              '<tr>'
5282
                '<td>'
5283
                  '<input '
5284
        INTO ls_html.
5285
    IF is_tran-trans_var = abap_true.
5286
      CONCATENATE ls_html ' checked="checked"' INTO ls_html.
5287
    ENDIF.
5288
    CONCATENATE
5289
        ls_html
5290
                  ' class="innerTableFlag"'
5291
                  ' disabled="disabled"'
5292
                  ' type="checkbox"'
5293
                  ' value="transvar"/>'
5294
                '</td>'
5295
                '<td colspan="5">'
5296
                  '<span>' txt_maintenance_of_standard_tr '</span>'
5297
                '</td>'
5298
              '</tr>'
5299
        INTO ls_html.
5300
    APPEND ls_html TO ct_html.
5301
  ENDIF.
5302
*Transaction - Dialog   end
5303
*Transaction - Report   begin
5304
  IF is_tran-ttype = gc_tcode_report.
5305
    CONCATENATE
5306
              '<tr>'
5307
                '<td class="titleTableText" colspan="2">'
5308
                  txt_program
5309
                '</td>'
5310
                '<td class="titleTableDescr" colspan="4">'
5311
                  is_tran-pgmna
5312
                '</td>'
5313
                '<td>&#160;</td>'
5314
                '<td>&#160;</td>'
5315
              '</tr>'
5316
              '<tr>'
5317
                '<td class="titleTableText" colspan="2">'
5318
                  txt_selection_screen
5319
                '</td>'
5320
                '<td class="titleTableDescr" colspan="2">'
5321
                  is_tran-dypno
5322
                '</td>'
5323
                '<td>&#160;</td>'
5324
                '<td>&#160;</td>'
5325
              '</tr>'
5326
              '<tr>'
5327
                '<td class="titleTableText" colspan="2">'
5328
                  txt_start_with_variant
5329
                '</td>'
5330
                '<td class="titleTableDescr" colspan="2">'
5331
                  is_tran-repo_vari
5332
                '</td>'
5333
                '<td>&#160;</td>'
5334
                '<td>&#160;</td>'
5335
              '</tr>'
5336
              '<tr>'
5337
                '<td class="titleTableText" colspan="2">'
5338
                  txt_authorization_object___1
5339
                '</td>'
5340
                '<td class="titleTableDescr" colspan="2">'
5341
                  is_tran-objct
5342
                '</td>'
5343
                '<td>&#160;</td>'
5344
                '<td>&#160;</td>'
5345
              '</tr>'
5346
              '<tr>'
5347
                '<td>&#160;</td>'
5348
                '<td>&#160;</td>'
5349
                '<td colspan="4">'
5350
        INTO ls_html.
5351
    APPEND ls_html TO ct_html.
5352
 
5353
    PERFORM html_add_tablenodiv
5354
      USING
5355
        'TRAN_AUTHV'
5356
        it_auth_value
5357
        it_auth_value
5358
      CHANGING
5359
        ct_html.
5360
 
5361
    CONCATENATE
5362
                '</td>'
5363
              '</tr>'
5364
        INTO ls_html.
5365
    APPEND ls_html TO ct_html.
5366
  ENDIF.
5367
*Transaction - Report   end
5368
*Transaction - Object   begin
5369
  IF is_tran-ttype = gc_tcode_object.
5370
    CONCATENATE
5371
              '<tr>'
5372
                '<td>'
5373
                  '<input '
5374
        INTO ls_html.
5375
    IF is_tran-trframe = abap_true.
5376
      CONCATENATE ls_html ' checked="checked"' INTO ls_html.
5377
    ENDIF.
5378
    CONCATENATE
5379
        ls_html
5380
                  ' class="innerTableFlag"'
5381
                  ' disabled="disabled"'
5382
                  ' type="checkbox"'
5383
                  ' value="trframe"/>'
5384
                '</td>'
5385
                '<td colspan="2">'
5386
                  '<span>'
5387
                    txt_oo_transaction_model
5388
                  '</span>'
5389
                '</td>'
5390
                '<td>&#160;</td>'
5391
                '<td>&#160;</td>'
5392
                '<td>&#160;</td>'
5393
              '</tr>'
5394
              '<tr><td colspan="6">&#160;</td></tr>'
5395
              '<tr>'
5396
                '<td class="titleTableText" colspan="2">'
5397
                  txt_class_name
5398
                '</td>'
5399
                '<td class="titleTableDescr" colspan="2">'
5400
                  is_tran-classname
5401
                '</td>'
5402
                '<td>&#160;</td>'
5403
                '<td>&#160;</td>'
5404
              '</tr>'
5405
              '<tr>'
5406
                '<td class="titleTableText" colspan="2">'
5407
                  txt_method
5408
                '</td>'
5409
                '<td class="titleTableDescr" colspan="4">'
5410
                  is_tran-method
5411
                '</td>'
5412
              '</tr>'
5413
              '<tr>'
5414
                '<td>'
5415
                  '<input '
5416
        INTO ls_html.
5417
    IF is_tran-local = abap_true.
5418
      CONCATENATE ls_html ' checked="checked"' INTO ls_html.
5419
    ENDIF.
5420
    CONCATENATE
5421
        ls_html
5422
                  ' class="innerTableFlag"'
5423
                  ' disabled="disabled"'
5424
                  ' type="checkbox"'
5425
                  ' value="local"/>'
5426
                '</td>'
5427
                '<td>'
5428
                  '<span>'
5429
                    txt_local_in_program
5430
                  '</span>'
5431
                '</td>'
5432
                '<td class="titleTableDescr" colspan="2">'
5433
                  is_tran-pgmna
5434
                '</td>'
5435
                '<td>&#160;</td>'
5436
                '<td>&#160;</td>'
5437
              '</tr>'
5438
              '<tr>'
5439
                '<td>&#160;</td>'
5440
                '<td>&#160;</td>'
5441
                '<td>&#160;</td>'
5442
                '<td>&#160;</td>'
5443
                '<td>&#160;</td>'
5444
                '<td>&#160;</td>'
5445
              '</tr>'
5446
              '<tr>'
5447
                '<td class="titleTableText" colspan="2">'
5448
                  txt_authorization_object___1
5449
                '</td>'
5450
                '<td class="titleTableDescr" colspan="2">'
5451
                  is_tran-objct
5452
                '</td>'
5453
                '<td>&#160;</td>'
5454
                '<td>&#160;</td>'
5455
              '</tr>'
5456
              '<tr>'
5457
                '<td>&#160;</td>'
5458
                '<td>&#160;</td>'
5459
                '<td colspan="4">'
5460
        INTO ls_html.
5461
    APPEND ls_html TO ct_html.
5462
 
5463
    PERFORM html_add_tablenodiv
5464
      USING
5465
        'TRAN_AUTHV'
5466
        it_auth_value
5467
        it_auth_value
5468
      CHANGING
5469
        ct_html.
5470
 
5471
    CONCATENATE
5472
                '</td>'
5473
              '</tr>'
5474
        INTO ls_html.
5475
    APPEND ls_html TO ct_html.
5476
  ENDIF.
5477
*Transaction - Object   end
5478
*Transaction - Variant   begin
5479
  IF is_tran-ttype = gc_tcode_variant.
5480
    CONCATENATE
5481
              '<tr>'
5482
                '<td class="titleTableText" colspan="2">'
5483
                  txt_transaction
5484
                '</td>'
5485
                '<td class="titleTableDescr" colspan="2">'
5486
                  is_tran-def_call_tcode
5487
                '</td>'
5488
                '<td>&#160;</td>'
5489
                '<td>&#160;</td>'
5490
              '</tr>'
5491
              '<tr>'
5492
                '<td class="titleTableText" colspan="2">'
5493
                  txt_transaction_variant
5494
                '</td>'
5495
                '<td class="titleTableDescr" colspan="2">'
5496
                  is_tran-variant
5497
                '</td>'
5498
                '<td>&#160;</td>'
5499
                '<td>&#160;</td>'
5500
              '</tr>'
5501
              '<tr>'
5502
                '<td>&#160;</td>'
5503
                '<td>&#160;</td>'
5504
                '<td>'
5505
                  '<input '
5506
        INTO ls_html.
5507
    IF is_tran-ind_vari = abap_true.
5508
      CONCATENATE ls_html ' checked="checked"' INTO ls_html.
5509
    ENDIF.
5510
    CONCATENATE
5511
        ls_html
5512
                  ' class="innerTableFlag"'
5513
                  ' disabled="disabled"'
5514
                  ' type="checkbox"'
5515
                  ' value="cross"/>'
5516
                '</td>'
5517
                '<td colspan="3">'
5518
                  txt_cross_client
5519
                '</td>'
5520
              '</tr>'
5521
        INTO ls_html.
5522
    APPEND ls_html TO ct_html.
5523
  ENDIF.
5524
*Transaction - Variant   end
5525
  CONCATENATE
5526
            '</table>'
5527
          '</td>'
5528
        '</tr>'
5529
      INTO ls_html.
5530
  APPEND ls_html TO ct_html.
5531
*Transaction   end
5532
 
5533
*Default values for   begin
5534
  IF is_tran-ttype = gc_tcode_parameter.
5535
    CONCATENATE
5536
        '<tr><td>&#160;</td></tr>'
5537
        '<tr>'
5538
          '<td>'
5539
        INTO ls_html.
5540
    APPEND ls_html TO ct_html.
5541
 
5542
    PERFORM html_add_box_textinputnodiv
5543
    USING
5544
      txt_default_values_for
5545
      it_defval_for
5546
    CHANGING
5547
      ct_html.
5548
 
5549
    CONCATENATE
5550
          '</td>'
5551
        '</tr>'
5552
        INTO ls_html.
5553
    APPEND ls_html TO ct_html.
5554
  ENDIF.
5555
*Default values for   end
5556
 
5557
*Classification   begin
5558
  CONCATENATE
5559
        '<tr><td>&#160;</td></tr>'
5560
        '<tr>'
5561
          '<td>'
5562
      INTO ls_html.
5563
  APPEND ls_html TO ct_html.
5564
 
5565
  PERFORM html_add_box_begin
5566
    USING
5567
      txt_classification '1'
5568
    CHANGING
5569
      ct_html.
5570
 
5571
  APPEND '<table class="titleTable">' TO ct_html.
5572
 
5573
  IF is_tran-ttype = gc_tcode_parameter
5574
  OR is_tran-ttype = gc_tcode_variant.
5575
    CONCATENATE
5576
              '<tr>'
5577
                '<td>'
5578
                  '<table class="titleTable">'
5579
                    '<tr>'
5580
                      '<td>'
5581
                        '<input '
5582
        INTO ls_html.
5583
    IF is_tran-clf_inhe = abap_true.
5584
      CONCATENATE ls_html ' checked="checked"' INTO ls_html.
5585
    ENDIF.
5586
    CONCATENATE
5587
        ls_html
5588
                        ' class="innerTableFlag"'
5589
                        ' disabled="disabled"'
5590
                        ' type="checkbox"'
5591
                        ' value="inherit"/>'
5592
                      '</td>'
5593
                      '<td>'
5594
                        '<span>'
5595
                          txt_inherit_gui_attributes
5596
                        '</span>'
5597
                      '</td>'
5598
                    '</tr>'
5599
                  '</table>'
5600
                '</td>'
5601
              '</tr>'
5602
        INTO ls_html.
5603
    APPEND ls_html TO ct_html.
5604
  ENDIF.
5605
 
5606
  CONCATENATE
5607
              '<tr>'
5608
                '<td>'
5609
      INTO ls_html.
5610
  APPEND ls_html TO ct_html.
5611
**Transaction classification
5612
  PERFORM html_add_box_begin
5613
    USING
5614
      txt_transaction_classification '1'
5615
    CHANGING
5616
      ct_html.
5617
 
5618
  CONCATENATE
5619
                  '<table class="titleTable">'
5620
                    '<tr>'
5621
                      '<td>'
5622
                        '<input '
5623
      INTO ls_html.
5624
  IF is_tran-clf_profi = abap_true.
5625
    CONCATENATE ls_html ' checked="checked"' INTO ls_html.
5626
  ENDIF.
5627
  CONCATENATE
5628
      ls_html
5629
                        ' class="radio"'
5630
                        ' disabled="disabled"'
5631
                        ' name="tranclass"'
5632
                        ' type="radio"'
5633
                        ' value="profi"/>'
5634
                      '</td>'
5635
                      '<td colspan="2">'
5636
                        '<span>'
5637
                          txt_professional_user_transact
5638
                        '</span>'
5639
                      '</td>'
5640
                      '<td colspan="3">&#160;</td>'
5641
                    '</tr>'
5642
                    '<tr>'
5643
                      '<td>'
5644
                        '<input '
5645
      INTO ls_html.
5646
  IF is_tran-clf_ewt = abap_true.
5647
    CONCATENATE ls_html ' checked="checked"' INTO ls_html.
5648
  ENDIF.
5649
  CONCATENATE
5650
      ls_html
5651
                        ' class="radio"'
5652
                        ' disabled="disabled"'
5653
                        ' name="tranclass"'
5654
                        ' type="radio"'
5655
                        ' value="profi"/>'
5656
                      '</td>'
5657
                      '<td colspan="2">'
5658
                        '<span>' txt_easy_web_transaction '</span>'
5659
                      '</td>'
5660
                      '<td>&#160;</td>'
5661
                      '<td class="titleTableText">' txt_service '</td>'
5662
                      '<td class="titleTableDescr">'
5663
                        is_tran-clf_service
5664
                      '</td>'
5665
                    '</tr>'
5666
                    '<tr>'
5667
                      '<td>&#160;</td>'
5668
                      '<td>'
5669
                        '<input '
5670
      INTO ls_html.
5671
  IF is_tran-clf_pervas = abap_true.
5672
    CONCATENATE ls_html ' checked="checked"' INTO ls_html.
5673
  ENDIF.
5674
  CONCATENATE
5675
      ls_html
5676
                        ' class="innerTableFlag"'
5677
                        ' disabled="disabled"'
5678
                        ' type="checkbox"'
5679
                        ' value="pervasive"/>'
5680
                      '</td>'
5681
                      '<td><span>' txt_pervasive_enabled '</span></td>'
5682
                      '<td>&#160;</td>'
5683
                      '<td>&#160;</td>'
5684
                      '<td>&#160;</td>'
5685
                    '</tr>'
5686
                  '</table>'
5687
      INTO ls_html.
5688
  APPEND ls_html TO ct_html.
5689
 
5690
  PERFORM html_add_box_end
5691
    CHANGING
5692
      ct_html.
5693
 
5694
  CONCATENATE
5695
                '</td>'
5696
              '</tr>'
5697
              '<tr>'
5698
                '<td>'
5699
      INTO ls_html.
5700
  APPEND ls_html TO ct_html.
5701
**GUI support
5702
  PERFORM html_add_box_textinputnodiv
5703
    USING
5704
      txt_gui_support
5705
      it_gui_support
5706
    CHANGING
5707
      ct_html.
5708
 
5709
  CONCATENATE
5710
                '</td>'
5711
              '</tr>'
5712
            '</table>'
5713
      INTO ls_html.
5714
  APPEND ls_html TO ct_html.
5715
 
5716
  PERFORM html_add_box_end
5717
    CHANGING
5718
      ct_html.
5719
 
5720
  CONCATENATE
5721
          '</td>'
5722
        '</tr>'
5723
      INTO ls_html.
5724
  APPEND ls_html TO ct_html.
5725
*Classification   end
5726
 
5727
*Default values - Parameter   begin
5728
  IF is_tran-ttype = gc_tcode_parameter.
5729
    CONCATENATE
5730
        '<tr><td>&#160;</td></tr>'
5731
        '<tr>'
5732
          '<td>'
5733
        INTO ls_html.
5734
    APPEND ls_html TO ct_html.
5735
 
5736
    PERFORM html_add_box_begin
5737
      USING
5738
        txt_default_values '1'
5739
      CHANGING
5740
        ct_html.
5741
 
5742
    CONCATENATE
5743
            '<table>'
5744
              '<tr>'
5745
                '<td>'
5746
        INTO ls_html.
5747
    APPEND ls_html TO ct_html.
5748
 
5749
    PERFORM html_add_tablenodiv
5750
      USING
5751
        'TRAN_DEFVA'
5752
        it_defval
5753
        it_defval
5754
      CHANGING
5755
        ct_html.
5756
 
5757
    CONCATENATE
5758
                '</td>'
5759
              '</tr>'
5760
            '</table>'
5761
        INTO ls_html.
5762
    APPEND ls_html TO ct_html.
5763
 
5764
    PERFORM html_add_box_end
5765
      CHANGING
5766
        ct_html.
5767
 
5768
    CONCATENATE
5769
          '</td>'
5770
        '</tr>'
5771
        INTO ls_html.
5772
    APPEND ls_html TO ct_html.
5773
  ENDIF.
5774
*Default values - Parameter   end
5775
 
5776
  APPEND '</table>' TO ct_html.
5777
 
5778
  PERFORM html_add_div_end
5779
    CHANGING
5780
      ct_html.
5781
 
5782
ENDFORM.                    "html_add_transaction
5783
 
5784
 
5785
*-----------------------------------------------------------------------
5786
* form: html_add_value_range
5787
*-----------------------------------------------------------------------
5788
FORM html_add_value_range
5789
  USING
5790
    it_value_range TYPE it_value_range
5791
    value(i_id)
5792
    value(i_on)
5793
  CHANGING
5794
    ct_html TYPE it_string.
5795
 
5796
  DATA:
5797
  ls_html TYPE string,
5798
  l_ddtext TYPE char255,
5799
  l_domvalue_h TYPE char255,
5800
  l_domvalue_l TYPE char255.
5801
 
5802
  FIELD-SYMBOLS:
5803
  <ls_value_range> TYPE st_value_range.
5804
 
5805
  PERFORM html_add_div_begin
5806
    USING
5807
      i_id
5808
      i_on
5809
    CHANGING
5810
      ct_html.
5811
 
5812
  CONCATENATE
5813
      '<table class="titleTable">'
5814
        '<tr>'
5815
          '<td>'
5816
            '<table border="0" cellpadding="0" cellspacing="0"'
5817
            ' class="innerTable">'
5818
              '<tr>'
5819
                '<th class="innerTableTHtop" colspan="2"'
5820
                ' style="text-align:left">' txt_single_vars '</th>'
5821
              '</tr>'
5822
              '<tr>'
5823
                '<th class="innerTableTH" style="text-align:left">'
5824
                  txt_fix_val
5825
                '</th>'
5826
                '<th class="innerTableTH" style="text-align:left">'
5827
                  txt_short_description___1
5828
                '</th>'
5829
              '</tr>'
5830
      INTO ls_html.
5831
  APPEND ls_html TO ct_html.
5832
 
5833
  LOOP AT it_value_range ASSIGNING <ls_value_range>
5834
      WHERE domvalue_h = space.
5835
    WRITE <ls_value_range>-ddtext TO l_ddtext.
5836
    WRITE <ls_value_range>-domvalue_l TO l_domvalue_l.
5837
    CONCATENATE
5838
              '<tr>'
5839
                '<td class="innerTableTD">' l_domvalue_l '</td>'
5840
                '<td class="innerTableTD">' l_ddtext '</td>'
5841
              '</tr>'
5842
        INTO ls_html.
5843
    APPEND ls_html TO ct_html.
5844
  ENDLOOP.
5845
 
5846
  CONCATENATE
5847
            '</table>'
5848
          '</td>'
5849
        '</tr>'
5850
        '<tr><td>&#160;</td></tr>'
5851
        '<tr>'
5852
          '<td>'
5853
            '<table border="0" cellpadding="0" cellspacing="0"'
5854
            ' class="innerTable">'
5855
              '<tr>'
5856
                '<th class="innerTableTHtop" colspan="3"'
5857
                ' style="text-align:left">' txt_intervals '</th>'
5858
              '</tr>'
5859
              '<tr>'
5860
                '<th class="innerTableTH" style="text-align:left">'
5861
                  txt_lower_limit
5862
                '</th>'
5863
                '<th class="innerTableTH" style="text-align:left">'
5864
                  txt_upperlimit
5865
                '</th>'
5866
                '<th class="innerTableTH" style="text-align:left">'
5867
                  txt_short_description___1
5868
                '</th>'
5869
              '</tr>'
5870
      INTO ls_html.
5871
  APPEND ls_html TO ct_html.
5872
 
5873
  LOOP AT it_value_range ASSIGNING <ls_value_range>
5874
      WHERE domvalue_h <> space.
5875
    WRITE <ls_value_range>-ddtext TO l_ddtext.
5876
    WRITE <ls_value_range>-domvalue_h TO l_domvalue_h.
5877
    WRITE <ls_value_range>-domvalue_l TO l_domvalue_l.
5878
    CONCATENATE
5879
              '<tr>'
5880
                '<td class="innerTableTD">' l_domvalue_l '</td>'
5881
                '<td class="innerTableTD">' l_domvalue_h '</td>'
5882
                '<td class="innerTableTD">' l_ddtext '</td>'
5883
              '</tr>'
5884
        INTO ls_html.
5885
    APPEND ls_html TO ct_html.
5886
  ENDLOOP.
5887
 
5888
  CONCATENATE
5889
            '</table>'
5890
          '</td>'
5891
        '</tr>'
5892
      '</table>'
5893
      INTO ls_html.
5894
  APPEND ls_html TO ct_html.
5895
 
5896
  PERFORM html_add_div_end
5897
    CHANGING
5898
      ct_html.
5899
 
5900
ENDFORM.                    "html_add_value_range