Hi,
Go to smartforms. go to global definitions and write :
DATA lv_rcomp TYPE t880-rcomp.
DATA adsno TYPE adrc-addrnumber.
DATA lv_vkbur TYPE tvbur-vkbur.
*Reading invoice documents
totmt = 0.
grtot = 0.
totvt = 0.
totin = 0.
totis = 0.
SELECT vbrkvbeln vbrpposnr vbrkfkart vbrkwaerk vbrk~knumv
vbrkerdat vbrpmatnr vbrpfkimg vbrpmeins vbrp~netwr
vbrkkunrg vbrkbukrs vbrpvkbur vbrpvrkme
INTO TABLE it_inv
FROM vbrk
INNER JOIN vbrp ON vbrkvbeln = vbrpvbeln
WHERE vbrk~vbeln = l_vbeln.
READ TABLE it_inv INTO wa_inv INDEX 1.
*Reading Doc Conditions
SELECT knumv kposn kschl kbetr
INTO TABLE it_konv
FROM konv
WHERE knumv = wa_inv-knumv.
*Getting Sales Order No
SELECT SINGLE *
INTO WA_VBFA
FROM VBFA
WHERE VBELN EQ WA_INV-VBELN
AND VBTYP_V EQ 'C'.
LOOP AT it_inv INTO wa_inv.
wa_item-vbeln = wa_inv-vbeln.
wa_item-posnr = wa_inv-posnr.
wa_item-matnr = wa_inv-matnr.
wa_item-itmno = wa_inv-posnr / 10.
SELECT SINGLE maktx INTO wa_item-maktx
FROM makt
WHERE matnr = wa_inv-matnr.
WA_ITEM-WAERK = WA_INV-WAERK.
wa_item-fkimg = wa_inv-fkimg.
wa_item-meins = wa_inv-meins.
WA_ITEM-VRKME = WA_INV-VRKME.
READ TABLE it_konv INTO wa_konv WITH KEY knumv = wa_inv-knumv
kposn = wa_inv-posnr
kschl = 'ZPR0'.
IF sy-subrc = 0.
wa_item-ratep = wa_konv-kbetr.
ENDIF.
wa_item-amunt = wa_item-ratep * wa_item-fkimg.
READ TABLE it_konv INTO wa_konv WITH KEY knumv = wa_inv-knumv
kposn = wa_inv-posnr
kschl = 'ZVAT'.
IF sy-subrc = 0.
wa_item-zvatr = wa_konv-kbetr / 10.
wa_item-zvatv = ( wa_item-amunt * wa_item-zvatr ) / 100 .
ENDIF.
READ TABLE it_konv INTO wa_konv WITH KEY knumv = wa_inv-knumv
kposn = wa_inv-posnr
kschl = 'ZINT'.
IF sy-subrc = 0.
wa_item-zintr = wa_konv-kbetr / 10.
wa_item-zintv = ( wa_item-amunt * wa_item-zintr ) / 100 .
ENDIF.
APPEND wa_item TO it_item.
CLEAR wa_item.
ENDLOOP.
*Reading Company Address
SELECT SINGLE adrnr
INTO adrnn
FROM t001
WHERE bukrs = wa_inv-bukrs.
SELECT SINGLE *
FROM adrc
INTO wa_adrc
WHERE addrnumber = adrnn.
SELECT SINGLE smtp_addr "Email
INTO lv_smtp_addr
FROM adr6
WHERE addrnumber = adrnn.
*Reading Customer address no
SELECT SINGLE adrnr
INTO adrno
FROM kna1
WHERE kunnr = wa_inv-kunrg.
SELECT SINGLE *
FROM adrc
INTO wa_adrk
WHERE addrnumber = adrno.
*Reading Project Location
SELECT SINGLE tvkbt~bezei INTO lv_bezei
FROM tvkbt
INNER JOIN knvv ON knvvvkbur = tvkbtvkbur
WHERE knvv~kunnr EQ wa_inv-kunrg
AND tvkbt~spras EQ 'E'.
*Reading Customer PO Details
SELECT SINGLE vbkdbstkd vbfavbelv INTO (lv_bstkd,so_no)
FROM vbkd
INNER JOIN vbfa ON vbfavbelv = vbkdvbeln
WHERE vbfa~vbtyp_n EQ 'M'
AND vbfa~vbtyp_v EQ 'C'
AND vbfa~vbeln EQ wa_inv-vbeln.
*SELECT SINGLE BSTKD INTO LV_BSTKD
*FROM VBKD
*WHERE VBELN EQ WA_VBFA-VBELV.
*Customer Excise Data
SELECT SINGLE *
INTO wa_j_1imocust
FROM j_1imocust
WHERE kunnr EQ wa_inv-kunrg.
*Customer Master Data to read TIN No
SELECT SINGLE *
INTO wa_kna1
FROM kna1
WHERE kunnr EQ wa_inv-kunrg.
IF wa_inv-bukrs = '1100'.
vat_no = '123456789'.
ELSEIF wa_inv-bukrs = '2100'.
vat_no = '987654321'.
ENDIF.
*Reading Sales office address
SELECT SINGLE adrnr
INTO adsno
FROM tvbur
WHERE vkbur = wa_inv-vkbur.
IF sy-subrc = 0.
SELECT SINGLE *
FROM adrc
INTO wa_adrs
WHERE addrnumber = adsno.
ENDIF.
*Reading Sales Office VAT No
IF sy-subrc = 0.
SELECT SINGLE *
FROM adrct
INTO wa_adrct
WHERE addrnumber = adsno.
ENDIF.
I am sure it would be beneficial for future use as well as yr current problem requirement.
Regards
Akg
Edited by: akg.amit on Mar 23, 2011 11:42 AM
You must be a registered user to add a comment. If you've already registered, sign in. Otherwise, register and sign in.