hi,

     how to Get My Input Values (in this First name and Last name)

REPORT  ZKKK_DISABLE_COPY_PASTE.

   DATA : gr_html TYPE REF TO cl_gui_html_viewer,

          gr_cont TYPE REF TO cl_gui_custom_container.

DATA: lv_url TYPE char255.

DATA: html TYPE ZCHAR6000_T.

DATA: LV_HTML TYPE string.

DATA: lf_html TYPE string.

PARAMETERS : p_text TYPE string.

DATA: html_control TYPE REF TO cl_gui_html_viewer,

       my_container TYPE REF TO cl_gui_custom_container,

       prog_repid LIKE sy-repid,                             "#EC NEEDED

       edurl(2048),

       edframe(255),

       edaction(256),

       edgetdata(2048),

       edpostdataline(1024),

       ok_code LIKE sy-ucomm,

       myevent_tab TYPE cntl_simple_events,

       myevent TYPE cntl_simple_event,

       postdata_tab TYPE cnht_post_data_tab,

       edquery_table TYPE cnht_query_table.                  "#EC NEEDED

*DATA: evt_receiver TYPE REF TO cl_myevent_handler.

    CALL SCREEN 0100.

*&---------------------------------------------------------------------*

*& Module STATUS_0100 OUTPUT

*&---------------------------------------------------------------------*

* text

*----------------------------------------------------------------------*

MODULE status_0100 OUTPUT.

   PERFORM HTML.

SET PF-STATUS 'HTML'.

SET TITLEBAR 'HTML_TITLE'." WITH gv_title.

CREATE OBJECT GR_CONT

   EXPORTING

*    PARENT                      = PARENT

     CONTAINER_NAME              = 'HTML_CONT'

*    STYLE                       = STYLE

*    LIFETIME                    = LIFETIME_DEFAULT

     REPID                       = SY-REPID

     DYNNR                       = SY-DYNNR

*    NO_AUTODEF_PROGID_DYNNR     = NO_AUTODEF_PROGID_DYNNR

   EXCEPTIONS

     CNTL_ERROR                  = 1

     CNTL_SYSTEM_ERROR           = 2

     CREATE_ERROR                = 3

     LIFETIME_ERROR              = 4

     LIFETIME_DYNPRO_DYNPRO_LINK = 5

     OTHERS                      = 6

     .

IF sy-subrc <> 0.

* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

*            WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

CREATE OBJECT gr_html

   EXPORTING

*    shellstyle         = shellstyle

     PARENT             = GR_CONT

*    lifetime           = '1'

*    saphtmlp           = 'X'

*    uiflag             = '6'

*    name               = name

*    saphttp            = saphttp

*    query_table_disabled = 'X'

   EXCEPTIONS

     cntl_error         = 1

     cntl_install_error = 2

     dp_install_error   = 3

     dp_error           = 4

     others             = 5

     .

IF sy-subrc <> 0.

* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

*            WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

* register event

     myevent-eventid = gr_html->m_id_sapevent.

     myevent-appl_event = 'x'.

     APPEND myevent TO myevent_tab.

     CALL METHOD gr_html->set_registered_events

         EXPORTING

            events = myevent_tab.

CALL METHOD gr_html->load_data(

*  EXPORTING

*    url                  = LV_URL

*    type                 = 'HTML'

*    subtype              = 'HTML'

*    size                 = 100

*    encoding             = encoding

*    charset              = charset

*    language             = 'E'

   IMPORTING

     ASSIGNED_URL         = LV_URL

   CHANGING

     DATA_TABLE           = HTML

   EXCEPTIONS

     dp_invalid_parameter = 1

     dp_error_general     = 2

     cntl_error           = 3

        ).

IF sy-subrc <> 0.

* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

*            WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

GR_HTML->SHOW_URL(

   EXPORTING

     URL                    = LV_URL

*    FRAME                  = FRAME

*    IN_PLACE               = ' X'

   EXCEPTIONS

     cntl_error             = 1

     cnht_error_not_allowed = 2

     cnht_error_parameter   = 3

     dp_error_general       = 4

        ).

IF sy-subrc <> 0.

* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

*            WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

ENDMODULE. " STATUS_0100 OUTPUT

*&---------------------------------------------------------------------*

*& Module USER_COMMAND_0100 INPUT

*&---------------------------------------------------------------------*

* text

*----------------------------------------------------------------------*

MODULE user_command_0100 INPUT.

CASE sy-ucomm.

WHEN 'EXIT' OR 'CANCEL' or 'BACK'.

LEAVE TO SCREEN 0.

WHEN 'PRINT'.

  call method GR_HTML->execwb(

   EXPORTING

     cmd_id     = GR_HTML->WB_CMDID_PRINT

*    cmd_opt    = '2'

*    result     = result

   EXCEPTIONS

     cntl_error = 1

        ).

IF sy-subrc <> 0.

*      message e003(cnht) raising html_print_error.

ENDIF.

ENDCASE.

ENDMODULE. " USER_COMMAND_0100 INPUT

form HTML .

CONCATENATE

'<html>'

'<head>'

*'<style type="text/css">'

*'h1 {'

*'color:#EFAB00;'

*'font-family:tahoma,helvetica,sans-serif;'

*'font-size:160%;'

*'font-weight:bold;'

*'margin-bottom:0px;'

*'margin-top:0px;'

*'text-decoration:none;'

*'text-transform:uppercase;'

*'}'

*'h2 {'

*'color:#666666;'

*'font-family:tahoma,helvetica,sans-serif;'

*'font-size:140%;'

*'font-weight:normal;'

*'margin-bottom:15px;'

*'margin-top:10px;'

*'text-decoration:none;'

*'text-transform:uppercase;'

*'}'

*'h3, h4, h5, h6 {'

*'color:#44697D;'

*'font-family:verdana,helvetica,sans-serif;'

*'font-size:110%;'

*'font-weight:bold;'

*'margin-bottom:3px;'

*'text-decoration:none;'

*'}'

*'p {'

*'color:#333333;'

*'font-family:tahoma,helvetica,sans-serif;'

*'font-size:100%;'

*'margin-bottom:60px;'

*'margin-top:1px;'

*'}'

*'strong, b {'

*'font-family:tahoma,helvetica,sans-serif;'

*'font-weight:bold;'

*'}'

*'</style>'

'<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />'

'<title>Disabling cut, copy, paste, right click and context menu using Javascript </title>'

'<script type="text/javascript"> '

'document.oncontextmenu=new Function("return false");'

'document.onselectstart=new Function ("return false"); '

'if (window.sidebar){'

'document.onmousedown=new Function("return false"); '

'document.onclick=new Function("return true") ; '

'document.oncut=new Function("return false"); '

'document.oncopy=new Function("return false"); '

'document.onpaste=new Function("return false"); }'

'</script>'

'</head>'

'<body bgcolor="#CBDCE9">'" style="font-family:arial;font-size:90%;overflow:hidden">'

'<p align="Center">' P_TEXT '</p>'

'<form>'

'First name: <input type="text" name="firstname"><br>'

'Last name: <input type="text" name="lastname">'

'</form>'

'</body>'

'</html>'

INTO lf_html SEPARATED BY space.

DATA subrc TYPE c VALUE 'X'.

DATA len TYPE i.

DATA line TYPE ZCHAR6000.

WHILE subrc = 'X'.

len = strlen( lf_html ).

IF len > 29900.

line = lf_html+0(29900).

APPEND line TO html.

SHIFT lf_html BY 29900 PLACES.

ELSE.

line = lf_html.

APPEND line TO html.

CLEAR subrc.

ENDIF.

CLEAR line.

ENDWHILE.

endform.                    " HTML

Hi,

How to use TIFF image in smartform

Thanks

Hello.

My Abap program, has a loop with the update command:

    DO.

       UPDATE zcaixa_loja SET seqp2k =  t_header-numseq

                        WHERE vkbur  =  t_loja-vkbur.

       IF sy-subrc EQ 0.

         EXIT.

       ELSE.

        WAIT UP TO 2 SECONDS.

       ENDIF.

       IF sy-index > 10.

         EXIT.

       ENDIF.

     ENDDO.

This command does not work sometimes.

The key is correct in "where condition."

Moving this code to a call function  "in update Task" resolves ?

A typical R/3 installation contains dialog work processes and at least one update work process. The update work processes are responsible for updating the database. When an ABAP program reaches a COMMIT WORK statement, any function modules from CALL FUNCTION... IN UPDATE TASK statements are released for processing in an update work process. The dialog process does not wait for the update to finish. This kind of update is called asynchronous update.

Thanks !!!

Hi All,

Requirement : Pass time fields while creating Work Approval using transaction      WCTA.

While creating work approval, there are Time From and Time To fields in the header. When user enters these fields, and then proceed to create Applications, a new screen is called with the same Time From and Time To fields. The value from the main screen is not being copied here. My requirement is to copy the value from the Main Screen to the Application Screen.

The Main Screen is defined in Function Group WCFE (Screen Number 2000) - Program SAPLWCFE. Here in the PBO, the the Application screen is being called dynamically

   CALL SUBSCREEN d2000 INCLUDING wctp2_prg-saplwcgn dynnr_flexview.

where

wctp2_prg-saplwcgn  = SAPLWCFI ( For Application Screen).

This screen is defiend in Function Group WCFI.

The field names are same in both the programs.

How to pass the values from SAPLWCFE to SAPLWCFI screen fields.

Thanks,

Sachin

I am having an internal table which is having values like below.

So what I wanted to do is if there is a cancelled billing doc no for a particular billing document no...as in this case 9000045 exists for 9000032. So I wanted to take that cancelled billing doc no and check whether it exits in billing doc no and if it exits I have to delete it. After which I wanted to delete all the Billing doc nos which are having canelled billing doc no's. Like here I have to delete 9000032 since a cancelled billling doc no exits for 9000032. How to achieve this?

Regards,

Marina.

I have problems getting the value help to work for parameters in report that have a datatype that I defined. I should say this is the first value help I try to create and the instructions on help.sap.com are not entirely clear to me.

What I mean / want to achieve:

In a report I have some parameters:

When I place the cursor in the bp field, there is the F4 / value help button for selecting a business partner (a complex value help / search help). The same works for many other pre-defined datatypes e.g. COMT_PRODUCT_ID (another complex search help) or COMT_CATEGORY_ID (an elementary search help).

In the demo_id field there is no value help button. I want there to be a value help button to select entries from table ZCREATEQUOTDEMO.

The table ZCREATEQUOTDEMO has a key column DEMO_ID of type ZDEMO_ID and some other columns for business partner, date, product and some conditions.

What I tried: (as I said I don't really know what I'm doing)

I created a domain ZDEMO_ID and associated the data type ZDEMO_ID with it.

In the domain ZDEMO_ID on the value range tab I put ZCREATEQUOTDEMO as the Value Table.

(Not sure what effect that had, if any.)

Am I even correct assuming I need a domain? Well, it can't really harm.

I created an elementary search help ZDEMO_ID (from se11).

Here I am mostly guessing what to put in.

In the Selection method field I put ZCREATEQUOTDEMO.

I set the Dialog type to D Display values immediately and left the Hot key blank.

I left the Search help exit field empty. If possible, I would like not to have to code an exit for this. According to help.sap.com they don't seem to be necessary unless one wants something fancy / non-standard?

In the table at the bottom I put the Search help parameter DEMO_ID and marked it as both IMP and EXP and I put LPos and SPos as 1 and 1.

I also put one of the other columns there, PRODUCT, made it neither IMP nor EXP and set LPos and SPos as 2 and 2 (not entirely sure what that does).

In the table ZCREATEQUOTDEMO I went to the Entry help/check tab, clicked in the line for DEMO_ID and clicked the Search Help button. I accepted the proposal, which was just Search help parameter DEMO_ID, Table Name ZCREATEQUOTDEMO and Field name DEMO_ID.

Outcome:

It seems to have worked a little bit. When I use transaction sm30 to maintain the generated view ZCREATEQUOTDEMO and I click New Entry, there is a value help button in the Demo ID field, and when I click it shows the Demo ID and the Product Id for all entries in the ZCREATEQUOTDEMO table. (Of course this is not very useful, as I need to enter a new ID manually, otherwise it would clash.)

But in the report, where I need it, there is still no value help button!

Other attempt:

I changed the data type ZDEMO_ID. On the Further Characteristics screen I entered Search Help Name ZDEMO_ID and selected Parameters DEMO_ID (which was the only one available).

=> No changes. (Maybe this cannot have an effect anyway when there is a domain attached to a data type?)

Can someone point me to an example of an elementary search help without an exit? Or tell me what is wrong with my steps?

Hi All

Please I need some help..

I created an abap code (SAP version 4.7) and it is working properly.  I am using the fm view_maintenance_call inside the user-exit rv60afzz (form userexit_pricing_prepare_tkomp). This fm calls SM30 and the user has to enter some data in a Z transparent table.

My question:  when the user inserts data in the Z transparent table and save it, is it a correct process? I mean, the SAVE button will trigger a commit work, inside the user-exit? I am worried about it.

Please advise. Below the abap code.

 

   if  sy-tcode = 'VF01' and
    sy-ucomm = 'SICH'      "gravação selecionada
and sy-uname = 'GAIAJOA'.  "<===== tirar !!!!

* definicao de variaveis
  data: l_steuc type marc-steuc       , "NCM do material
        l_user  type usr02-bname      ,
        p_view  like dd02v-tabname
                value 'ZXVBRP_ICMS_ST'.

* definicao de tabelas transparentes
  tables: zxvbrp_icms_st.

* definicao tabela auxiliar
  types:
    begin of ty_zxvbrp_icms_st.
          include structure zxvbrp_icms_st.
  types  flag_tax(01) type c. "indica se o item sera exibido no popup
  types:
    end of   ty_zxvbrp_icms_st.

  data: it_zxvbrp_icms_st    type standard table of ty_zxvbrp_icms_st,
        wa_zxvbrp_icms_st type                   ty_zxvbrp_icms_st.

* definicao de constantes
  constants:
        c_mensagem_01(040) type c value
        'Usuário sem autorização p/entrar ICMS-ST' ,
        c_mensagem_02(021) type c value
        'Obrigatório informar.'.

* inicio
  refresh it_zxvbrp_icms_st.
  clear   wa_zxvbrp_icms_st.

  loop at xvbrp.

* obter o NCM do material
    clear  l_steuc.
    select single steuc
           from   marc
           into   l_steuc
           where  matnr = xvbrp-matnr and
                  werks = xvbrp-werks.

    if sy-subrc eq 0.

* Verificar na tabela ZSD_ICMS_ST a existencia deste parametros.
* Caso exista registro, será necessario
* exibir pop-up para entrar valor do ICMS-ST.
* Esta entrada de imposto é para cada item e somente usuarios cadastrados
* tem autorizacao

      select single ncm
             from   zsd_icms_st
             into   l_steuc
             where  shipfrom = xvbrp-wkreg         and
                    shipto   = xvbrp-regio_auft    and
                    ncm      = l_steuc             and
                    tax      = xvbrp-j_1btaxlw1.

      if sy-subrc eq 0.

        move:  xvbrp-posnr  to wa_zxvbrp_icms_st-posnr   ,
               xvbrp-matnr  to wa_zxvbrp_icms_st-matnr   ,
               xvbrp-arktx  to wa_zxvbrp_icms_st-arktx   .
        clear:                 wa_zxvbrp_icms_st-tax     ,
                               wa_zxvbrp_icms_st-taxval  ,
                               wa_zxvbrp_icms_st-othbas  .
        move   'X'          to wa_zxvbrp_icms_st-flag_tax.
        append wa_zxvbrp_icms_st to it_zxvbrp_icms_st.

      endif.

    endif.

  endloop.

*   verifica se o usuario tem autorizacao para entrar valor dos impostos
  clear  l_user.
  select single bname
         from   zsd_icms_st_user
         into   l_user
         where  bname = sy-uname.

  if sy-subrc eq 0.
*   usuario tem autorizacao. Carrega tabela/chama SM30/exporta p/memoria

*   carrega tabela transparente
    modify zxvbrp_icms_st from table it_zxvbrp_icms_st.

*   chamada da SM30 para entrada dos impostos
    call function 'VIEW_MAINTENANCE_CALL'
      exporting
        action                       = 'U'
        view_name                    = p_view  "maint.View
      exceptions
        client_reference             = 1
        foreign_lock                 = 2
        invalid_action               = 3
        no_clientindependent_auth    = 4
        no_database_function         = 5
        no_editor_function           = 6
        no_show_auth                 = 7
        no_tvdir_entry               = 8
        no_upd_auth                  = 9
        only_show_allowed            = 10
        system_failure               = 11
        unknown_field_in_dba_sellist = 12
        view_not_found               = 13
        others                       = 14.

*   exporta dados para a memoria
**



  else.
*   usuario nao tem autorizacao. mas é obrigatorio  entrar impostos
    message e997(zi) with c_mensagem_01 c_mensagem_02.
  endif.

endif.

Thanks in advance.

João Gaia

Hi All,

I am facing issue in Event Creator Step in Workflow

I want material creation event to be triggered only after the approval from user . So i have i have used Event Creation Step after User Activity Step

Ideally after the approval from user it should wait for the event that will create material but

Hi!

I am trying to get the count of similar items of a field in an internal table and put it in the counter column. I ahve the following code below but the result always shows zero in the entire column. Would really appreciate if someone can pls help me out on this.

What I want the output to show is :

Name  Address  Counter

A             A01       

B             A01        02

C             B01

D            B01

E             B01        03

F             C01

G            C01        02

H            D01        01

SORT c_t_data BY build.

DATA : lv_build
TYPE build,

c_t_data1 TYPE TABLE OF ptdw_times WITH HEADER LINE,

wa_data1 TYPE ptdw_times,

v_flg TYPE c.

c_t_data1[] = c_t_data[].

LOOP AT c_t_data1 INTO wa_data1.

AT NEW build.

counter = counter
+ 1.

ENDAT.

AT END OF build.

wa_data1-counter
= counter.

ENDAT.

ENDLOOP.

c_t_data[] = c_t_data1[].

ENDFORM. "execute_user_exit

Thanks