SmartForms field : How to print "PO number" on CREDIT MEMO

If i create a CREDIT MEMO REQUEST ( VA01 - Order Type: CR )
on the first screen, i have "PO Number"
( that is below "Sold-to party" "Ship-to party" )
How can i modify the CREDIT MEMO form in SMARTFORMS in order to print "PO Number" ?

hi,
CALL FUNCTION 'ME_READ_PO_FOR_PRINTING'
EXPORTING
ix_nast = nast
ix_screen = ent_screen
IMPORTING
ex_retco = ent_retco
ex_nast = v_nast
doc = v_doc
CHANGING
cx_druvo = v_druvo
cx_from_memory = l_from_memory.
How can i get PO partner functions using FM ME_READ_PO_FOR_PRINTING
http://sap.ittoolbox.com/groups/technical-functional/sap-log-mm/tcode-me9f-user-exit-exit_saplmedruck_001-617362
thanks.

Similar Messages

How to print TIN Number of Customr on A/R Invoice

Hi..
I need to print TIN number of the customer on A/R Invoice. pls tell me in which table i need to search it and get it printed on invoice.
Reema

Hi Reema,
Just add a database field
Table - CRD7
Column - Taxid11
If the above is not working then try by using the below FMS
Create UDF(TIN No.) and assign the below FMS Query.
SELECT T0.[TaxId11] FROM CRD7 T0 INNER JOIN OCRD T1 ON T0.CardCode = T1.CardCode
WHERE T1.[CardCode] =$[OINV.Cardcode]
OR
SELECT Max(T0.[TaxId11]) FROM CRD7 T0 INNER JOIN OCRD T1 ON T0.CardCode = T1.CardCode
WHERE T1.[CardCode] =$[OINV.Cardcode]
Assign this FMS Query in UDF(TIN No.)
Auto Refresh of Card Code and Check the Display Saved Values
Regards,
Bala
Edited by: Balakumar Viswanathan on Jan 3, 2011 1:31 PM

How to print sequence number for a text item in a oracle reports

Hi
I have text item which repets for every round,if i have 3 or 4 rounds i should number the text item as 1,2,3,4 etc.... in a report.
Can anybody help me
Thanks in advance

Hi Bob
Thank you for your reply.
Here is the data for example:
Jobxxxx
Round
assembly for 3d $200 1 $200.00
proof for 3d $10 3 $30.00
Round
plate for 3d $200 1 $200.00
image for 3d $10 3 $30.00
Job yyyy
Round
assembly for 3d $100 1 $100.00
proof for 3d $50 3 $150.00
So Bob everything is comming from tables except round.
My question is how to add sequence number to round adn the result should be like this:
Jobxxxx
Round 1
assembly for 3d $200 1 $200.00
proof for 3d $10 3 $30.00
Round 2
plate for 3d $200 1 $200.00
image for 3d $10 3 $30.00
Job yyyy
Round 1
assembly for 3d $100 1 $100.00
proof for 3d $50 3 $150.00
Thank you in advance

Remove dafault value for field BSEG-REBZG "V" in ERS for credit memo

Hi Gurus,
I'm running ERS for Returns PO and I noticed that when the credit memo is posted, the invoice reference field has the value "V" which would then take into account the default payement terms for the vendor.
I want the system to NOT default that value "V" because I want my credit memos to have a due date the same as the baseline date.
If you create the credit memo online via MIRO, you'll notice the default due date is equal to the baseline date since, by standard it ignores the payment terms.
Any ideas how to solve this? Thanks in advance!
Regards,
Marvin

can u tell me wich user exit you used?
thanks,
Michael

Hi, how order related billing returns and credit memo's handled

hi,
sap gurus,
i am able to configure the order related billing business process and
plz requesting to explain the how to handle returns process for the same and
how i can raise credit memo for the same process.
regards,
balaji.t
09990019711.

Step 1: Sales Document Type
IMG > Sales and Distribution > Sales > Sales Documents >
Sales Document Header:
1. Sales Document Type:The sales document types represent the different business transactions, such as Inquiry, Quotation, Sales Order, etc. To create new sales order type, always copy as with reference to similar sales order. If possible use standard sales order.
2. Define Number Ranges For Sales Documents: Maintain number range with discussion with core team.
3. Assign Sales Area To Sales Document Types:
A. Combine sales organizations / Combine distribution channels / Combine divisions: Ensure to maintain these, else Sales Order creation will give error.
B. Assign sales order types permitted for sales areas: Assign only required Sales Order Types to required Sales Area. This will minimize selection of Sales Order Type as per sales area.
Sales Document Item:
1. Define Item Categories: If possible use Standard Item Category. Incase if required to create new, copy as from standard & maintain New. (Item Category TAD is used for order related billing & in Material Master Item Category group is LEIS)
2. Assign Item Categories: If possible, use standard. Formula for deriving item category: Sales Document Type + Item Category Group + Usage + Higher Level Item Category = Item Category
Schedule Line:
1. Define Schedule Line Categories: If possible use Standard Schedule Lines. Incase if required to create new, copy as from standard & maintain New.
2. Assign Schedule Line Categories: If possible, use standard. Formula for deriving Schedule Line: Item Category + MRP Type / No MRP Type.
Step 2:
IMG > Sales and Distribution > Billing >
1. Define Billing Types: If possible use Standard Billing Type. Incase if required to create new, copy as from standard & maintain New.
2. Define Number Range For Billing Documents: Ensure to maintain number range.
3. Maintain Copying Control For Billing Documents: Maintain relevant copy controls such as Sales Order to Billing, Deliver to Billing, etc.
Note: Ensure that Copy Control settings are done
Sales Order to Billing (OR --> F1): VTFA
Billing to Sales Order (F2 --> RE): VTAF
The configuration differs from scenario to scenario & requirement of the client.
Regards,
Rajesh Banka
Reward point if useful.

How to print deposit number in top margin and reset pagination eavh change

I am using Report Builder 6.0.8.27.0 against a version 10 database
I have a built a report that works properly. It consists of about 1800 mineral deposits with one main frame cycling on the mineral deposit number and the frame contains a whole bunch of repeating frames containing detail information. Each mineral deposit may be one and 20+ pages long. The report works properly but I need to make the following additions..
1) At present, the mineral deposit number is only displayed on the first page of the report 'segment'. What I would like to do is have the deposit number displayed in the top margin on each page, next to the title but I am not sure how to do this.
I began by creating a field in the top margin, but when I change the Source of the Field (in the property palette) to the deposit number (a database field) I get the following error:
REP-1213: Field 'F-1' references column MDD_NO at a frequency below its group. This is obviously because this is in the margin and the deposit number occurs within the main repeating frame.
Any suggestions how I might do this - I'm afraid I'm not terribly familiar with reports - and don't have any good reference material at my fingertips. (Only the help files and digging through them is painful - especially when one is not sure what one is looking for.)
Any help woule be appreciated.
2) I would also like to create a special page number/sequence where each deposit would have it's own set of pagination
ie.: Deposit-001 page 1
Deposit-001 page 2
etc
and then reset when the deposit number changes
Deposit-002 page 1
Deposit-002 page 2
Basically, the idea is to restart pagination at each change in deposit number and change the deposit number to the current one. Again, I don't know how to do this.
The report will appear as a large pdf - which I know has it's own pagination. The reason I want the Deposit number and it's page sequence to appear in the top margin is to make it easier for the client to identify which pages belong to which deposit when they print out and work with 4 or 5 different deposits sets at the same time.
I realize I can achieve this by printing one pdf for each deposit, but 1800 individual pdf's is a bit much. to handle.
Thanks for whatever help you can give me
Glenn

Hi,
         just populate ur eventcat like this , may be this can help u
form zf_eventcat using    p_it_eventcat type slis_t_event.
data l_eventcat type slis_alv_event.
clear l_eventcat.
*Get all the events.
call function 'REUSE_ALV_EVENTS_GET'
    exporting
      i_list_type     = 0
    importing
      et_events       = p_it_eventcat
    exceptions
      list_type_wrong = 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.
TOP-OF-PAGE FORM
clear l_eventcat.
read table p_it_eventcat into l_eventcat with key
                          name = slis_ev_top_of_page.
if sy-subrc = 0.
    move 'ZF_TOP_OF_PAGE' to l_eventcat-form.
    modify p_it_eventcat from l_eventcat index sy-tabix
                                         transporting form.
endif.
PF_STATUS_SET FORM
clear l_eventcat.
read table p_it_eventcat into l_eventcat with key
                          name = slis_ev_pf_status_set.
if sy-subrc = 0.
    move 'ZF_PF_STATUS_SET' to l_eventcat-form.
    modify p_it_eventcat from l_eventcat index sy-tabix
                                      transporting form.
endif.
USER_COMMAND FORM
clear l_eventcat.
read table p_it_eventcat into l_eventcat with key
                           name = slis_ev_user_command.
if sy-subrc = 0.
    move 'ZF_USER_COMMAND' to l_eventcat-form.
    modify p_it_eventcat from l_eventcat index sy-tabix
                                      transporting form.
endif.
endform.                    " zf_eventcat
reward if helpful

How to print page number in Pages

Please help. I have inserted the page number in my document and I see it the print preview, but when I print it just doesn´t print the page number.

It sounds like you have the page number too close to the edge of the paper and your printer simply does not print to the edge.
Test how much of the page your printer prints, by covering a page with a colored object from edge to edge and seeing how much is clipped off.
Peter

Web app Number field: How to format a number as currency in Business catalyst

Not a coder. I have a Number field I have created in my web app, please how can I format this field to display the figures like this 999,999,999,999 (#120,000,000) random figure. Help will be appreciated.

You can't. Number type field is there for storing integers. 999,999,999,999
is not an integer. You need to use text string. Unless you're using the
field inside the search form, in which case you need to use JavaScript to
format the content of the field on the frontend.
Cheers,
Mario

Smartforms table: how to fix the number of rows to be display in the table.

Hello.
I´m having problems with a smartform. I have defined a window with 7 cm high. Then I have define a table to print the content of a table.
I'm using the header, the main area, and the footer. It seems to be ok. But the main area is sizeble. I mean, that if in the table has 2 records, it dispaly the 2 records and inmediatly display the footer. It probably use only 3 cm of the 7 cm defined for the high of the window.
And I want that the footer of the table would be display at the end of the 7 cm of the window. Is that posible ?
Please, tomorrow we will have our kick off the module and this is the last issue we have.
Thanks in advance for your help.

Better idea wud be to create a WINDOW, just Below you Main window (After table) ..
In Form Layout (Form Painter) you can fix this Window on any place , Pass the FOOTER text node over there .. So you will get a Static FOOTER diplay ..
That what you need ?? Let me know
Edited by: Lokesh Tarey on Jul 22, 2010 7:15 AM

Too many fields - how to print horizontal on page 2?

Working in CR Developer V11. We have a report that has bunch of fields in the group footer and was wondering if there was a way to print the fields two pages wide. Right now all the fields are stacked but we prefer the 'excel' effect where horizontal fields automatically (or by design in CR) are printed onto a second page at print time. This report is not a cross tab report. Can I throw the fields into a subreport and mark repeat on Horizontal pages? Any input appreciated.
Rick

Hi Rick,
With CR11 you can't. In 2008 and higher there is the option to "Dissociate Formatting Page Size and Pritner Paper Size". This will allow you to format your report as wide as you want and not be tied the the printer's paper sizes.
I've had reports that had 130 columns and I had to go down to point 2 font to get them all onto 1 line. Now I don't have to and exporting to Excel works like a charm.
Good luck,
Brian

How to print a number in srintg format

i want to print
10527
in this format
ten thousand five hundred twenty seven
thanks

If you bothered to look in the documentation you'd be able to see what the format masks are and figure it out yourself...
SQL> ed
Wrote file afiedt.buf
1* select to_char(sysdate,'fmDDSP month YYYYSP')from dual
SQL> /
TO_CHAR(SYSDATE,'FMDDSPMONTHYYYYSP')
TWENTY-NINE june TWO THOUSAND ELEVEN

HT204088 how to print purchase history for credit card fraud report

I need to print my purchase history for a credit card fraud report. Does anyone know how to do so? Whenever I click File ---> Print, I only get the first page which contains my basic information. I've tried a print screen and paste into another document but it does not come out clearly due to the size....thanks!

PB Player,
The iTunes Purchase History does not have a print option. The best it lets you do is bring up the history a page at a time and print screenshots. I am sure you can correct the size issue by cropping and zooming.
It is also possible to get a complete listing emailed to you by making a request to iTunes Customer Service. If you have more than a few pages, this will be easier.

How to update the status of Credit memo request as "Close" by putting reason of rejection

Dear All,
Our requirement is to close credit memo request, We already cancelled the subsequent document i.e. billing. In credit memo request we are trying to close it by putting "Reason of Rejection", but instead of closed is coming as " Being Process". I already did the required configuration at Item Level for G2N in VOV7, but still the status is "Being Process".
Please let me know if I m missing config.
Thanks,
Sumeet Sah

Hi
Check this below link. I had faced this issue years ago and got a strange solution which is still applicable.
Open status of Credit Memo after rejecting all line items
Thank$

How to find the number of occurance of a string in text field of Infopath form?

Hi All,
In Infopath text field, How to find the number of occurrence of a particular string in that field?
Thanks in advance!

You can check to see if it contains a string once by using the contains function, but there isn't a very clean way to do what you want. If you wanted to guess at the maximum number of occurrences, then you could:
Box A has your initial. Set Box B to do a concat of string-before and string-after of Box A where it copies Box A minus the string we're looking for. Then we have Box C that does the same thing to Box B. Repeat as many times as you see necessary.
Example:
String: "1"
Box A - "123451234512345"
Box B - "23451234512345"
Box C - "2345234512345"
Box D - "234523452345"
etc.
We then have a field that has nested ifs looking backwards from Z -> A looking for a non-blank. Based on that, we return the number of occurrences. Again, this isn't clean, but it will work if you think there's a predefinable maximum.
Andy Wessendorf SharePoint Developer II | Rackspace [email protected]

How to print the error records and success records in bdc

how to print the number of error records and success records in bdc

hai,
plz refer this program,
Z_130399130271_A
REPORT Z_130399130271_A
       NO STANDARD PAGE HEADING LINE-SIZE 325.
*INCLUDE YVALIDATE.
*include bdcrecx1.
INCLUDE YINCLUDE399.
DATA ITAB LIKE TABLE OF FILE_TABLE WITH HEADER LINE.
PARAMETERS: DATASET(132) LOWER CASE.
DATA : RC TYPE I,
ERR(40) TYPE C,
SUCCESSCNT TYPE I VALUE 0,
FAILCOUNT TYPE I VALUE 0.
   DO NOT CHANGE - the generated data section - DO NOT CHANGE    ***
If it is nessesary to change the data section use the rules:
1.) Each definition of a field exists of two lines
2.) The first line shows exactly the comment
      '* data element: ' followed with the data element
      which describes the field.
      If you don't have a data element use the
      comment without a data element name
3.) The second line shows the fieldname of the
      structure, the fieldname must consist of
      a fieldname and optional the character '_' and
      three numbers and the field length in brackets
4.) Each field must be type C.
Generated data section with specific formatting - DO NOT CHANGE ***
DATA: BEGIN OF RECORD OCCURS 0,
data element: LIF16
        LIFNR_001(016),
data element: KTOKK
        KTOKK_002(004),
data element: ANRED
        ANRED_003(015),
data element: NAME1_GP
        NAME1_004(035),
data element: SORTL
        SORTL_005(010),
data element: STRAS_GP
        STRAS_006(035),
data element: PFACH
        PFACH_007(010),
data element: ORT01_GP
        ORT01_008(035),
data element: ORT02_GP
        ORT02_009(035),
data element: LAND1_GP
        LAND1_010(003),
data element: REGIO
        REGIO_011(003),
data element: SPRAS
        SPRAS_012(002),
data element: TELF1
        TELF1_013(016),
data element: TELF2
        TELF2_014(016),
data element: BANKS
        BANKS_01_015(003),
data element: BANKK
        BANKL_01_016(015),
data element: BANKN
        BANKN_01_017(018),
      END OF RECORD.
DATA:   BEGIN OF ERRORITAB OCCURS 0,
        LIFNR_001 LIKE LFA1-LIFNR,
        KTOKK_002 LIKE LFA1-KTOKK,
        ANRED_003 LIKE LFA1-ANRED,
        NAME1_004 LIKE LFA1-NAME1,
        SORTL_005 LIKE LFA1-SORTL,
        STRAS_006 LIKE LFA1-STRAS,
        PFACH_007 LIKE LFA1-PFACH,
        ORT01_008 LIKE LFA1-ORT01,
        ORT02_009 LIKE LFA1-ORT02,
        LAND1_010 LIKE LFA1-LAND1,
        REGIO_011 LIKE LFA1-REGIO,
        SPRAS_012 LIKE LFA1-SPRAS,
        TELF1_013 LIKE LFA1-TELF1,
        TELF2_014 LIKE LFA1-TELF2,
        BANKS_01_015 LIKE LFBK-BANKS,
        BANKL_01_016 LIKE LFBK-BANKL,
        BANKN_01_017 LIKE LFBK-BANKN,
        ERRORMSG(60) TYPE C,
        SERIAL TYPE I VALUE '1',
    END OF ERRORITAB.
End generated data section ***
AT SELECTION-SCREEN ON VALUE-REQUEST FOR DATASET.
CALL FUNCTION 'TMP_GUI_FILE_OPEN_DIALOG'
EXPORTING
    WINDOW_TITLE            = 'select a file '
    DEFAULT_EXTENSION       = 'TXT'
    DEFAULT_FILENAME        = 'ASSIGN5.TXT'
FILE_FILTER             =
INIT_DIRECTORY          =
MULTISELECTION          =
IMPORTING
RC                      =
    TABLES
      FILE_TABLE              = ITAB
EXCEPTIONS
   CNTL_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.
READ TABLE ITAB INDEX 1.
DATASET = ITAB-FILENAME.
WRITE DATASET.
START-OF-SELECTION.
*perform open_dataset using dataset.
*perform open_group.
DATA T TYPE STRING.
T = DATASET.
IF T EQ ' '.
    MESSAGE E110(ZX).
ENDIF.
CALL FUNCTION 'GUI_UPLOAD'
    EXPORTING
      FILENAME                      = T
FILETYPE                      = 'ASC'
      HAS_FIELD_SEPARATOR           = 'X'
HEADER_LENGTH                 = 0
READ_BY_LINE                  = 'X'
DAT_MODE                      = ' '
CODEPAGE                      = ' '
IGNORE_CERR                   = ABAP_TRUE
REPLACEMENT                   = '#'
CHECK_BOM                     = ' '
IMPORTING
FILELENGTH                    =
HEADER                        =
    TABLES
      DATA_TAB                      = RECORD
EXCEPTIONS
FILE_OPEN_ERROR               = 1
FILE_READ_ERROR               = 2
NO_BATCH                      = 3
GUI_REFUSE_FILETRANSFER       = 4
INVALID_TYPE                  = 5
NO_AUTHORITY                  = 6
UNKNOWN_ERROR                 = 7
BAD_DATA_FORMAT               = 8
HEADER_NOT_ALLOWED            = 9
SEPARATOR_NOT_ALLOWED         = 10
HEADER_TOO_LONG               = 11
UNKNOWN_DP_ERROR              = 12
ACCESS_DENIED                 = 13
DP_OUT_OF_MEMORY              = 14
DISK_FULL                     = 15
DP_TIMEOUT                    = 16
OTHERS                        = 17
IF SY-SUBRC <> 0.
    MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
           WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
LOOP AT RECORD.
    CLEAR RC.
    CLEAR ERR.
*read dataset dataset into record.
    IF SY-SUBRC <> 0. EXIT. ENDIF.
    RECORD-KTOKK_002 = '0001'.
    PERFORM BDC_DYNPRO      USING 'SAPMF02K' '0100'.
    PERFORM BDC_FIELD       USING 'BDC_CURSOR'
                                  'RF02K-KTOKK'.
    PERFORM BDC_FIELD       USING 'BDC_OKCODE'
                                  '/00'.
    PERFORM BDC_FIELD       USING 'RF02K-LIFNR'
                                  RECORD-LIFNR_001.
    PERFORM BDC_FIELD       USING 'RF02K-KTOKK'
                                  RECORD-KTOKK_002.
    PERFORM BDC_DYNPRO      USING 'SAPMF02K' '0110'.
    PERFORM BDC_FIELD       USING 'BDC_CURSOR'
                                  'LFA1-TELX1'.
    PERFORM BDC_FIELD       USING 'BDC_OKCODE'
                                  '/00'.
    PERFORM BDC_FIELD       USING 'LFA1-ANRED'
                                  RECORD-ANRED_003.
    PERFORM BDC_FIELD       USING 'LFA1-NAME1'
                                  RECORD-NAME1_004.
    PERFORM BDC_FIELD       USING 'LFA1-SORTL'
                                  RECORD-SORTL_005.
    PERFORM BDC_FIELD       USING 'LFA1-STRAS'
                                  RECORD-STRAS_006.
    PERFORM BDC_FIELD       USING 'LFA1-PFACH'
                                  RECORD-PFACH_007.
    PERFORM BDC_FIELD       USING 'LFA1-ORT01'
                                  RECORD-ORT01_008.
    PERFORM BDC_FIELD       USING 'LFA1-ORT02'
                                  RECORD-ORT02_009.
    PERFORM BDC_FIELD       USING 'LFA1-LAND1'
                                  RECORD-LAND1_010.
    PERFORM BDC_FIELD       USING 'LFA1-REGIO'
                                  RECORD-REGIO_011.
    PERFORM BDC_FIELD       USING 'LFA1-SPRAS'
                                  RECORD-SPRAS_012.
    PERFORM BDC_FIELD       USING 'LFA1-TELF1'
                                  RECORD-TELF1_013.
    PERFORM BDC_FIELD       USING 'LFA1-TELF2'
                                  RECORD-TELF2_014.
    PERFORM BDC_DYNPRO      USING 'SAPMF02K' '0120'.
    PERFORM BDC_FIELD       USING 'BDC_CURSOR'
                                  'LFA1-KUNNR'.
    PERFORM BDC_FIELD       USING 'BDC_OKCODE'
                                  '=VW'.
    PERFORM BDC_DYNPRO      USING 'SAPMF02K' '0130'.
    PERFORM BDC_FIELD       USING 'BDC_CURSOR'
                                  'LFBK-BANKN(01)'.
    PERFORM BDC_FIELD       USING 'BDC_OKCODE'
                                  '=ENTR'.
    PERFORM BDC_FIELD       USING 'LFBK-BANKS(01)'
                                  RECORD-BANKS_01_015.
    PERFORM BDC_FIELD       USING 'LFBK-BANKL(01)'
                                  RECORD-BANKL_01_016.
    PERFORM BDC_FIELD       USING 'LFBK-BANKN(01)'
                                  RECORD-BANKN_01_017.
    PERFORM BDC_DYNPRO      USING 'SAPMF02K' '0130'.
    PERFORM BDC_FIELD       USING 'BDC_CURSOR'
                                  'LFBK-BANKS(01)'.
    PERFORM BDC_FIELD       USING 'BDC_OKCODE'
                                  '=UPDA'.
    PERFORM BDC_TRANSACTION USING 'XK01' CHANGING ERR RC.
    DATA: SERIAL TYPE I VALUE 1.
    IF RC <> 0.
      FAILCOUNT = FAILCOUNT + 1.
      CLEAR ERRORITAB.
      ERRORITAB-SERIAL = SERIAL.
      ERRORITAB-LIFNR_001 = RECORD-LIFNR_001.
      ERRORITAB-KTOKK_002 = RECORD-KTOKK_002.
      ERRORITAB-ANRED_003 = RECORD-ANRED_003.
      ERRORITAB-NAME1_004 = RECORD-NAME1_004.
      ERRORITAB-SORTL_005 = RECORD-SORTL_005.
      ERRORITAB-STRAS_006 = RECORD-STRAS_006.
      ERRORITAB-PFACH_007 = RECORD-PFACH_007.
      ERRORITAB-ORT01_008 = RECORD-ORT01_008.
      ERRORITAB-ORT02_009 = RECORD-ORT02_009.
      ERRORITAB-LAND1_010 = RECORD-LAND1_010.
      ERRORITAB-REGIO_011 = RECORD-REGIO_011.
      ERRORITAB-SPRAS_012 = RECORD-SPRAS_012.
      ERRORITAB-TELF1_013 = RECORD-TELF1_013.
      ERRORITAB-TELF2_014 = RECORD-TELF2_014.
      ERRORITAB-BANKS_01_015 = RECORD-BANKS_01_015.
      ERRORITAB-BANKL_01_016 = RECORD-BANKL_01_016.
      ERRORITAB-BANKN_01_017 = RECORD-BANKN_01_017.
      ERRORITAB-ERRORMSG = ERR.
      SERIAL = SERIAL + 1.
      APPEND ERRORITAB.
      MODIFY RECORD TRANSPORTING KTOKK_002.
      DELETE RECORD WHERE KTOKK_002 = '0001'.
    ELSE.
      SUCCESSCNT = SUCCESSCNT + 1.
    ENDIF.
ENDLOOP.
display output********************************************************
SKIP.
FORMAT COLOR 5 INTENSIFIED OFF.
WRITE:/ 'No. of records successfully uploaded: '.
FORMAT COLOR 4 INTENSIFIED OFF.
WRITE: SUCCESSCNT.
Displaying the success table******************************************
IF SUCCESSCNT <> 0.
    SKIP.
    FORMAT COLOR 4 INTENSIFIED OFF.
    WRITE:/ 'Successful Records'.
    FORMAT COLOR 7 INTENSIFIED ON.
    WRITE:/(261) SY-ULINE,
          / SY-VLINE,
            'S.NO',                               007 SY-VLINE,
            'VENDOR ACC.NUM',                     023 SY-VLINE,
            'VENDOR ACC GROUP',                   041 SY-VLINE,
            'TITLE',                              048 SY-VLINE,
            'VENDOR NAME',                        064 SY-VLINE,
            'SORT FIELD',                         076 SY-VLINE,
            'HOUSE NO.& STREET',                  101 SY-VLINE,
            'PO.BOX NO',                          116 SY-VLINE,
            'CITY',                               129 SY-VLINE,
            'DISTRICT',                           141 SY-VLINE,
            'COUNTRY KEY',                        156 SY-VLINE,
            'REGION',                             166 SY-VLINE,
            'LANGUAGE KEY',                       180 SY-VLINE,
            'TELEPHONE NO 1',                     196 SY-VLINE,
            'TELEPHONE NO 2',                     213 SY-VLINE,
            'BANK COUNTRY KEY',                   231 SY-VLINE,
            'BANK KEY',                           241 SY-VLINE,
            'BANK ACC.NO',                        261 SY-VLINE,
            /1(261) SY-ULINE.
    FORMAT COLOR 4 INTENSIFIED ON.
    SERIAL = 1.
   SORT RECORD BY LIFNR_001.
    LOOP AT RECORD.
      WRITE:/ SY-VLINE,
      SERIAL LEFT-JUSTIFIED,          007 SY-VLINE,
      RECORD-LIFNR_001(016),          023 SY-VLINE,
      RECORD-KTOKK_002(004),          041 SY-VLINE,
      RECORD-ANRED_003(015),          048 SY-VLINE,
      RECORD-NAME1_004(035),          064 SY-VLINE,
      RECORD-SORTL_005(010),          076 SY-VLINE,
      RECORD-STRAS_006(035),          101 SY-VLINE,
      RECORD-PFACH_007(010),          116 SY-VLINE,
      RECORD-ORT01_008(035),          129 SY-VLINE,
      RECORD-ORT02_009(035),          141 SY-VLINE,
      RECORD-LAND1_010(003),          156 SY-VLINE,
      RECORD-REGIO_011(003),          166 SY-VLINE,
      RECORD-SPRAS_012(002),          180 SY-VLINE,
      RECORD-TELF1_013(016),          196 SY-VLINE,
      RECORD-TELF2_014(016),          213 SY-VLINE,
      RECORD-BANKS_01_015(003),       231 SY-VLINE,
      RECORD-BANKL_01_016(015),       241 SY-VLINE,
      RECORD-BANKN_01_017(018),       261 SY-VLINE.
      WRITE:/(261) SY-ULINE.
      SERIAL = SERIAL + 1.
    ENDLOOP.
    WRITE:/1(261) SY-ULINE.
ENDIF.
SKIP.
FORMAT COLOR 5 INTENSIFIED OFF.
WRITE:/ 'No. of records not uploaded: '.
FORMAT COLOR 4 INTENSIFIED OFF.
WRITE: FAILCOUNT.
*Displaying the error table
IF FAILCOUNT <> 0.
    SKIP.
    FORMAT COLOR 4 INTENSIFIED OFF.
    WRITE:/(320) SY-ULINE,
            'Error Records'.
    FORMAT COLOR 7 INTENSIFIED ON.
    WRITE:/ SY-ULINE, SY-VLINE,
            'S.NO',                               007 SY-VLINE,
            'VENDOR ACC.NUM',                     023 SY-VLINE,
            'VENDOR ACC GROUP',                   041 SY-VLINE,
            'TITLE',                              048 SY-VLINE,
            'VENDOR NAME',                        064 SY-VLINE,
            'SORT FIELD',                         076 SY-VLINE,
            'HOUSE NO.& STREET',                  101 SY-VLINE,
            'PO.BOX NO',                          116 SY-VLINE,
            'CITY',                               129 SY-VLINE,
            'DISTRICT',                           141 SY-VLINE,
            'COUNTRY KEY',                        156 SY-VLINE,
            'REGION',                             166 SY-VLINE,
            'LANGUAGE KEY',                       180 SY-VLINE,
            'TELEPHONE NO 1',                     196 SY-VLINE,
            'TELEPHONE NO 2',                     213 SY-VLINE,
            'BANK COUNTRY KEY',                   231 SY-VLINE,
            'BANK KEY',                           241 SY-VLINE,
            'BANK ACC.NO',                        261 SY-VLINE,
            'ERROR MESSAGE',                      320 SY-VLINE.
    WRITE:/(320) SY-ULINE.
    FORMAT COLOR 4 INTENSIFIED ON.
   SORT ERRORITAB BY LIFNR_001.
    LOOP AT ERRORITAB.
      WRITE:/ SY-VLINE,
            ERRORITAB-SERIAL LEFT-JUSTIFIED,          007 SY-VLINE,
            ERRORITAB-LIFNR_001 ,       023 SY-VLINE,
            ERRORITAB-KTOKK_002,       041 SY-VLINE,
            ERRORITAB-ANRED_003,       048 SY-VLINE,
            ERRORITAB-NAME1_004,       064 SY-VLINE,
            ERRORITAB-SORTL_005,       076 SY-VLINE,
            ERRORITAB-STRAS_006,       101 SY-VLINE,
            ERRORITAB-PFACH_007,       116 SY-VLINE,
            ERRORITAB-ORT01_008,       129 SY-VLINE,
            ERRORITAB-ORT02_009,       141 SY-VLINE,
            ERRORITAB-LAND1_010,       156 SY-VLINE,
            ERRORITAB-REGIO_011,       166 SY-VLINE,
            ERRORITAB-SPRAS_012,       180 SY-VLINE,
            ERRORITAB-TELF1_013,       196 SY-VLINE,
            ERRORITAB-TELF2_014,       213 SY-VLINE,
            ERRORITAB-BANKS_01_015,    231 SY-VLINE,
            ERRORITAB-BANKL_01_016,    241 SY-VLINE,
            ERRORITAB-BANKN_01_017,    261 SY-VLINE,
            ERRORITAB-ERRORMSG,        320 SY-VLINE.
      WRITE:/(320) SY-ULINE.
    ENDLOOP.
    WRITE:/ SY-ULINE.
ENDIF.
hope this ll help you..
regards,
prema.A

SmartForms field : How to print "PO number" on CREDIT MEMO

Similar Messages

Maybe you are looking for