Eigenschaften | Quelltext
Titel | SoftCopy - html add |
Originalsprache | DE | Deutsch
Erstellt | 03.01.2013 |  | CREYTZ |
Letzte Änderung | 28.02.2021 |  | CREYTZ |
Status | aktiv |
Attribute
Typ | Include-Programm |
Status | Produktives Kundenprogramm |
Anwendung |  |
Berechtigungsgruppe |  |
Paket | ZSOFTCOPY | SoftCopy
| Editorsperre
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