VBRK-STCEG
Hi!
I'd appreciate some helps as follows:
When you deliver from one EU country to another EU country and the Payer has no VAT registration in the country of destination but is registered in some other EU country i.e.
If we maintain a VAT registration number for any other EU country (where this EU country is not the country of destination), the VAT registration number is not copied to the invoice(VBRK-STCEG).
(VAT registration number is copied to the invoice only if there is a VAT registration number maintained for the country of destination in the KNAS segment of the payer master record).
Wonder which user exit should I code to determine the KNAS-STCEG on the invoice?
Thanks in advance for inputs!
Best Regards,
Rashmi
Hi Rashmi,
have you tried form userexit_fill_vbrk_vbrp in RV60AFZC ?
best regards,
Edgar
Similar Messages
-
From where the VBRK-STCEG field value in the invoice header gets filled.
Hi Friends,
I have a scenario in my client system. I have one sales organisation in Spain which sends a order to France based sales organisation. In the France based sales organisation the sales order will be created with sold to partner as the Spain sales organisation, and the delivery can happen either to same partner or sometimes to another ship to partner who is based in Spain.
Now, my issue is whenever the France organisation creates invoice against Spain organisation for the sales order delivered, the VAT number of the customer in the VBRK-STCEG field is populated from Ship to partner's master data. The same value will be fetched into the table VEIAV-KUNDEUINR.
In my case, I want the bill to partners VAT number to be populated in VBRK-STCEG field. How can it be done and where I need to maintain the config for this?
Thanks
ChandramouliHello Chandramouli,
Please find below some SAP Documentation for VAT set up in the IMG Config:
Maintain Sales Tax Identification Number Determination
In this IMG activity, you maintain how VAT registration numbers are determined in the sales order and billing document.
Tax classification is included in this activity.
Options available to assign to the Sales organization are:
blank - according to priority rule
A - generally from sold-to party
B - generally from payer
C - according to priority rule, destination country from ship-to party
If you leave the field blank, the standard priority rule works as follows:
1. If the payer has a VAT ID number and RG <> AG, then the tax number and tax classification are copied from the payer (in this case, the ship-to party is not relevant).
The tax number is taken according to the 'tax country of destination'.
2. If 1. does not apply:
If the ship-to party has a VAT registration number and the sold-to party does not, tax number and tax classification are copied from the ship-to party.
3. If 2. does not apply:
Tax number and tax classification are copied from the sold-to party.
If you enter A, tax number and tax classification are generally copied from the sold-to party.
The tax number is copied according to the 'country of destination relevant for taxes'.
If you enter B, tax number and tax classification are generally copied from the payer.
The tax number is copied according to the 'country of destination relevant for taxes'.
I hope this information is useful to you in your work.
Best Regards
Sitaraman -
Determ VAT regist no in VBRK-STCEG in case of domestic & Export sales in EU
Hello,
In case you have come across a scenario to correctly determine the VAT registration no in VBRK-STCEG from SOLD to Party both for domestic sales and export sales , pls share the approach taken. Pls let me know in case some User exit is used to determine the correct VAT registration no or some other approach is taken.
The suggestions will be appreaciated.
Thanks ,
AmbrishOK, no issues.
I wanted to ask u wether u are posting these excise values..?
and generally excise related condition types do not appear in Export pricing procedure as in export excise in not recoverable from the customer.
Hence even if tehy appear, tehy should eb statistical in teh export pricing procedure.
What you can do is,go to J1ID, Maintain excise indicator for customer.then Under the Excise rates, Choose Excise Tax rate.
here you can maintain, Excise rate(BED %), ECS% and AT1%(higher Ed.Cess) for the chapter id in your material.
similarly for all the chapter i'ds that you wish to make make an export for... (Remember to enter the Valid from and excise indicator)
Now, do teh j1iin again,and choose teh utilzation tab,then click on teh pencil icon and choose "Export Under bond".
If u fail to choose this option, systemw ill not allow you to carete an ARE1 for thsi excise invoice.
Lemme know if this works.
Regard;s
Priyanka M.
Reward points if helpful -
hi
when i execute this report it execute perfectly. o/p is come perfect.
But when i double click by mistake on this o/p it give me the dump error .
i don't know why this is happen. i am not been able to solve this problem.
can anyone solve this problem and send modified coding to me.
thanks in advance.
Dinesh
*& Report ZBIL
REPORT ZBIL NO STANDARD PAGE HEADING.
TABLES: VBRK,
VBRP,
KNA1,
VBAK,
LIKP,
J_1IEXCHDR,
MARM.
TYPE-POOLS:SLIS.
TYPES: BEGIN OF IT_FINAL,
KUNAG LIKE VBRK-KUNAG,
KDGRP LIKE VBRK-KDGRP,
VBELN LIKE VBRK-VBELN,
FKSTO LIKE VBRK-FKSTO,
FKDAT LIKE VBRK-FKDAT,
stceg like vbrk-stceg,
STCEG(20) TYPE C,
REGIO LIKE VBRK-REGIO,
RFBSK LIKE VBRK-RFBSK,
AUBEL LIKE VBRP-AUBEL,
WERKS LIKE VBRP-WERKS,
VGBEL LIKE VBRP-VGBEL,
MATNR LIKE VBRP-MATNR,
VRKME LIKE VBRP-VRKME,
FKIMG LIKE VBRP-FKIMG,
NETWR LIKE VBRP-NETWR, "netwr_fp,
MWSBP LIKE VBRP-MWSBP,
KZWI4 LIKE VBRP-KZWI4,
VSTEL LIKE VBRP-VSTEL,
FKIMG1 TYPE FKIMG,
NAME1 LIKE KNA1-NAME1,
ORT01 LIKE KNA1-ORT01,
PSTLZ LIKE KNA1-PSTLZ,
EKONT LIKE KNA1-EKONT,
KUNNR LIKE KNA1-KUNNR,
STRAS(35) TYPE C,
AUDAT LIKE VBAK-AUDAT,
WADAT_IST LIKE LIKP-WADAT_IST,
EXNUM(10) TYPE C,
RDOC LIKE J_1IEXCHDR-RDOC,
UMREZ LIKE MARM-UMREZ,
MEINH LIKE MARM-MEINH,
UMREN LIKE MARM-UMREN,
END OF IT_FINAL.
TYPES: BEGIN OF IT_VBRK,
KUNAG LIKE VBRK-KUNAG,
KDGRP LIKE VBRK-KDGRP,
VBELN LIKE VBRK-VBELN,
FKSTO LIKE VBRK-FKSTO,
FKDAT LIKE VBRK-FKDAT,
stceg like vbrk-stceg,
STCEG(20) TYPE C,
REGIO LIKE VBRK-REGIO,
RFBSK LIKE VBRK-RFBSK,
END OF IT_VBRK.
TYPES: BEGIN OF IT_VBRP,
WERKS LIKE VBRP-WERKS,
VGBEL LIKE VBRP-VGBEL,
MATNR LIKE VBRP-MATNR,
VRKME LIKE VBRP-VRKME,
FKIMG LIKE VBRP-FKIMG,
NETWR LIKE VBRP-NETWR, "like vbrp-netwr,
MWSBP LIKE VBRP-MWSBP, "like vbrp-mwsbp,
KZWI4 LIKE VBRP-MWSBP, " like vbrp-kzwi4,
AUBEL LIKE VBRP-AUBEL,
VBELN LIKE VBRP-VBELN,
VSTEL LIKE VBRP-VSTEL,
END OF IT_VBRP.
TYPES:BEGIN OF IT_KNA1,
NAME1 LIKE KNA1-NAME1,
ORT01 LIKE KNA1-ORT01,
PSTLZ LIKE KNA1-PSTLZ,
EKONT LIKE KNA1-EKONT,
KUNNR LIKE KNA1-KUNNR,
STRAS(35) TYPE C,
END OF IT_KNA1.
TYPES: BEGIN OF IT_VBAK,
VBELN LIKE VBAK-VBELN,
AUDAT LIKE VBAK-AUDAT,
KUNNR LIKE VBAK-KUNNR,
END OF IT_VBAK.
TYPES: BEGIN OF IT_LIKP,
WADAT_IST LIKE LIKP-WADAT_IST,
KUNAG LIKE LIKP-KUNAG,
VBELN LIKE LIKP-VBELN,
END OF IT_LIKP.
TYPES: BEGIN OF IT_J_1IEXCHDR,
EXNUM(10) TYPE C,
KUNAG LIKE J_1IEXCHDR-KUNAG,
WERKS LIKE J_1IEXCHDR-WERKS,
RDOC LIKE J_1IEXCHDR-RDOC,
END OF IT_J_1IEXCHDR.
TYPES: BEGIN OF IT_MARM,
MATNR LIKE MARM-MATNR,
UMREZ LIKE MARM-UMREZ,
MEINH LIKE MARM-MEINH,
UMREN LIKE MARM-UMREN,
END OF IT_MARM.
*INTERNAL TABLE DECLARATION
DATA: I_FINAL TYPE STANDARD TABLE OF IT_FINAL,
I_VBRP TYPE STANDARD TABLE OF IT_VBRP,
I_VBRK TYPE STANDARD TABLE OF IT_VBRK,
I_KNA1 TYPE STANDARD TABLE OF IT_KNA1,
I_VBAK TYPE STANDARD TABLE OF IT_VBAK,
I_LIKP TYPE STANDARD TABLE OF IT_LIKP,
I_J_1IEXCHDR TYPE STANDARD TABLE OF IT_J_1IEXCHDR,
I_MARM TYPE STANDARD TABLE OF IT_MARM.
*DECLARATION FOR THE WORK AREA
DATA: WA_FINAL TYPE IT_FINAL,
WA_VBRP TYPE IT_VBRP,
WA_VBRK TYPE IT_VBRK,
WA_KNA1 TYPE IT_KNA1,
WA_VBAK TYPE IT_VBAK,
WA_LIKP TYPE IT_LIKP,
WA_J_1IEXCHDR TYPE IT_J_1IEXCHDR,
WA_MARM TYPE IT_MARM.
* DECLARATION FOR THE FIELD CATALOG.
DATA: FIELDCATALOG TYPE SLIS_T_FIELDCAT_ALV WITH HEADER LINE,
WA_FIELDCATALOG TYPE SLIS_T_FIELDCAT_ALV WITH HEADER LINE,
GD_LAYOUT TYPE SLIS_LAYOUT_ALV.
DATA IT_SORT1 TYPE SLIS_T_SORTINFO_ALV WITH HEADER LINE.
DATA HEADING1 TYPE SLIS_T_LISTHEADER WITH HEADER LINE.
DATA GD_REPID LIKE SY-REPID.
*DECLARATION FOR THE SELECTION SCREEN
SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001.
SELECT-OPTIONS: CUST FOR VBRK-KUNAG,
CUST_GRP FOR VBRK-KDGRP,
MAT_NO FOR VBRP-MATNR,
PLANT FOR VBRP-WERKS OBLIGATORY,
SHIP_PT FOR VBRP-VSTEL,
BILL_DOC FOR VBRK-VBELN,
SAL_OFF FOR VBRP-VKBUR,
BILL_TYP FOR VBRK-FKART,
DATE FOR VBRK-FKDAT.
PARAMETERS:REGIO LIKE VBRK-REGIO DEFAULT '13' OBLIGATORY.
SELECTION-SCREEN :END OF BLOCK B1.
*DECLARATION FOR THE SUBROUTIN FOR BASIC LIST.
PERFORM F_GET_I_VBRK_DATA.
PERFORM F_GET_I_VBRP_DATA.
PERFORM F_GET_I_KNA1_DATA.
PERFORM F_GET_I_VBAK_DATA.
PERFORM F_GET_I_LIKP_DATA.
PERFORM F_GET_I_J_1IEXCHDR_DATA.
PERFORM F_GET_I_MARM_DATA.
PERFORM F_GET_I_FINAL_DATA.
PERFORM DATA_BUILD.
PERFORM DATA_CALL.
FORM F_GET_I_VBRK_DATA.
SELECT KUNAG KDGRP VBELN FKSTO FKDAT STCEG REGIO RFBSK REGIO
FROM VBRK
INTO CORRESPONDING FIELDS OF TABLE I_VBRK
WHERE FKDAT IN DATE
AND KUNAG IN CUST
AND KDGRP IN CUST_GRP
AND VBELN IN BILL_DOC
AND FKART IN BILL_TYP.
*AND REGIO LIKE REGIO.
ENDFORM.
FORM F_GET_I_VBRP_DATA.
SELECT WERKS VGBEL MATNR VRKME FKIMG NETWR MWSBP KZWI4 VBELN AUBEL VSTEL
FROM VBRP
INTO CORRESPONDING FIELDS OF TABLE I_VBRP FOR ALL ENTRIES IN I_VBRK
WHERE VBELN = I_VBRK-VBELN
AND VKBUR IN SAL_OFF
AND MATNR IN MAT_NO
AND VSTEL IN SHIP_PT
AND WERKS IN PLANT .
ENDFORM.
FORM F_GET_I_KNA1_DATA.
SELECT NAME1 ORT01 PSTLZ EKONT KUNNR STRAS
FROM KNA1
INTO CORRESPONDING FIELDS OF TABLE I_KNA1
FOR ALL ENTRIES IN I_VBRK
WHERE KUNNR = I_VBRK-KUNAG.
ENDFORM.
FORM F_GET_I_VBAK_DATA.
SELECT VBELN AUDAT KUNNR
FROM VBAK
INTO CORRESPONDING FIELDS OF TABLE I_VBAK
FOR ALL ENTRIES IN I_VBRP
WHERE VBELN = I_VBRP-AUBEL.
*for all entries in i_vbrk
*where kunnr = i_vbrk-kunag .
ENDFORM.
FORM F_GET_I_LIKP_DATA.
SELECT WADAT_IST KUNAG VBELN
FROM LIKP
INTO CORRESPONDING FIELDS OF TABLE I_LIKP
FOR ALL ENTRIES IN I_VBRP
WHERE VBELN = I_VBRP-VGBEL.
*for all entries in i_vbrk
*where kunag = i_vbrk-kunag.
ENDFORM.
FORM F_GET_I_J_1IEXCHDR_DATA.
SELECT EXNUM WERKS KUNAG RDOC
FROM J_1IEXCHDR
INTO CORRESPONDING FIELDS OF TABLE I_J_1IEXCHDR
FOR ALL ENTRIES IN I_VBRK
WHERE RDOC = I_VBRK-VBELN .
ENDFORM.
FORM F_GET_I_MARM_DATA.
SELECT MATNR UMREZ UMREN MEINH
FROM MARM
INTO CORRESPONDING FIELDS OF TABLE I_MARM
FOR ALL ENTRIES IN I_VBRP
WHERE MEINH = 'EA' AND MATNR = I_VBRP-MATNR.
ENDFORM.
*for all entries in i_vbrp
*where werks = i_vbrp-werks .
*where kunag = i_vbrk-kunag .
FORM F_GET_I_FINAL_DATA.
LOOP AT I_VBRP INTO WA_VBRP.
WA_FINAL-WERKS = WA_VBRP-WERKS.
WA_FINAL-VGBEL = WA_VBRP-VGBEL.
WA_FINAL-MATNR = WA_VBRP-MATNR.
WA_FINAL-VRKME = WA_VBRP-VRKME.
WA_FINAL-FKIMG = WA_VBRP-FKIMG.
WA_FINAL-NETWR = WA_VBRP-NETWR.
WA_FINAL-MWSBP = WA_VBRP-MWSBP.
WA_FINAL-KZWI4 = WA_VBRP-KZWI4.
WA_FINAL-AUBEL = WA_VBRP-AUBEL.
WA_FINAL-VSTEL = WA_VBRP-VSTEL.
WA_FINAL-VBELN = WA_VBRP-VBELN.
CLEAR WA_VBRK.
READ TABLE I_VBRK INTO WA_VBRK WITH KEY VBELN = WA_VBRP-VBELN.
IF SY-SUBRC = 0.
WA_FINAL-KUNAG = WA_VBRK-KUNAG.
WA_FINAL-KDGRP = WA_VBRK-KDGRP.
WA_FINAL-VBELN = WA_VBRK-VBELN.
WA_FINAL-FKSTO = WA_VBRK-FKSTO.
WA_FINAL-FKDAT = WA_VBRK-FKDAT.
WA_FINAL-STCEG = WA_VBRK-STCEG.
WA_FINAL-REGIO = WA_VBRK-REGIO.
WA_FINAL-RFBSK = WA_VBRK-RFBSK.
ENDIF.
CLEAR WA_KNA1.
READ TABLE I_KNA1 INTO WA_KNA1 WITH KEY KUNNR = WA_VBRK-KUNAG.
IF SY-SUBRC = 0.
WA_FINAL-NAME1 = WA_KNA1-NAME1.
WA_FINAL-ORT01 = WA_KNA1-ORT01.
WA_FINAL-PSTLZ = WA_KNA1-PSTLZ.
WA_FINAL-STRAS = WA_KNA1-STRAS.
WA_FINAL-KUNAG = WA_KNA1-KUNNR.
ENDIF.
CLEAR WA_VBAK.
READ TABLE I_VBAK INTO WA_VBAK WITH KEY VBELN = WA_VBRP-AUBEL. "kunnr = wa_vbrk-kunag.
IF SY-SUBRC = 0.
WA_FINAL-AUDAT = WA_VBAK-AUDAT.
WA_FINAL-KUNAG = WA_VBAK-KUNNR.
ENDIF.
CLEAR WA_LIKP.
READ TABLE I_LIKP INTO WA_LIKP WITH KEY VBELN = WA_VBRP-VGBEL. "kunag = wa_vbrk-kunag.
IF SY-SUBRC = 0.
WA_FINAL-WADAT_IST = WA_LIKP-WADAT_IST.
WA_FINAL-KUNAG = WA_LIKP-KUNAG.
ENDIF.
CLEAR WA_J_1IEXCHDR.
READ TABLE I_J_1IEXCHDR INTO WA_J_1IEXCHDR WITH KEY RDOC = WA_VBRK-VBELN. "kunag = wa_vbrk-kunag.
IF SY-SUBRC = 0.
WA_FINAL-EXNUM = WA_J_1IEXCHDR-EXNUM.
WA_FINAL-KUNAG = WA_J_1IEXCHDR-KUNAG.
WA_FINAL-WERKS = WA_J_1IEXCHDR-WERKS.
WA_FINAL-RDOC = WA_J_1IEXCHDR-RDOC.
ENDIF.
CLEAR WA_MARM.
READ TABLE I_MARM INTO WA_MARM WITH KEY MATNR = WA_VBRP-MATNR.
IF SY-SUBRC = 0.
WA_FINAL-MEINH = WA_MARM-MEINH.
WA_FINAL-UMREZ = WA_MARM-UMREZ.
WA_FINAL-UMREN = WA_MARM-UMREN.
WA_FINAL-MATNR = WA_MARM-MATNR.
WA_FINAL-FKIMG1 = WA_VBRP-FKIMG * ( WA_MARM-UMREN / WA_MARM-UMREZ ).
ENDIF.
APPEND WA_FINAL TO I_FINAL.
ENDLOOP.
ENDFORM.
FORM DATA_BUILD.
*break-point.
WA_FIELDCATALOG-FIELDNAME = 'KUNAG'.
WA_FIELDCATALOG-SELTEXT_M = 'Sold-to Party'.
WA_FIELDCATALOG-OUTPUTLEN = 10 .
APPEND WA_FIELDCATALOG TO FIELDCATALOG.
CLEAR WA_FIELDCATALOG.
WA_FIELDCATALOG-FIELDNAME = 'KDGRP'.
WA_FIELDCATALOG-SELTEXT_M = 'Customer Group'.
WA_FIELDCATALOG-OUTPUTLEN = 13 .
APPEND WA_FIELDCATALOG TO FIELDCATALOG.
CLEAR WA_FIELDCATALOG.
WA_FIELDCATALOG-FIELDNAME = 'AUBEL'.
WA_FIELDCATALOG-SELTEXT_M = 'Sales Doc'.
WA_FIELDCATALOG-OUTPUTLEN = 10 .
APPEND WA_FIELDCATALOG TO FIELDCATALOG.
CLEAR WA_FIELDCATALOG.
WA_FIELDCATALOG-FIELDNAME = 'AUDAT'.
WA_FIELDCATALOG-SELTEXT_M = 'Doc Date'.
WA_FIELDCATALOG-OUTPUTLEN = 10 .
APPEND WA_FIELDCATALOG TO FIELDCATALOG.
CLEAR WA_FIELDCATALOG.
WA_FIELDCATALOG-FIELDNAME = 'VGBEL'.
WA_FIELDCATALOG-SELTEXT_M = 'Pgi. No.'.
WA_FIELDCATALOG-OUTPUTLEN = 10 .
APPEND WA_FIELDCATALOG TO FIELDCATALOG.
CLEAR WA_FIELDCATALOG.
WA_FIELDCATALOG-FIELDNAME = 'WADAT_IST'.
WA_FIELDCATALOG-SELTEXT_M = 'Pgi.Date'.
WA_FIELDCATALOG-OUTPUTLEN = 10 .
APPEND WA_FIELDCATALOG TO FIELDCATALOG.
CLEAR WA_FIELDCATALOG.
WA_FIELDCATALOG-FIELDNAME = 'EXNUM'.
WA_FIELDCATALOG-SELTEXT_M = 'Excise No.'.
WA_FIELDCATALOG-OUTPUTLEN = 10 .
APPEND WA_FIELDCATALOG TO FIELDCATALOG.
CLEAR WA_FIELDCATALOG.
WA_FIELDCATALOG-FIELDNAME = 'VBELN' .
WA_FIELDCATALOG-SELTEXT_M = 'Bill Doc'.
WA_FIELDCATALOG-OUTPUTLEN = 12 .
WA_FIELDCATALOG-KEY = 'X'.
APPEND WA_FIELDCATALOG TO FIELDCATALOG.
CLEAR WA_FIELDCATALOG.
WA_FIELDCATALOG-FIELDNAME = 'WERKS'.
WA_FIELDCATALOG-SELTEXT_M = 'Plant'.
WA_FIELDCATALOG-OUTPUTLEN = 8 .
APPEND WA_FIELDCATALOG TO FIELDCATALOG.
CLEAR WA_FIELDCATALOG.
WA_FIELDCATALOG-FIELDNAME = 'FKSTO'.
WA_FIELDCATALOG-SELTEXT_M = 'Cancel'.
WA_FIELDCATALOG-OUTPUTLEN = 8 .
APPEND WA_FIELDCATALOG TO FIELDCATALOG.
CLEAR WA_FIELDCATALOG.
WA_FIELDCATALOG-FIELDNAME = 'FKDAT'.
WA_FIELDCATALOG-SELTEXT_M = 'Billing Date'.
WA_FIELDCATALOG-OUTPUTLEN = 12 .
APPEND WA_FIELDCATALOG TO FIELDCATALOG.
CLEAR WA_FIELDCATALOG.
WA_FIELDCATALOG-FIELDNAME = 'MATNR'.
WA_FIELDCATALOG-SELTEXT_M = 'Mat. No.'.
WA_FIELDCATALOG-OUTPUTLEN = 12 .
APPEND WA_FIELDCATALOG TO FIELDCATALOG.
CLEAR WA_FIELDCATALOG.
WA_FIELDCATALOG-FIELDNAME = 'VRKME'.
WA_FIELDCATALOG-SELTEXT_M = 'Sales Unit'.
WA_FIELDCATALOG-OUTPUTLEN = 10 .
WA_FIELDCATALOG-SUBTOT = 'X'.
APPEND WA_FIELDCATALOG TO FIELDCATALOG.
CLEAR WA_FIELDCATALOG.
WA_FIELDCATALOG-FIELDNAME = 'FKIMG'.
WA_FIELDCATALOG-SELTEXT_L = 'Billed Qty in M/4FT/EA'.
WA_FIELDCATALOG-OUTPUTLEN = 20 .
WA_FIELDCATALOG-DO_SUM = 'X'.
COLLECT WA_FIELDCATALOG INTO FIELDCATALOG.
APPEND WA_FIELDCATALOG TO FIELDCATALOG.
CLEAR WA_FIELDCATALOG.
WA_FIELDCATALOG-FIELDNAME = 'FKIMG1'.
WA_FIELDCATALOG-SELTEXT_M = 'Billed Qty in NOS.'.
WA_FIELDCATALOG-OUTPUTLEN = 20 .
WA_FIELDCATALOG-DO_SUM = 'X'.
COLLECT WA_FIELDCATALOG INTO FIELDCATALOG.
APPEND WA_FIELDCATALOG TO FIELDCATALOG.
CLEAR WA_FIELDCATALOG.
WA_FIELDCATALOG-FIELDNAME = 'NETWR'.
WA_FIELDCATALOG-SELTEXT_M = 'Net Value'.
WA_FIELDCATALOG-OUTPUTLEN = 15 .
WA_FIELDCATALOG-DO_SUM = 'X'.
APPEND WA_FIELDCATALOG TO FIELDCATALOG.
CLEAR WA_FIELDCATALOG.
WA_FIELDCATALOG-FIELDNAME = 'MWSBP'.
WA_FIELDCATALOG-SELTEXT_M = 'Tax Amount'.
WA_FIELDCATALOG-OUTPUTLEN = 15 .
WA_FIELDCATALOG-DO_SUM = 'X'.
APPEND WA_FIELDCATALOG TO FIELDCATALOG.
CLEAR WA_FIELDCATALOG.
WA_FIELDCATALOG-FIELDNAME = 'STCEG'.
WA_FIELDCATALOG-SELTEXT_M = 'Vat Reg. No.'.
WA_FIELDCATALOG-OUTPUTLEN = 15 .
APPEND WA_FIELDCATALOG TO FIELDCATALOG.
CLEAR WA_FIELDCATALOG.
WA_FIELDCATALOG-FIELDNAME = 'VSTEL'.
WA_FIELDCATALOG-SELTEXT_M = 'Shipping Pt'.
WA_FIELDCATALOG-OUTPUTLEN = 10 .
APPEND WA_FIELDCATALOG TO FIELDCATALOG.
CLEAR WA_FIELDCATALOG.
WA_FIELDCATALOG-FIELDNAME = 'REGIO'.
WA_FIELDCATALOG-SELTEXT_M = 'Region'.
WA_FIELDCATALOG-OUTPUTLEN = 8 .
APPEND WA_FIELDCATALOG TO FIELDCATALOG.
CLEAR WA_FIELDCATALOG.
WA_FIELDCATALOG-FIELDNAME = 'RFBSK'.
WA_FIELDCATALOG-SELTEXT_M = 'PsSt'.
WA_FIELDCATALOG-OUTPUTLEN = 5 .
APPEND WA_FIELDCATALOG TO FIELDCATALOG.
CLEAR WA_FIELDCATALOG.
WA_FIELDCATALOG-FIELDNAME = 'KZWI4'.
WA_FIELDCATALOG-SELTEXT_M = 'Subtotal'.
WA_FIELDCATALOG-OUTPUTLEN = 10 .
WA_FIELDCATALOG-DO_SUM = 'X'.
APPEND WA_FIELDCATALOG TO FIELDCATALOG.
CLEAR WA_FIELDCATALOG.
WA_FIELDCATALOG-FIELDNAME = 'NAME1'.
WA_FIELDCATALOG-SELTEXT_M = 'Party Name'.
WA_FIELDCATALOG-OUTPUTLEN = 15 .
APPEND WA_FIELDCATALOG TO FIELDCATALOG.
CLEAR WA_FIELDCATALOG.
WA_FIELDCATALOG-FIELDNAME = 'STRAS'.
WA_FIELDCATALOG-SELTEXT_M = 'Street Name'.
WA_FIELDCATALOG-OUTPUTLEN = 15 .
APPEND WA_FIELDCATALOG TO FIELDCATALOG.
CLEAR WA_FIELDCATALOG.
WA_FIELDCATALOG-FIELDNAME = 'ORT01'.
WA_FIELDCATALOG-SELTEXT_M = 'City'.
WA_FIELDCATALOG-OUTPUTLEN = 10 .
APPEND WA_FIELDCATALOG TO FIELDCATALOG.
CLEAR WA_FIELDCATALOG.
WA_FIELDCATALOG-FIELDNAME = 'PSTLZ'.
WA_FIELDCATALOG-SELTEXT_M = 'Postal Code'.
WA_FIELDCATALOG-OUTPUTLEN = 10 .
APPEND WA_FIELDCATALOG TO FIELDCATALOG.
CLEAR WA_FIELDCATALOG.
REFRESH IT_SORT1.
CLEAR IT_SORT1.
IT_SORT1-FIELDNAME = 'VBELN'.
IT_SORT1-UP = 'X'.
IT_SORT1-SUBTOT = 'X'.
APPEND IT_SORT1.
CLEAR IT_SORT1.
IT_SORT1-FIELDNAME = 'VRKME'.
IT_SORT1-UP = 'X'.
IT_SORT1-SUBTOT = 'X'.
APPEND IT_SORT1.
CLEAR IT_SORT1.
ENDFORM.
FORM DATA_CALL.
data : itab type it_final occurs 0,
wa_itab type it_final.
*loop at i_final into wa_final.
*MOVE wa_final-VRKME to wa_itab-VRKME.
*add wa_final-fkimg to wa_itab-fkimg.
*MOVE wa_final-VRKME to wa_itab-VRKME.
*add wa_final-fkimg to wa_itab-fkimg.
*MOVE wa_final-VRKME to wa_itab-VRKME.
*append wa_itab to itab.
*clear: wa_final, wa_itab.
**endon.
**endat.
endloop.
*i_final[] = itab[].
GD_REPID = SY-REPID.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
I_INTERFACE_CHECK = ' '
I_BYPASSING_BUFFER = ' '
I_BUFFER_ACTIVE = ' '
I_CALLBACK_PROGRAM = GD_REPID
I_CALLBACK_PF_STATUS_SET = ' '
I_CALLBACK_USER_COMMAND = 'USER-COMMAND'
I_CALLBACK_TOP_OF_PAGE = 'TOP_OF_PAGE'
I_CALLBACK_HTML_TOP_OF_PAGE = ' '
I_CALLBACK_HTML_END_OF_LIST = ' '
I_STRUCTURE_NAME =
I_BACKGROUND_ID = ' '
I_GRID_TITLE = 'List Of Billing Document'
I_GRID_SETTINGS =
IS_LAYOUT = GD_LAYOUT
IT_FIELDCAT = FIELDCATALOG[]
IT_EXCLUDING =
IT_SPECIAL_GROUPS =
IT_SORT = IT_SORT1[]
IT_FILTER =
IS_SEL_HIDE =
I_DEFAULT = 'X'
I_SAVE = 'X'
IS_VARIANT =
IT_EVENTS =
IT_EVENT_EXIT =
IS_PRINT =
IS_REPREP_ID =
I_SCREEN_START_COLUMN = 0
I_SCREEN_START_LINE = 0
I_SCREEN_END_COLUMN = 0
I_SCREEN_END_LINE = 0
IT_ALV_GRAPHICS =
IT_HYPERLINK =
IT_ADD_FIELDCAT =
IT_EXCEPT_QINFO =
I_HTML_HEIGHT_TOP =
I_HTML_HEIGHT_END =
IMPORTING
E_EXIT_CAUSED_BY_CALLER =
ES_EXIT_CAUSED_BY_USER =
TABLES
T_OUTTAB = I_FINAL
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. "data_callhi,
just comment this line.
I_CALLBACK_USER_COMMAND = 'USER-COMMAND'
as it is only useful in interactive reports. -
VAT issue in Intercompany billing
Dear All,
My case, sending stocks from country DE to AT, DE plant belongs to NL company code. while in F2 invoice its picking ship to country is AT correctly, but when we do Intercomapny billing system picks ship to as AT customer but country SIS tax is picking DE and VAT number is picking DE VAT number, here we want to be AT. and payers VAT number.
Please let me know if you not understand.Hi Guru's
Thanks for your Inputs, We applied all above SAP notes, but thing is System picking Destination country as AT correctly, but
VAT Registration No.VBRK-STCEG
Country sls.tax no.VBRK-STCEG_L
is not picking correctly as its picking DE and DE VAT number.
By this this Intercompany invoice is not showing in Intrastat report as this country is DE, we are running Intrastat report for DE, this Invoice is ignoring in report.
Iam new to Intrastat and dont no how come this Intercompany will show in intrastat. I did trial and error, if i put AT and AT vat number of payer(internal customer VAT number) then system is showing in report.
If you have any idea, please help me.
Thanks -
Hello Abap Gurus;
I have a report of invoice list.In this report i want shade column
of the SD document: Delivery: Item data in which the shade is displayed.I m attaching the code also.
*& Report ZRPT_SD_002
REPORT zrpt_sd_002 LINE-SIZE 70 NO STANDARD PAGE HEADING
MESSAGE-ID zcvs.
TABLES
TABLES : vbak , " Sales Document Header
vbap , " Sales Document Item
kna1 , " Customer Master
vbkd , " Business Data
t023t , " MAterial Group
ekkn ,
mara ,
lfa1,
t134t , " Material Type
t024d , " MAterial Controller
t188t , " Zone
tvkbt , " Sales OFfice Text
tvaut , " Order Reason
vbfa , " Order Status
vbep , " Schedule Line Data
mska , " Sales Order Stock
vbrp , " Billing Header
afko , " Production Order
vbrk , " Billing Header
konv , " Condition Type Table
likp , " Delivery Header
knb1 ,
bkpf ,
cabnt , vttp,vttk,
tvro,vbpa.
TYPE-POOLS
TYPE-POOLS : slis.
VARIABLE DECLARATION
DATA : maktx LIKE makt-maktx,
knttp LIKE ekpo-knttp,
city1 LIKE adrc-city1,
tknum LIKE vttk-tknum,
name1 LIKE lfa1-name1,
lzone LIKE kna1-lzone,
mtbez LIKE t134t-mtbez,
wgbez LIKE t023t-wgbez, " Material Group Text
bezei LIKE tvaut-bezei, " Order Reason Text
kvgr1 LIKE vbak-kvgr1, " Product Manager
vtext LIKE t188t-vtext, " Product Manager Text
vtext2 LIKE t188t-vtext, " Regional Mgnr Text
vtext3 LIKE t188t-vtext, " Key Account Group
vtext4 LIKE t188t-vtext, " Special Group
vtext5 LIKE t188t-vtext, " Executive
vbezei LIKE tvkbt-bezei, " Sales office
matkl LIKE mara-matkl, " Material Group
mtart LIKE mara-mtart, " Material Type
erdat LIKE vbak-erdat,
audat LIKE vbak-audat,
auart LIKE vbak-auart,
bstkd LIKE vbkd-bstkd,
prdha LIKE mara-prdha,
belnr LIKE bkpf-belnr,
text(30) TYPE c ,
v_tabix LIKE sy-tabix,
lifnr LIKE lfa1-lifnr,
tname LIKE lfa1-name1,
bstdk LIKE vbkd-bstdk,
ordat LIKE vbrk-erdat,
stext LIKE tspat-vtext,
ktext LIKE t151t-ktext,
v_brtxt LIKE t016t-brtxt,
v_month TYPE i,p_mon TYPE i,
v_mname(20),p_mname(20),
v_ptext LIKE t052u-text1.
DATA : cl_data LIKE clobjdat OCCURS 0 WITH HEADER LINE.
DATA : i_cl_data LIKE clobjdat OCCURS 0 WITH HEADER LINE.
DATA : dmbtr LIKE bseg-dmbtr,
gbsta LIKE vbup-gbsta,
mbdat LIKE vbep-mbdat,
kalab LIKE mska-kalab,
bonba LIKE vbrp-bonba,
gltrp LIKE afko-gltrp,
mblnr LIKE mseg-mblnr,
budat LIKE mkpf-budat,
prtext LIKE t179t-vtext,
signi LIKE vttk-signi, " Truck Number
landx LIKE t005t-landx.
DATA : BEGIN OF tline OCCURS 0 .
INCLUDE STRUCTURE tline .
DATA : END OF tline .
DATA : soh LIKE rstxt-tdname ,
destcty(30).
DATA : klmeng LIKE vbap-klmeng.
DATA : tabix LIKE sy-tabix.
DATA : cmgst LIKE vbuk-cmgst,
option(10) TYPE c .
DATA : BEGIN OF delivery_header.
INCLUDE STRUCTURE likp.
DATA : END OF delivery_header.
DATA : BEGIN OF shipment_header.
INCLUDE STRUCTURE vttk.
DATA : END OF shipment_header.
DATA : BEGIN OF ivbrk OCCURS 0.
INCLUDE STRUCTURE vbrk.
DATA : brsch LIKE kna1-brsch,
name1 LIKE kna1-name1,
ort01 LIKE kna1-ort01.
DATA : END OF ivbrk.
DATA : v_regio LIKE kna1-regio,
v_brsch LIKE kna1-brsch,
v_ort01 LIKE kna1-ort01,
v_land1 LIKE kna1-land1.
New For Days Start
DATA: len TYPE i.
DATA : BEGIN OF head OCCURS 0,
field(5),
text(30),
END OF head.
DATA : p_ftext1(30),
p_ftext2(30),
p_ftext3(30),
p_ftext4(30),
p_ftext5(30),
p_ftext6(30).
New For Days End
DECLARATION FOR ALV
DATA: fieldtab TYPE slis_t_fieldcat_alv,
heading TYPE slis_t_listheader,
layout TYPE slis_layout_alv,
events TYPE slis_t_event,
repname LIKE sy-repid,
f2code LIKE sy-ucomm VALUE '&ETA',
g_save(1) TYPE c,
g_variant LIKE disvariant,
gx_variant LIKE disvariant,
g_exit(1) TYPE c.
DATA: keyinfo TYPE slis_keyinfo_alv.
CONSTANTS: formname_top_of_page TYPE slis_formname VALUE 'TOP_OF_PAGE'.
DATA: alv_print TYPE slis_print_alv.
DATA: alv_detail_func(30).
DATA: g_pos TYPE i.
DATA: tabname TYPE slis_tabname.
INTERNAL TABLES DECLARATION
DATA : BEGIN OF ivbeln OCCURS 1,
vbeln LIKE vbrk-vbeln, " Billing Document
posnr LIKE vbrp-posnr, " Billing Doc Item
fkart LIKE vbrk-fkart, " Billing Type
vbtyp LIKE vbrk-vbtyp, " SD Docnument Category
vbtyp_desc(35) , " Vbtyp description
vkgrp LIKE vbrp-vkgrp, " Sales Group
fkdat LIKE vbrk-fkdat, " Billing Date
matnr LIKE vbrp-matnr, " Material
arktx LIKE vbrp-arktx, " Material Desc
kunnr LIKE vbrk-kunag, " Customer Code
name1 LIKE kna1-name1, " Customer Name
ort01 LIKE kna1-ort01, " Customer City
fkimg LIKE vbrp-fkimg, " Billed Qty
werks LIKE vbrp-werks, " Plant
pl_land1 LIKE t001w-land1, " Plant Country
pl_regio LIKE t001w-regio, " Plant Region Code
regio_tx LIKE t005u-bezei, " Plant Region Name
netwr LIKE vbrp-netwr, " Net Price
vkorg LIKE vbrk-vkorg, " Sales Organisation
vtext LIKE tvkot-vtext, " Sales Org.Text
vtweg LIKE vbrk-vtweg, " Distribution Channel
vttxt LIKE tvtwt-vtext, " Dist.Channel Text
vkbur LIKE vbrp-vkbur, " Sales Office
vbezei LIKE tvkbt-bezei, " Sales Office Text
spart LIKE vbrp-spart, " Division
stext LIKE tspat-vtext, " Sales Division Text
kvgr1 LIKE vbrp-kvgr1, " District
vtext1 LIKE tvv1t-bezei, " District Name
kvgr2 LIKE vbrp-kvgr2, " Taluka
vtext2 LIKE t188t-vtext, " Taluka Name
kvgr3 LIKE vbrp-kvgr3, " Village
vtext3 LIKE t188t-vtext, " Village Name
kvgr4 LIKE vbrp-kvgr4, " Special Group
vtext4 LIKE t188t-vtext, " Special Group
kvgr5 LIKE vbrp-kvgr5, " Executive
vtext5 LIKE t188t-vtext, " Executive Text
ZZLZONE LIKE VBAP-ZZLZONE , " Transport.Zone(Sold To Party)
lztxt LIKE tzont-vtext, " Trans.Zone Desc(Sold To Party)
waerk LIKE vbap-waerk, " Document Currency
inco1 LIKE vbkd-inco1, " Inco Terms1
inco2 LIKE vbkd-inco2, " Inco Terms2
bukrs LIKE vbrk-bukrs, " Company Code
lgort LIKE vbrp-lgort, " Storage Loc
vrkme LIKE vbrp-vrkme, " Sales Unit
aubel LIKE vbrp-aubel, " Sales Doc
aupos LIKE vbrp-aupos, " Sales Doc Item
audat LIKE vbak-audat, " Sales Order Date
klmeng LIKE vbap-klmeng, " Sales Qty
knumv LIKE konv-knumv, " Cond.Doc No
frate LIKE konv-kbetr, " Rate
fvalue LIKE konv-kwert, " Value
erate LIKE konv-kbetr, " Excise Rate
evalue LIKE konv-kwert, " Excise Value
kschl LIKE konv-kschl, " Condition Type
mtart LIKE mara-mtart, " Material TYpe
matkl LIKE mara-matkl, " Material Group
stceg LIKE vbrk-stceg, " VAT Reg.No
sfakn LIKE vbrk-sfakn, " Cancelled Bill Doc No
sfakn1 LIKE vbrk-sfakn, " Reversed Bill Doc No
rfbsk LIKE vbrk-rfbsk, " Accounting Transfer Status
fksto LIKE vbrk-fksto, " Bill Doc.Cancel Ind
fksto_tx(60), " Bill Doc.Cancel text
erdat LIKE vbrk-erdat, " Creation Date
erzet LIKE vbrk-erzet, " Creattion Time
regio LIKE kna1-regio, " Region
pstyv LIKE vbrp-pstyv, " Sales Doc Item Cat.
vgbel LIKE vbak-vgbel, " Ref.Doc No
vgpos LIKE vbap-vgpos, " Ref.Doc.Item.No
cmgst LIKE vbuk-cmgst, " Credit Status
zterm LIKE vbrk-zterm, " Pay Term
auart LIKE vbak-auart, " Sales Order Type
bstkd LIKE vbkd-bstkd, " Cust.PO No
bstdk LIKE vbkd-bstdk, " Cust.PO Date
mwsbp LIKE vbrp-mwsbp, " Tax Amount
belnr LIKE bkpf-belnr, " Acc.Doc No
kzwi1 LIKE vbrp-kzwi1 , " Base Price
kzwi2 LIKE vbrp-kzwi2 , "
kzwi3 LIKE vbrp-kzwi3 , " Discounts
kzwi4 LIKE vbrp-kzwi4, " Packing and forwarding
kzwi5 LIKE vbrp-kzwi5 , " Excise
kzwi6 LIKE vbrp-kzwi6 , " LST/ CST
mtbez LIKE t134t-mtbez, " Material Type Text
wgbez LIKE t023t-wgbez, " Material Group Text
land1 LIKE vbrk-land1, " Country
landx(20), " Country Text
abrvw LIKE tvlvt-abrvw, " Usage Ind.
reasn LIKE tvlvt-bezei, " Desc
prdha LIKE mara-prdha, " Prod Hir.
edg(2),
char1 LIKE ausp-atwrt , " Characteristic
char2 LIKE ausp-atwrt , " Characteristic
char3 LIKE ausp-atwrt , " Characteristic
char4 LIKE ausp-atwrt , " Characteristic
char5 LIKE ausp-atwrt , " Characteristic
char6 LIKE ausp-atwrt , " Characteristic
char7 LIKE ausp-atwrt , " Characteristic
char8 LIKE ausp-atwrt , " Characteristic
char9 LIKE ausp-atwrt , " Characteristic
char10 LIKE ausp-atwrt , " Characteristic
char11 LIKE ausp-atwrt , " Characteristic
char12 LIKE ausp-atwrt , " Characteristic
char13 LIKE ausp-atwrt , " Characteristic
char14 LIKE ausp-atwrt , " Characteristic
char15 LIKE ausp-atwrt , " Characteristic
char16 LIKE ausp-atwrt , " Characteristic
lifnr LIKE lfa1-lifnr, " Vendor
tname LIKE lfa1-name1, " Vendor Name
ordat LIKE vbrk-fkdat, " order Date
charg LIKE vbrp-charg, " Batch
kdgrp_auft LIKE vbrp-kdgrp_auft, " Customer Sales Group
ktext LIKE t151t-ktext, " Customer Sales Group Text
signi LIKE vttk-signi, " License No
route LIKE likp-route, " Route
routid LIKE tvro-routid, " Route ID
rt_bezei LIKE tvrot-bezei, " Route Desc
vstel LIKE likp-vstel, " Shipping Point
sp_vtext LIKE tvstt-vtext, " Ship Point Desc
distz LIKE v_tvro_com-distz, " Distance
brsch LIKE kna1-brsch, " Industry Key
brtxt LIKE t016t-brtxt, " Industry Name
mname LIKE kna1-name1, " Name
exnum LIKE j_1iexchdr-exnum, " Ex.Number
exdat LIKE j_1iexchdr-exdat, " Ex.Date
exbed LIKE j_1iexcdtl-exbed, " Ex.BED Amt
ecs LIKE j_1iexcdtl-ecs, " Ex.ECESS Amt
expind LIKE j_1iexchdr-expind, " Export Ind.
expind_desc LIKE dd07t-ddtext, " Export Ind.Desc
exgrp LIKE j_1iexchdr-exgrp, " Exc.Group
srgrp LIKE j_1iexchdr-srgrp, " Series Group
sanum LIKE vbap-vbeln, " Sales Order No
sapos LIKE vbap-posnr, " SO Item No
tknum LIKE vttk-tknum, " Shipment No
exti1 LIKE vttk-exti1, " Vehicle Number
exti2 LIKE vttk-exti2, " Driver Name
tr_count TYPE i, " Truck Count
vsart LIKE vttk-vsart, " Shipment Type
st_bezei LIKE t173t-bezei, " Shipment Type Desc
zb00 LIKE konv-kbetr, " Basic Rate
xcpdk LIKE vbpa-xcpdk, " One Time Account
adrnr LIKE vbpa-adrnr, " Address Number
shpcd LIKE kna1-kunnr, " Ship to Party
shpnm LIKE kna1-name1, " Ship to Party Name
sh_regio LIKE kna1-regio, " Region(SH)
sh_land1 LIKE kna1-land1, " Country
SH_LZONE LIKE VBAP-ZZLZONE , " Transport.Zone(Ship To Party)
sh_lztxt LIKE tzont-vtext, " Trans.Zone Desc(Ship To Party)
mblnr LIKE mseg-mblnr, " Material Doc No
budat LIKE mkpf-budat, " Doc Date
konda LIKE vbrk-konda, " Sales Zone
ptext LIKE t188t-vtext, " Text
zrbat LIKE konv-kwert, " Rebate Amount
serdt LIKE vbak-erdat, " S.A Create Date
groes LIKE mara-groes, " Size/Dimensions
dtext(20), "
prodt(20), "
mtext(20), "
prdqy LIKE vbrp-fkimg, "
aufnr LIKE afko-aufnr, " Order No
city1 LIKE adrc-city1, " City
packno(3), " Pack No
inv_rate LIKE konv-kbetr, " Inv Rate
inv_amt LIKE konv-kwert, " Inv Amount
frt_rate LIKE konv-kbetr, " Frt Rate
frt_amt LIKE konv-kwert, " Frt Amount
td_fkimg LIKE vbrp-fkimg, " Trade Inv.Qty
nt_fkimg LIKE vbrp-fkimg, " Non-Trade Inv.Qty
st_fkimg LIKE vbrp-fkimg, " Stk.Trsf.Inv.Qty
tot_fkimg LIKE vbrp-fkimg, " Total
or_dl_vbeln LIKE lips-vbeln, " Original Delivery
or_dl_posnr LIKE lips-posnr, " Original Del.Item
or_in_vbeln LIKE vbrp-vbeln, " Original Invoice
or_in_fkdat LIKE vbrk-fkdat, " Original Inv.Date
or_in_posnr LIKE vbrp-posnr, " Original Inv.Item
or_in_knumv LIKE vbrk-knumv, " Original Inv.Cond.No
or_in_frt_amt LIKE konv-kwert, " Original Frt Amount
or_in_fkimg LIKE vbrp-fkimg, " Original Qty
diff_date TYPE p, " Date Differance
pfield1 LIKE vbrp-fkimg, " Day 1
pfield2 LIKE vbrp-fkimg, " Day 2
pfield3 LIKE vbrp-fkimg, " Day 3
pfield4 LIKE vbrp-fkimg, " Day 4
pfield5 LIKE vbrp-fkimg, " Day 5
pfield6 LIKE vbrp-fkimg, " Above Days
pfield7 LIKE vbrp-fkimg, " TOTAL DAYS
bolnr LIKE likp-bolnr, " LR/DC No
INCLUDE STRUCTURE ZSD_MATGROUPS. " Inc.For Mat.Groups
chaname TYPE lfa1-name1,
lcnum TYPE vbkd-lcnum,
tdline TYPE tline-tdline,
docno type j_1iexchdr-docno.
DATA: END OF ivbeln.
DATA : BEGIN OF i_mat_tab OCCURS 0,
dtext LIKE ivbeln-dtext,
prodt(20),
mtext(20),
name1 LIKE ivbeln-name1,
kunnr LIKE ivbeln-kunnr,
fkimg LIKE ivbeln-fkimg,
END OF i_mat_tab.
DATA : BEGIN OF it_vbtyp OCCURS 0.
INCLUDE STRUCTURE dd07v.
DATA : END OF it_vbtyp.
DATA : BEGIN OF i_mseg OCCURS 0.
INCLUDE STRUCTURE mseg.
DATA : END OF i_mseg.
DATA : BEGIN OF i_mseg_coll OCCURS 0,
matnr LIKE mseg-matnr,
charg LIKE mseg-charg,
menge LIKE mseg-menge,
aufnr LIKE mseg-aufnr,
werks LIKE mseg-werks,
END OF i_mseg_coll.
*-- For Sales Plan Details
DATA : exnum LIKE j_1iexchdr-exnum,
exdat LIKE j_1iexchdr-exdat,
exbed LIKE j_1iexchdr-exbed,
expind LIKE j_1iexchdr-expind,
exgrp LIKE j_1iexchdr-exgrp,
srgrp LIKE j_1iexchdr-srgrp,
shpcd LIKE kna1-kunnr,
shpnm LIKE kna1-name1,
shreg LIKE kna1-regio,
shlnd LIKE kna1-land1,
xcpdk LIKE vbpa-xcpdk,
adrnr LIKE vbpa-adrnr,
sanum LIKE vbap-vbeln,
serdt LIKE vbak-erdat,
ptext LIKE t188t-vtext,
sapos LIKE vbap-posnr.
DATA : BEGIN OF iitem OCCURS 1,
kunnr LIKE ivbeln-kunnr,
name1 LIKE ivbeln-name1,
vkbur LIKE ivbeln-vkbur,
vbezei LIKE ivbeln-vbezei,
dtext LIKE tvtwt-vtext,
matnr LIKE ivbeln-matnr,
arktx LIKE ivbeln-arktx,
VTWEG LIKE ZCVI_VBRKVBRP-VTWEG,
land1 LIKE kna1-land1,
landx LIKE t005t-landx,
END OF iitem.
DATA : BEGIN OF t_konv OCCURS 0,
knumv LIKE konv-knumv,
kposn LIKE konv-kposn,
krech LIKE konv-krech,
kwert LIKE konv-kwert,
kbetr LIKE konv-kbetr,
kawrt LIKE konv-kawrt,
kschl LIKE konv-kschl,
END OF t_konv.
DATA : kunnr LIKE kna1-name1,
pdate LIKE sy-datum,
frate LIKE konv-kbetr,
erate LIKE konv-kbetr,
evalue LIKE konv-kwert,
fvalue LIKE konv-kwert,
zwels LIKE knb1-zwels.
*DATA : BEGIN OF ISDCHAR OCCURS 0 .
INCLUDE STRUCTURE ZCTA_SDCHAR .
*DATA END OF ISDCHAR .
DATA : BEGIN OF it_char OCCURS 0.
DATA : tabix(2) TYPE c,
atbez(30),
descrp(30) TYPE c.
INCLUDE STRUCTURE vbmuez.
DATA : END OF it_char.
DATA : ichar LIKE sel_char OCCURS 0 WITH HEADER LINE.
DATA : reasn LIKE tvlvt-bezei.
FIELD-SYMBOLS *
FIELD-SYMBOLS : <table> TYPE table ,
<struc> ,
<field> ,
<component> .
Data Declaration for Dynamic Assignment *
DATA : alv_fieldcat TYPE slis_t_fieldcat_alv,
lt_alv_cat TYPE TABLE OF lvc_s_fcat,
it_fieldcat LIKE LINE OF lt_alv_cat.
DATA : i_table TYPE REF TO data,
i_structure TYPE REF TO data.
DATA : new_tabix LIKE sy-tabix.
DATA : v_ebeln LIKE ekkn-ebeln ,
v_ebelp LIKE ekkn-ebelp ,
groes LIKE mara-groes.
DATA : t_char LIKE sel_char OCCURS 0 WITH HEADER LINE.
Macro Definition for assigning and unassigning component
Assign a field to a component and component to a structure
DEFINE assign_component.
assign &1 to <component>.
assign component <component> of structure <struc> to <field>.
END-OF-DEFINITION.
Unassign a Component.
DEFINE unassign_field.
if &1 is assigned.
unassign &1.
endif.
END-OF-DEFINITION.
SELECTION - SCREEN
*For ALV Variant
SELECTION-SCREEN BEGIN OF BLOCK d WITH FRAME TITLE text-s01.
PARAMETERS: p_vari LIKE disvariant-variant. " ALV Variant
SELECTION-SCREEN END OF BLOCK d.
For Basic Data
SELECTION-SCREEN BEGIN OF BLOCK a WITH FRAME TITLE text-s02.
SELECT-OPTIONS: s_kunnr FOR vbrk-kunrg MATCHCODE OBJECT debi,
s_vbeln FOR vbrk-vbeln MATCHCODE OBJECT vmva,
s_fkdat FOR vbrk-fkdat OBLIGATORY,
s_matnr FOR vbrp-matnr MATCHCODE OBJECT mat1,
s_fkart FOR vbrk-fkart ,
s_pstyv FOR vbap-pstyv,
s_spart FOR vbrk-spart.
SELECTION-SCREEN END OF BLOCK a.
For Organisational Data
SELECTION-SCREEN BEGIN OF BLOCK b WITH FRAME TITLE text-s03.
SELECT-OPTIONS: s_vkorg FOR vbrk-vkorg,
s_vtweg FOR vbrk-vtweg,
s_bukrs FOR vbrk-bukrs,
s_vkbur FOR vbrp-vkbur,
s_regio FOR kna1-regio,
s_werks FOR vbrp-werks,
s_brsch FOR kna1-brsch. " Industry Key
SELECTION-SCREEN END OF BLOCK b.
NEW ADDED BY AJAY 22-06-2006
SELECTION-SCREEN BEGIN OF BLOCK c WITH FRAME TITLE text-d01.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 1(30) text-d02.
SELECTION-SCREEN POSITION 32.
PARAMETERS : p_field1(3) TYPE n DEFAULT '001',
p_field2(3) TYPE n DEFAULT '005',
p_field3(3) TYPE n DEFAULT '007',
p_field4(3) TYPE n DEFAULT '009',
p_field5(3) TYPE n DEFAULT '015'.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN END OF BLOCK c.
NEW ADDED END BY AJAY 22-06-2006
INITIALIZATION
INITIALIZATION.
repname = sy-repid.
PERFORM build_eventtab USING events[].
PERFORM build_layout .
PERFORM initialize_variant.
AT SELECTION-SCREEN
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_vari.
PERFORM f4_for_variant.
AT SELECTION-SCREEN.
PERFORM pai_of_selection_screen.
PERFORM check_input.
START OF SELECTION
START-OF-SELECTION.
PERFORM build_comment USING heading[].
PERFORM get_day_label.
PERFORM get_data.
PERFORM segregate_dist_chann_qty.
PERFORM initialise_fieldtab.
PERFORM attach_char_to_fieldcat.
PERFORM get_transporter_data.
PERFORM get_sd_matgroups.
PERFORM get_plant_from_po.
PERFORM get_excise_details.
PERFORM display_data.
END OF SELECTION
END-OF-SELECTION.
FORMS
*& Form get_data
*& Extracts data as per the users selection criteria.
FORM get_data.
DATA domname LIKE dd07v-domname.
DATA it_vrpma LIKE vrpma OCCURS 0 WITH HEADER LINE.
In case Doc No is specified in Selection use VBRK
Else use VRPMA(Material wise Billing Doc)
IF NOT s_vbeln IS INITIAL.
SELECT * FROM vbrk CLIENT SPECIFIED
INTO CORRESPONDING FIELDS OF TABLE ivbrk
WHERE mandt EQ sy-mandt
AND vbeln IN s_vbeln
AND fkart IN s_fkart
AND fkdat IN s_fkdat
AND kunag IN s_kunnr
AND vkorg IN s_vkorg
AND vtweg IN s_vtweg
AND bukrs IN s_bukrs
AND rfbsk NE 'E'
AND sfakn EQ space
AND fksto EQ space.
ELSE.
SELECT * FROM vrpma CLIENT SPECIFIED
INTO CORRESPONDING FIELDS OF TABLE it_vrpma
WHERE mandt EQ sy-mandt
AND matnr IN s_matnr
AND vkorg IN s_vkorg
AND fkdat IN s_fkdat
AND vtweg IN s_vtweg
AND fkart IN s_fkart
AND kunag IN s_kunnr
AND fkart NE 'ZCMR'
AND vbeln IN s_vbeln.
CHECK NOT it_vrpma[] IS INITIAL.
SORT it_vrpma BY vbeln.
SELECT * FROM vbrk INTO CORRESPONDING FIELDS OF TABLE ivbrk
FOR ALL ENTRIES IN it_vrpma
WHERE vbeln = it_vrpma-vbeln
AND rfbsk NE 'E'
AND sfakn EQ space
AND fksto EQ space.
ENDIF.
domname = 'VBTYP'.
Get the List of all Document Types
PERFORM get_domtext TABLES it_vbtyp USING domname.
IF NOT ivbrk[] IS INITIAL.
SORT ivbrk BY kunag.
LOOP AT ivbrk.
v_tabix = sy-tabix.
Get the Region,Industry Key, Name for Sold To Party
ON CHANGE OF ivbrk-kunag.
CLEAR : v_regio,v_brsch,name1,v_ort01,v_land1.
SELECT SINGLE regio brsch name1 ort01 land1 FROM kna1
CLIENT SPECIFIED
INTO (v_regio,v_brsch,
name1,v_ort01,v_land1 )
WHERE mandt = sy-mandt
AND kunnr = ivbrk-kunag.
ENDON.
Check for Region,Industry Key as per the Parameter
IF NOT s_regio[] IS INITIAL.
IF NOT v_regio IN s_regio.
DELETE ivbrk INDEX v_tabix.
CONTINUE.
ENDIF.
ENDIF.
IF NOT s_brsch[] IS INITIAL.
IF NOT v_brsch IN s_brsch.
DELETE ivbrk INDEX v_tabix.
CONTINUE.
ENDIF.
ENDIF.
ivbrk-regio = v_regio.
ivbrk-brsch = v_brsch.
ivbrk-name1 = name1.
ivbrk-ort01 = v_ort01.
ivbrk-land1 = v_land1.
ivbrk-netwr = 0.
MODIFY ivbrk TRANSPORTING regio brsch
name1 netwr ort01 land1.
CLEAR ivbrk.
ENDLOOP.
Get the Invoice Details from VBRP Table
IF NOT ivbrk[] IS INITIAL.
SELECT * FROM vbrp CLIENT SPECIFIED
INTO CORRESPONDING FIELDS OF TABLE ivbeln
FOR ALL ENTRIES IN ivbrk
WHERE mandt = sy-mandt
AND vbeln = ivbrk-vbeln
AND fkimg NE 0
AND matnr IN s_matnr
AND pstyv IN s_pstyv
AND spart IN s_spart
AND werks IN s_werks
AND vkbur IN s_vkbur.
ENDIF.
ENDIF.
IF NOT ivbeln[] IS INITIAL.
LOOP AT ivbeln.
READ TABLE ivbrk WITH KEY vbeln = ivbeln-vbeln.
IF sy-subrc EQ 0.
IF ivbrk-netwr IS INITIAL.
ivbrk-netwr = ivbeln-netwr.
ENDIF.
MOVE-CORRESPONDING ivbrk TO ivbeln.
CLEAR it_vbtyp.
READ TABLE it_vbtyp WITH KEY domvalue_l = ivbrk-vbtyp.
ivbeln-vbtyp_desc = it_vbtyp-ddtext.
MOVE ivbrk-kunag TO ivbeln-kunnr.
MODIFY ivbeln .
CLEAR ivbeln.
ENDIF.
ENDLOOP.
SORT ivbeln BY vbeln posnr.
DELETE ADJACENT DUPLICATES FROM ivbeln COMPARING ALL FIELDS.
CLEAR ivbeln.
Get the Material Type, Group and Production Hiearchy
LOOP AT ivbeln.
ON CHANGE OF ivbeln-matnr.
CLEAR : mtart,matkl,prdha.
SELECT SINGLE mtart matkl prdha FROM mara CLIENT SPECIFIED
INTO (mtart,matkl,prdha)
WHERE mandt EQ sy-mandt
AND matnr EQ ivbeln-matnr.
ENDON.
ivbeln-mtart = mtart.
ivbeln-matkl = matkl.
ivbeln-prdha = prdha.
MODIFY ivbeln TRANSPORTING mtart matkl prdha.
CLEAR ivbeln.
ENDLOOP.
LOOP AT ivbeln.
Retrieving Sales Order Date ,Customer PO No,Customer PO Date
ON CHANGE OF ivbeln-aubel.
CLEAR : bstkd,bstdk,ordat,audat.
SELECT SINGLE bstkd bstdk FROM vbkd
CLIENT SPECIFIED
INTO (bstkd,bstdk)
WHERE mandt EQ sy-mandt
AND vbeln EQ ivbeln-aubel.
SELECT SINGLE erdat audat FROM vbak CLIENT SPECIFIED
INTO (ordat,audat)
WHERE mandt = sy-mandt
AND vbeln = ivbeln-aubel.
In case of Stock Transfer, Or Export Excise GP
SO is really a PO Hence Date is tajken from EKKO
IF ivbeln-fkart EQ 'ZSTF' OR ivbeln-fkart EQ 'ZSTE'.
SELECT SINGLE bedat FROM ekko CLIENT SPECIFIED
INTO (audat)
WHERE mandt = sy-mandt
AND ebeln = ivbeln-aubel.
ENDIF.
ENDON.
IF ivbeln-erzet GE '000000' AND ivbeln-erzet LE '070000'.
ivbeln-erdat = ivbeln-erdat - 1.
ENDIF.
Get the Counry Descripion
ON CHANGE OF ivbeln-land1.
CLEAR : landx.
SELECT SINGLE landx INTO landx FROM t005t
WHERE land1 EQ ivbeln-land1
AND spras EQ sy-langu.
ENDON.
For retrieving text for Customer Group
ON CHANGE OF ivbeln-kdgrp_auft.
CLEAR : ktext.
SELECT SINGLE ktext FROM t151t
INTO ktext
WHERE spras EQ sy-langu
AND kdgrp EQ ivbeln-kdgrp_auft.
ENDON.
For Retrieving texts for KVGR1 KVGR2 KVGR3 KVGR4 KVGR5
ON CHANGE OF ivbeln-kvgr1.
CLEAR : vtext.
SELECT SINGLE bezei INTO vtext FROM tvv1t
WHERE kvgr1 EQ ivbeln-kvgr1
AND spras EQ sy-langu.
ENDON.
ON CHANGE OF ivbeln-kvgr2.
CLEAR :vtext2.
SELECT SINGLE bezei INTO vtext2 FROM tvv2t
WHERE kvgr2 EQ ivbeln-kvgr2
AND spras EQ sy-langu.
ENDON.
ON CHANGE OF ivbeln-kvgr3.
CLEAR :vtext3.
SELECT SINGLE bezei INTO vtext3 FROM tvv3t
WHERE kvgr3 EQ ivbeln-kvgr3
AND spras EQ sy-langu.
ENDON.
ON CHANGE OF ivbeln-kvgr4.
CLEAR :vtext4.
SELECT SINGLE bezei INTO vtext4 FROM tvv4t
WHERE kvgr4 EQ ivbeln-kvgr4
AND spras EQ sy-langu.
ENDON.
ON CHANGE OF ivbeln-kvgr5.
CLEAR : vtext5.
SELECT SINGLE bezei INTO vtext5 FROM tvv5t
WHERE kvgr5 EQ ivbeln-kvgr5
AND spras EQ sy-langu.
ENDON.
Get the Description for Usage Indicator
ON CHANGE OF ivbeln-abrvw.
CLEAR : reasn.
SELECT SINGLE bezei INTO reasn FROM tvlvt CLIENT SPECIFIED
WHERE mandt = sy-mandt
AND abrvw EQ ivbeln-abrvw
AND spras EQ sy-langu.
ENDON.
Get Account Document
ON CHANGE OF ivbeln-vbeln.
CLEAR : belnr.
SELECT SINGLE belnr INTO belnr FROM bkpf
CLIENT SPECIFIED
WHERE mandt = sy-mandt
AND awtyp EQ 'VBRK'
AND awkey EQ ivbeln-vbeln.
ENDON.
Get Division Text
ON CHANGE OF ivbeln-spart.
CLEAR : stext.
SELECT SINGLE vtext INTO stext FROM tspat
WHERE spart EQ ivbeln-spart
AND spras EQ sy-langu.
ENDON.
Get Price group Text
ON CHANGE OF ivbeln-konda.
CLEAR : ptext.
SELECT SINGLE vtext INTO ptext FROM t188t
WHERE konda EQ ivbeln-konda
AND spras EQ sy-langu.
ENDON.
Get Transporter Code ,Name
ON CHANGE OF ivbeln-vbeln.
CLEAR : lifnr,name1.
SELECT SINGLE lifnr INTO lifnr FROM vbpa
WHERE vbeln EQ ivbeln-vbeln
AND parvw EQ 'V1'.
IF NOT lifnr IS INITIAL.
SELECT SINGLE name1 FROM lfa1 INTO name1
WHERE lifnr EQ lifnr.
ENDIF.
*Ship To party Details
CLEAR: shpcd,shpnm,city1,kna1,xcpdk,adrnr.
SELECT SINGLE kunnr xcpdk adrnr
INTO (shpcd,xcpdk,adrnr)
FROM vbpa
WHERE vbeln EQ ivbeln-vbeln
AND parvw EQ 'WE'.
IF NOT shpcd IS INITIAL.
IF xcpdk EQ 'X'.
SELECT SINGLE name1 city1 transpzone region country
FROM adrc
INTO (shpnm,city1,lzone,shreg,shlnd)
WHERE addrnumber EQ adrnr.
ELSE.
SELECT SINGLE name1 ort01 lzone regio land1
FROM kna1
CLIENT SPECIFIED
INTO (shpnm,city1,lzone,shreg,shlnd)
WHERE mandt = sy-mandt
AND kunnr EQ shpcd.
ENDIF.
ENDIF.
ENDON.
Retrieve Text for Sales Office
ON CHANGE OF ivbeln-vkbur.
CLEAR : vbezei.
SELECT SINGLE bezei FROM tvkbt
INTO vbezei
WHERE spras EQ sy-langu
AND vkbur EQ ivbeln-vkbur.
ENDON.
Retrieve Text for Industry Key
ON CHANGE OF ivbeln-brsch.
CLEAR : v_brtxt.
SELECT SINGLE brtxt FROM t016t
INTO v_brtxt
WHERE spras EQ sy-langu
AND brsch EQ ivbeln-brsch.
ENDON.
Retrieve Text for Payment Terms
ON CHANGE OF ivbeln-zterm.
CLEAR : v_ptext.
SELECT SINGLE text1 FROM t052u
INTO v_ptext
WHERE spras EQ sy-langu
AND zterm EQ ivbeln-zterm.
ENDON.
Get Material Type Description,Material Group Desc
ON CHANGE OF ivbeln-mtart OR ivbeln-matkl.
CLEAR : wgbez,mtbez.
SELECT SINGLE wgbez FROM t023t
INTO wgbez
WHERE spras EQ sy-langu
AND matkl EQ ivbeln-matkl.
SELECT SINGLE mtbez FROM t134t
INTO mtbez
WHERE spras EQ sy-langu
AND mtart EQ ivbeln-mtart.
ENDON.
Get Delivery doc Number.
SELECT SINGLE vbeln erdat FROM vbfa INTO
(mblnr,budat)
WHERE vbelv = ivbeln-vgbel
AND posnv = ivbeln-vgpos
AND vbtyp_n = 'R'.
CLEAR : exnum,exdat.
Get the Excise Related Data
SELECT SINGLE exnum exdat FROM j_1iexchdr CLIENT SPECIFIED
INTO (exnum,exdat)
WHERE mandt = sy-mandt
AND trntyp = 'DLFC'
AND rdoc = ivbeln-vbeln
AND rind = 'N'
AND status = 'C'.
IF sy-subrc = 0.
SELECT SINGLE exbed ecs INTO (ivbeln-exbed,ivbeln-ecs)
FROM j_1iexcdtl
CLIENT SPECIFIED
WHERE mandt = sy-mandt
AND rdoc2 = ivbeln-vbeln
AND ritem2 = ivbeln-posnr.
IF sy-subrc NE 0.
ivbeln-exbed = 0.
CLEAR ivbeln-exnum.
ENDIF.
ENDIF.
Read Characteristics
IF NOT ichar[] IS INITIAL.
PERFORM read_characteristics TABLES ichar
USING ivbeln-weI have solved my query....
-
Want to know the flow and fields urgent
Hi ABAP Gurus,
i am developing Smart Form in that i want the details of purchase order no, purchase order date, vendor address information ,vendor pan no, payment terms and item code/description, quantity, rate, uom,amount(currency),
tax code description,
exc/service tax,
edcess,
hsc,
vat/cst
these are the fields i have to use in my smart form i got fields from ekko,ekpo and J_1IMOVEND but where i strucked is in condition fields i.e,
exc/service tax,
edcess,
hsc,
vat/cst
i want the technical name and the logic for the same i will give only po no in my selection. pls help me its urgent.Hi,
VAT INFORMATION field is: VBRK-STCEG
Regards
Basheer -
Hi,
Could someone please tell me where origin of the sales tax no. is picked from. This field is available in Taxes block of the Header tab page of the billing document.Hi
If you are talking about VAT Registration No. (VBRK-STCEG) field in Invoice, then the logic of picking this VAT No. is maintained at:-
IMG> S & D-> Basic Function>Taxes--> Maintain Sales Tax Identification No. Determination
Here you can maintain ehethre you want this VAT no. to be determined from Sold To or Ship To or Payer master Data.
Regards
Amitesh -
VAT # determination in Billing Document w/ rules
Hi experts,
WE have made settings SD> Basic Func> Taxes-->VAT determination = BLANK
In sales order I have a sold to 100, Payer 101, Ship to 102. All 3 are different.
100 and 101 (Soldto & Payer 's country is GB)
102 (Shipto's)Country is France
When I create invoice with above partners & settings the VAT # from Ship to is determined. SAP's help page shows that if its balnk then rule # 1 / 2/ 3 will be used. I think in this scenario rule # 1 is applicable therefore expect Payers VAT # to be determined.
Can anyone shed light on this ? How it works etc etc..
Thanks !
Regards,
Ron
VBRK-STCEG, VAT determination, SAPHi,
Generally VAT registration number is given by local Tax Authorities to any customer or compnay to do business.And this VAT no. will be relfected in the Invoice outputs as well as some tax reports which will be sent to tax authorities periodically.
As per regulations without VAT no. nobody can do any purchases or sales. So, if any copany registered to do so, then they will be allotted a Unique no. called VAT no.
Where as Taxes in SAP are maintained based on the Customer, Destination country, departure country etc. So, when we change the VAT no. it will not have any impact in the Tax Percentage. But the changed VAT no. will reflect in the concerned Tax reports or outputs.
Hope this is clear.
Thanks
Praveen -
Hi all,
when i create an invoice by VF01, i can't view VAT (VBRK-STCEG is blank) for finland customers.
I try with note 91109 and 1015818 but nothing.
Any ideas?
ThanksYes, VAT exists but is not display when I launch VF01.
I'm trying to follow the suggestion of kiran with the transaction VK11...but don't work
thanks -
Required help to the proforma invoice layout
Dear Experts
My client requires the following things in the proforma invoice
1.Seller address and VAT number
2.Truck No
3. Pallet No
4.Place of Loading (Ship From)
5.Commodity code number
6.Quantity in Pallets
7.quantity in cases/bandles
8.Price in EURO for Cases/Bandles
9. country of origin
10. Seller reference, ex: PO no
11.Proforma Invoice number
12. Proforma Invoice date
13. total Value
14. Freight Value.
Please give me the tables and fields from where to invoice data is flowing
Issue is very urgent
Please help me on this
Thanks & Regards
JanardhanHi Janarthan,
Plase go through the following field mapping which is you required.
1.Seller address: With the help of ABAPer, You can extract address data from ADRC table.
VBRK-STCEG OR KNA1-STCEG --VAT number
2.Truck No: VTTK-SIGNI
3. Pallet No:
4.Place of Loading (Ship From): LIPS-LSTEL
5.Commodity code number
6.Quantity in Pallets
VBRP-FKIMG Qty
VBRP-VRKMEUoM (MVKE-VRKME=PAL)
7.quantity in cases/bandles:
VBRP-FKIMG --- Qty.
VBRP-VRKME --- unit of measure (MVKE-VRKME=CSE)
8.Price /currency(EURO)/UoM (Cases/Bandles):
KOMV-KBETR / RV61A-AWEIN (currency, sale unit)
9. Country of origin: ADRC-COUNTRY
10. Seller reference, ex: PO no: VBKD-BSTKD
11.Proforma Invoice number: VBRK-VBELN
12. Proforma Invoice date: VBRK-ERDAT
13. total Value: VBRK-NETWR
14. Frieght Value: KOMV-KBETR where KONV-KSCHL=FB00
Reward points pls.
Regards,
Govind. -
Multiple VAT reg numbers for one customer
Hi,
We have one customer who is registered in 3 countries, thus having 3 VAT registration numbers. For the invoice, it is then required to have different VAT nos. depending on where the import takes place.
I already tried to modify user exit RV60AFZC but it seems that the value for vbrk-stceg gets overwritten with the vat no. in the customer master data by the other include programs on module pool SAPLV60A.
For those who have worked on a similar scenario, I would appreciate inputs/directions. Thanks!I presume, your requirement is fetch the different VAT numbers in output in which case, you can try with either of the following:-
USEREXIT_KOMKBV3_FILL in program RVCOMFZZ
USEREXIT_KOMPBV3_FILL in program RVCOMFZ1
G. Lakshmipathi -
Hi,
I have a requirement of storing multiple VAT codes on Sold-to customer since customer is registered in various countries. I can store multiple VAT codes using "Other" tab with each country key. It determines accurate tax rates based on Supplying plant and Destination country but in billing Document, it populates primary VAT number in VBRK-STCEG field from KNA1-STCEG not from KNAS-STCEG, that is wrong. It should populate appropriate VAT code.
Appreciate your thoughts on this.Hi Muhammad,
Please check the country sales tax number (VBRK- STCEG_L) and Origin of sales tax number (VBRK-STCEG_H) in your document. These two parameters determines the VAT number in the billing document header.
You can check them in the billing document header screen -> taxes (section).
For example, you can maintain origin of sales tax number as B (determine from sold to). Then the VAT number will be determined from the sold to party and country of sales tax number.
Please go to the below path and read the documentation for more details:
IMG -> Sales and Distribution -> Basic Functions -> Taxes -> Maintain sales tax identification number determination.
Best Regards,
Satya -
User Exit to copy Sales order data to Billing Doc
Hi,
I want a User Exit to copy a particular field value from sales order to Invoice.
The field which I am copying is STCEG(VAT Reg number)..
I am using the exit
USEREXIT_FILL_VBRK_VBRP but I am not able to acheive my solution.
Is there any other way other than copy croutines with USER EXITS.
Thanks.That's strange. SAP documentation says:
"This user exit is only called when the billing document is created. It is used to provide the header and the item of the new billing document with deviating or additional data."
Check you code. In debugger, set a watchpoint on VBRK-STCEG and check why the value gets lost.
Regards
Clemens -
Replace VAT registration number when create invoice
Hi All Expert,
I want to replace the VAT registration number (VBRK-STCEG) with some useful information when create invoice.
For e.g. Sales Order number.
I've check the user exit RV60AFZC Form USEREXIT_FILL_VBRK_VBRP,
but when I instead the code there, the VAT registration number still is BLANK when create the invoice using VF01...
Please help.
TerryHi
As per my understanding you want to display the sales order number in VAT Registration no. field. Actually this data is coming from Customer master (t-code XD02) in genral Data's Control Tab.
Now your concern is to display the sales order no. in invoice. instead changing standard you can make it happen through copy control (T-code VTFL) with your invoice document type to Delivery document type. There is option as Reference and assignment at header level of copy control.
Change the option of displaying sales order no in any of them. as per your config there your sales order no will be display in your billing header in assignment or reference field.
Regards
Shambhu Sarkar
Maybe you are looking for
-
What are the issues/precautions while upgrading nsoftware.ipworks v3 to v4
Hi All, currently we are using nsoftware.ipworks version 3 adapter, we want to upgrade it to Version 4, we are using this adapter API's heavily for downloading and uploading files in FTP, the following is the screen shot of the current version. and t
-
My ipods frozen on the white apple and black background page. I've tried resetting with the hold button, but nothing's changed. How can I fix this!?
-
Ws-management service does not support your request
Hello, i have Exchnage 2010 SP3 with rollup2 i'm facing the following error right after Exchange SP3 installed:- Please advise
-
Differennce b/w workarea and header line
can any one tell me the difference between workarea and header line.
-
Hello everyone, I have a problem with my Asha 302 wifi connection. Whenever I connect to my home wireless network, wifi stays connected for a few seconds and disconnects, when I trying to browse the internet, it connects again but after a few seconds