How to control cFolder authority through BADI

Dear Expert,
We're on SRM 7 and do the integration with cFolder in RFx.
Now we want to control authority in SRM through BADI.
In the BADI, we will use function CFX_ACO_API_ACTIVITIES_SET to set authority based on different user and apporver.
For exemple:
       CFX_ACO_API_ACTIVITIES_SET
                 L_OBJECT_ID = GUID of folder/area
                 I_USER_ACTIVITIES = Read authority for user
But after we longon cFolder system throught SRM system collaboration link, the authority do not change , still admin.
Could you please give me some idea about it.(SRM and cFolder are installed in one system server).
Your help would be really appreciated.
Thanks & Best Regards,
Bill

Hi,
That such to use roles for each user:
SAP_CFX_USRGRP_DELETOR     cFolders: Deletion of User Groups
SAP_CFX_USRGRP_CREATOR     cFolders: Create User Groups
SAP_CFX_USER_ADMINISTRATOR     cFolders User Administrator
SAP_CFX_USER                           cFolders User
SAP_CFX_SUPER_USER_ADMIN     Superuser with Admin Rights
SAP_CFX_STD_DELETOR                           cFolders: Delete Collaborations in the Standards Scenario
SAP_CFX_STD_CREATOR                           cFolders: Create Collaboration in the Standards Scenario
SAP_CFX_STATUS_PRF_DELETOR     cFolders: Authorization to Delete Status Profiles
SAP_CFX_STATUS_PRF_CREATOR     cFolders: Authorization to Create Status Profiles
SAP_CFX_NETWORK_ADMINISTRATOR     cFolders Network Administrator
SAP_CFX_EXT_USER_ADMIN     cFolders External User Administrator
SAP_CFX_EMAIL_SYSTEM_USER     cFolders System User for Sending E-Mails
SAP_CFX_COMP_DELETOR     cFolders: Delete Collaborations in the Competitive Scenario
SAP_CFX_COMP_CREATOR     cFolders: Create Collaborations in the Competitive Scenario
SAP_CFX_COL_DELETOR                           cFolders: Delete Collaborations in the Collaborative Scenario
SAP_CFX_COL_CREATOR                           cFolders: Create Collaborations in the Collaborative Scenario
SAP_CFX_CFOLDERS_ADMINISTRATOR     cFolders Application Administrator
SAP_CFX_ADMINISTRATOR     cFolders Administrator
Rgs,
Pedro Marques

Similar Messages

How to control the authority of measuring point when creating

hi,expert
I want to control the authority of the measuring point when creating the measuring point in Ik01.That is I can check the authority object of the measuring point object (equipment of function location) when I create .The sandard system can only provide the authority check of T-CODE and AuthorizGroup. On the other hand there is no customer-exit to do this .Please give me a solution .
Thank you
Edited by: Fengxi Zhao on Dec 17, 2008 8:35 AM

Dear Sir
Can you clearify the requirement in detailed? What exactly you want to prevent & You want to authorise for ??
Regards

How to control RS232 Interface through LABView?

Does LABView have the ability to control RS232 Interface? If it does, what version of LABView has this capability? The LABView versions that we have in the company are 7.2 and 8.1 only. The operating systems that we have are Windows and Linux.

i have a question i am wanting to control an rfid reader/writer that has a RS232 or USB connection through labview. Here are some specs on the product. is this possible for it to work.
Key Features
 Fast data transfer
 Supports multi-detection
 ANT1015A for wall or desktop
mounting
 Baud rate: 19,200bps, N, 8, 1
 ABS housing
 RS232 or USB connection
 IP40 protection rating: waterproof
and dustproof
Technical Specifications
Frequency 13.56MHz
Technical certificates CE, FCC
Power requirements 12V DC, 300mA
Display 3 status LEDs
Read/write distance 30cm, with ISO 15693 compliant transponders
Technical Certificates CE, FCC
Antenna connection RP-SMA 50ohm
Transponder compatibility HF, ISO 15693 compliant transponders
Operating temperature 0 to 60°C
Storage temperature -20°C to 70°C
Humidity 10% to 90% relative
Dimensions 345mm × 240mm × 20mm (L × W × H)
The link below will take you directly to the product.
Hf Rfid
Attachments:
13.56 MHz. High Frequency (HF) Reader RFID Writer with Antenna.pdf ‏389 KB

How to control instrument switch through PCI-6503 & 50-pin I/O connector

Hi, everyone:
I have a problem in controlling an instrument switch which switch position between zero point and measuring point every five minutes during experiment. The hardware used is PCI-6503 card & corresponding 50-pin I/O connector, cable and the software is labview.
The instrument manufacturer provide a cable(25-pol.SubD-plug male)for connection to computer(or DAQ board).The instrument manual showed the following pin assignment for this cable:
25-pol subD-male pin assignment(TTL-level):
meaning zero point measuring point
Pin 9 MP L H
Pin 7 ZP H L
Pin 23 Gnd
Pin 18 Gnd
Pin 4
Remote H H
Pin 3 Weight1 H L
Pin 2 Weight2 L H
Pin 5 Gnd
(weight1&weight2 is for calibration purpose)
I want to connect these cable pins to Port A(pin 33-47) of I/O connector and then using labview easy digital I/O "write to a single port.vi" to programming it. But I don't know how to connect these pins. For example, pin-5,pin-23,pin-18 is Ground, how can I realize it ? Do I need to connect other pins in 25-pol sub-D plug(besides above 8-pins) male to 50-pinvI/O connector or just leave it alone? Hope everyone give me idea. Of course, the detail is preferred since I have a good background in electronic.
Also I will be very happy if everyone have a labview programming sample in similiar application.
Thank you very much for help!
Sincerely
Jingjun

Hello;
My understanding is that you need to connect each one of the GND pins to each one of the GND pins of the DAQ board. By doing that you will be creating the reference to the TTL signals being read on the DAQ board. The MP and ZP would go to any digital line of the preferrable Port and you should be good to go. As far as I'm concerned, you don't need to make any extra connection.
I don't know exactly what you are willing to do with the data but, once the data changes each five minutes, you don't need any speed digital application. If you take a look at the Labview shipping examples for 6503 doing read from 1 Digital Port.vi, you should be ok.
Hope this helps.
Filipe

How to display Error messages through BADI HRPAD00INFTY in ESS ?

Hi,
In ESS, I want to perform custom validation on IT1067 ( Health Plan ) and allow only specific combinations of health plans to be selected.   We are on ECC6.0 EhP4 . This infotype is "NOT PERMITTED" in the new decoupled framework and hence I cannot use NEW BADI's for validation and I am stuck with Classical BADI - HRPAD00INFTY.
In my classical badi HRPAD00INFTY, after validation, I want to display an error message if "Invalid Combination" is selected by the user.
I tried using the following code to display the error message :
          DATA badi_message_handler   TYPE REF TO cl_hrpa_message_list.
          DATA message_handler        TYPE REF TO if_hrpa_message_handler.
          DATA msg                    TYPE symsg.
          DATA is_ok                  TYPE boole_d.
          CREATE OBJECT badi_message_handler.
          message_handler = badi_message_handler.
          msg-msgid = 'YHBN'.
          msg-msgty = 'E'.
          msg-msgno = '006'.
          msg-msgv1 = c_none_plans. "'Invalid Plan'(z09).
          CALL METHOD message_handler->add_message
            EXPORTING
              message = msg
              cause   = message_handler->unknown.
              is_ok = space.
          badi_message_handler->add_messages( message_handler ).
          RAISE error_with_message.
The message is displayed in ESS but after that the Java Trace Exception is displayed.   I want to display the error message in a user friendly way and provide an option to correct the plans.
Please let me know if anyone has done similar thing or have any suggestions.
Thanks

Hi,
DATA badi_message_handler   TYPE REF TO cl_hrpa_message_list.
          DATA message_handler        TYPE REF TO if_hrpa_message_handler.
          DATA msg                    TYPE symsg.
          DATA is_ok                  TYPE boole_d.
          CREATE OBJECT badi_message_handler.
          message_handler = badi_message_handler.
          msg-msgid = 'YHBN'.
          msg-msgty = 'E'.
          msg-msgno = '006'.
          msg-msgv1 = c_none_plans. "'Invalid Plan'(z09).
          CALL METHOD message_handler->add_message
            EXPORTING
              message = msg
              cause   = message_handler->unknown.
              is_ok = space.
          badi_message_handler->add_messages( message_handler ).
     *-- Add following--
    Exit.
          RAISE error_with_message.

How to control partner function through security objects ??

Hi, theres any way to control witch Partner function are avalilable to assign in support messages ??
Theres any security object to control that ??
I have configured rules for automatic determintation, but in certains cases i need to assign manually.
I need to control this asignation Partner function
Any ideas ?? CRM_ORD_OP ??
Best Regards

I got it fixed my self.
here is the solution.
in user exit :EXIT_SAPMM06E_012.
call below FM: MM_CALL_UPDATE_PARTNERS
Trick is pass the partner values the one you wanted to below table: x_mmpa and xuekpa.
you can calculate partner records from wyt3 table depends on your logic/requirement.
CALL FUNCTION 'MM_CALL_UPDATE_PARTNERS'
     EXPORTING
       ebeln       = wa_ebeln
       bstyp       = 'F'
*     knuma       = wa_knuma
       application = 'P'
     TABLES
       x_mmpa      = it_mmpa1
       y_mmpa      = it_mmpa2
       xuekpa      = it_uekpa1
       yuekpa      = it_uekpa2
       i_mmpa      = it_mmpa3
       u_mmpa      = it_mmpa4
       d_mmpa      = it_mmpa5.
Thanks,
Mahesh

How to control DE USB disk Automounts.

Hi,
Can someone please guide me as to how to 'control' Automounts by DE when we plug USB disk drives.
I have KDE4 on my Arch system. When I connect a pen drive/USB HDD which is formatted as vfat/NTFS, the system(or KDE) 'Automounts' it in /media and I have read/write access to it. But if I use the same drive and format it as ext4, it wont be mounted as read/write for normal users but only for root.
Now pen drives and USB HDD's are removable storage drives and hence are volatile and could not have a fixed mount point, so it cannot be mounted by putting an entry in fstab or could they?. And I need my USB HDD frequently, and manually mounting it through CLI everytime and working on it as root is a bad idea i guess.
I am posting this because m confused as to how to control this Automount feature-What is the backend to it? Because I've read that HAL no longer takes care of it and that HAL will be deprecated soon, instead UDEV takes care of it. If that is the case then should I be concerned about polkit? Because that is what's the output provided by Dolphin(freedesktop.org policy prevented blah blah).
Another thing is if HAL is still in use and Automounts my devices then is it independent or polkit is a part of it. Then, is using hal-easy an option or replacement to standard HAL. ??!!??
I tried HAL archwiki and used the code to give a user permission to give rw access to automounted ext filesystems, but then nothing is mounted, it sings the same old freedesktop.org prevented bla blah song. And I think this is a question for all linuxes using Gnome and KDE in general.
Any help is appreciated.

If by 'ability to mount as user' you mean to mount it manually but read/write access to normal users then yes. But primarily I need automounting as user, also be able to give access to other users for read/write et filesystem automounts.
Last edited by kapz (2009-11-17 01:12:56)

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 control a NI USB 6210 from a Lab View program?

Hi,
I started today with Lab View with some earlier experience long ago.
While it took me only about half an hour to get my first program running (great), installation time nor included (of course), I meanwhile read documents for some hours and cannot find out how to control measurement hardware in Lab View.
I want to use a USB 6210 to set a 1-bit digital port. But at the moment there is no USB6210 available so I wanted to write (or do you say draw ?) the program without it and if possible simulate the hardware.
I drew DAQ Assistant into my block diagram and selected digital line output but get "No supported devices found". I don't know if the appropriate driver was installed during Lab View installation.
Also I don't understand the mechanism between DAQmx, tasks and the real hardware. Now I have a "Digital Bool 1Line 1Point" Control in my block diagram. How do signals get from program flow to hardware pin? How can I create a simulation for not connected hardware?
Any help is greatly welcome
Thanks a lot
Martin

Okay here is some more tutorials if you get some free time, specifically the hardware stuff will be relavent.
NI Learning Center
NI Getting Started
-Hardware Basics
-LabVEW Basics
-DAQ Application Tutorials
3 Hour LabVIEW Introduction
6 Hour LabVIEW Introduction
Self Paced training for students
Self Paced training beginner to advanced, SSP Required
LabVIEW Wiki on Training
Launch MAX, it was known as Measurement and Automation Explorer, there should be a shortcut in your start menu / desktop. Under devices and interfaces you can find your hardware and open test panels to control it. This is the first place to ensure your hardware is working. If the device isn't seen you'll need to install the drivers and DAQmx software. If it is there, great.
Now launch LabVIEW. The easiest way to control hardware is using the DAQ Assistant. It has many limitations and isn't recommended for large applications. But for something quick and dirty it works fine. You'll find it under the Measurement I/O >> NI DAQmx palette on the block diagram. If it isn't there you may need to reinstall the DAQmx drivers. This can happen if you installed DAQmx before LabVIEW.
Also you'll find under Help >> Find Examples on the toolbar, many examples on controlling hardware. Feel free to post some code if you are having problems.
Unofficial Forum Rules and Guidelines - Hooovahh - LabVIEW Overlord
If 10 out of 10 experts in any field say something is bad, you should probably take their opinion seriously.

Update ZPURCHASE THROUGH BADI .. at the time of saving Purchase Order

Dear All Gurus,
I have a situation wherein i have to save the Purchase Order Details in My DB table (ZPURCHASE ) at the time of Purchase Order Creation through BADI...
Fields of ZPURCHASE are (Mandt,EBELN,BUKRS)
Can some one guide me how can i achieve this..
I tried doing it through User Exits.. i have written a piece of code when saving the purchase order but my problem is .. The purchase order numbers are generated only after SAVE is complete..
The other alternative i want to try is through BADI.
Looking forward for your reply.
Thanks !!

> I have a situation wherein i have to save the Purchase Order Details in My DB table (ZPURCHASE ) at the time of Purchase Order Creation through BADI...
> Fields of ZPURCHASE are (Mandt,EBELN,BUKRS)
I have no solution for your actual problem (wrong forum, you should try the MM forum) but I wonder why you just don't use the data that is already there in EKKO and EKPO?
Markus

How to Control authorization for users with certain status for level 2 WBS Element

Dear All,
Is there any standard way or enhancement available to control authorization for users with certain status for WBS Element i.e. for example
Pre-requisite:
There is only 2 level of project i.e.
Lev_ WBSE_______Description
1___ 7-14.E_______summay outage controller
2___ 7-14.E.2310__ Plant/unit # 2310
2___ 7-14.E.2310__ Plant/unit # 2220
Project Controller (authorization role assigned "Z_PS_OP7_OTGCON_C") have all project level authorization
Plant/Unit Controller (authorization role assigned "Z_PS_OP7_PLNTOTG_C_2310") have only level 2 authorization with enhancement that we did in system by Z table.
User ID_ Plant #
123345_ 2310
122455_ 2220
Issue:
After System Status released and User Status approved the WBS basic date for Plant/Units should be restricted from updating/changing by Plant/Unit Controller level and only project controller should have this authority.
Solution required:
Can any one tell how to control this scenario either by standard or enhancement available to control authorization
BR
Saqib Usman

Hi,
Did you explore SAP Enhancement CNEX0002 Using Transaction CMOD?
Thank you and regards,
Varshal Kachole
The SCN Rules of Engagement

How can I quickly toggle through all of my open files in an application?

How can I quickly toggle through all of my open files in an application? For instance, if I want to bounce back and forth between three documents that I have open in Microsoft Word?

You use a combination of OS X Spaces with Exposé to be able to accomplish this.
Or in your case, look at using Mission Control
http://support.apple.com/kb/HT4689

How to control filter values in WAD without effecting the layout of output

Hi,
Anyone help me in how to control the filter values in WAD. We have a navigational block and when user selects the filter for values the key and name of the characteristics and displaying in the navigational block and because of this the format of the output is looking awkward ie., getting horizontal and vertical scroll bars.
So the requirement is i have select the characteristics from the filter and i also need text and name of the characteristics to be dispalyed but this shouldn't effect the layout of the output.
So anyone please tell me the possible solution.
Your help will be appreciated.

MeeHow wrote:
next example: 0 1 2 3 4 9 6 7 8 <- bad value is 9, and result of my filter should be (4+6)/2 = 5
Shouldn't e.g. the value 4 be outside too, because the average of 3 and 9 (=5.5) is more that 25% different to 4?
Here is a quick draft comparing three versions (LabVIEW 8.2):
Your formula node version
the same algorithm in G
Something along the lines you are proposing here.
As you can see, the new idea is not quite satisfactory. It needs more thought. Still, these drafts should give you some ideas how to do it. Modify as needed.
Also your data is similar to a square wave and has these large step functions where the value changes dramatically. These should probably be ignored. Maybe you should look at the first derivative and replace parts where a large positive slope is immediately followed by a negative slope of similar size, for example.
You should also look at absolute steps instead of percentages. If you use percentages and the value is zero, everything is outside, because even 5000% of zero is still zero, right?
LabVIEW Champion . Do more with less code and in less time .
Attachments:
filter testMOD.vi ‏41 KB

Which is the best tool for PRC animation? and how to control it with javascript?

Hi I created animations through Deep Exploration. But I want to know how to create PRC animation with tools and how to control it? I already tried with tetra4D but the javascript can control only u3d format. I have no idea to control prc animation. Please let me know.
Thanks and Regards
Chenet0005 @ Chenthil Kumar

PRC files don't support embedded animations.
You can still control the mesh directly with 3D JavaScript (e.g. by using rotateInPlace and a time event handler) but you can't import a timeline as you can with U3D.

How to display BAR-CODE through ABAP report

Hi,
Could you please help me, how to display BAR-CODE through the ABAP report.
I am writing below code, but BAR-CODE is not displaying on report.
           PRINT-CONTROL FUNCTION 'SBP01'.
            WRITE: 20 BAR_CODE1 NO-GAP.
           PRINT-CONTROL FUNCTION 'SBS01'.
Regards,
SSRAJU.

Hi RAJU,
you can see this forum link and its sub-links, here it is clear about it.
Re: Barcode printing on report
Thanks & Regards,
Dileep .C

How to control cFolder authority through BADI

Similar Messages

Maybe you are looking for