Drawing API How to resize the box through

Hi There, Just wana know if I have created a box or L shape box dynamically, how it can be resized through specific points.
I have a project something like www.kitchenplanneronline.com and when you select a Layout section it gives you points to modify the size of the box.
Any help would be appreciated.
Thanks in advance.
Fred.

when you startDrag() of one of the resize points, start a loop that repeatedly redraws your shape.

Similar Messages

Drawing API How to resize the box

Hi Just wondering is any one knows any examples or code to resize the box or any shape with specific points, drawn dynamically?
Looking for something like www.kitchenplanneronline.com
Thanks,

You just redraw the shape as needed. It should be fast enough to look as though you're scaling, stretching it, but you're really just drawing it over and over according to your handle positions.

How to rectify the errors through call transaction metod in bdc

how to rectify the errors through call transaction metod in bdc

Hi ,
View the highlited part of the below code.
REPORT ygfrivat1 NO STANDARD PAGE HEADING
                 LINE-SIZE 165
                 MESSAGE-ID yif_groc.
Program     YGFRIVAT1
Function    Report to Upload the VAT Adjustment File.
Author      ARENAPU
Date        11.05.2007
PMTS        AM12810157
Transport   G6DK937834
Description:
Modification log:
1. Changed by :
   Changed on :
   PMTS        :
   Transport   :
   Tag         :
   Description :
       T A B L E S   D E C L A R A T I O N S
TABLES: edidc, "Control record (IDoc)
        edids, "Status Record (IDoc)
        t001w.
Internal Tables Declaration.
Internal table to hold data from table EDIDS
DATA: BEGIN OF t_edids OCCURS 0,
       docnum LIKE edids-docnum,
       logdat LIKE edids-logdat,
       logtim LIKE edids-logtim,
       countr LIKE edids-countr,
       credat LIKE edids-credat,
       uname LIKE edids-uname,
      END OF t_edids,
Internal table to hold data from table EDIDC
      BEGIN OF t_edidc OCCURS 0,
       docnum LIKE edidc-docnum,
       rcvprt LIKE edidc-rcvprt,
       rcvprn LIKE edidc-rcvprn,
       credat LIKE edidc-credat,
      END OF t_edidc,
Internal table to hold data from upload file
      BEGIN OF t_tab OCCURS 0,
       cust(10),        "site/customer number
       date(10),        "transaction date
       currency(04),    "currency
       extnbr(15),      "external reference number
       pos-cont(05),    "POS controler
       pos-id(25),      "POS id
       cashier(10),     "cashier name
       qualif(04),      "qualifier of the article
       matnr(25),       "article number
       qty(10),         "quantity
       sale(16),        "sale value
       pos-tr(04),      "POS transfert type
       paymeth(04),     "payment method
       final(35),       "final price
       tarcur(04),      "target currency
       assign(35),      "assignment day
       error,
      END OF t_tab,
Internal table for Report display.
      BEGIN OF t_tab1 OCCURS 0,
       cust(10),                    "site/customer number
       date(10),                    "transaction date
       currency(04),                "currency
       extnbr(15),                  "external reference number
       pos-cont(05),                "POS controler
       pos-id(25),                  "POS id
       cashier(10),                 "cashier name
       qualif(04),                  "qualifier of the article
       matnr(25),                   "article number
       qty(16)   TYPE p DECIMALS 2, "quantity
       sale(16) TYPE p DECIMALS 2, "sale value
       pos-tr(04),                  "POS transfert type
       paymeth(04),                 "payment method
       final(16) TYPE p DECIMALS 2, "final price
       tarcur(04),                  "target currency
       assign(35),                  "assignment day
      END OF t_tab1,
      t_tab_temp LIKE t_tab OCCURS 0 WITH HEADER LINE,
Internal table to Validate Customer no.
      BEGIN OF t_check OCCURS 0,
       werks LIKE t001w-werks,
       vkorg LIKE t001w-vkorg,
       value(40),
      END OF t_check,
      t_check_temp LIKE t_check OCCURS 0 WITH HEADER LINE.
Internal table to hold data from table ZCS_PARAM.
DATA: BEGIN OF t_zcs_param OCCURS 0.
        INCLUDE STRUCTURE zcs_param.
DATA: vkorg LIKE t001w-vkorg,
      END OF t_zcs_param.
*Internal table to hold Messages.
DATA: BEGIN OF t_message OCCURS 0,
         msgnum TYPE msgnum,
         msgtyp TYPE msgtyp,
         msgtxt TYPE msgtext,
       END OF t_message.
*Work area for table t_message
DATA : w_message LIKE LINE OF t_message.
Internal table to hold BDC data
DATA: t_bdcdata LIKE bdcdata    OCCURS 0 WITH HEADER LINE,
Internal table to collect error messages
      messtab   LIKE bdcmsgcoll OCCURS 0 WITH HEADER LINE.
*Internal table to hold messages from call transaction
DATA: BEGIN OF t_text OCCURS 0,
       desc(150),
       msgtxt(100),
      END OF t_text.
       D A T A   D E C L A R A T I O N S
DATA: n TYPE i,
      gv_status(11) TYPE c, "Shows status, Production or Test
      gv_exit TYPE c, "Exit Flag
      gv_qty(16)   TYPE p DECIMALS 2, "Variable to sum Quantity
      gv_sale(16) TYPE p DECIMALS 2, "Variable to sum Amount
      gv_final(16) TYPE p DECIMALS 2. "Variable to sum Final Amount
DATA: w_text(100),
      gv_mode TYPE c,
      error TYPE c. "Flag to Indicate error.
CONSTANSTS DECLARATION
CONSTANTS : gc_fieldname LIKE dynpread-fieldname VALUE 'P_FNAME',
            gc_seq_no LIKE zcs_param-seq_no VALUE '00110',
            gc_object LIKE zcs_param-object VALUE 'YGFVAT',
            gc_paraname LIKE zcs_param-paraname VALUE 'VKORG',
            gc_back TYPE c VALUE 'N',
            gc_error TYPE c VALUE 'E',
            gc_all TYPE c VALUE 'A'.
           S E L E C T I O N   S C R E E N
SELECTION-SCREEN BEGIN OF BLOCK a1 WITH FRAME TITLE text-001.
PARAMETERS : p_fname LIKE rlgrap-filename OBLIGATORY.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 1(31) text-002 FOR FIELD p_test.
PARAMETERS : p_test AS CHECKBOX.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN END OF BLOCK a1.
SELECTION-SCREEN BEGIN OF BLOCK a2 WITH FRAME TITLE text-006.
PARAMETERS : rb_back RADIOBUTTON GROUP rb1 DEFAULT 'X',
             rb_error RADIOBUTTON GROUP rb1,
             rb_all RADIOBUTTON GROUP rb1.
SELECTION-SCREEN END OF BLOCK a2.
AT SELECTION SCREEN
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_fname.
*Subroutine to provide F4 help for file name
PERFORM fr_get_filename.
       I N I T I A L I Z A T I O N
INITIALIZATION.
*Subroutine to check authorization.
PERFORM fr_authority_check.
        T O P - O F - P A G E
TOP-OF-PAGE.
*Subroutine to diplay header
PERFORM fr_display_header.
         S T A R T - O F - S E L E C T I O N
START-OF-SELECTION.
*Subroutine to upload data from presentation server.
PERFORM fr_upload_data.
*Subroutine to validate records from uploaded file.
PERFORM fr_validate_data.
*Subroutine to build report internal table.
PERFORM fr_build_rep.
         E N D - O F - S E L E C T I O N
END-OF-SELECTION.
*Subroutine to display report.
PERFORM fr_write_report.
        F O R M   S U B R O U T I N E S
*&      Form fr_get_filename
      text
FORM fr_get_filename.
DATA : lv_repid LIKE sy-repid,         " Report id
         lv_file LIKE ibipparms-path.   " File Path
lv_repid = sy-repid.
F4 help for file path.
CALL FUNCTION 'F4_FILENAME'
       EXPORTING
            program_name = lv_repid
            dynpro_number = syst-dynnr
            field_name    = gc_fieldname                    " p_fname1
       IMPORTING
            file_name     = lv_file.
IF NOT lv_file EQ space.
    p_fname = lv_file.
ELSE.
    MESSAGE e999 WITH 'Invalid Path'(005).
ENDIF.
ENDFORM.                    " fr_get_filename
*&      Form fr_upload_data
      text
FORM fr_upload_data.
DATA: lv_fname TYPE string.
CLEAR lv_fname.
lv_fname = p_fname.
Uploading file from PC or presentation server to internal table.
CALL FUNCTION 'GUI_UPLOAD'
       EXPORTING
            filename            = lv_fname
            filetype            = 'ASC'
            has_field_separator = 'X'
       TABLES
            data_tab            = t_tab
       EXCEPTIONS
            file_open_error     = 1.
IF sy-subrc <> 0.
    DESCRIBE TABLE t_message LINES n.
    w_message-msgnum = n + 1.
    w_message-msgtyp = 'E'.
    MOVE text-m01 TO w_message-msgtxt.
    APPEND w_message TO t_message.
Subroutine for writing log.
    PERFORM fr_write_log.
ENDIF.
ENDFORM.                    " fr_upload_data
*&      Form fr_validate_data
      text
FORM fr_validate_data.
DATA : lv_lines1 TYPE i,
         lv_lines2 TYPE i.
*Obtain Status depending on Check box selected.
IF p_test IS INITIAL.
    gv_status = 'PRODUCTION'.
ELSE.
    gv_status = 'TEST RUN'.
ENDIF.
*Batch Mode
CLEAR gv_mode.
IF rb_back EQ 'X'.          "No Display
    MOVE gc_back TO gv_mode.
ELSEIF rb_error EQ 'X'.     "Error Only
    MOVE gc_error TO gv_mode.
ELSEIF rb_all EQ 'X'.       "All Screens
    MOVE gc_all TO gv_mode.
ENDIF.
IF NOT t_tab[] IS INITIAL.
    SORT t_tab BY cust.
    REFRESH t_tab_temp.
    t_tab_temp[] = t_tab[].
    SORT t_tab_temp BY cust.
    DELETE ADJACENT DUPLICATES FROM t_tab_temp COMPARING cust.
    IF NOT t_tab_temp[] IS INITIAL.
      SELECT werks vkorg FROM t001w
                         INTO TABLE t_check
                         FOR ALL ENTRIES IN t_tab_temp
                         WHERE werks = t_tab_temp-cust+0(4).
      IF sy-subrc = 0.
        SORT t_check BY werks.
      ENDIF.
      LOOP AT t_check.
        IF t_check-vkorg <> ' '.
          MOVE t_check-vkorg TO t_check-value.
          MODIFY t_check TRANSPORTING value.
        ENDIF.
      ENDLOOP.
    ENDIF.
    FREE t_tab_temp.
ENDIF.
IF NOT t_check[] IS INITIAL.
    REFRESH t_check_temp.
    t_check_temp[] = t_check[].
    SORT t_check_temp BY value.
    DELETE ADJACENT DUPLICATES FROM t_check_temp COMPARING value.
    IF NOT t_check_temp[] IS INITIAL.
      SELECT * FROM zcs_param INTO TABLE t_zcs_param
               FOR ALL ENTRIES IN t_check_temp
               WHERE seq_no   EQ gc_seq_no
                 AND object   EQ gc_object
                 AND paraname EQ gc_paraname
                 AND value    EQ t_check_temp-value.
      IF sy-subrc = 0.
        SORT t_zcs_param BY value.
      ENDIF.
    ENDIF.
    FREE t_check_temp.
ENDIF.
IF NOT t_tab[] IS INITIAL.
    LOOP AT t_tab.
      READ TABLE t_check WITH KEY werks = t_tab-cust BINARY SEARCH.
      IF sy-subrc <> 0.
        MOVE 'X' TO t_tab-error.
        MODIFY t_tab TRANSPORTING error.
        DESCRIBE TABLE t_message LINES n.
        w_message-msgnum = n + 1.
        w_message-msgtyp = 'E'.
        CONCATENATE t_tab-cust text-030
        INTO w_message-msgtxt SEPARATED BY space.
        APPEND w_message TO t_message.
Subroutine for writing log.
        PERFORM fr_write_log.
        EXIT.
      ELSE.
        READ TABLE t_zcs_param WITH KEY value = t_check-vkorg
                                                     BINARY SEARCH.
        IF sy-subrc <> 0.
          MOVE 'X' TO t_tab-error.
          MODIFY t_tab TRANSPORTING error.
          DESCRIBE TABLE t_message LINES n.
          w_message-msgnum = n + 1.
          w_message-msgtyp = 'E'.
          CONCATENATE text-003 t_tab-cust text-004 t_check-vkorg
          INTO w_message-msgtxt SEPARATED BY space.
          APPEND w_message TO t_message.
Subroutine for writing log.
          PERFORM fr_write_log.
          EXIT.
        ELSE.
          PERFORM fr_format_tab.
        ENDIF.
      ENDIF.
    ENDLOOP.
ENDIF.
DESCRIBE TABLE t_tab LINES lv_lines1.
IF lv_lines1 <> 0.
    DELETE t_tab WHERE error EQ 'X'.
ENDIF.
DESCRIBE TABLE t_tab LINES lv_lines2.
IF lv_lines2 <> 0.
    IF lv_lines2 <> lv_lines1.
      EXIT.
    ELSE.
      IF p_test IS INITIAL.
        LOOP AT t_tab.
*Subroutine to build BDC table
          PERFORM fr_fill_bdctab.
*Subroutine to Post Data into SAP.
          PERFORM fr_data_posting.
        ENDLOOP.
      ENDIF.
    ENDIF.
ENDIF.
ENDFORM.                    " fr_validate_data
*&      Form fr_write_log
      text
FORM fr_write_log.
CLEAR error.
error = 'X'.
WRITE:/1 'Msg No'(027), 10 'Type'(028), 20 'Text'(029).
ULINE:/1(120).
FORMAT RESET.
LOOP AT t_message.
    IF t_message-msgtyp = 'E'.
      FORMAT COLOR 6 INTENSIFIED .
    ELSEIF t_message-msgtyp = 'W'.
      FORMAT COLOR 3 INTENSIFIED .
    ELSEIF t_message-msgtyp = 'I'.
      FORMAT COLOR 5 INTENSIFIED .
    ENDIF.
    WRITE:/1 t_message-msgnum,
          10 t_message-msgtyp,
          20 t_message-msgtxt.
    FORMAT RESET.
ENDLOOP.
ULINE:/1(120).
ENDFORM.                    " fr_write_log
*&      Form fr_write_report
      text
FORM fr_write_report.
CLEAR gv_exit.
LOOP AT t_message.
    IF t_message-msgtyp = 'E'.
      gv_exit = 'X'.
      EXIT.
    ENDIF.
ENDLOOP.
IF NOT gv_exit IS INITIAL.
    EXIT.
ELSE.
    PERFORM fr_display_report.
    IF NOT t_text[] IS INITIAL.
Subroutine for Display Call Transaction messages.
      PERFORM fr_write_msg.
    ENDIF.
ENDIF.
ENDFORM.                    " fr_write_report
*&      Form fr_display_report
      text
FORM fr_display_report.
IF NOT t_tab1[] IS INITIAL.
    CLEAR: gv_qty, gv_sale, gv_final.
    LOOP AT t_tab1.
      WRITE:/1(10) t_tab1-cust,
            13(10) t_tab1-date,
            25(05) t_tab1-currency,
            32(14) t_tab1-extnbr,
            48(09) t_tab1-pos-cont,
            60(18) t_tab1-matnr,
            80(16) t_tab1-qty RIGHT-JUSTIFIED ,
            98(16) t_tab1-sale RIGHT-JUSTIFIED ,
           116(07) t_tab1-paymeth,
           125(16) t_tab1-final RIGHT-JUSTIFIED,
           143(06) t_tab1-tarcur,
           152(12) t_tab1-assign.
      gv_qty   = t_tab1-qty   + gv_qty.
      gv_sale = t_tab1-sale + gv_sale.
      gv_final = t_tab1-final + gv_final.
    ENDLOOP.
    FORMAT COLOR 3.
    ULINE: /(164).
    WRITE:/ 'TOTALS',
      80(16) gv_qty RIGHT-JUSTIFIED,
      98(16) gv_sale RIGHT-JUSTIFIED,
     125(16) gv_final RIGHT-JUSTIFIED,
     182 ''.
    ULINE: /(164).
    FORMAT RESET.
ENDIF.
ENDFORM.                    " fr_display_report
*&      Form FR_DISPLAY_HEADER
      text
FORM fr_display_header.
IF error IS INITIAL.
    FORMAT COLOR 1.
    WRITE:/ 'Date upload           :'(007),   25 sy-datum, 38 ''.
    WRITE:/ 'Production or Test Run:'(008),   25 gv_status, 38 ''.
    WRITE:/ 'Upload User Logon     :'(009),   25 sy-uname, 38 ''.
    ULINE: /(164).
    WRITE:/1(04) 'Site'(010),
          13(10) 'Date'(011),
          25(05) 'Curr.'(012),
          32(14) 'Receipt'(013),
          48(09) 'Cashier'(014),
          60(18) 'Article'(015),
          92     'Qty'(016),
          102    'Item Amount'(017),
          116(7) 'M.o.P.'(018),
          128    'Tender Amount'(019),
          143(6) 'T.Curr'(020),
         152(12) 'Assignment'(021).
    ULINE:/(164).
    FORMAT RESET.
ENDIF.
ENDFORM.                    " FR_DISPLAY_HEADER
*&      Form fr_newdynpro
      text
FORM fr_newdynpro USING program LIKE bdcdata-program
                        dynpro LIKE bdcdata-dynpro.
t_bdcdata-program = program .
t_bdcdata-dynpro = dynpro.
t_bdcdata-dynbegin = 'X'.
APPEND t_bdcdata.
CLEAR t_bdcdata.
ENDFORM.                    " fr_newdynpro
*&      Form fr_loadfield
      text
FORM fr_loadfield USING field LIKE bdcdata-fnam
                        value.
t_bdcdata-fnam = field.
t_bdcdata-fval = value.
APPEND t_bdcdata.
CLEAR t_bdcdata.
ENDFORM.                    " fr_loadfield
*&      Form fr_fill_bdctab
      text
FORM fr_fill_bdctab.
REFRESH t_bdcdata.
PERFORM fr_newdynpro USING 'SAPMWPUK' '100'.
PERFORM fr_loadfield USING 'G_FILIALE' t_tab-cust.
PERFORM fr_loadfield USING 'G_DATUM'   t_tab-date.
PERFORM fr_loadfield USING 'BDC_OKCODE' 'BON'.
PERFORM fr_newdynpro USING 'SAPMWPUK' '500'.
PERFORM fr_loadfield USING 'WPSCB01-POSKREIS'   t_tab-pos-cont.
PERFORM fr_loadfield USING 'WPSCB01-KASSID'     t_tab-pos-id.
PERFORM fr_loadfield USING 'WPSCB01-BELEGWAERS' t_tab-currency.
PERFORM fr_loadfield USING 'WPSCB01-CSHNAME'    t_tab-cashier.
PERFORM fr_loadfield USING 'WPSCB01-BONNUMMER' t_tab-extnbr.
PERFORM fr_loadfield USING 'E1WPB02-QUALARTNR(01)' t_tab-qualif.
PERFORM fr_loadfield USING 'E1WPB02-ARTNR(01)'      t_tab-matnr.
PERFORM fr_loadfield USING 'E1WPB02-MENGE(01)'      t_tab-qty.
PERFORM fr_loadfield USING 'WPSCB03-KONDVALUE(01)' t_tab-sale.
PERFORM fr_loadfield USING 'E1WPB02-VORGANGART(01)' t_tab-pos-tr.
PERFORM fr_loadfield USING 'BDC_OKCODE' 'ZAHL'.
PERFORM fr_newdynpro USING 'SAPMWPUK' '530'.
PERFORM fr_loadfield USING 'WPSCB06-ZAHLART' t_tab-paymeth.
PERFORM fr_loadfield USING 'WPSCB06-SUMME'    t_tab-final.
PERFORM fr_loadfield USING 'WPSCB06-WAEHRUNG' t_tab-tarcur.
PERFORM fr_loadfield USING 'WPSCB06-ZUONR'    t_tab-assign.
PERFORM fr_loadfield USING 'BDC_OKCODE' 'SAVE'.
PERFORM fr_newdynpro USING 'SAPMWPUK' '530'.
PERFORM fr_loadfield USING 'WPSCB06-ZAHLART' t_tab-paymeth.
PERFORM fr_loadfield USING 'WPSCB06-SUMME'    t_tab-final.
PERFORM fr_loadfield USING 'WPSCB06-WAEHRUNG' t_tab-tarcur.
PERFORM fr_loadfield USING 'WPSCB06-ZUONR'    t_tab-assign.
PERFORM fr_loadfield USING 'BDC_OKCODE' 'BACK'.
PERFORM fr_newdynpro USING 'SAPLSPO1' '0200'.
PERFORM fr_loadfield USING 'BDC_OKCODE' 'YES'.
PERFORM fr_newdynpro USING 'SAPMWPUK' '100'.
PERFORM fr_loadfield USING 'G_FILIALE' t_tab-cust.
PERFORM fr_loadfield USING 'G_DATUM'   t_tab-date.
PERFORM fr_loadfield USING 'BDC_OKCODE' 'BACK'.
ENDFORM.                    " fr_fill_bdctab
*&      Form fr_data_posting
      text
FORM fr_data_posting.
IF NOT t_bdcdata[] IS INITIAL.
    REFRESH messtab.
    CALL TRANSACTION 'WPUK' USING t_bdcdata
                            MODE gv_mode
                            UPDATE 'S'
                            MESSAGES INTO messtab.
    IF sy-subrc = 0 .
      CLEAR w_text.
      LOOP AT messtab.
        CALL FUNCTION 'FORMAT_MESSAGE'
             EXPORTING
                  id        = messtab-msgid
                  lang      = sy-langu
                  no        = messtab-msgnr
                  v1        = messtab-msgv1
                  v2        = messtab-msgv2
                  v3        = messtab-msgv3
                  v4        = messtab-msgv4
             IMPORTING
                  msg       = w_text
             EXCEPTIONS
                  not_found = 1
                  OTHERS    = 2.
        MOVE w_text TO t_text-msgtxt.
        CONCATENATE 'Site:'(031)    t_tab-cust
                    'Article:'(024) t_tab-matnr
                    'Posted Sucessfully'(032)
          INTO t_text-desc SEPARATED BY space.
        APPEND t_text.
        CLEAR t_text.
      ENDLOOP.
    ELSE.
      CLEAR w_text.
      LOOP AT messtab.
        CALL FUNCTION 'FORMAT_MESSAGE'
             EXPORTING
                  id        = messtab-msgid
                  lang      = sy-langu
                  no        = messtab-msgnr
                  v1        = messtab-msgv1
                  v2        = messtab-msgv2
                  v3        = messtab-msgv3
                  v4        = messtab-msgv4
             IMPORTING
                  msg       = w_text
             EXCEPTIONS
                  not_found = 1
                  OTHERS    = 2.
        MOVE w_text TO t_text-msgtxt.
        IF messtab-msgnr EQ '213'.
          CONCATENATE 'Site:'(031)    t_tab-cust
                      'Article:'(024) t_tab-matnr
                      'Posted Sucessfully'(032)
           INTO t_text-desc SEPARATED BY space.
          APPEND t_text.
          CLEAR t_text.
          EXIT.        ELSE.
          CONCATENATE 'Site:'(031)    t_tab-cust
                      'Article:'(024) t_tab-matnr
                      'Not Posted'(033)
           INTO t_text-desc SEPARATED BY space.
          APPEND t_text.
          CLEAR t_text.
        ENDIF.
      ENDLOOP.
    ENDIF.
ENDIF.
ENDFORM.                    " fr_data_posting
*&      Form fr_authority_check
      text
FORM fr_authority_check.
AUTHORITY-CHECK OBJECT 'Y_VATADJ'
           ID 'VKORG' FIELD t001w-vkorg
           ID 'TCD'   FIELD 'YGFVAT'.
IF sy-subrc NE 0.
    MESSAGE e999 WITH text-m02.
ENDIF.
ENDFORM.                    " fr_authority_check
*&      Form fr_write_msg
      text
FORM fr_write_msg.
SKIP.
ULINE:/(164).
WRITE:/
'Messages encountered while Calling Transaction WPUK'(025),
      90 'Message Text'(026).
ULINE:/1(164).
LOOP AT t_text.
    WRITE:/1 t_text-desc,
          90 t_text-msgtxt,
          164 ''.
ENDLOOP.
ULINE:/1(164).
ENDFORM.                    " fr_write_msg
*&      Form FR_BUILD_REP
      text
FORM fr_build_rep.
IF error IS INITIAL.
    IF NOT t_tab[] IS INITIAL.
      LOOP AT t_tab.
        MOVE:
          t_tab-cust     TO t_tab1-cust,        "site/customer number
          t_tab-date     TO t_tab1-date,        "transaction date
          t_tab-currency TO t_tab1-currency,    "currency
        t_tab-extnbr   TO t_tab1-extnbr,      "external reference number
          t_tab-pos-cont TO t_tab1-pos-cont,    "POS controler
          t_tab-pos-id   TO t_tab1-pos-id,      "POS id
          t_tab-cashier TO t_tab1-cashier,     "cashier name
         t_tab-qualif   TO t_tab1-qualif,      "qualifier of the article
          t_tab-matnr    TO t_tab1-matnr,       "article number
          t_tab-pos-tr   TO t_tab1-pos-tr,      "POS transfert type
          t_tab-paymeth TO t_tab1-paymeth,     "payment method
          t_tab-tarcur   TO t_tab1-tarcur,      "target currency
          t_tab-assign   TO t_tab1-assign.
        REPLACE ',' WITH '.' INTO t_tab-qty.
        CONDENSE t_tab-qty NO-GAPS.
        MOVE t_tab-qty TO t_tab1-qty.
        REPLACE ',' WITH '.' INTO t_tab-sale.
        CONDENSE t_tab-sale NO-GAPS.
        MOVE t_tab-sale TO t_tab1-sale.
        REPLACE ',' WITH '.' INTO t_tab-final.
        CONDENSE t_tab-final NO-GAPS.
        MOVE t_tab-final TO t_tab1-final.
        APPEND t_tab1.
        CLEAR t_tab1.
      ENDLOOP.
    ENDIF.
ENDIF.
ENDFORM.                    " FR_BUILD_REP
*&      Form fr_format_tab
      text
FORM fr_format_tab.
DATA : lv_qty TYPE string.
IF NOT t_tab-qty IS INITIAL.
    IF t_tab-qty+0(1) EQ '-'.
      CLEAR lv_qty.
      MOVE t_tab-qty TO lv_qty.
      CLEAR t_tab-qty.
      SHIFT lv_qty LEFT CIRCULAR.
      CONDENSE lv_qty NO-GAPS.
      MOVE lv_qty TO t_tab-qty.
      MODIFY t_tab TRANSPORTING qty.
    ENDIF.
ENDIF.
ENDFORM.                    " fr_format_tab

How to update the BOX version of the Logic Pro 9 in Mountain Lion??

Hi!
How to update the BOX version of the Logic Pro 9 in Mountain Lion?
For example, if tomorrow will be new updates for Logic Pro for exapmle 9.1.8. (now I have 9.1.7) Will I not able to get it?? Now should I buy the second Logic pro??
Recently I have got answer from App Store support:
"Max, since you have not purchased the app in the App Store, you can't get updates directly in App Store. In this case, you will need to purchase the updated version in the App Store so you can get further updates."
It's... I bought Logic Pro 9 + MainStage + + +++ .... in the Apple Retail Store and what now?? Updates works perfect in Snow Leopard.
I can't understand...
Can you help me please? =)

Max,
Rest assurred, you will get updates via the App store. What will happen is when you install the box version, the Mac App Store will ping when there is an update to download(for free), much like any other Apple app(Garageband, iWork, etc) regardless of where you bought it from. If it's installed, it will check for updates.
If the Mac App store doesn't show an update that you know is out, simply down it directly from support.apple.com and apply it.
Hope this helps. If so, LIKE the post.
Glenn

I have a problem with mail. the spelling and grammer check box before sending the messege is no longer there. I did everything but cannot get it back. is ther anyone who knows how to get the box with spelling and grammer checks before sending

i have a problem with mail. the spelling and grammer check box before sending the messege is no longer there. I did everything but cannot get it back. is ther anyone who knows how to get the box with spelling and grammer checks before sending the mail.
Also the mail is acting very funny by not getting the rules work in a proper method. Is ther a software to repair mail.

i did both of them, but still the while sending the mail the diolog box is not showing up and also the spelling and grammer does not do the spelling check.
This problem just started for about 3 to 4 days now. earlier it was working normally.

How to call the Jsp through BPM Obejct

Hi,
I have gone through the some topic, how to call the Jsp through BPM Object.
I have followed step below,
1. I have create the sample jsp page
2. Import into BPM studio under webroot\custom Jsp
3. Created the screenflow and added the "Interactive Component call" object
4. Right Click the Object and selected Maintask and Implementation type as "BPM Object Interactive Call"
5. Selected the use JSP presentation object option and when i click ok its showing "BPM instance object must be selected"
But when i select the Instance Variable tab, its not showing anything.
Can any one help me how to call the Jsp in screenflow with step by step procedure, that would be very greate help for me.
Regards,
Anandh P

Hi,
You are running a jsp report through rwservlet. In this case paper layout will be displayed. You have to deploy your jsp as web report to get the web layout. Please refer to the doc below, which describes how to deploy the web report.
http://download-uk.oracle.com/docs/html/B10314_01/pbr_run.htm#1011901
To run the jsp report, URL may look like
http://www.wwt.com/reports/<jsp name>?<parameter list>
Hope this helps
Vinayak

Guys, i want to ask on how to resize the images into 1200 pixels wide?

Guys, i want to ask on how to resize the images into 1200 pixels wide, how to do it? and what are the step by steps on doing that? thank you!!!

See this link: http://forums.adobe.com/docs/DOC-3691

How to budget the WBS through Investment management

Hi,
How to budget the WBS through Investment management. I tried IM52 but its not budgeting. Actually I have assigned the TOP WBS element to Appropriation request and assined the AR to Investment program, in that TOP WBS there are more than 20 low level WBS so I want to budget those WBS element which are under top WBS.
Regrads,
Ajay

Hi AjayKumar,
Assign IM Program type in your defaulted Budget profile and assign investment profile in project profile. make sure all settings are correct in Investment profile and budget profile. now assign budget to the IM Position ID to which Top level WBSE is assigned through AR. try to allocate budget from IM Position ID to Top Level WBSE. Once allocated check in CJ30 and you can further distribute the allocated budget from top level WBSE to lower level WBS Elements. You have to manually distribut budget from top level WBS Element to lower level wbs elements.
Hope this clears you !
Br
Hari

How to resize the hard drive

how to resize the hard drive

You can usually find your Mac and the instructions to do so by looking it up on this page.
http://support.apple.com/specs/

How large is the box? (online orders)

I just got word that my 15" shipped this morning (yay!). I went to the campus bookshop to look at the MBPs there, and I saw that the actual box for the MBP is very small. I was wondering how much larger the box that that box is shipped in?

It's a shrink-wrap fit but don't worry. The method and type of foam used by Apple ensures a very safe transport. If in fact, this is your concern. To be more specific: 5.5 x 19.25 x 19.25 inches.
Regards,
2.16 MBP (FW 1.0.1) Week-12 build Mac OS X (10.4.6) G4 Tower (OS 9/10), Dell 620 WorkStation (XP Pro), Gateway P4 (XP Home)

HT204266 How to update the app through iTune if its size is too big?

How to update the app through iTune if its size is too big?

If your actually wanting to update your iPhone to IOS 6 and you don't have enough memory available, you still need to the action Chrisfromgastonia recommended. You will find that Movies and TV Shows being moved to your itunes will free up the largest amount of space. If IOS 6 is your objective, you may be able to re-download the Movies / Videos after the update.

How do you resize the box and font size when adding comments

We add numbers and comments to our technical drawings but we cannot seem to control the font size or the color of the font.

<<...I create the box sometimes it is 1 character wide...>>
I'm not sure how are you getting that 1 character width sometime (that is really strange), ideally, it is always 10/12 characters width.
<<...I would like to make the 1 character wide format as the default if it is possible... >>
No, I don't think it is possible to make 1 character width as default. If someone wants 1 character width, just Click-n-Drag (like you draw a box).
<<... I have to shorten it by click and drag and that takes time especially when I have to add 300 numbers...>>
Copy/paste doesn't make sense here??
If Outline and Background color is not needed, than why don't you use "Add or Edit Text Box" (aka Typewriter)
Goto 'Tools' pane > Content > Edit Text & Objects > "Add or Edit Text Box"

How to get the BOX Serial No.

Someone, know how I can get the BOX Serial Number?
I tried with: java.lang.System.getProperty();, but i retrieve only the Company Manufacturer:
java.lang.System.getProperty("havi.implementation.vendor");
I see this in HAVI documentation Api but, i not found how i can get the serial number, anyone know what i can do? Or where i can find the right Api? or if is write in a file in the system and what file?
Thank you

I'm glad that you found the site useful.
The closest thing to a complete list of properties that's available is in the MHP spec in section 11.3.1.1, part g (yes, they couln't have hidden it much better)
The properties that must be supported by an MHP receiver are:
- file.separator
- path.separator
- line.separator
- dvb.returnchannel.timeout
- dvb.persistent.root (only available if the application has permission to access the persistent filesystem)
There are a couple of extra properties that you can get from the Xlet Context using getXletProperty():
- dvb.org.id
- dvb.app.id
- dvb.caller.parameters
dvb.org.id and dvb.app.id give you the organisation ID and application ID for that application, as indicated in the application signalling. dvb.caller.parameters gives you the arguments that were passed to the Xlet if it was started by another app using the application listing and launching API - if it was started in the normal way then this is empty. A few more details about these is given in part 11.7.1.1 of the MHP spec.
This information should make it up on to my website sometime soon - I'm busy working on some OCAP tutorials at the moment, but once those are done I plan to revisit some of the MHP stuff and update/expand it.
Hope this helps,
Steve.

How to access the gui through a NAT device

Hi
I have to access the management GUI over a NAT IP. So the browser is not accessing the configured managment IP. How can this be realized?
Unfortunately the programmers wrote the HTML code with absolute addressed links instead of using relative links.
Example HTML code excerpt from the web gui:
<script src="
https://wsa.test.local:8443/scfw/1y-7.1.2-020/yui/animation/animation-min.js"></script>
Good code shoul read like:
<script src="/scfw/1y-7.1.2-020/yui/animation/animation-min.js"></script>
The second code doesn't take care on which hostname/IP nor port the web gui is seen from the client. The browser just adds hostname to the beginning of the URL as it was used to access the starting page. So a NAT or even PAT on the way to access the box has no influence on the usability.
Any ideas how to circumvent that problem?

We found out that this seems to be a limitation of the browser. It doesn't work with iE 8/9 but it works with Firefox 6.0.1.
Strange...

How to display the drill through report in a new browser seperate window

Hello All,
I am working on a drill through report which should run when I select the column value from the main report. The drill through report I am working on is Centerline Validate Angles for a specific line. It has 2 parameters, Pods ID and Angle. Main report supplies
these 2 values. Right now, I am having an issue in displaying the drill through report in a seperate window. I have selected Go To URL option from the text box properties in main report and gave the expression as
="javascript:void(window.open('http://vmaidbdev1/Reportserver?%2fADN2%2fPipeline%2fCenterline+Validate+Angles+For+Specifi+Line&rs%3aCommand=Render&PODS_ID="&Fields!LINE_ID.Value &"&Angle="&Parameters!Angle.Value
This is not working. The field in the main report is clickable but when I click it is throwing me error as Reporting services error. Could any one let me know if there is any error in the above expression or anything I need to add or correct.
Please help. Thanks so much.

Hi srisql,
Sorry for the delay in getting back to you.
After double-check the URL which I posted, I find that I have made some error in it. As you can see, there are some spaces in the URL. So please try the following expressions to check the issue again.
Angle parameter is a multi-value parameter:
="javascript:void(window.open('http://vmaidbdev1/reportserver?/Adn2/Pipeline/Centerline Validate Angles for a specific line&PODS_ID="& Fields!LINE_ID.Value &"&Angle="
&Join(Parameters!Angle.Value,"& Angle =") &"','_blank'))"
Angle parameter is a single-value parameter:
="javascript:void(window.open('http://vmaidbdev1/reportserver?/Adn2/Pipeline/Centerline Validate Angles for a specific line&PODS_ID="&Fields!LINE_ID.Value &"&Angle="&Parameters!Angle.Value
&"','_blank'))"
The following general URL is for your reference:
="javascript:void(window.open('http://server_name/reportserver?/folder/ folder/report_name&parameter_name="&Fields!field_name.Value &"&parameter_name="&Parameters!parameter_name.Value
&"','_blank'))"
If you have any other questions, please feel free to ask.
Thanks,
Katherine Xiong
Katherine Xiong
TechNet Community Support

Drawing API How to resize the box through

Similar Messages

Maybe you are looking for