I want to create unique prices for logged in customers?

I am trying to set up a site that would allow both customers and wholesalers to get different pricing depending on their individual requirements. Is there a way to set this up?

http://ecovessel.com/OrderRetrievev2.aspx?CatalogueID=0 I tryed the
producttotal as well and no luck.

Similar Messages

  • I want to create home page for my application with short URL

    I want to create home page for my application with short URL
    as when I want user to use my application user must go to URL like this
    http://127.0.0.1:7101/My-Project/faces/app/empModule/allEmployees/viewMyEmployees.jspxI want the user to use short URL , How can I use shorter URL not all this one.
    I want shorter URL for my application not to write full path .
    thanks in advance.
    Edited by: user611775 on Oct 31, 2010 10:21 PM

    Well,
    it's up to you. The first part (Mcit-Project-ViewController-context-root) is the context root which you define in the view controller project. 'faces' is the name the servlet filter reacts on. You can't omit it but shorten it in web.xml. The rest is your directory structure. I'm not sure how to shorten this other as to move the jspx files back into the web root folder.
    By the way an ADF faces app never uses the .jspx at the end of the url. If you specify '.jspx', you only render the page but don't start the work flow.
    Timo

  • Creating unique passwords for a PDF document

    I'm going to be selling a PDF eBook on the Internet. 
    I would like to know if there is a way to create a unique PDF password for each customer
    rather than having every customer have the same password that was created in Adobe Pro. 
    I purchased a $20 eBook that requires you to enter a unique alpha-numeric
    password (given only to me) before the Adobe file shows the eBook contents. 
    I was given a password upon purchasing and when I downloaded and double clicked
    on the PDF file, it had the standard message
    "this PDF is protected. Please enter a Document Open Password."
    They company selling that product must have found a way to create unique passwords
    for each customer with their PDF document. 
    Any help or comments would be appreciated.

    George - what I will be selling is a 650-page PDF eBook.  Given the amount of content (especially the quality of the content), it's worth protecting it.  LockLizard and such products are too high for a startup like mine.  They are geared more for the enterprise business level. 
    Dave Merchant - I right clicked on the PDF eBook I mentioned in my original post that seems to have a unique password for each customer.  On the 'general' tab, it says at the bottom:
    "Security:  This file came from another computer and might be blocked to help protect this computer." 
    I'm not sure if that tells you anything. 
    What's interesting is that after I cancelled the order for that $20 eBook product, the password still works - so the company using that password system either does not have the capability to revoke access or they simply forgot to revoke access to the eBook for me personally. 
    BTW, I found out that e-junkie.com has a PDF stamping option that will stamp each buyer's PDF with their name, email address, and transaction number.  That would help.  But I would still like to have the customer have to login with a unique password or key code to access the eBook contents.  Having tenchology that revokes access to the eBook would also be ideal, but that might be too expensive to implement.
    thanks

  • Want to create program (XYZ) for scheduling anther program(ABC)

    Requirement :
    I have one report ABC and I want to create program XYZ for scheduling the report ABC (without executing the program ABC ).
    Output : Program XYZ
    1) schedule the report ABC
    2) Provide the output of ABC

    Seee if the below code help:
    REPORT Z_MQSCHD NO STANDARD PAGE HEADING LINE-SIZE 170 LINE-COUNT 58 .
    DATA: ZCOUNT            LIKE SY-TABIX,
          JOBNAME           LIKE TBTCJOB-JOBNAME,
          PARAMS            LIKE  PRI_PARAMS,
          JOBCOUNT          LIKE TBTCJOB-JOBCOUNT,
          AUTHCKNAM         LIKE  TBTCJOB-AUTHCKNAM,
          SDLSTRTTM         LIKE  TBTCJOB-SDLSTRTTM,
          SDLSTRTDT         LIKE  TBTCJOB-SDLSTRTDT,
          VARIANT           LIKE  RALDB-VARIANT,
          REPORT            LIKE  SY-REPID,
          ZTIME             LIKE SY-UZEIT,
          PREDJOB_CHECKSTAT LIKE TBTCSTRT-CHECKSTAT,
          PRED_JOBCOUNT     LIKE TBTCJOB-JOBCOUNT,
          PRED_JOBNAME      LIKE TBTCJOB-JOBNAME,
          RELEASED          LIKE  BTCH0000-CHAR1.
    *email variables
    DATA:  emailaddr(80)     TYPE c.
    data: objtxt           like solisti1   occurs 10 with header line.
    data: tab_lines        like sy-tabix.
    DATA: OBJECT_HD_CHANGE LIKE SOOD1.
    DATA: OBJECT_TYPE LIKE SOOD-OBJTP.
    DATA: OBJCONT LIKE SOLI OCCURS 0 WITH HEADER LINE.
    DATA: RECEIVERS LIKE SOOS1 OCCURS 0 WITH HEADER LINE.
    SELECTION-SCREEN: BEGIN OF BLOCK A1 WITH FRAME TITLE TEXT-001.
    PARAMETERS:
            NAME LIKE RS38M-PROGRAMM OBLIGATORY,
            VAR  LIKE RS38M-SELSET  OBLIGATORY,
            JOB  LIKE TBTCJOB-JOBNAME,
            FRQ1 LIKE SY-INDEX,
            FRQ2(2) TYPE C.
    SELECTION-SCREEN END OF BLOCK A1.
    SELECTION-SCREEN: BEGIN OF BLOCK A2 WITH FRAME TITLE TEXT-002.
    PARAMETERS: ZDATE LIKE SY-DATUM DEFAULT SY-DATUM OBLIGATORY.
    SELECT-OPTIONS:
            TIME1 FOR SY-UZEIT OBLIGATORY.
    SELECTION-SCREEN END OF BLOCK A2.
    SELECTION-SCREEN: BEGIN OF BLOCK A3 WITH FRAME TITLE TEXT-003.
    PARAMETERS:  p_mail       AS CHECKBOX DEFAULT 'X'. "X = Mail report
    SELECT-OPTIONS: so_mlist FOR emailaddr.
    SELECTION-SCREEN END OF BLOCK A3.
    AT SELECTION-SCREEN ON FRQ2.
      IF FRQ2 NE 'H' AND FRQ2 NE 'M' AND FRQ2 NE 'S'.
        MESSAGE E001(Z1) WITH 'Time Unit must be H or M or S'.
      ENDIF.
    AT SELECTION-SCREEN ON ZDATE.
      IF ZDATE < SY-DATUM.
        MESSAGE E001(Z1) WITH 'Date must be greater than current date'.
      ENDIF.
    AT SELECTION-SCREEN ON TIME1.
      IF ZDATE = SY-DATUM AND TIME1-LOW < SY-UZEIT.
        MESSAGE E001(Z1) WITH 'Time must be greater than current time'.
      ENDIF.
    AT SELECTION-SCREEN OUTPUT.
      IF JOB IS INITIAL.
        JOB = NAME.
      ENDIF.
    $$* Start of selection
    START-OF-SELECTION.
      IF JOB IS INITIAL.
        JOB = NAME.
      ENDIF.
      clear params.
      call function 'GET_PRINT_PARAMETERS'
           EXPORTING
                mode           = 'CURRENT'
                no_dialog      = 'X'
           IMPORTING
                out_parameters = params.
      params-paart = 'X_PAPER'.
      ZTIME       = TIME1-LOW.
      JOBNAME      = JOB.
      VARIANT      = VAR.
      REPORT       = NAME.
      AUTHCKNAM    = SY-UNAME.
      PARAMS-PRIMM = SPACE.
      SDLSTRTDT    = ZDATE.
      CLEAR: ZCOUNT.
      WHILE ZTIME LE TIME1-HIGH.
        SDLSTRTTM = ZTIME.
        CALL FUNCTION 'JOB_OPEN'
             EXPORTING
                  JOBNAME  = JOB
             IMPORTING
                  JOBCOUNT = JOBCOUNT
             EXCEPTIONS
                  OTHERS   = 4.
        CALL FUNCTION 'JOB_SUBMIT'
             EXPORTING
                  AUTHCKNAM = AUTHCKNAM
                  JOBCOUNT  = JOBCOUNT
                  JOBNAME   = JOB
                  PRIPARAMS = PARAMS
                  REPORT    = REPORT
                  VARIANT   = VARIANT.
        CALL FUNCTION 'JOB_CLOSE'
             EXPORTING
                  SDLSTRTDT        = SDLSTRTDT
                  SDLSTRTTM        = SDLSTRTTM
                  JOBCOUNT         = JOBCOUNT
                  JOBNAME          = JOB
             IMPORTING
                  JOB_WAS_RELEASED = RELEASED.
        IF RELEASED = 'X'.
          WRITE: / 'Job', JOBNAME, '(' ,JOBCOUNT, ')' ,'will run at', ZTIME,
              'on', ZDATE, 'with program',NAME, 'and variant', VAR.
          IF NOT P_MAIL IS INITIAL.
            CLEAR OBJCONT.
            CONCATENATE
            'Job' JOBNAME '(' JOBCOUNT ')' 'will run at' ZTIME 'on' ZDATE
           'with program' NAME  'and variant'  VAR
            INTO OBJCONT SEPARATED BY SPACE.
            APPEND OBJCONT.
          ENDIF.
        ELSE.
          WRITE: /
         'Unable to release job', JOBNAME, '(' ,JOBCOUNT, ')' ,'at', ZTIME,
            'on', ZDATE, 'with program',NAME, 'and variant', VAR.
          IF NOT P_MAIL IS INITIAL.
            CLEAR OBJCONT.
            CONCATENATE
           'Unable to release job' JOBNAME  '('  JOBCOUNT ')'  'at'  ZTIME
           'on' ZDATE 'with program' NAME  'and variant'  VAR
            INTO OBJCONT SEPARATED BY SPACE.
            APPEND OBJCONT.
          ENDIF.
        ENDIF.
        CASE FRQ2.
          WHEN 'H'.
            ZTIME = ZTIME + ( 60 * 60 * FRQ1 ).
          WHEN 'M'.
            ZTIME = ZTIME + ( 60 * FRQ1 ).
          WHEN 'S'.
            ZTIME = ZTIME + FRQ1.
          WHEN OTHERS.
        ENDCASE.
      ENDWHILE.
      IF NOT P_MAIL IS INITIAL.
        CHECK NOT SO_MLIST IS INITIAL.
        PERFORM SENDEMAIL.
      ENDIF.
    *&      Form  SENDEMAIL
          text
    -->  p1        text
    <--  p2        text
    FORM SENDEMAIL.
      clear objcont.
      append objcont.
      append objcont.
      concatenate
      'This e-mail was sent from an automated system...' sy-sysid sy-mandt
         into objcont.
      append objcont.
      clear objcont.
      objcont = 'Do not reply to this message.'(013).
      append objcont.
      MOVE: SY-LANGU TO OBJECT_HD_CHANGE-OBJLA,
            'NOTIFICATION' TO OBJECT_HD_CHANGE-OBJNAM,
            'Report from job scheduler' TO OBJECT_HD_CHANGE-OBJDES.
      MOVE 'RAW' TO OBJECT_TYPE.
      describe table objtxt lines tab_lines.
      read table objtxt index tab_lines.
    *Now we will create the packing list entry for our text body.
      describe table objtxt lines tab_lines.
      read table objtxt index tab_lines.
      OBJECT_HD_CHANGE-OBJLEN  = tab_lines * 255.
    *in this next section we create our recipient list.
      LOOP AT so_mlist.
        clear RECEIVERS.
        move so_mlist-low to RECEIVERS-RECEXTNAM.
        MOVE 'U' TO RECEIVERS-RECESC.
        APPEND RECEIVERS.
        if not so_mlist-high is initial.
          move so_mlist-high TO RECEIVERS-RECEXTNAM.
          MOVE 'U' TO RECEIVERS-RECESC.
          APPEND RECEIVERS.
        endif.
      ENDLOOP.
      CALL FUNCTION 'SO_OBJECT_SEND'
           EXPORTING
                OBJECT_HD_CHANGE           = OBJECT_HD_CHANGE
                OBJECT_TYPE                = OBJECT_TYPE
           TABLES
                OBJCONT                    = OBJCONT
                RECEIVERS                  = RECEIVERS
           EXCEPTIONS
                ACTIVE_USER_NOT_EXIST      = 1
                COMMUNICATION_FAILURE      = 2
                COMPONENT_NOT_AVAILABLE    = 3
                FOLDER_NOT_EXIST           = 4
                FOLDER_NO_AUTHORIZATION    = 5
                FORWARDER_NOT_EXIST        = 6
                NOTE_NOT_EXIST             = 7
                OBJECT_NOT_EXIST           = 8
                OBJECT_NOT_SENT            = 9
                OBJECT_NO_AUTHORIZATION    = 10
                OBJECT_TYPE_NOT_EXIST      = 11
                OPERATION_NO_AUTHORIZATION = 12
                OWNER_NOT_EXIST            = 13
                PARAMETER_ERROR            = 14
                SUBSTITUTE_NOT_ACTIVE      = 15
                SUBSTITUTE_NOT_DEFINED     = 16
                SYSTEM_FAILURE             = 17
                TOO_MUCH_RECEIVERS         = 18
                USER_NOT_EXIST             = 19
                ORIGINATOR_NOT_EXIST       = 20
                X_ERROR                    = 21
                OTHERS                     = 22.
      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.                    " SENDEMAIL

  • Want to create F1 Help for radio button in my report

    Hi All,
          I want to create F1 Help for radio button in my report program. Which function module should i call in <b>at selection screen on help-request</b>
          Also do I need to define the texts somewhere or I can pass it directly to the function module.

    Try DYN_FIELD_F1_HELP,
    ~Suresh
    that is only for Dic fields..
    Pl take alook at this<a href="http://help.sap.com/saphelp_erp2005vp/helpdata/en/79/34a243d9b511d1950e0000e8353423/frameset.htm">SAP Help</a>
    ~Suresh
    Message was edited by: Suresh Datti

  • I want to create a SWF for my small web site. How do I do this? Do I need to purchase "Flash Builder"?

    I want to create a SWF for my small web site. How do I do this? Do I need to purchase "Flash Builder"?

    Hi Developer_46038, 
    if for example all the properties and object are stated as list, i think there is a tool that overcome cross list.
    http://listrollup.codeplex.com/
    http://social.msdn.microsoft.com/Forums/sharepoint/en-US/13a51be5-4007-46e8-bbb2-5e04320dfebd/cross-list-webpart?forum=sharepointcustomizationlegacy
    you can also using dataview webpart to show the cross lists:
    http://office.microsoft.com/en-us/sharepoint-designer-help/create-a-data-view-HA010094804.aspx
    http://office.microsoft.com/en-us/sharepoint-designer-help/connect-two-data-views-HA010169133.aspx
    3rd party: http://community.bamboosolutions.com/blogs/bambooteamblog/archive/2009/03/11/relational-database-capabilities-for-sharepoint-lists-cross-list-web-part.aspx
    but i am not quite sure how crystal report will do, if you can make the crystal report as also list, i think its possible, 
    http://social.msdn.microsoft.com/Forums/sharepoint/en-US/8247edf5-dee8-49d8-b7ee-9e49bfd97b9b/crystal-report-in-sharepoint-2010-webpart?forum=sharepointdevelopmentprevious
    Regards,
    Aries
    Microsoft Online Community Support
    Please remember to click “Mark as Answer” on the post that helps you, and to click “Unmark as Answer” if a marked post does not actually answer your question. This can be beneficial to other community members reading the thread.

  • I want to upgrade my account to include illustrator but do not want to pay full price for both photoshop and illustrator.  How can I accomplish this?

    I want to upgrade my account to include illustrator but do not want to pay full price for both photoshop and illustrator.  How can I accomplish this?

    Photography plan is $9.99 and any added single subscription is $19.99
    Cloud Plans https://creative.adobe.com/plans

  • Want to create RFC FM for Getting data in CRM from R/3

    Hi,
    I have made the RFC connection in CRM system , now I want to make RFC FM for getting data from R/3 'MARD' table into CRM, If any one help me how to do this.
    From CRM system I will pass Plant & material no to FM and I need Storage location & Storage Bin from R/3 MARD table in CRM.
    Thanks
    Bobby

    Dear Bobby,
    You would create a FM in SE37 select 'Remote Enabled Module' radio-button in attributes tab of Function Builder.
    Select matnr werks LGORT LGPBE
               from MARD
               into ET_MARD
               where matnr = i_matnr
               and  werks = i_werks.
    Note:
    matnr is material number
    werks is plant
    LGORT is storage location
    LGPBE is storage bin
    Hope this will help.
    Regards,
    Naveen.

  • I want to create an eBook for iPad , Mac and "iPhone".

    While I was beginning with creating an eBook with iBookAuthor, I didn't know that the target group iPhone user is missed.
    I want to create and publish an eBook, which is intended for iPad, Mac and iPhone users.
    Does somebody know, which software would be the best?

    Fattissimo wrote:
    I 've tested it, the program doesn't accept ePub files.
    Of course iTunes Producer is supposed to accept .epub files.  If yours are not working, I suggest you try to contact Apple via the means indicated at the bottom of the FAQ
    http://www.apple.com/itunes/working-itunes/sell-content/books/book-faq.html
    Also you could post your specific issue, with any error messages, in the forum for epub issues:
    Creating ePubs

  • Best way to create special prices for a single BP?

    Hi Experts,
    Can anyone suggest the best way to do the following?   I have a single BP who will ALWAYS purhcase at 10% above the landed cost (or last purchase price of an item) for any item in SAP B1.   I don't see how I can implement this through Special Prices.   Is there any other way?
    Regards
    Geoff

    Hi Gordon
    I did consider this method but it occurred to me that whenever we create a new item (or indeed the last purhcase price of an item changes) then the special price will not change.   We also have a item list of over 50,000 items and I have always found that adding special prices for a business partner for all 50k items increases the sizes of the database considerably.
    I am looking for a more dynamic approach that will change as we add new items or last purhcase price changes.  
    Could this be done through the addition of a new price list perhaps which is based on the last purchase price?   I don't fully understand what the factor does but I presume it will create a new price based on another price list only higher or lower?
    Regards
    Geoff

  • Create unique handle for ALV grid layout

    Hi,
    in some generic classes we display internal tables in a grid. We want to activate the save&maintain layouts feature by passing the DISVARIANT structure, Here wen have to give Report and handle. As we display some more tables using the same method, we must set a unique handle so that saved ALV layouts do not get merged /confused. As we do not have a table name at this point, my idea is to create a hash key based on the fields in the field catalog (field catalog is only distinguishable object here).
    I need an algorithm to create the 4-character handle as a hash value based on the (concatenated) field names in field catalog.
    Or a better idea to create unique handles in the generic ALV calls in one program.
    Please: Serious answers only.
    Regards,
    Clemens

    Here it is
    function enqueuecomputehash.
    *"*"Lokale Schnittstelle:
    *"  IMPORTING
    *"     VALUE(INPUT) TYPE  STRING
    *"     VALUE(INPUT_LEN) TYPE  I
    *"     VALUE(HASH_LEN) TYPE  I
    *"  EXPORTING
    *"     REFERENCE(HASH) TYPE  STRING
    *"     REFERENCE(TIME_USEC) TYPE  I
    *"  EXCEPTIONS
    *"      INVALID_ARGUMENT
    field-symbols <text>.
    field-symbols <hash>.
    data: tmp_input type text8192.
    data: tmp_hash  type text8192.
    if input_len < 1 or hash_len < 1.
       raise invalid_argument.
    endif.
    assign tmp_input(input_len) to <text>.
    assign tmp_hash(hash_len) to <hash>.
    data: t1 type i,
          t2 type i.
    <text> = input.
    get run time field t1.
    call 'C_ENQ_WILDCARD' id 'TEXT'     field <text>
                          id 'TEXTHASH' field <hash>.
    get run time field t2.
    hash = <hash>.
    time_usec = t2 - t1.
    endfunction.

  • I want to create an app for my wedding. I have tried to do it on appmkr but it says I need a developer signin?   But when I try to sign up it won't let me

    Help!   Seems so simple!

    Making Apps is not simple. It is a lot of work. Especially if you are doing it as an individual, like myself.
    The iOS Developer Program is $99/yr. Same, separate price for the Mac Developer Program. The Safari Developer Program is free, however, but the only "apps" that can make you are webapps. (From the days of iPhone OS 1, before the App Store!)
    You can hire a Developer with a Paid Account, but I suggest using iWeb and making a website. You could even use an online website editor to make a mobile version that can be added to the home screen and looks like an app. Or get fancy and use Adobe Dreamweaver.

  • I want to create a formula for telephone numbers in the formula editor

    Is there a way to create a formula for telephone numbers in the "custom" editor in the inspector
    IE if I enter 2123456789 into a cell it automatically formats it to look like this (212) 345-6789

    You can create a new format by opening the Cells Inspector, then selecting "Custom" from the format menu:
    You can add the ### fields and click the menu on the left of the field:

  • Want to Create one PO for multiple Items ..........?

    HI Guy's,
    I am creating PO thorough  Bapi.
    It is also successfully ......
    But here I am not  able to create multiple ITEMS as in transaction ME22 for creating PO.
    For that what can I do ..........
    Greeting's of he Day.
    Ankit Singh Rathore

    hi,
    check this...
    *&      Form  CREATE_PO
          Creating PO
    -->  p1        text
    <--  p2        text
    FORM CREATE_PO .
    DATA: HEAD LIKE BAPIMEPOHEADER,
           HEADX LIKE BAPIMEPOHEADERX,
           ITEM LIKE BAPIMEPOITEM OCCURS 0 WITH HEADER LINE,
           ITEMX LIKE BAPIMEPOITEMX OCCURS 0 WITH HEADER LINE,
           SCHEDULE LIKE BAPIMEPOSCHEDULE OCCURS 0 WITH HEADER LINE,
           SCHEDULEX LIKE BAPIMEPOSCHEDULX OCCURS 0 WITH HEADER LINE,
           CONDITION LIKE BAPIMEPOCONDHEADER OCCURS 0 WITH HEADER LINE,
           CONDITIONX LIKE BAPIMEPOCONDHEADERX OCCURS 0 WITH HEADER LINE,
           RETURNS LIKE BAPIRET2 OCCURS 0 WITH HEADER LINE,
           POPARTNER LIKE BAPIEKKOP OCCURS 0 WITH HEADER LINE.
    DATA: V_EKGRP TYPE MARC-EKGRP.
    DATA: BEGIN OF IT_WRITE OCCURS 0,
           MESSAGE LIKE BAPIRET2-MESSAGE,
           END OF IT_WRITE.
    DATA: V_EKORG TYPE EKORG.
    DATA: V_MAKT LIKE MAKT-MAKTX.
    DATA: V_MEINS TYPE MEINS.
    DATA: V_REMANT TYPE MATNR,
           V_LINT TYPE MATNR,
           V_LDESC TYPE MAKTX,
           V_RDESC TYPE MAKTX,
           V_LMEINS TYPE MEINS,
           V_RMEINS TYPE MEINS,
           V_LMENGE TYPE ZMENGE,
           V_RMENGE TYPE ZMENGE.
      CONCATENATE ZMMHGAGREMENT-MATNR+0(9) 'L' INTO V_LINT.
      CONCATENATE ZMMHGAGREMENT-MATNR+0(9) 'W' INTO V_REMANT.
      SELECT SINGLE MEINS FROM MARA INTO V_MEINS WHERE MATNR = ZMMHGAGREMENT-MATNR.
      SELECT SINGLE DCODE FROM ZMMDYNCODE INTO V_MAKT WHERE MATNR = ZMMHGAGREMENT-MATNR
                                                        AND ZYEAR = ZMMHGAGREMENT-PYEAR
                                                       AND SEASON = ZMMHGAGREMENT-PSEASON.
      IF SY-SUBRC NE 0.
      SELECT SINGLE MAKTX FROM MAKT INTO V_MAKT WHERE MATNR = ZMMHGAGREMENT-MATNR.
      ENDIF.
    SELECT SINGLE EKORG FROM T001W INTO V_EKORG WHERE WERKS = I_PPLANT.
    V_BUKRS = ZMMHGAGREMENT-PPLANT+0(1).
    CONCATENATE ZMMHGAGREMENT-PPLANT+0(1) '011' INTO V_BUKRS.
      V_CHAR = V_BUKRS+0(2).
      V_EKORG = V_BUKRS.
      CONCATENATE V_CHAR '0' INTO V_EKGRP.
    *POHEAD
       HEAD-COMP_CODE = V_BUKRS.
       HEAD-DOC_TYPE = 'ZREG'.
       HEAD-VENDOR = V_LIFNR.
       HEAD-PURCH_ORG = V_EKORG.
       HEAD-PUR_GROUP = V_EKGRP.
       HEAD-DOC_DATE = ZMMHGAGREMENT-ZDATE. "I_ADATE.
       HEADX-COMP_CODE = 'X'.
       HEADX-DOC_TYPE = 'X'.
       HEADX-VENDOR = 'X'.
       HEADX-PURCH_ORG = 'X'.
       HEADX-PUR_GROUP = 'X'.
       HEADX-DOC_DATE = 'X'.
    *POITEM
        ITEM-PO_ITEM = '10'.
        ITEM-MATERIAL = ZMMHGAGREMENT-MATNR..
        ITEM-SHORT_TEXT = V_MAKT.
        ITEM-PLANT = ZMMHGAGREMENT-PPLANT.
        ITEM-QUANTITY = ZMMHGAGREMENT-MENGE.
        ITEM-PO_UNIT = V_MEINS.
        ITEM-NET_PRICE = ZMMHGAGREMENT-NETPR.
        ITEM-BATCH = ZMMHGAGREMENT-BATCH.
        ITEM-TAX_CODE = 'V0'.
        ITEM-INFO_UPD = ' '.
        APPEND ITEM.
        ITEMX-PO_ITEM = '10'.
        ITEMX-PO_ITEMX = 'X'.
        ITEMX-SHORT_TEXT = 'X'.
        ITEMX-MATERIAL = 'X'.
        ITEMX-PLANT = 'X'.
        ITEMX-QUANTITY = 'X'.
        ITEMX-PO_UNIT = 'X'.
        ITEMX-NET_PRICE = 'X'.
        ITEMX-BATCH = 'x'.
        ITEMX-TAX_CODE = 'X'.
        ITEMX-INFO_UPD = 'X'.
        APPEND ITEMX.
    *ZPAYMENT-PAYMENT
    *SCHEDULE
        SCHEDULE-PO_ITEM = '10'.
        SCHEDULE-DELIVERY_DATE = ZMMHGAGREMENT-RDATE.
        SCHEDULE-QUANTITY = ZMMHGAGREMENT-MENGE..
        APPEND SCHEDULE.
        SCHEDULEX-PO_ITEM = '10'.
        SCHEDULEX-PO_ITEMX = 'X'.
        SCHEDULEX-DELIVERY_DATE = 'X'.
        SCHEDULEX-QUANTITY = 'X'.
        APPEND SCHEDULEX.
    CONDITIONS
        CONDITION-ITM_NUMBER = '10'.
        CONDITION-COND_TYPE  = 'P001'.
        CONDITION-COND_VALUE = ZMMHGAGREMENT-NETPR..
        CONDITION-CURRENCY = 'INR'.
        APPEND CONDITION.
        CONDITIONX-ITM_NUMBER = '10'.
        CONDITIONX-ITM_NUMBERX = 'X'.
        CONDITIONX-COND_TYPE  = 'X'.
        CONDITIONX-COND_VALUE = 'X'.
        CONDITIONX-CURRENCY = 'X'.
        APPEND CONDITIONX.
    IF ZMMHGAGREMENT-MATNR+9(1) = 'K'.
    *POITEM
          V_RDESC TYPE MAKTX,
          V_LMEINS TYPE MEINS,
          V_RMEINS TYPE MEINS.
    SELECT SINGLE MEINS FROM MARA INTO V_LMEINS WHERE MATNR = V_LINT.
    SELECT SINGLE MAKTX FROM MAKT INTO V_LDESC WHERE MATNR = V_LINT.
    V_LMENGE = ( ( ZMMHGAGREMENT-MENGE * 50 ) / 100 ).
        ITEM-PO_ITEM = '20'.
        ITEM-MATERIAL = V_LINT.
        ITEM-SHORT_TEXT = V_LDESC.
        ITEM-PLANT = ZMMHGAGREMENT-PPLANT.
        ITEM-QUANTITY = V_LMENGE.
        ITEM-PO_UNIT  = V_LMEINS.
        ITEM-NET_PRICE = ZPPPRDPOLICY-LRATE."ZMMHGAGREMENT-NETPR.
        ITEM-BATCH = ZMMHGAGREMENT-BATCH.
        ITEM-TAX_CODE = 'V0'.
        ITEM-INFO_UPD = ' '.
        APPEND ITEM.
        ITEMX-PO_ITEM = '20'.
        ITEMX-PO_ITEMX = 'X'.
        ITEMX-SHORT_TEXT = 'X'.
        ITEMX-MATERIAL = 'X'.
        ITEMX-PLANT = 'X'.
        ITEMX-QUANTITY = 'X'.
        ITEMX-PO_UNIT = 'X'.
        ITEMX-NET_PRICE = 'X'.
        ITEMX-BATCH = 'x'.
        ITEMX-TAX_CODE = 'X'.
        ITEMX-INFO_UPD = 'X'.
        APPEND ITEMX.
    *ZPAYMENT-PAYMENT
    *SCHEDULE
        SCHEDULE-PO_ITEM = '20'.
        SCHEDULE-DELIVERY_DATE = ZMMHGAGREMENT-RDATE.
        SCHEDULE-QUANTITY = V_LMENGE.
        APPEND SCHEDULE.
        SCHEDULEX-PO_ITEM = '20'.
        SCHEDULEX-PO_ITEMX = 'X'.
        SCHEDULEX-DELIVERY_DATE = 'X'.
        SCHEDULEX-QUANTITY = 'X'.
        APPEND SCHEDULEX.
    CONDITIONS
        CONDITION-ITM_NUMBER = '20'.
        CONDITION-COND_TYPE  = 'P001'.
        CONDITION-COND_VALUE = ZPPPRDPOLICY-LRATE.
        CONDITION-CURRENCY = 'INR'.
        APPEND CONDITION.
        CONDITIONX-ITM_NUMBER = '20'.
        CONDITIONX-ITM_NUMBERX = 'X'.
        CONDITIONX-COND_TYPE  = 'X'.
        CONDITIONX-COND_VALUE = 'X'.
        CONDITIONX-CURRENCY = 'X'.
        APPEND CONDITIONX.
    ADDING REMNANT TO PO IF REMNANT VALUE IS MAINTAINED IN PO
    IF NOT ZPPPRDPOLICY-RCENT IS INITIAL.
         SELECT SINGLE MEINS FROM MARA INTO V_RMEINS WHERE MATNR = V_REMANT.
         SELECT SINGLE MAKTX FROM MAKT INTO V_RDESC WHERE MATNR = V_REMANT.
         V_RMENGE = ( ( ZMMHGAGREMENT-MENGE * ZPPPRDPOLICY-RCENT ) / 100 ).
        ITEM-PO_ITEM = '30'.
        ITEM-MATERIAL = V_REMANT.
        ITEM-SHORT_TEXT = V_RDESC.
        ITEM-PLANT = ZMMHGAGREMENT-PPLANT.
        ITEM-QUANTITY = V_RMENGE.
        ITEM-PO_UNIT  = V_RMEINS.
        ITEM-NET_PRICE = ZPPPRDPOLICY-RRATE."ZMMHGAGREMENT-NETPR.
        ITEM-BATCH = ZMMHGAGREMENT-BATCH.
        ITEM-TAX_CODE = 'V0'.
        ITEM-INFO_UPD = ' '.
        APPEND ITEM.
        ITEMX-PO_ITEM = '30'.
        ITEMX-PO_ITEMX = 'X'.
        ITEMX-SHORT_TEXT = 'X'.
        ITEMX-MATERIAL = 'X'.
        ITEMX-PLANT = 'X'.
        ITEMX-QUANTITY = 'X'.
        ITEMX-PO_UNIT = 'X'.
        ITEMX-NET_PRICE = 'X'.
        ITEMX-BATCH = 'x'.
        ITEMX-TAX_CODE = 'X'.
        ITEMX-INFO_UPD = 'X'.
        APPEND ITEMX.
    *ZPAYMENT-PAYMENT
    *SCHEDULE
        SCHEDULE-PO_ITEM = '30'.
        SCHEDULE-DELIVERY_DATE = ZMMHGAGREMENT-RDATE.
        SCHEDULE-QUANTITY = V_RMENGE.
        APPEND SCHEDULE.
        SCHEDULEX-PO_ITEM = '30'.
        SCHEDULEX-PO_ITEMX = 'X'.
        SCHEDULEX-DELIVERY_DATE = 'X'.
        SCHEDULEX-QUANTITY = 'X'.
        APPEND SCHEDULEX.
    CONDITIONS
        CONDITION-ITM_NUMBER = '30'.
        CONDITION-COND_TYPE  = 'P001'.
        CONDITION-COND_VALUE = ZPPPRDPOLICY-RRATE.
        CONDITION-CURRENCY = 'INR'.
        APPEND CONDITION.
        CONDITIONX-ITM_NUMBER = '30'.
        CONDITIONX-ITM_NUMBERX = 'X'.
        CONDITIONX-COND_TYPE  = 'X'.
        CONDITIONX-COND_VALUE = 'X'.
        CONDITIONX-CURRENCY = 'X'.
        APPEND CONDITIONX.
    ENDIF.
    ELSE.
    IF NOT ZPPPRDPOLICY-RCENT IS INITIAL.
    SELECT SINGLE MEINS FROM MARA INTO V_RMEINS WHERE MATNR = V_REMANT.
         SELECT SINGLE MAKTX FROM MAKT INTO V_RDESC WHERE MATNR = V_REMANT.
         V_RMENGE = ( ( ZMMHGAGREMENT-MENGE * ZPPPRDPOLICY-RCENT ) / 100 ).
        ITEM-PO_ITEM = '20'.
        ITEM-MATERIAL = V_REMANT.
        ITEM-SHORT_TEXT = V_RDESC.
        ITEM-PLANT = ZMMHGAGREMENT-PPLANT.
        ITEM-QUANTITY = V_RMENGE.
        ITEM-PO_UNIT  = V_RMEINS.
        ITEM-NET_PRICE = ZPPPRDPOLICY-RRATE."ZMMHGAGREMENT-NETPR.
        ITEM-BATCH = ZMMHGAGREMENT-BATCH.
        ITEM-TAX_CODE = 'V0'.
        ITEM-INFO_UPD = ' '.
        APPEND ITEM.
        ITEMX-PO_ITEM = '20'.
        ITEMX-PO_ITEMX = 'X'.
        ITEMX-SHORT_TEXT = 'X'.
        ITEMX-MATERIAL = 'X'.
        ITEMX-PLANT = 'X'.
        ITEMX-QUANTITY = 'X'.
        ITEMX-PO_UNIT = 'X'.
        ITEMX-NET_PRICE = 'X'.
        ITEMX-BATCH = 'x'.
        ITEMX-TAX_CODE = 'X'.
        ITEMX-INFO_UPD = 'X'.
        APPEND ITEMX.
    *ZPAYMENT-PAYMENT
    *SCHEDULE
        SCHEDULE-PO_ITEM = '20'.
        SCHEDULE-DELIVERY_DATE = ZMMHGAGREMENT-RDATE.
        SCHEDULE-QUANTITY = V_RMENGE.
        APPEND SCHEDULE.
        SCHEDULEX-PO_ITEM = '20'.
        SCHEDULEX-PO_ITEMX = 'X'.
        SCHEDULEX-DELIVERY_DATE = 'X'.
        SCHEDULEX-QUANTITY = 'X'.
        APPEND SCHEDULEX.
    CONDITIONS
        CONDITION-ITM_NUMBER = '20'.
        CONDITION-COND_TYPE  = 'P001'.
        CONDITION-COND_VALUE = ZPPPRDPOLICY-RRATE.
        CONDITION-CURRENCY = 'INR'.
        APPEND CONDITION.
        CONDITIONX-ITM_NUMBER = '20'.
        CONDITIONX-ITM_NUMBERX = 'X'.
        CONDITIONX-COND_TYPE  = 'X'.
        CONDITIONX-COND_VALUE = 'X'.
        CONDITIONX-CURRENCY = 'X'.
        APPEND CONDITIONX.
    ENDIF.
    ENDIF.
    FOR PARTNER FUNCTION
       POPARTNER-PARTNERDESC =  'VN'.
       POPARTNER-LANGU = 'EN' .
       POPARTNER-BUSPARTNO =  ZMMHGAGREMENT-GNUMBER.
       APPEND POPARTNER.
      POPARTNER-PARTNERDESC =  'PI'.
      POPARTNER-LANGU = 'EN' .
    IF ZPAYMENT-PAYMENT = '1'. "V_PAYMENT = '1'.   ".
      POPARTNER-BUSPARTNO =  ZMMHGAGREMENT-ONUMBER.
    ELSE.
    POPARTNER-BUSPARTNO =  ZMMHGAGREMENT-GNUMBER.
    ENDIF.
    APPEND POPARTNER.
    *BREAK SAPUSER..
      CALL FUNCTION 'BAPI_PO_CREATE1'
      EXPORTING
        POHEADER                     = HEAD
       POHEADERX                     =  HEADX
      POADDRVENDOR                 =
      TESTRUN                      =
    IMPORTING
       EXPPURCHASEORDER              = I_PNO
      EXPHEADER                    =
      EXPPOEXPIMPHEADER            =
    TABLES
       RETURN                        = RETURNS
       POITEM                        = ITEM
       POITEMX                       = ITEMX
      POADDRDELIVERY               =
       POSCHEDULE                    = SCHEDULE
       POSCHEDULEX                   = SCHEDULEX
       POCONDHEADER                  = CONDITION
       POCONDHEADERX                 = CONDITIONX
       POPARTNER                     = POPARTNER.
    POCOND                       =
    POCONDX                      =
    POLIMITS                     =
    IF NOT I_PNO IS INITIAL.
       CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'.
    ELSE.
    LOOP AT RETURNS WHERE TYPE = 'E'..
    IT_WRITE-MESSAGE = RETURNS-MESSAGE.
    APPEND IT_WRITE.
    ENDLOOP.

  • I want to create a document for printing and when changing the cropping area data log restart

    PLE

    Tom,
    In addition to what Monika said, the document can be either CMYK or RGB Colr Mode, but not both.
    And you are right in starting with the CMYK because that will ensure (to the degree possible) that the CMYK and RGB versions match in colour (gamut, the CMYK gamut being the more linited and almost entirely included in the RGB gamut); this will prevent more vivid RGB colours which will make the CMYK colours seem duller.

Maybe you are looking for