Hold the posting without PAN No. (only for TDS)

Hi,
We use the MIRO & FB60 transactions for Vendor's Invoice Posting, can we hold the posting (only for TDS) if the Vendor Master does not maintain PAN No.
Tx
Bharat

Try user exit in vendor master itself.Logic is when you maintain withholding tax information in vendor master,PAN no.
should be mandatory in vendor master CIN tab / in J1ID.

Similar Messages

The external GPS is used only for 911 but the device will not op without it...this causes great inconvenience for me, having to run that cable to a window in the trwo houses I use it..ids there a way to disable the GPS if I do not care about the 911 funct

the external GPS is used only for 911 but the device will not operate without it...this causes great inconvenience for me, having to run that cable to a window in the two houses I use it..is there a way to disable the GPS if I do not care about the 911 functionability..? this is the only downside I have with the network extender and it renders my device useless..

Nope, GPS is a Federal requirement for anything operating a cellular telephone signal. You don't ever plan to call 911 until you are in an emergency. I don't see that requirement changing any time soon.
If you are truly inconvenienced by the VZW network extender then perhaps you should disable you calling features in these areas and swap over to WiFi only. There are many services and apps out there that can route your phone services through internet service providers.

In OBIEE mobile apps designer there is no option for multi select prompts?The navigation page gives option only for single select?Is there a work around for this?

In OBIEE mobile apps designer there is no option for multi select prompts?The navigation page gives option only for single select?Is there a work around for this?

Nic, for me the iTunes window looks like this, when I connect my iPad 3:
I select the iPad in the "devices" section of the Sidebar (use: "View > Show Sidebar" if the sidebar is hidden).
Click the "Apps" tab in the "Devices" pane.
Scroll all the way down in the Devices pane to "File Sharing" "Apps" section.
Then do I click "GarageBand" to select the documents in the right panel.
Which part is different for you? Perhaps you could post a screenshot?
Regards
Léonie

I recently had my computer stolen and not my purchases from I tunes store were backed up. I've been told there is a way that I can re-download my missing tracks from the store without having to pay for them again. Is this true, if so, how do go about it.

I recently had my computer stolen and not my purchases from I tunes store were backed up. I've been told there is a way that I can re-download my missing tracks from the store without having to pay for them again. Is this true, if so, how do go about it.
Many thanks
Arkadi de Rakoff

Unfortunately, redownloading of past music purchases isa still in beta test and only available in the US right now.
It's due for everyone this fall. Downloading past purchases from the App Store, iBookstore, and iTunes Store, http://support.apple.com/kb/HT2519
If you can't wait, contact the iTunes Store Support Team at this link
If you get lucky, they may be able to authorize another download now.

Allow posting to previous period only for invoices (only invoices).

Hi gurus,
We want to cancel invoice document s(MR8M) with the same date that the invoice was created (previous period). We know that we can use MMRV transaction for this but MMRV will posting of all MM documents, whereas we need to restrict posting to previous period only for invoices.
It´s possible? Can you please help on this with complete steps?
thanks!!!

I don´t know if there is a better way to do that, but you could flag the field "Allow Posting to Previous Period" in MMRV and configure the posting date in all the transaction (MIGO, MIRO, MB1A,MB1B, etc) for only display except MR8M transaction.

HT4060 Hi, I have bought iPad air, and got apple 12w USB Power Adapter with pin flat plug. It is a problem for me. I live in Switzerland and the electric outlet is suitable only for round pin plug.

Hi, I have bought iPad air, and got apple 12w USB Power Adapter with pin flat plug. It is a problem for me. I live in Switzerland and the electric outlet is suitable only for round pin plug. I do appreciate for your support.

Plug adapter
http://img.diytrade.com/cdimg/975531/17878192/0/1293436146/Universal_socket_to_S witzerland_Plug_adapter.jpg

How do I get the Apps onto one Ipad only for Creative Cloud??

We've downloaded onto 2 imacs Creative Cloud Software and there are not problems at this stage.
How do I get the Apps onto one Ipad only for Creative Cloud??
regards
Rod

This was part of the original thread you responded too but I have branched out your discussion to make it more specific. This is already discussed under the Touch Apps FAQ - http://www.adobe.com/products/touchapps/faq.html. Here is the relevant excerpt:
Customers who sign up for an annual membership to Creative Cloud or who buy a 12-month prepaid card at a retailer or online store will be eligible for a free month of Creative Cloud when they purchase and sign in from three qualifying Adobe Touch Apps from Google Play or the Apple App Store. This includes Adobe Collage, Adobe Debut, Adobe Ideas, Adobe Kuler, Photoshop Touch, and Adobe Proto.
Customers who purchase an annual membership directly from Adobe and qualify for this offer will not be charged for the month of service following sign-in from their third Adobe Touch App.
Customers who purchase a 12-month prepaid card from a retailer or online store and qualify for this offer will have one month added to the duration of their membership.
Creative Cloud members will be notified about their free month within 60 days of signing in to their third qualifying Adobe Touch App

My iphone 4 automatically shuts down , twice it has happened though it starts by holding the home screen and sleep button for 10 seconds but what exactly causes this problem? some defect in my set?

My iphone 4 automatically shuts down , twice it has happened though it starts by holding the home screen and sleep button for 10 seconds but what exactly causes this problem? some defect in my set?

do you hold the home and sleep button?

I have elements 11 on my mac and want to upgrade to elements 13 but it seems that the elements 13 upgrade is only for windows. Is there a mac edition to this upgrade?

I have elements 11 on my mac and want to upgrade to elements 13 but it seems that the elements 13 upgrade is only for windows. Is there a mac edition to this upgrade?

Yes, certainly, but if you're in the US I would just download the trial and use that for now, since there will be plenty of deals on the full version come the start of the holiday shopping season, especially at places like amazon and big box stores. Usually for much less than adobe's upgrade price.

Is the Midnight Blue Smart Case ONLY for iPad Air 2 ?

Hi,
Is the Apple iPad Air Midnight Blue Smart Case ONLY for iPad Air 2nd generation ?
There is no mention on the box and as this is a gift I received, the sticker on the back which identify the model + price was removed.
I wanted to know whether if the midnight blue color was only for iPad Air 2 or existed also for iPad Air 1 ?
Best regards,
FXR

The Midnight Blue is a new color, specifically for the iPad Air 2
http://store.apple.com/us/product/MGTT2ZM/A/ipad-air-2-smart-case-midnight-blue?
Compatibility is stated for iPad Air 2 only

HT201272 Is the app Scramble with friends only for the iPhone? I installed it to my iPad but it keeps freezing up.

Is the app scramble with friends only for the I phone? I installed it to my new iPad and it kept freezing up. I uninstalled it and then installed it again, same thing happens.

it seems to be crashing for everyone - not only iPad's, but on my iPod Touch 4G, and my brother's brand new iPhone.... Zynga doesn't have any answers either. They are useless. The only thing that helped temporarily is when I deleted it from my iPod and reinstalled it.

If I want the month-to-month licence only for one month do I have to cancel and how?

if I want the month-to-month licence only for one month do I have to cancel and how?

I have never tried to use a program for only one month, but here is how you cancel
-cancel http://helpx.adobe.com/x-productkb/policy-pricing/return-cancel-or-change-order.html
-or http://helpx.adobe.com/x-productkb/policy-pricing/cancel-membership-subscription.html
-or by telephone http://helpx.adobe.com/x-productkb/global/phone-support-orders.html

Restrict the posting period opening and closing for some users

Dear SAP gurus,
I want to restrict some users to open the posting period and for some users close posting periods. I knew that these can be done through authorization group. Pls explain how to create authorization groups and how to use those? Anybody can help me out?
Regards,
Venkata Reddy

Dear Venkatareddy,
There are two sets of period in OB52. The first set of "From" and "To" is for the authorised group and second set is for the non authorised group. In the "Authorisation Group" (last column) give some 4 charecters name. Say "FICO".
Now ask the basis to attach the object "FICO" for the users who are authorised say user1, user 2 and user3.
Now in the first set of period you can maintain say 1 2008 to 16 2008 and in the second set 1 2008 to 1 2008.
So except user1,2 and 3, all the others can post only in 1 2008. Whereas users 1,2 and3 can post in all the periods of 2008.
Assign points if useful
regards
Venkatesh

Traffic Signals in ALV Without using oops only for normal Grid Display.

Hi Experts ,
I need to add traffic signals into my normal ALV Grid program without using oops concepts.
Please any one send me full code or provide me one program code without using oops concept for normal ALV Grid .
I searched in many forums but i found most of the programs wriiten using oops concept with ALV's but here my requirement without using oops concept and only normal reuse_alv_grid_display.
Thanks in Advance.
Venky.

You can check the below sample code.Traffic light is implemented in it.
REPORT ztest NO STANDARD PAGE HEADING
                LINE-SIZE 255 MESSAGE-ID zlqm.
TYPE-POOLS : slis,icon.
TABLES :qals,qave.
INCLUDE : zlqmr002_top,              "Global Data Declaration
          zlqmr002_selection_screen, "Selection Screen Inputs
          zlqmr002_subroutine.       "Subroutines
INITIALIZATION
INITIALIZATION.
PERFORM variant_init.
AT SELECTION-SCREEN
AT SELECTION-SCREEN.
Check for Variant existance
PERFORM pai_of_selection_screen.
*Validation for Material
AT SELECTION-SCREEN ON s_matnr.
IF NOT s_matnr IS INITIAL.
    SELECT SINGLE matnr
           INTO g_matnr
           FROM mara
           WHERE matnr IN s_matnr.
    IF sy-subrc <> 0.
      SET CURSOR FIELD 'S_MATNR'.
      MESSAGE e000 WITH text-003.
    ENDIF.
ENDIF.
*Validation for Plant
AT SELECTION-SCREEN ON s_werk.
IF NOT s_werk IS INITIAL.
    SELECT SINGLE werks
           INTO g_werk
           FROM t001w
           WHERE werks IN s_werk.
    IF sy-subrc <> 0.
      SET CURSOR FIELD 'S_WERK'.
      MESSAGE e000 WITH text-004.
    ENDIF.
ENDIF.
*Validation for Inspection Type
AT SELECTION-SCREEN ON s_art.
IF NOT s_art IS INITIAL.
    SELECT SINGLE art
           INTO g_art
           FROM tq30
           WHERE art IN s_art.
    IF sy-subrc <> 0.
      SET CURSOR FIELD 'S_ART'.
      MESSAGE e000 WITH text-005.
    ENDIF.
ENDIF.
*Validation for Code group
AT SELECTION-SCREEN ON s_vcdgrp.
IF NOT s_vcdgrp IS INITIAL.
    SELECT SINGLE codegruppe
           INTO g_vcdgrp
           FROM qpgr
           WHERE codegruppe IN s_vcdgrp.
    IF sy-subrc <> 0.
      SET CURSOR FIELD 'S_VCDGRP'.
      MESSAGE e000 WITH text-006.
    ENDIF.
ENDIF.
*Validation for Code
AT SELECTION-SCREEN ON s_vcode.
IF NOT s_vcode IS INITIAL.
    SELECT SINGLE code
           INTO g_vcode
           FROM qpcd
           WHERE code IN s_vcode.
    IF sy-subrc <> 0.
      SET CURSOR FIELD 'S_VCODE'.
      MESSAGE e000 WITH text-007.
    ENDIF.
ENDIF.
Process on value request
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_vari.
PERFORM f4_for_variant.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR s_vcdgrp-low.
PERFORM get_codegroup.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR s_vcdgrp-high.
PERFORM get_codegroup.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR s_vcode-low.
PERFORM get_code.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR s_vcode-high.
PERFORM get_code.
START-OF-SELECTION.
START-OF-SELECTION.
**Selecting data form Database tables
PERFORM select_data TABLES i_out i_out1.
END-OF-SELECTION
END-OF-SELECTION.
**Generate ALV
PERFORM generate_alv.
DATA TYPES
TYPES : BEGIN OF t_qals,
          matnr      TYPE qals-matnr,          "Material
          werk       TYPE qals-werk,           "Plant
          mengeneinh TYPE qals-mengeneinh,     "UOM
          lmenge01   TYPE qals-lmenge01,       "Unrestricted qty
          lmenge02   TYPE qals-lmenge02,       "Scrap qty
          lmenge03   TYPE qals-lmenge03,       "Sample qty
          lmenge04   TYPE qals-lmenge04,       "Blocked qty
          lmenge05   TYPE qals-lmenge05,       "Retain qty
          lmenge06   TYPE qals-lmenge06,       "Othermat qty
          lmenge07   TYPE qals-lmenge07,       "RTV qty
          lmenge08   TYPE qals-lmenge08,       "Exp.scrap qty
          prueflos   TYPE qals-prueflos,       "Inspection lot
          art        TYPE qals-art,            "Inspection type
          charg      TYPE qals-charg,          "Batch
          vcode      TYPE qave-vcode,          "Usage decision
          vdatum     TYPE qave-vdatum,         "Date
          qmnum      TYPE qmel-qmnum,          "Notification
        END OF t_qals.
TYPES : BEGIN OF t_out,
          icon       TYPE icon-id,             "Status
          matnr      TYPE qals-matnr,          "Material
          werk       TYPE qals-werk,           "Plant
          mengeneinh TYPE qals-mengeneinh,     "UOM
          vcode      TYPE qave-vcode,          "Usage decision
          mncod(30) TYPE c,                   "Disposition
          lmenge01   TYPE qals-lmenge01,       "Unrestricted qty
          lmenge02   TYPE qals-lmenge02,       "Scrap qty
          lmenge03   TYPE qals-lmenge03,       "Sample qty
          lmenge04   TYPE qals-lmenge04,       "Blocked qty
          lmenge05   TYPE qals-lmenge05,       "Retain qty
          lmenge06   TYPE qals-lmenge06,       "Othermat qty
          lmenge07   TYPE qals-lmenge07,       "RTV qty
          lmenge08   TYPE qals-lmenge08,       "Exp.scrap qty
          prueflos   TYPE qals-prueflos,       "Inspection lot
          art        TYPE qals-art,            "Inspection type
          qmnum      TYPE qmel-qmnum,          "Notification
          vdatum     TYPE qave-vdatum,         "Date
          charg      TYPE qals-charg,          "Batch
        END OF t_out.
TYPES : BEGIN OF t_qmsm,
           qmnum    TYPE qmsm-qmnum,
           manum    TYPE qmsm-manum,
           mncod    TYPE qmsm-mncod,
         END OF t_qmsm.
TYPES:   BEGIN OF t_disp,
           qmnum     TYPE qmsm-qmnum,
           mncod(30) TYPE c,
         END OF t_disp.
TYPES:   BEGIN OF t_codegrp,
           katalogart TYPE qpgt-katalogart,
           codegruppe TYPE qpgt-codegruppe,
           kurztext    TYPE qpgt-kurztext,
         END OF t_codegrp.
TYPES:   BEGIN OF t_code,
           katalogart TYPE qpct-katalogart,
           codegruppe TYPE qpct-codegruppe,
           code        TYPE qpct-code,
           version     TYPE qpct-version,
           kurztext    TYPE qpct-kurztext,
         END OF t_code.
INTERNAL TABLES
DATA: i_qals     TYPE TABLE OF t_qals,
      wa_qals    LIKE LINE OF i_qals,
      i_qmsm     TYPE TABLE OF t_qmsm,
      wa_qmsm    TYPE t_qmsm,
      i_disp     TYPE TABLE OF t_disp,
      wa_disp    LIKE LINE OF i_disp,
      i_out      TYPE TABLE OF t_out,
      wa_out     TYPE t_out,
      i_out1     TYPE TABLE OF t_out,
      wa_out1    TYPE t_out,
      i_codegrp TYPE TABLE OF t_codegrp,
      i_code     TYPE TABLE OF t_code,
      i_qmsm_tmp TYPE TABLE OF t_qmsm.
DATA: i_fieldcat TYPE slis_t_fieldcat_alv,
      i_layout    TYPE slis_layout_alv,
      g_repid     TYPE sy-repid,
      wa_fieldcat TYPE slis_fieldcat_alv.
Global Variables
DATA : g_matnr    TYPE matnr,
       g_werk     TYPE werks,
       g_art      TYPE qpart,
       g_vcdgrp   TYPE qvgruppe,
       g_vcode    TYPE qvcode,
       g_red      TYPE c,
       g_yellow   TYPE c,
       g_table(6) TYPE c,
       g_save(1) TYPE c,
       g_exit(1) TYPE c,
       g_report   TYPE sy-repid,
       g_var      TYPE disvariant,
       g_variant TYPE disvariant.
Constants
CONSTANTS: c_green TYPE icon-id VALUE '@08@',
           c_yellow TYPE icon-id VALUE '@09@',
           c_red    TYPE icon-id VALUE '@0A@'.
SELECTION SCREEN
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
SELECT-OPTIONS : s_matnr   FOR qals-matnr,    "Material Number
                 s_werk    FOR qals-werk,     "Plant
                 s_art     FOR qals-art,      "Inspection Type
                 s_vcdgrp FOR qave-vcodegrp, "Usage Decision Code Group
                 s_vcode   FOR qave-vcode,    "Usage Decision Code
                 s_vdatum FOR qave-vdatum.   "Usage Decision Code Date
SELECTION-SCREEN END OF BLOCK b1.
SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME TITLE text-002.
PARAMETERS: p_all   RADIOBUTTON GROUP g1 DEFAULT 'X',
            p_excp RADIOBUTTON GROUP g1.
SELECTION-SCREEN END OF BLOCK b2.
SELECTION-SCREEN BEGIN OF BLOCK b3 WITH FRAME TITLE text-009.
"Variant Selection
PARAMETERS: p_vari TYPE disvariant-variant.
SELECTION-SCREEN END OF BLOCK b3.
*&      Form select_data
      Select Inspection Details
FORM select_data TABLES p_out STRUCTURE wa_out
                        p_out1 STRUCTURE wa_out.
DATA:l_mncod(30) TYPE c.
REFRESH : i_qals,i_qmsm,i_qmsm_tmp,i_disp,p_out.
SELECT qalsmatnr     qalswerk      qals~mengeneinh
         qalslmenge01 qalslmenge02 qals~lmenge03
         qalslmenge04 qalslmenge05 qals~lmenge06
         qalslmenge07 qalslmenge08 qals~prueflos
         qalsart       qalscharg     qave~vcode
         qavevdatum    qmelqmnum
         INTO CORRESPONDING FIELDS OF TABLE i_qals
              FROM qals
              INNER JOIN qave
                    ON qalsprueflos = qaveprueflos
              INNER JOIN qmel
                    ON qalsprueflos = qmelprueflos
              WHERE qals~matnr    IN s_matnr
                AND qals~werk     IN s_werk
                AND qals~art      IN s_art
                AND qals~stat34   EQ 'X'
                AND qave~vcodegrp IN s_vcdgrp
                AND qave~vcode    IN s_vcode
                AND qave~vdatum   IN s_vdatum.
IF sy-subrc NE 0.
    MESSAGE i000 WITH text-008.
ENDIF.
IF NOT i_qals IS INITIAL.
    SELECT qmnum manum mncod INTO TABLE i_qmsm
                             FROM qmsm
                             FOR ALL ENTRIES IN i_qals
                             WHERE qmnum EQ i_qals-qmnum
                               AND mngrp LIKE 'Q_D%'
                               AND kzloesch NE 'X'.
ENDIF.
***Concatenation of Disposition Codes
IF NOT i_qmsm IS INITIAL.
    i_qmsm_tmp = i_qmsm.
    SORT i_qmsm_tmp BY qmnum mncod.
    DELETE ADJACENT DUPLICATES FROM i_qmsm_tmp COMPARING qmnum mncod+0(2).
    CLEAR wa_qmsm.
    LOOP AT i_qmsm_tmp INTO wa_qmsm.
      MOVE wa_qmsm-qmnum TO wa_disp-qmnum.
      CONCATENATE l_mncod wa_qmsm-mncod+0(2) INTO l_mncod SEPARATED BY space.
      AT END OF qmnum.
        SHIFT l_mncod LEFT DELETING LEADING space.
        MOVE l_mncod TO wa_disp-mncod.
        APPEND wa_disp TO i_disp.
        CLEAR:wa_disp,l_mncod.
      ENDAT.
    ENDLOOP.
ENDIF.
***Transfer of data to the output table
LOOP AT i_qals INTO wa_qals.
    MOVE-CORRESPONDING wa_qals TO wa_out.
    CLEAR wa_disp.
    READ TABLE i_disp INTO wa_disp
                      WITH KEY qmnum = wa_qals-qmnum.
    IF sy-subrc EQ 0.
      MOVE wa_disp-mncod TO wa_out-mncod.
    ENDIF.
    PERFORM check_quantity USING wa_qals.
    CLEAR wa_qmsm.
    LOOP AT i_qmsm INTO wa_qmsm
                   WHERE qmnum EQ wa_qals-qmnum.
      PERFORM check_group USING wa_qals
                                wa_qmsm.
      CLEAR wa_qmsm.
    ENDLOOP.
    IF g_red NE 'X'.
      CLEAR wa_qmsm.
      LOOP AT i_qmsm INTO wa_qmsm WHERE qmnum = wa_qals-qmnum
                                    AND mncod0(2) NE wa_qals-vcode0(2).
        g_yellow = 'X'.
      ENDLOOP.
    ENDIF.
    IF g_yellow EQ 'X'.
      MOVE c_yellow TO wa_out-icon.
    ELSEIF g_red EQ 'X'.
      MOVE c_red TO wa_out-icon.
    ELSE.
      MOVE c_green TO wa_out-icon.
    ENDIF.
    APPEND wa_out TO p_out.
    CLEAR:wa_qals,wa_out,g_red,g_yellow.
ENDLOOP.
***IF only exceptions are need to be displayed
IF p_excp EQ 'X'.
    CLEAR wa_out.
    LOOP AT p_out INTO wa_out WHERE icon EQ c_red.
      APPEND wa_out TO p_out1.
    ENDLOOP.
ENDIF.
ENDFORM.                    " select_data
*&      Form populate_fieldcat
      Populate the Fieldcat Table
FORM populate_fieldcat USING p_table TYPE c.
**status
CLEAR wa_fieldcat.
wa_fieldcat-tabname     = p_table.
wa_fieldcat-fieldname   = 'ICON'.
wa_fieldcat-seltext_l   = text-010.
wa_fieldcat-outputlen   = 15.
wa_fieldcat-icon        = 'X'.
APPEND wa_fieldcat TO i_fieldcat.
**Material
CLEAR wa_fieldcat.
wa_fieldcat-tabname     = p_table.
wa_fieldcat-fieldname   = 'MATNR'.
wa_fieldcat-seltext_l   = text-011.
wa_fieldcat-outputlen   = 15.
APPEND wa_fieldcat TO i_fieldcat.
**Plant
CLEAR wa_fieldcat.
wa_fieldcat-tabname     = p_table.
wa_fieldcat-fieldname   = 'WERK'.
wa_fieldcat-seltext_l   = text-012.
wa_fieldcat-outputlen   = 7.
APPEND wa_fieldcat TO i_fieldcat.
**Usage Decision
CLEAR wa_fieldcat.
wa_fieldcat-tabname     = p_table.
wa_fieldcat-fieldname   = 'VCODE'.
wa_fieldcat-seltext_l   = text-013.
wa_fieldcat-outputlen   = 15.
APPEND wa_fieldcat TO i_fieldcat.
**Dispositions
CLEAR wa_fieldcat.
wa_fieldcat-tabname     = p_table.
wa_fieldcat-fieldname   = 'MNCOD'.
wa_fieldcat-seltext_l   = text-014.
wa_fieldcat-outputlen   = 18.
APPEND wa_fieldcat TO i_fieldcat.
**UOM
CLEAR wa_fieldcat.
wa_fieldcat-tabname     = p_table.
wa_fieldcat-fieldname   = 'MENGENEINH'.
wa_fieldcat-seltext_l   = text-015.
wa_fieldcat-outputlen   = 18.
APPEND wa_fieldcat TO i_fieldcat.
**Unrestricted Quantity
CLEAR wa_fieldcat.
wa_fieldcat-tabname     = p_table.
wa_fieldcat-fieldname   = 'LMENGE01'.
wa_fieldcat-seltext_l   = text-016.
wa_fieldcat-qfieldname = 'MENGENEINH'.
wa_fieldcat-outputlen   = 20.
APPEND wa_fieldcat TO i_fieldcat.
**Scrap Quantity
CLEAR wa_fieldcat.
wa_fieldcat-tabname     = p_table.
wa_fieldcat-fieldname   = 'LMENGE02'.
wa_fieldcat-seltext_l   = text-017.
wa_fieldcat-qfieldname = 'MENGENEINH'.
wa_fieldcat-outputlen   = 20.
APPEND wa_fieldcat TO i_fieldcat.
**Sample Quantity
CLEAR wa_fieldcat.
wa_fieldcat-tabname     = p_table.
wa_fieldcat-fieldname   = 'LMENGE03'.
wa_fieldcat-seltext_l   = text-018.
wa_fieldcat-qfieldname = 'MENGENEINH'.
wa_fieldcat-outputlen   = 20.
APPEND wa_fieldcat TO i_fieldcat.
**Blocked Quantity
CLEAR wa_fieldcat.
wa_fieldcat-tabname     = p_table.
wa_fieldcat-fieldname   = 'LMENGE04'.
wa_fieldcat-seltext_l   = text-019.
wa_fieldcat-qfieldname = 'MENGENEINH'.
wa_fieldcat-outputlen   = 20.
APPEND wa_fieldcat TO i_fieldcat.
**Retain Quantity
CLEAR wa_fieldcat.
wa_fieldcat-tabname     = p_table.
wa_fieldcat-fieldname   = 'LMENGE05'.
wa_fieldcat-seltext_l   = text-020.
wa_fieldcat-qfieldname = 'MENGENEINH'.
wa_fieldcat-outputlen   = 20.
APPEND wa_fieldcat TO i_fieldcat.
**Other Mat Quantity
CLEAR wa_fieldcat.
wa_fieldcat-tabname     = p_table.
wa_fieldcat-fieldname   = 'LMENGE06'.
wa_fieldcat-seltext_l   = text-021.
wa_fieldcat-qfieldname = 'MENGENEINH'.
wa_fieldcat-outputlen   = 20.
APPEND wa_fieldcat TO i_fieldcat.
**RTV Quantity
CLEAR wa_fieldcat.
wa_fieldcat-tabname     = p_table.
wa_fieldcat-fieldname   = 'LMENGE07'.
wa_fieldcat-seltext_l   = text-022.
wa_fieldcat-qfieldname = 'MENGENEINH'.
wa_fieldcat-outputlen   = 20.
APPEND wa_fieldcat TO i_fieldcat.
**Exp. Scrap Quantity
CLEAR wa_fieldcat.
wa_fieldcat-tabname     = p_table.
wa_fieldcat-fieldname   = 'LMENGE08'.
wa_fieldcat-seltext_l   = text-023.
wa_fieldcat-qfieldname = 'MENGENEINH'.
wa_fieldcat-outputlen   = 20.
APPEND wa_fieldcat TO i_fieldcat.
**Inspection Lot
CLEAR wa_fieldcat.
wa_fieldcat-tabname     = p_table.
wa_fieldcat-fieldname   = 'PRUEFLOS'.
wa_fieldcat-seltext_l   = text-024.
wa_fieldcat-outputlen   = 20.
APPEND wa_fieldcat TO i_fieldcat.
**Inspection Type
CLEAR wa_fieldcat.
wa_fieldcat-tabname     = p_table.
wa_fieldcat-fieldname   = 'ART'.
wa_fieldcat-seltext_l   = text-025.
wa_fieldcat-outputlen   = 20.
APPEND wa_fieldcat TO i_fieldcat.
**Notification
CLEAR wa_fieldcat.
wa_fieldcat-tabname     = p_table.
wa_fieldcat-fieldname   = 'QMNUM'.
wa_fieldcat-seltext_l   = text-026.
wa_fieldcat-outputlen   = 20.
APPEND wa_fieldcat TO i_fieldcat.
**Date
CLEAR wa_fieldcat.
wa_fieldcat-tabname     = p_table.
wa_fieldcat-fieldname   = 'VDATUM'.
wa_fieldcat-seltext_l   = text-027.
wa_fieldcat-outputlen   = 20.
APPEND wa_fieldcat TO i_fieldcat.
**Batch
CLEAR wa_fieldcat.
wa_fieldcat-tabname     = p_table.
wa_fieldcat-fieldname   = 'CHARG'.
wa_fieldcat-seltext_l   = text-028.
wa_fieldcat-outputlen   = 20.
APPEND wa_fieldcat TO i_fieldcat.
ENDFORM.                    " populate_fieldcat
*&      Form check_quantity
      To Check the Quantity
FORM check_quantity USING p_qals TYPE t_qals.
IF wa_qals-lmenge01 GT 0.
    LOOP AT i_disp TRANSPORTING NO FIELDS
                   WHERE qmnum EQ wa_qals-qmnum
                     AND ( mncod CP 'UI'
                      OR   mncod CP 'SR'
                      OR   mncod CP 'ND' ).
    ENDLOOP.
    IF sy-subrc NE 0.
      g_red = 'X'.
    ENDIF.
ENDIF.
IF wa_qals-lmenge02 GT 0 AND g_red NE 'X'.
    LOOP AT i_disp TRANSPORTING NO FIELDS
                   WHERE qmnum EQ wa_qals-qmnum
                     AND ( mncod CP 'SC'
                      OR   mncod CP 'SR' ).
    ENDLOOP.
    IF sy-subrc NE 0.
      g_red = 'X'.
    ENDIF.
ENDIF.
IF wa_qals-lmenge04 GT 0 AND g_red NE 'X'.
    LOOP AT i_disp TRANSPORTING NO FIELDS
                   WHERE qmnum EQ wa_qals-qmnum
                     AND ( mncod CP 'RW'
                      OR   mncod CP 'RD' ).
    ENDLOOP.
    IF sy-subrc NE 0.
      g_red = 'X'.
    ENDIF.
ENDIF.
IF wa_qals-lmenge05 GT 0 AND g_red NE 'X'.
    LOOP AT i_disp TRANSPORTING NO FIELDS
                   WHERE qmnum EQ wa_qals-qmnum
                     AND mncod CP 'R1'.
    ENDLOOP.
    IF sy-subrc NE 0.
      g_red = 'X'.
    ENDIF.
ENDIF.
IF wa_qals-lmenge06 GT 0 AND g_red NE 'X'.
    LOOP AT i_disp TRANSPORTING NO FIELDS
                   WHERE qmnum EQ wa_qals-qmnum
                     AND mncod CP 'RD'.
    ENDLOOP.
    IF sy-subrc NE 0.
      g_red = 'X'.
    ENDIF.
ENDIF.
IF wa_qals-lmenge07 GT 0 AND g_red NE 'X'.
    LOOP AT i_disp TRANSPORTING NO FIELDS
                   WHERE qmnum EQ wa_qals-qmnum
                     AND mncod CP 'RV'.
    ENDLOOP.
    IF sy-subrc NE 0.
      g_red = 'X'.
    ENDIF.
ENDIF.
IF wa_qals-lmenge08 GT 0 AND g_red NE 'X'.
    LOOP AT i_disp TRANSPORTING NO FIELDS
                   WHERE qmnum EQ wa_qals-qmnum
                     AND ( mncod CP 'SC'
                      OR   mncod CP 'SE' ).
    ENDLOOP.
    IF sy-subrc NE 0.
      g_red = 'X'.
    ENDIF.
ENDIF.
ENDFORM.                    " check_quantity
*&      Form check_group
      To check the Disposition Code
FORM check_group USING p_qals TYPE t_qals
                         p_qmsm TYPE t_qmsm.
IF p_qmsm-mncod+0(2) EQ 'UI' AND
     NOT p_qals-lmenge01 GT 0.
    g_red = 'X'.
    EXIT.
ENDIF.
IF p_qmsm-mncod+0(2) EQ 'RW' AND
     NOT p_qals-lmenge04 GT 0.
    g_red = 'X'.
    EXIT.
ENDIF.
IF p_qmsm-mncod+0(2) EQ 'SC' AND
      NOT p_qals-lmenge02 GT 0 AND
      NOT p_qals-lmenge08 GT 0.
    g_red = 'X'.
    EXIT.
ENDIF.
IF p_qmsm-mncod+0(2) EQ 'SE' AND
     NOT p_qals-lmenge08 GT 0.
    g_red = 'X'.
    EXIT.
ENDIF.
IF p_qmsm-mncod+0(2) EQ 'RV' AND
     NOT p_qals-lmenge07 GT 0.
    g_red = 'X'.
    EXIT.
ENDIF.
IF p_qmsm-mncod+0(2) EQ 'SR' AND
      NOT p_qals-lmenge01 GT 0 AND
      NOT p_qals-lmenge02 GT 0.
    g_red = 'X'.
    EXIT.
ENDIF.
IF p_qmsm-mncod+0(2) EQ 'ND' AND
     NOT p_qals-lmenge01 GT 0.
    g_red = 'X'.
    EXIT.
ENDIF.
IF p_qmsm-mncod+0(2) EQ 'R1' AND
     NOT p_qals-lmenge05 GT 0.
    g_red = 'X'.
    EXIT.
ENDIF.
IF p_qmsm-mncod+0(2) EQ 'RD' AND
      NOT p_qals-lmenge04 GT 0 AND
      NOT p_qals-lmenge06 GT 0.
    g_red = 'X'.
    EXIT.
ENDIF.
ENDFORM.                    " check_group
*&      Form call_alv
      Call ALV Grid Display
FORM call_alv TABLES   p_out STRUCTURE wa_out.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
      i_callback_program       = g_repid
      i_callback_pf_status_set = 'PF_STATUS_SET'
      i_callback_user_command = 'USER_COMMAND'
      is_layout                = i_layout
      it_fieldcat              = i_fieldcat[]
    TABLES
      t_outtab                 = p_out
    EXCEPTIONS
      program_error            = 1
      OTHERS                   = 2.
IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
          WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
ENDFORM.                    " call_alv
*&      Form generate_alv
      Build ALV
FORM generate_alv .
IF NOT i_out IS INITIAL OR
     NOT i_out1 IS INITIAL.
    g_repid = sy-repid.
    IF p_excp EQ 'X'.
      MOVE 'I_OUT1' TO g_table.
    ELSEIF p_all EQ 'X'.
      MOVE 'I_OUT' TO g_table.
    ENDIF.
    PERFORM populate_fieldcat USING g_table.
    i_layout-zebra        = 'X'.
    i_layout-colwidth_optimize = 'X'.
    IF p_excp = 'X'.
      PERFORM call_alv TABLES i_out1.
    ELSEIF p_all = 'X'.
      PERFORM call_alv TABLES i_out.
    ENDIF.
ENDIF.
ENDFORM.                    " generate_alv
*&             Form PF_STATUS_SET
             Setting PF Status
FORM pf_status_set USING rt_extab TYPE slis_t_extab.
SET PF-STATUS 'STATUS1' .
ENDFORM.                    "PF_STATUS_SET
*&              Form USER_COMMAND
           User Command Processing
FORM user_command USING r_ucomm     TYPE sy-ucomm
                        rs_selfield TYPE slis_selfield.
CASE r_ucomm.
    WHEN 'UDG'.
      IF p_all EQ 'X'.
        CLEAR wa_out.
        READ TABLE i_out INTO wa_out INDEX rs_selfield-tabindex.
        SET PARAMETER ID 'QLS' FIELD wa_out-prueflos.
      ELSEIF p_excp EQ 'X'.
        CLEAR wa_out1.
        READ TABLE i_out1 INTO wa_out1 INDEX rs_selfield-tabindex.
        SET PARAMETER ID 'QLS' FIELD wa_out1-prueflos.
      ENDIF.
      CALL TRANSACTION 'QA13' AND SKIP FIRST SCREEN.
    WHEN 'QNF'.
      IF p_all EQ 'X'.
        CLEAR wa_out.
        READ TABLE i_out INTO wa_out INDEX rs_selfield-tabindex.
        SET PARAMETER ID 'IQM' FIELD wa_out-qmnum.
      ELSEIF p_excp EQ 'X'.
        CLEAR wa_out1.
        READ TABLE i_out1 INTO wa_out1 INDEX rs_selfield-tabindex.
        SET PARAMETER ID 'IQM' FIELD wa_out1-qmnum.
      ENDIF.
      CALL TRANSACTION 'QM03' AND SKIP FIRST SCREEN.
ENDCASE.
ENDFORM. "USER_COMMAND
*&      Form variant_init
     Initialize variant
FORM variant_init .
Set Options: save variants userspecific or general
g_save = 'A'.
g_report = sy-repid.
g_var-report = g_report.
Get default variant
g_variant = g_var.
CALL FUNCTION 'REUSE_ALV_VARIANT_DEFAULT_GET'
    EXPORTING
      i_save     = g_save
    CHANGING
      cs_variant = g_variant
    EXCEPTIONS
      not_found = 2.
IF sy-subrc = 0.
    p_vari = g_variant-variant.
ENDIF.
ENDFORM.                    " variant_init
*&      Form f4_for_variant
      F4 help for variant
FORM f4_for_variant .
CALL FUNCTION 'REUSE_ALV_VARIANT_F4'
    EXPORTING
      is_variant = g_var
      i_save     = g_save
    IMPORTING
      e_exit     = g_exit
      es_variant = g_variant
    EXCEPTIONS
      not_found = 2.
IF sy-subrc = 2.
    MESSAGE ID sy-msgid TYPE 'S'      NUMBER sy-msgno
            WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ELSE.
    IF g_exit = space.
      p_vari = g_variant-variant.
    ENDIF.
ENDIF.
ENDFORM.                    " f4_for_variant
*&      Form pai_of_selection_screen
      Check existence of Variant
FORM pai_of_selection_screen .
IF NOT p_vari IS INITIAL.
    MOVE g_var TO g_variant.
    MOVE p_vari TO g_variant-variant.
    CALL FUNCTION 'REUSE_ALV_VARIANT_EXISTENCE'
      EXPORTING
        i_save     = g_save
      CHANGING
        cs_variant = g_variant.
    g_var = g_variant.
ELSE.
    PERFORM variant_init.
ENDIF.
ENDFORM.                    " pai_of_selection_screen
*&      Form get_codegroup
      Get F4 help for Code Group
FORM get_codegroup .
DATA: i_return TYPE TABLE OF ddshretval.
SELECT katalogart codegruppe kurztext FROM qpgt
                                        INTO TABLE i_codegrp
                                        WHERE katalogart EQ '3'
                                          AND sprache EQ sy-langu.
IF sy-subrc EQ 0.
    CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
       EXPORTING
    DDIC_STRUCTURE         = ' '
         retfield               = 'CODEGRUPPE'
         dynpprog               = sy-repid
         dynpnr                 = sy-dynnr
         dynprofield            = 'S_VCDGRP'
         value_org              = 'S'
       TABLES
         value_tab              = i_codegrp[]
      return_tab             = i_return[]
       EXCEPTIONS
         parameter_error        = 1
         no_values_found        = 2
         OTHERS                 = 3
    IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
          WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
    ENDIF.
ENDIF.
ENDFORM.                    " get_codegroup
*&      Form get_code
      Get F4 help for Code
FORM get_code .
DATA: l_field       TYPE rsscr-name VALUE 'S_VCDGRP',
        l_field_kind TYPE rsscr-kind VALUE 'S',
        li_par_values TYPE TABLE OF rsparams,
        la_par_values TYPE rsparams,
        r_cdgrp       TYPE RANGE OF qpct-codegruppe,
        la_cdgrp      LIKE LINE OF r_cdgrp.
**Get the values entered in the selection screen
PERFORM f4_get_related_values IN PROGRAM rsdbspf4
          TABLES li_par_values
          USING l_field l_field_kind.
IF NOT li_par_values IS INITIAL.
    CLEAR:la_cdgrp,la_par_values.
    LOOP AT li_par_values INTO la_par_values.
      MOVE-CORRESPONDING la_par_values TO la_cdgrp.
      IF la_cdgrp-option IS INITIAL.
        MOVE 'EQ' TO la_cdgrp-option.
      ENDIF.
      APPEND la_cdgrp TO r_cdgrp.
      CLEAR la_cdgrp.
    ENDLOOP.
ENDIF.
SELECT katalogart codegruppe
         code       version
         kurztext FROM qpct
                  INTO TABLE i_code
                  WHERE katalogart EQ '3'
                    AND codegruppe IN r_cdgrp
                    AND sprache EQ sy-langu.
IF sy-subrc EQ 0.
    CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
       EXPORTING
    DDIC_STRUCTURE         = ' '
         retfield               = 'CODE'
         dynpprog               = sy-repid
         dynpnr                 = sy-dynnr
         dynprofield            = 'S_VCODE'
         value_org              = 'S'
       TABLES
         value_tab              = i_code[]
     return_tab             =
       EXCEPTIONS
         parameter_error        = 1
         no_values_found        = 2
         OTHERS                 = 3
    IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
          WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
    ENDIF.
ENDIF.
ENDFORM.                    " get_code

I have been told my Redemption Code has been activated, yet I can not use the software without downloading trials only

I am in online school and I have recieved a Redemption Code but I am not able to use the software without just using 30 day trials, which have expired sooner than the 30 days. I am not sure why I can not open templates from class without having to purchase Adobe Creative cloud again. I have the old Adobe, 5.5, I believe still installed. What can I do to access my already paid for software that I can not use?

Redemption Code http://helpx.adobe.com/x-productkb/global/redemption-code-help.html
PS - posting a minute apart really won't help... this is an open forum, not a direct link to Adobe support
Adobe contact information - http://helpx.adobe.com/contact.html may help

Hold the posting without PAN No. (only for TDS)

Similar Messages

Maybe you are looking for