FB65 - Vendor Credit Memo

How to post a Purchase Return FB65 in SAP FI

In this tutorial, we will learn to Post Purchase Return in SAP

Step 1. Enter the transaction code FB65 in the Command Field

Step 2. In the next screen, Enter the Company Code (F7) for which document is to be posted

Step 3. In the Basic Data tab, Enter the Following data

1. Enter the Vendor ID of the Vendor to be issued the credit memo
2. Enter the Document Date
3. Enter the Amount to be credited
4. Enter the tax code used in the original invoice
5. Check the Calculate Tax check box
6. Enter the Narration. 

Step 4. In the Item details section, Enter the following data

1. Enter the Purchase Account for the Original Invoice was posted
2. Enter the Amount to be debited
3. Select Credit
4. Enter the Profit center.
5. Enter the Narration.

Step 5. Check the status of the document

Step 6. Check the simulate document posting (F9).

Step 7. Press Post button from the Standard Toolbar

Step 8. Check the status bar for the document number to be generated

https://www.guru99.com/how-to-post-a-purchase-returns-credit-memo.html

S_P00_07000139 - Stock Card and Inventory Material Report

The Transaction Code S_P00_07000139 is used for stock card inventory report for material with all movements details.

How To Spell Out Or Convert Numbers To English Words In Excel?

Supposing you have a lot of price amount numbers, and now you need to convert or spell out them to text strings. For example, convert 123.55 to the English words one hundred twenty-three dollars and fifty five cents. In Excel there are no effective facility to solve this problem but using the long and complex VBA code. In this article, I will introduce you some methods to deal with it.

Spell Out Or Convert Numbers To English Words With VBA Code

The following long VBA code can help you to spell out numbers to text strings. Do as follows:

1. Hold down the ALT + F11 keys, and it opens the Microsoft Visual Basic for Applications window.

2. Click Insert > Module, and paste the following macro in the Modulewindow.

Function SpellNumberToEnglish(ByVal pNumber)
'Updateby20131113
Dim Rupees, paise
arr = Array("", "", " Thousand ", " Million ", " Billion ", " Trillion ")
pNumber = Trim(Str(pNumber))
xDecimal = InStr(pNumber, ".")
If xDecimal > 0 Then
    paise = GetTens(Left(Mid(pNumber, xDecimal + 1) & "00", 2))
    pNumber = Trim(Left(pNumber, xDecimal - 1))
End If
xIndex = 1
Do While pNumber <> ""
    xHundred = ""
    xValue = Right(pNumber, 3)
    If Val(xValue) <> 0 Then
        xValue = Right("000" & xValue, 3)
        If Mid(xValue, 1, 1) <> "0" Then
            xHundred = GetDigit(Mid(xValue, 1, 1)) & " Hundred "
        End If
        If Mid(xValue, 2, 1) <> "0" Then
            xHundred = xHundred & GetTens(Mid(xValue, 2))
        Else
            xHundred = xHundred & GetDigit(Mid(xValue, 3))
        End If
    End If
    If xHundred <> "" Then
        Rupees = xHundred & arr(xIndex) & Rupees
    End If
    If Len(pNumber) > 3 Then
        pNumber = Left(pNumber, Len(pNumber) - 3)
    Else
        pNumber = ""
    End If
    xIndex = xIndex + 1
Loop
Select Case Rupees
    Case ""
        Rupees = "No Rupees"
    Case "One"
        Rupees = "One Dollar"
    Case Else
        Rupees = Rupees & " Rupees"
End Select
Select Case paise
    Case ""
        paise = " and No paise"
    Case "One"
        paise = " and One paise"
    Case Else
        paise = " and " & paise & " paise"
End Select
SpellNumberToEnglish = Rupees & paise
End Function
Function GetTens(pTens)
Dim Result As String
Result = ""
If Val(Left(pTens, 1)) = 1 Then
    Select Case Val(pTens)
        Case 10: Result = "Ten"
        Case 11: Result = "Eleven"
        Case 12: Result = "Twelve"
        Case 13: Result = "Thirteen"
        Case 14: Result = "Fourteen"
        Case 15: Result = "Fifteen"
        Case 16: Result = "Sixteen"
        Case 17: Result = "Seventeen"
        Case 18: Result = "Eighteen"
        Case 19: Result = "Nineteen"
        Case Else
    End Select
Else
Select Case Val(Left(pTens, 1))
    Case 2: Result = "Twenty "
    Case 3: Result = "Thirty "
    Case 4: Result = "Forty "
    Case 5: Result = "Fifty "
    Case 6: Result = "Sixty "
    Case 7: Result = "Seventy "
    Case 8: Result = "Eighty "
    Case 9: Result = "Ninety "
    Case Else
End Select
Result = Result & GetDigit(Right(pTens, 1))
End If
GetTens = Result
End Function
Function GetDigit(pDigit)
Select Case Val(pDigit)
    Case 1: GetDigit = "One"
    Case 2: GetDigit = "Two"
    Case 3: GetDigit = "Three"
    Case 4: GetDigit = "Four"
    Case 5: GetDigit = "Five"
    Case 6: GetDigit = "Six"
    Case 7: GetDigit = "Seven"
    Case 8: GetDigit = "Eight"
    Case 9: GetDigit = "Nine"
    Case Else: GetDigit = ""
End Select
End Function

3. Then save the code, and return to the worksheet, in the adjacent cell C2, enter the formula =SpellNumberToEnglish(A2), see screenshot:

4. Then press Enter key, and select the cell C2, then drag the fill handle over to the range that contains this formula as you need. And all of the numbers have been spelt out to English words. See screenshot:

Note: As they are formulas, when you need to copy and paste them, please paste as values.

Link: https://www.extendoffice.com/documents/excel/1142-excel-spell-out-numbers.html

How To Quickly Convert / Change Numbers To Words In Excel?

If you have a column of numeric values in a worksheet, and now you need to convent them to their equivalent English words (as following screenshot shown). Here I will talk about a method to change the numbers to English words quickly and easily.

Convert Numbers To English Words With User Defined Function

There are no features or formulas can help you to solve this task directly in Excel, but you can create a User Defined Function to finish it. Please do with following steps:

1. Hold down the ALT + F11 keys, and it opens the Microsoft Visual Basic for Applications Window.

2. Click Insert > Module, and paste the following code in the Module Window.

Function NumberstoWords(ByVal pNumber)

'Updateby20140220

Dim Rupees

arr = Array("", "", " Thousand ", " Million ", " Billion ", " Trillion ")

pNumber = Trim(Str(pNumber))

xDecimal = InStr(pNumber, ".")

If xDecimal > 0 Then

pNumber = Trim(Left(pNumber, xDecimal - 1))

End If

xIndex = 1

Do While pNumber <> ""

xHundred = ""

xValue = Right(pNumber, 3)

If Val(xValue) <> 0 Then

xValue = Right("000" & xValue, 3)

If Mid(xValue, 1, 1) <> "0" Then

xHundred = GetDigit(Mid(xValue, 1, 1)) & " Hundred "

End If

If Mid(xValue, 2, 1) <> "0" Then

xHundred = xHundred & GetTens(Mid(xValue, 2))

Else

xHundred = xHundred & GetDigit(Mid(xValue, 3))

End If

End If

If xHundred <> "" Then

Rupees = xHundred & arr(xIndex) & Rupees

End If

If Len(pNumber) > 3 Then

pNumber = Left(pNumber, Len(pNumber) - 3)

Else

pNumber = ""

End If

xIndex = xIndex + 1

Loop

NumberstoWords = Rupees

End Function

Function GetTens(pTens)

Dim Result As String

Result = ""

If Val(Left(pTens, 1)) = 1 Then

Select Case Val(pTens)

Case 10: Result = "Ten"

Case 11: Result = "Eleven"

Case 12: Result = "Twelve"

Case 13: Result = "Thirteen"

Case 14: Result = "Fourteen"

Case 15: Result = "Fifteen"

Case 16: Result = "Sixteen"

Case 17: Result = "Seventeen"

Case 18: Result = "Eighteen"

Case 19: Result = "Nineteen"

Case Else

End Select

Else

Select Case Val(Left(pTens, 1))

Case 2: Result = "Twenty "

Case 3: Result = "Thirty "

Case 4: Result = "Forty "

Case 5: Result = "Fifty "

Case 6: Result = "Sixty "

Case 7: Result = "Seventy "

Case 8: Result = "Eighty "

Case 9: Result = "Ninety "

Case Else

End Select

Result = Result & GetDigit(Right(pTens, 1))

End If

GetTens = Result

End Function

Function GetDigit(pDigit)

Select Case Val(pDigit)

Case 1: GetDigit = "One"

Case 2: GetDigit = "Two"

Case 3: GetDigit = "Three"

Case 4: GetDigit = "Four"

Case 5: GetDigit = "Five"

Case 6: GetDigit = "Six"

Case 7: GetDigit = "Seven"

Case 8: GetDigit = "Eight"

Case 9: GetDigit = "Nine"

Case Else: GetDigit = ""

End Select

End Function

3. Save and close this code and go back the worksheet, in a blank cell, enter this formula =NumberstoWords(A2)( A2 is the cell you want to convert the number to English word), see screenshot:

4. Then press Enter key, and select cell C2 then drag the fill handle to the range that you want to contain this formula. All the numeric values have been converted their corresponding English words.

Note: When you need to copy these results to other cells, please copy and paste them as Values.

Link: https://www.extendoffice.com/documents/excel/1446-excel-convert-change-numbers-to-words.html

Excel : Freezing Panes

To freeze rows:

You may want to see certain rows or columns all the time in your worksheet, especially header cells. By freezing rows or columns in place, you'll be able to scroll through your content while continuing to view the frozen cells.

1. Click the View tab on the Ribbon.

2. Select the Freeze Panes command, then choose Freeze Panes from the drop-down menu.

3. Select the row below the row(s) you want to freeze. In our example, we want to freeze rows 1, so we'll select row 2.

To freeze columns:

4. Select the column to the right of the column(s) you want to freeze. In our example, we want to freeze column A, so we'll select column B.

To freeze columns & rows:

5. If you only need to freeze the top row (row 1) or first column (column A) in the worksheet, you can simply select Freeze Top Row or Freeze First Column from the drop-down menu.

Note: To unfreeze rows or columns, click the Freeze Panes command, then select Unfreeze Panes from the drop-down menu.

Excel : Split Worksheet Into Panes With Split Button

1. Select the row you want to insert the split pane above it firstly.

Tip: If you want to insert vertical split pane, you can select a column you want to insert the split pane left to it.

2. Then click View > Split, and you can see the split pane is inserted into the worksheet.

Tip: If you want to insert a cross split pane into a worksheet, select a cell that you want to insert horizontal split pane above and the vertical split pane left to, then click View > Split. 

Note: If you want to clear the split panes, just double click the pane you want to delete, then it will be removed.

Excel : Stop Excel from Checking for Errors in the Background

While you have Excel open, it is constantly checking in the background for potential errors in your worksheets. If an error is located (or, at the least, what Excel thinks is an error), then the cell is "flagged" with a small green triangle in the upper-left corner of the cell.

If you don't want Excel to check for errors, you can turn the feature off by following these steps:

1. Click the File tab at the top-left corner of the window.

2. Display the Excel Options dialog box. (In Excel 2007 click the Office button and then click Excel Options. In Excel 2010 and Excel 2013 display the File tab of the ribbon and then click Options.)

3. Click Formulas at the left side of the dialog box. (See Figure 1.)

Figure 1. The Formulas area of the Excel Options dialog box.

4. Click the box to the left of Enable background error checking to remove the check mark. You can then click the OK button at the bottom of the window to apply your changes.

5. Result..