How to handle screen resolution in session method

how to handle screen resolution in session method without bdc_insert .

Hello,
Why do need that for? Is it to add rows on a table control??
If it does, add new rows by using the add button instead of adding into the table control directly to each row.
Bye
Gabriel.

Similar Messages

How to do screen resolution in session method

hi guru how to do screen resolution in session method.
please tell me.
regards
subhasis

Sometime back this is refered in SDN :
Check table CTU_PARAMS and field DEFSIZE for setting fixed line of table control.
CALL TRANSACTION 'VA01' USING it_bdcdata
OPTIONS FROM OPT
MESSAGES INTO it_mesg.
opt of type ctu_params.
WA_CTU_PARAMS-DISMODE = 'N'. "no screen mode
WA_CTU_PARAMS-UPDMODE = 'S'. "synchronus update
WA_CTU_PARAMS-NOBINPT = 'X'.
WA_CTU_PARAMS-NOBIEND = 'X'.
WA_CTU_PARAMS-DEFSIZE = 'X'. "Default size
Default size will play good role in terms of resoultion. in one system in table control you can see 10rows, but in others system it will show 20 records. it depends on resoultion. but when you set the default size then it will take same (default screen size) in all the systems when you run BDC.
Thanks!!

How to handle screen resolution in bdc session method.

hi all,
how to handle screen resolution in bdc session method.

Hello,
Why do need that for? Is it to add rows on a table control??
If it does, add new rows by using the add button instead of adding into the table control directly to each row.
Bye
Gabriel.

How to handle screen resolution in ME21 fro a bdc programme

I need to use BDC program for ME21 for that how to handle the screen resolution,
i know CTU_PARAMS structure is there ,but how to use them, please send the model code.
Thanks & Regards
krishna

got the solution

How to handle multiple transaction in session method.

hi experts.
please tell me how to write code for multiple transaction in session methods.
Quest. -deanother question is exactly which method we have to follow , how todecide.
what r the conditions for selecting which method is suitable for which type of
transaction.

hi,
if you have run time validation while updating the data into SAP R/3 Transaction,then use BDC Call Transaction.
example : when you load the data into Sales order then you need to load the into Header text of sales order.
for this ,you have to use Update Mode 'S'.
it is online update and if you small amount of data ,then prefer this one
2. If you have huge amount of data and then prefer Session Method.
we have one more advantage in session method...
suppose file has 1,00,000 records and the if you use all the records at time,then you will get short dump like system time exceed .
then you can split the each 10,000 records into one session and will process.
3. Direct Input method : we prefer this method only few Transaction ,
this will not applicable to when system has customer fields .
for session method using multiple transactions.
Have one BDC_OPEN_GROUP, multiple BDC_INSERT s and one BDC_CLOSE_GROUP.
You should have multiple BDC_INSERT s for multiple transactions.
call function BDC_OPENGROUP.
Build BDC data and cal lBDC_INSERT for transaction 1
Build BDC data and cal lBDC_INSERT for transaction 2
Build BDC data and cal lBDC_INSERT for transaction 3
paas the tcodes to bdc_insert.
call function BDC_CLOSE_GROUP.

How to make screen resolution independent in BDC

How to make screen resolution independent in BDC

hi
good
You need to use the CTU_PARAM structure alon with the call transaction statment.
**Sturcture of CTU_PARAM
**DISMODE : Display mode (like the MODE addition 'A' , 'E', 'N')
**UPDMODE: Update mode (like the UPDATE addition 'S', 'A')
**DEFSIZE : Use default window size (Here we are handling those transaction by giving default window size)
**RACOMMIT: Do not end transaction at COMMIT WORK
**NOBINPT : No batch input mode (that is, SY-BINPT = SPACE)
**NOBIEND : No batch input mode after the end of BDC data.
*The components DEFSIZE , RACOMMIT, NOBINPT, and NOBIEND always take the following values:
'X' Yes
DATA : L_OPTION TYPE CTU_PARAMS, "Parameter string for runtime of CALL TRANSACTION
L_SUBRC TYPE SYSUBRC.
L_OPTION-DEFSIZE = 'X'.
L_OPTION-DISMODE = P_MODE.
L_OPTION-UPDMODE = 'S'.
CALL TRANSACTION 'FK01' "FK01-Vendor master creation
USING IT_BDCDATA
MESSAGES INTO IT_MESSTAB
OPTIONS FROM L_OPTION.
thanks
mrutyun^

Handling two transactions in session method at a time

Hi frnds
now im facing problem in handling two transactions in session method fs00,fspo
at a time.
i want some info.on how to handle two transactions at a time
thanx

Use the function module in the following sequence.
BDC_OPEN_GROUP.
BDC_INSERT. " for the first TCODE
BDC_INSERT. " for the second TCODE
BDC_CLOSE_GROUP.
This will solve your problem.
Reward if helpfull.
Thanks and regards,
Veerendranath Maddula.

How to create screen resolution in bdc table control

hi gurus
can anyone suggest me
how to create screen resolution in bdc table control
thanks&regards
mark.

Hi ,
Using CTU_PARAMS table for screen resolution .
For this sample code.
This is for Transation FB60.
report ZZFB60
       no standard page heading line-size 255.
tables t100.
PARAMETERS : p_file1 like rlgrap-filename,
             p_doctyp like RF05A-BUSCS,
             p_invdat like INVFO-BLDAT,
             p_posdat like INVFO-BUDAT.
CONSTANTS : C_TRANS_FB60(4) VALUE 'FB60'.
*Parameter string for runtime of CALL TRANSACTION
data : l_option type ctu_params,
       l_subrc type sysubrc.
DATA : l_mstring(150).
data      accnt type char17.
data       : day   type char2,
             month type char2,
             year type char4,
             date1 type char10,
             date2 type char10.
data      : cnt(2) TYPE n,
             cnt1 type i,
             fld(25) TYPE c.
data : begin of excel occurs 0,
        fieldname(255) type c,
       end of excel.
DATA:BEGIN OF it_mess OCCURS 0,
         msgtyp(5),
         lms(200),
          msgv1(50),
     END OF it_mess.
data: begin of t_record occurs 0,
         BUKRS(004),
        ACCNT(017),
        XBLNR(016),
        WRBTR1(016),
        WAERS(005),
        SECCO(004) ,
        SGTXT(050),
        HKONT(010),
        WRBTR2(017),
        MWSKZ(002),
        GSBER(004),
        KOSTL(010),
     end of t_record.
*Internal Table for Header Data
DATA : BEGIN OF t_head OCCURS 0,
        BUKRS(004),      "Company Code
        ACCNT(017),      "Account or Vendor
        XBLNR(016),      "Reference
        WRBTR1(017),     "Amount in document currency
        WAERS(005),      "Currency
        SECCO(004),      "Section Code
        SGTXT(050),      "Text
        END OF t_head.
*Internal table for Item Data
DATA : BEGIN OF t_item OCCURS 0,
        ACCNT(017),      "Account
        HKONT(010),     "GL Account
        WRBTR2(017),    "Line item Amount in document currency
        MWSKZ(002),     "Tax Code
        GSBER(004),     " Business Area
        KOSTL(010),     "Cost centre
        END OF t_item.
DATA: IT_BDCDATA      LIKE BDCDATA OCCURS 0 WITH HEADER LINE,
      IT_BDC_MESSAGES LIKE BDCMSGCOLL OCCURS 0 WITH HEADER LINE.
*include bdcrecx1.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file1.
PERFORM file_selection.
PERFORM data_upload.
PERFORM table_control.
start-of-selection.
l_option-defsize = 'X'.
l_option-dismode = 'A'.
l_option-updmode = 'S'.
day = p_invdat+6(2).
month = p_invdat+4(2).
year = p_invdat+0(4).
concatenate day month year into date1 SEPARATED BY '.'.
day = p_posdat+6(2).
month = p_posdat+4(2).
year = p_posdat+0(4).
concatenate day month year into date2 SEPARATED BY '.'.
*perform open_group.
loop at t_head.
CLEAR    IT_BDCDATA.
REFRESH IT_BDCDATA.
perform bdc_dynpro      using   'SAPLACHD'         '1000'.
perform bdc_field       using   'BDC_OKCODE'        '=ENTR'.
perform bdc_field       using   'BKPF-BUKRS'        t_head-bukrs.
perform bdc_dynpro      using   'SAPMF05A'          '1100'.
perform bdc_field       using   'BDC_OKCODE'        '/00'.
perform bdc_field       using   'RF05A-BUSCS'       p_doctyp.
perform bdc_field       using   'INVFO-ACCNT'       t_head-accnt.
perform bdc_field       using   'INVFO-BLDAT'       date1.
perform bdc_field       using   'INVFO-BUDAT'       date2.
perform bdc_field       using   'INVFO-XBLNR'       t_head-xblnr.
perform bdc_field       using   'INVFO-WRBTR'       t_head-wrbtr1.
perform bdc_field       using   'INVFO-WAERS'       t_head-waers.
perform bdc_field       using   'INVFO-SECCO'       t_head-secco.
perform bdc_field       using   'INVFO-SGTXT'       t_head-sgtxt.
cnt = 1.
cnt1 = 1.
loop at t_item where accnt = t_head-accnt.
*if cnt > 4.
*cnt = 4.
*endif.
if cnt1 gt 1.
CONCATENATE 'ACGL_ITEM-MARKSP(' cnt ')' INTO fld.
perform bdc_field      using   fld                   'X'.
perform bdc_dynpro      using 'SAPMF05A'          '1100'.
perform bdc_field       using 'BDC_OKCODE'        '=0005'.
endif.
perform bdc_dynpro      using 'SAPMF05A'          '1100'.
perform bdc_field       using   'BDC_OKCODE'        '/00'.
CONCATENATE 'ACGL_ITEM-HKONT(' cnt ')' INTO fld.
perform bdc_field       using fld                t_item-hkont.
CONCATENATE 'ACGL_ITEM-WRBTR(' cnt ')' INTO fld.
perform bdc_field using       fld                t_item-wrbtr2.
CONCATENATE 'ACGL_ITEM-MWSKZ(' cnt ')' INTO fld.
perform bdc_field       using fld                t_item-mwskz.
CONCATENATE 'ACGL_ITEM-GSBER(' cnt ')' INTO fld.
perform bdc_field       using fld                t_item-gsber.
CONCATENATE 'ACGL_ITEM-KOSTL(' cnt ')' INTO fld.
perform bdc_field       using fld                t_item-kostl.
perform bdc_field      using 'BDC_CURSOR' fld.
*CONCATENATE 'ACGL_ITEM-MARKSP(' cnt ')' INTO fld.
*perform bdc_field      using   fld                   'X'.
cnt1 = cnt1 + 1.
*cnt = cnt + 1.
*if cnt > 1.
*perform bdc_dynpro      using 'SAPMF05A'          '1100'.
*perform bdc_field       using 'BDC_OKCODE'        '=0005'.
**perform bdc_field       using 'BDC_OKCODE'        '=0006'.
*endif.
endloop.
perform bdc_dynpro      using 'SAPMF05A' '1100'.
perform bdc_field       using 'BDC_OKCODE'
                              '=BS'.
perform bdc_dynpro      using 'SAPMSSY0' '0120'.
perform bdc_field       using 'BDC_OKCODE'
                              '=BU'.
*perform bdc_transaction using 'FB60'.
CALL TRANSACTION C_TRANS_FB60 USING IT_BDCDATA options from l_option
                             MESSAGES INTO IT_BDC_MESSAGES.
perform error.
perform errordownload.
endloop.
*perform close_group.
*Form data_upload
FORM data_upload .
CALL FUNCTION 'WS_UPLOAD'
EXPORTING
   FILENAME              = p_file1
   FILETYPE              = 'DAT'
TABLES
    DATA_TAB             = t_record.
ENDFORM.                    " data_upload
*Form file_selection
FORM file_selection .
CALL FUNCTION 'F4_FILENAME'
    EXPORTING
      program_name = syst-cprog
      dynpro_number = syst-dynnr
      field_name    = 'p_file1'
    IMPORTING
      file_name     = p_file1.
ENDFORM.                    " file_selection
Form BDC_DYNPRO
FORM BDC_DYNPRO using program dynpro.
CLEAR IT_BDCDATA.
IT_BDCDATA-PROGRAM = PROGRAM.
IT_BDCDATA-DYNPRO = DYNPRO.
IT_BDCDATA-DYNBEGIN = 'X'.
APPEND IT_BDCDATA.
endform.
*Form BDC_FIELD
FORM bdc_field using fnam fval.
CLEAR IT_BDCDATA.
IT_BDCDATA-FNAM = FNAM.
IT_BDCDATA-FVAL = FVAL.
APPEND IT_BDCDATA.
ENDFORM.
Table Control
FORM table_control .
LOOP AT t_record.
    ON CHANGE OF t_record-accnt.
      MOVE-CORRESPONDING t_record TO t_head.
      APPEND t_head.
    ENDON.
loop at t_head.
         t_item-accnt   = t_head-accnt.
         t_item-hkont   = t_record-hkont.
         t_item-wrbtr2 = t_record-wrbtr2 .
         t_item-mwskz   = t_record-mwskz .
         t_item-gsber   = t_record-gsber .
         t_item-kostl   = t_record-kostl.
    APPEND t_item.
endloop.
     If t_record-level = 'H'.
         t_head-bukrs   = t_record-text1.
         t_head-accnt   = t_record-text2.
         t_head-xblnr   = t_record-text3.
         t_head-wrbtr1 = t_record-text4.
         t_head-waers   = t_record-text5.
         t_head-secco   = t_record-text6.
         t_head-sgtxt   = t_record-text7.
      APPEND t_head.
     else.
        t_item-accnt   = t_head-accnt.
        t_item-hkont   = t_record-text1.
        t_item-wrbtr2 = t_record-text2.
        t_item-mwskz   = t_record-text3.
        t_item-gsber   = t_record-text4.
        t_item-kostl   = t_record-text5.
     APPEND t_item.
     endif.
ENDLOOP.
ENDFORM.
FORM error .
LOOP AT IT_BDC_MESSAGES.
    IF IT_BDC_MESSAGES-msgtyp = 'E'.
   SELECT single * FROM t100 WHERE
                                sprsl = it_BDC_MESSAGES-msgspra
                                AND   arbgb = IT_BDC_MESSAGES-msgid
                                AND   msgnr = IT_BDC_MESSAGES-msgnr.
      IF sy-subrc = 0.
        l_mstring = t100-text.
        IF l_mstring CS '&1'.
          REPLACE '&1' WITH IT_BDC_MESSAGES-msgv1 INTO l_mstring.
          REPLACE '&2' WITH IT_BDC_MESSAGES-msgv2 INTO l_mstring.
          REPLACE '&3' WITH IT_BDC_MESSAGES-msgv3 INTO l_mstring.
          REPLACE '&4' WITH IT_BDC_MESSAGES-msgv4 INTO l_mstring.
        ELSE.
          REPLACE '&' WITH IT_BDC_MESSAGES-msgv1 INTO l_mstring.
          REPLACE '&' WITH IT_BDC_MESSAGES-msgv2 INTO l_mstring.
          REPLACE '&' WITH IT_BDC_MESSAGES-msgv3 INTO l_mstring.
          REPLACE '&' WITH IT_BDC_MESSAGES-msgv4 INTO l_mstring.
        ENDIF.
        CONDENSE l_mstring.
        it_mess-msgtyp = IT_BDC_MESSAGES-msgtyp.
        it_mess-lms = l_mstring.
        it_mess-msgv1 = IT_BDC_MESSAGES-msgv1.
        APPEND it_mess.
      ELSE.
        it_mess-msgtyp = IT_BDC_MESSAGES-msgtyp.
        it_mess-lms = l_mstring.
        it_mess-msgv1 = IT_BDC_MESSAGES-msgv1.
        APPEND it_mess.
      ENDIF.
    ENDIF.
ENDLOOP.
ENDFORM.
form errordownload.
*down the internal table to excel file.
call function 'EXCEL_OLE_STANDARD_DAT'
           EXPORTING
                file_name                 = 'c:/Error.xls'
           TABLES
                data_tab                  = it_mess
                fieldnames                = excel
           EXCEPTIONS
                file_not_exist            = 1
                filename_expected         = 2
                communication_error       = 3
                ole_object_method_error   = 4
                ole_object_property_error = 5
                invalid_filename          = 6
                invalid_pivot_fields      = 7
                download_problem          = 8
                others                    = 9.
endform.
Reward if useful
Regards,
Narasimha
Edited by: narasimha marella on May 13, 2008 12:12 PM

How to solve screen resolution in bdc

hi experts,
please tell me how to solve screen resolution in bdc.
regards.
subhasis

Hi,
Pls check other posts in SDN before posting ur thread..there is same thread related to this on this forum on same day.
Screen resolution means different in the screen display depending on ur system screen resolution.
suppose ur system resolution is diff and another's system is different then like in Tcode VA01, there will be 3 lineitems and another there will be 5 lineitems ,
so while doing recording and page down that will bw diff so there will be some problem
So u have to set the screen resolution as default by using CTU parameters..
write this code then
f_option-updmode = 'S'.
f_option-defsize = 'X'.* f
_option-dismode = 'N'.
*call transaction 'VA01' using bdcdata options from f_option messages into bdcerror.
Hope it helps.
Regards,
Sonika

How to change screen resolution on touchpad

how to change screen resolution on touchpad ?i was working on my tp and out of the blues my screen looks like it is at 800*600
or is this the screen itself that went bad?
can someboby please tell me the procedure to use the 12 mt warranty..
tia
Post relates to: HP TouchPad (WiFi)

Sorry to say reloading WebOS did not help this issue on my TP. contacted Support and was told to send it.Even sorrier to say that my TP is now lost. My tracking number reports it as delievered on Dec 5, but HP has no record of it.When I got back on Chat they are now also telling me that my TP serial number is a EU model, even though my box clearly states HP Touchpad ,US, 1.20,32gb,Wifi.
Not sure what that even has to do with it being lost now..if it is as they say and no warranty on it in US I just want it sent back.
******Clicking the Thumbs-Up button is a way to say -Thanks!.******
**Click Accept as Solution on a Reply that solves your issue to help others**

How can we handle multiple applications in session method

how can we handle multiple applications in .. session method.
can any body reply me.
thanks

Hari,
hi Check out this sample code to use session method
REPORT ztest_report
NO STANDARD PAGE HEADING
 LINE-SIZE 255
 MESSAGE-ID ZRASH.
 Internal Table Declarations *
*--Internal Table for Data Uploading.
DATA : BEGIN OF IT_FFCUST OCCURS 0,
 KUNNR(10),
 BUKRS(4),
 KTOKD(4),
 ANRED(15),
 NAME1(35),
 SORTL(10),
 STRAS(35),
 ORT01(35),
 PSTLZ(10),
 LAND1(3),
 SPRAS(2),
 AKONT(10),
 END OF IT_FFCUST.
*--Internal Table to Store Error Records.
DATA : BEGIN OF IT_ERRCUST OCCURS 0,
 KUNNR(10),
 EMSG(255),
 END OF IT_ERRCUST.
*--Internal Table to Store Successful Records.
DATA : BEGIN OF IT_SUCCUST OCCURS 0,
 KUNNR(10),
 SMSG(255),
 END OF IT_SUCCUST.
*--Internal Table for Storing the BDC data.
DATA : IT_CUSTBDC LIKE BDCDATA OCCURS 0 WITH HEADER LINE.
*--Internal Table for storing the messages.
DATA : IT_CUSTMSG LIKE BDCMSGCOLL OCCURS 0 WITH HEADER LINE.
DATA : V_FLAG1(1) VALUE ' ',
"Flag used for opening session.
 V_TLINES LIKE SY-TABIX,
 "For storing total records processed.
 V_ELINES LIKE SY-TABIX,
 "For storing the no of error records.
 V_SLINES LIKE SY-TABIX.
 "For storing the no of success records.
 Selection screen *
SELECTION-SCREEN BEGIN OF BLOCK B1.
PARAMETERS : V_FNAME LIKE RLGRAP-FILENAME,
 V_SESNAM LIKE RLGRAP-FILENAME.
SELECTION-SCREEN END OF BLOCK B1.
 Start-of-selection *
START-OF-SELECTION.
*-- Form to upload flatfile data into the internal table.
PERFORM FORM_UPLOADFF.
 TOP-OF-PAGE *
TOP-OF-PAGE.
WRITE:/ 'Details of the error and success records for the transaction'
ULINE.
SKIP.
 End of Selection *
END-OF-SELECTION.
*-- Form to Generate a BDC from the Uploaded Internal table
PERFORM FORM_BDCGENERATE.
*--To write the totals and the session name.
PERFORM FORM_WRITEOP.
*& Form form_uploadff
 Form to upload flatfile data into the internal table.
FORM FORM_UPLOADFF .
*--Variable to change the type of the parameter file name.
DATA : LV_FILE TYPE STRING.
LV_FILE = V_FNAME.
*--Function to upload the flat file to the internal table.
CALL FUNCTION 'GUI_UPLOAD'
 EXPORTING
 FILENAME = LV_FILE
 FILETYPE = 'ASC'
 HAS_FIELD_SEPARATOR = 'X'
 HEADER_LENGTH = 0
 READ_BY_LINE = 'X'
 DAT_MODE = ' '
IMPORTING
 FILELENGTH =
 HEADER =
 TABLES
 DATA_TAB = IT_FFCUST
 EXCEPTIONS
 FILE_OPEN_ERROR = 1
 FILE_READ_ERROR = 2
 NO_BATCH = 3
 GUI_REFUSE_FILETRANSFER = 4
 INVALID_TYPE = 5
 NO_AUTHORITY = 6
 UNKNOWN_ERROR = 7
 BAD_DATA_FORMAT = 8
 HEADER_NOT_ALLOWED = 9
 SEPARATOR_NOT_ALLOWED = 10
 HEADER_TOO_LONG = 11
 UNKNOWN_DP_ERROR = 12
 ACCESS_DENIED = 13
 DP_OUT_OF_MEMORY = 14
 DISK_FULL = 15
 DP_TIMEOUT = 16
 OTHERS = 17
IF SY-SUBRC = 0.
*--Deleting the headings from the internal table.
 DELETE IT_FFCUST INDEX 1.
*--Getting the total number of records uploaded.
 DESCRIBE TABLE IT_FFCUST LINES V_TLINES.
ENDIF.
ENDFORM. " form_uploadff
*& Form Form_bdcgenerate
 Form to Generate a BDC from the Uploaded Internal table
FORM FORM_BDCGENERATE .
*--Generating the BDC table for the fields of the internal table.
LOOP AT IT_FFCUST.
 PERFORM POPULATEBDC USING :
 'X' 'SAPMF02D' '0105',
 ' ' 'BDC_OKCODE' '/00' ,
 ' ' 'RF02D-KUNNR' IT_FFCUST-KUNNR,
 ' ' 'RF02D-BUKRS' IT_FFCUST-BUKRS,
 ' ' 'RF02D-KTOKD' IT_FFCUST-KTOKD,
 'X' 'SAPMF02D' '0110' ,
 ' ' 'BDC_OKCODE' '/00',
 ' ' 'KNA1-ANRED' IT_FFCUST-ANRED,
 ' ' 'KNA1-NAME1' IT_FFCUST-NAME1,
 ' ' 'KNA1-SORTL' IT_FFCUST-SORTL,
 ' ' 'KNA1-STRAS' IT_FFCUST-STRAS,
 ' ' 'KNA1-ORT01' IT_FFCUST-ORT01,
 ' ' 'KNA1-PSTLZ' IT_FFCUST-PSTLZ,
 ' ' 'KNA1-LAND1' IT_FFCUST-LAND1,
 ' ' 'KNA1-SPRAS' IT_FFCUST-SPRAS,
 'X' 'SAPMFO2D' '0120',
 ' ' 'BDC_OKCODE' '/00',
 'X' 'SAPMF02D' '0125',
 ' ' 'BDC_OKCODE' '/00',
 'X' 'SAPMF02D' '0130',
 ' ' 'BDC_OKCODE' '=ENTR',
 'X' 'SAPMF02D' '0340',
 ' ' 'BDC_OKCODE' '=ENTR',
 'X' 'SAPMF02D' '0360',
 ' ' 'BDC_OKCODE' '=ENTR',
 'X' 'SAPMF02D' '0210',
 ' ' 'KNB1-AKONT' IT_FFCUST-AKONT,
 ' ' 'BDC_OKCODE' '/00',
 'X' 'SAPMF02D' '0215',
 ' ' 'BDC_OKCODE' '/00',
 'X' 'SAPMF02D' '0220',
 ' ' 'BDC_OKCODE' '/00',
 'X' 'SAPMF02D' '0230',
 ' ' 'BDC_OKCODE' '=UPDA'.
*--Calling the transaction 'fd01'.
 CALL TRANSACTION 'FD01' USING IT_CUSTBDC MODE 'N' UPDATE 'S'
 MESSAGES INTO IT_CUSTMSG.
 IF SY-SUBRC <> 0.
*--Populating the error records internal table.
 IT_ERRCUST-KUNNR = IT_FFCUST-KUNNR.
 APPEND IT_ERRCUST.
 CLEAR IT_ERRCUST.
*--Opening a session if there is an error record.
 IF V_FLAG1 = ' '.
 PERFORM FORM_OPENSESSION.
 V_FLAG1 = 'X'.
 ENDIF.
*--Inserting the error records into already open session.
 IF V_FLAG1 = 'X'.
 PERFORM FORM_INSERT.
 ENDIF.
*--Populating the Success records internal table.
 ELSE.
 IT_SUCCUST-KUNNR = IT_FFCUST-KUNNR.
 APPEND IT_SUCCUST.
 CLEAR IT_SUCCUST.
 ENDIF.
*--Displaying the messages.
 IF NOT IT_CUSTMSG[] IS INITIAL.
 PERFORM FORM_FORMATMSG.
 ENDIF.
*--Clearing the message and bdc tables.
 CLEAR : IT_CUSTBDC[],IT_CUSTMSG[].
ENDLOOP.
*--Getting the total no of error records.
DESCRIBE TABLE IT_ERRCUST LINES V_ELINES.
*--Getting the total no of successful records.
DESCRIBE TABLE IT_SUCCUST LINES V_SLINES.
*--Closing the session only if it is open.
IF V_FLAG1 = 'X'.
 PERFORM FORM_CLOSESESS.
ENDIF.
ENDFORM. " Form_bdcgenerate
*& Form populatebdc
 FOrm to Populate the BDC table.
FORM POPULATEBDC USING VALUE(P_0178)
 VALUE(P_0179)
 VALUE(P_0180).
IF P_0178 = 'X'.
 IT_CUSTBDC-PROGRAM = P_0179.
 IT_CUSTBDC-DYNPRO = P_0180.
 IT_CUSTBDC-DYNBEGIN = 'X'.
ELSE.
 IT_CUSTBDC-FNAM = P_0179.
 IT_CUSTBDC-FVAL = P_0180.
ENDIF.
APPEND IT_CUSTBDC.
CLEAR IT_CUSTBDC.
ENDFORM. " populatebdc
*& Form FORM_OPENSESSION
 Form to Open a session.
FORM FORM_OPENSESSION .
*--Variable to convert the given session name into reqd type.
DATA : LV_SESNAM(12).
LV_SESNAM = V_SESNAM.
*--Opening a session.
CALL FUNCTION 'BDC_OPEN_GROUP'
 EXPORTING
 CLIENT = SY-MANDT
 GROUP = LV_SESNAM
 HOLDDATE = '20040805'
 KEEP = 'X'
 USER = SY-UNAME
 PROG = SY-CPROG
IMPORTING
 QID =
 EXCEPTIONS
 CLIENT_INVALID = 1
 DESTINATION_INVALID = 2
 GROUP_INVALID = 3
 GROUP_IS_LOCKED = 4
 HOLDDATE_INVALID = 5
 INTERNAL_ERROR = 6
 QUEUE_ERROR = 7
 RUNNING = 8
 SYSTEM_LOCK_ERROR = 9
 USER_INVALID = 10
 OTHERS = 11
IF SY-SUBRC <> 0.
 WRITE :/ 'Session not open'.
ENDIF.
ENDFORM. " FORM_OPENSESSION
*& Form FORM_INSERT
 fORM TO INSERT ERROR RECOED INTO A SESSION.
FORM FORM_INSERT .
*--Inserting the record into session.
CALL FUNCTION 'BDC_INSERT'
 EXPORTING
 TCODE = 'FD01'
 POST_LOCAL = NOVBLOCAL
 PRINTING = NOPRINT
 SIMUBATCH = ' '
 CTUPARAMS = ' '
 TABLES
 DYNPROTAB = IT_CUSTBDC
 EXCEPTIONS
 INTERNAL_ERROR = 1
 NOT_OPEN = 2
 QUEUE_ERROR = 3
 TCODE_INVALID = 4
 PRINTING_INVALID = 5
 POSTING_INVALID = 6
 OTHERS = 7
IF SY-SUBRC <> 0.
 WRITE :/ 'Unable to insert the record'.
ENDIF.
ENDFORM. " FORM_INSERT
*& Form FORM_CLOSESESS
 Form to Close the Open Session.
FORM FORM_CLOSESESS .
CALL FUNCTION 'BDC_CLOSE_GROUP'
 EXCEPTIONS
 NOT_OPEN = 1
 QUEUE_ERROR = 2
 OTHERS = 3.
IF SY-SUBRC <> 0.
ENDIF.
ENDFORM. " FORM_CLOSESESS
*& Form FORM_FORMATMSG
 Form to format messages.
FORM FORM_FORMATMSG .
*--Var to store the formatted msg.
DATA : LV_MSG(255).
CALL FUNCTION 'FORMAT_MESSAGE'
 EXPORTING
 ID = SY-MSGID
 LANG = SY-LANGU
 NO = SY-MSGNO
 V1 = SY-MSGV1
 V2 = SY-MSGV2
 V3 = SY-MSGV3
 V4 = SY-MSGV4
 IMPORTING
 MSG = LV_MSG
 EXCEPTIONS
 NOT_FOUND = 1
 OTHERS = 2.
IF SY-SUBRC = 0.
 WRITE :/ LV_MSG.
ENDIF.
ULINE.
ENDFORM. " FORM_FORMATMSG
*& Form form_writeop
 To write the totals and the session name.
FORM FORM_WRITEOP .
WRITE :/ 'Total Records Uploaded :',V_TLINES,
 / 'No of Error Records :',V_ELINES,
 / 'No of Success Records :',V_SLINES,
 / 'Name of the Session :',V_SESNAM.
ULINE.
ENDFORM. " form_writeop
Don't forget to reward if useful..

How to handle the call transaction in method of a custom business object

Hello all,
There is a custom report " RPTCORAPP" for approving leaves . As per my requirement i have develop a copy of leave workflow and for approval process i have call "RPTCORAPP" in Custom method of custom object. i have made a transaction for this custom report for approving attendances. I am calling this method though call transaction statement within method.
Problem: while approving the attendance workitem is not disappearing from the portal. Problem is due to call transaction statement.
               once workitem come to the user, user click on it. control goes to the report, which display all the leave to approve on
               the portal.
               If after approving/ rejecting attendance user close the screen.workflow remain in the "process" status.Control wont come back after call transaction statement in the method.
             At the same time if user clicks on back button inspite of closing the screen. it is working fine. workitem disappears from the portal.
How to handle the scenarion. if after approving/rejecting, i want the control to come back to the NEXT STATEMENT after call transactionstatement in my method.
Please help it out........:)

Hi swami,
thanks for reply. but i am not using BDC in my method. iam just calling a custom transaction thriugh statement
Call transaction 'ZHR_APPROVE_CLINOUT'. This transaction directly run the report RPTCORAPP and display all the request.

Handling screen resolution fields in me21 for bdc programming

I need to use BDC program for ME21 for that how to handle the screen resolution,
i know CTU_PARAMS structure is there ,but how to use them, please send the model code. for handling check boxes fields.

answered

How to get screen resolution settings

How do u get the present screen resolution from code?
thanks

The AWT Toolkit class has got a method called getScreenSize(), it returns an instance of Dimension.
I'm not sure what to do when you have multiple screens though; maybe the methods of the classes GraphicsEnvironment and GraphicsDevice can be used.

How to set screen resolution in BDC

hi pls give info regarding how to set resolution for screen
thank you
Ravi

hi,
For screen resolution use ctu_params, with default size
Data : f_option type ctu_params,
f_option-updmode = 'S'.
f_option-defsize = 'X'.
f_option-dismode = 'N'.
call transaction 'VA01' using bdcdata options from f_option messages into bdcerror.
CALL TRANSACTION tcode... OPTIONS FROM opt
... OPTIONS FROM opt
Effect
Allows you to control processing using the values of the componetns of the structure opt, which must have the ABAP Dictionary type CTU_PARAMS. The components have the following meanings:
DISMODE
Display mode (like the MODE addition)
UPDMODE
Update mode (like the UPDATE addition)
CATTMODE
CATT mode (controls a CATT)
CATT mode can have the following values:
' ' No CATT active
'N' CATT without single-screen control
'A' CATT with single-screen control
DEFSIZE
Use default window size
RACOMMIT
Do not end transaction at COMMIT WORK
NOBINPT
No batch input mode (that is, SY-BINPT = SPACE)
NOBIEND
No batch input mode after the end of BDC data.
The components DEFSIZE , RACOMMIT, NOBINPT, and NOBIEND always take the following values:
'X' Yes
' ' No
If you do not use the OPTIONS FROM addition, the following control parameter settings apply:
DISMODE
From addition MODE
UPDMODE
From addition UPDATE
CATTMODE
No CATT active
DEFSIZE
Do not use default window size
RACOMMIT
Successful end on COMMIT WORK
NOBINPT
Batch input mode active ( SY-BINPT = X
NOBIEND
Batch input mode remains active after the BDC data

How to handle screen resolution in session method

Similar Messages

Maybe you are looking for