Announcement:
wanna exchange links? contact me at sapchatroom@gmail.com.
Posted by
Admin at
Hi Karthe,
Instead of doing all these coding in smart form do it in program from where you are calling your smart form. Performance will improve.
Regards,
Kalyani
| | | ---------------Original Message---------------
From: karthe shan
Sent: Wednesday, September 21, 2011 1:44 AM
Subject: Performance Issue - for bank voucher printing
Hi everyone,
Sorry for late reply, I was out of station.
Guys I could not able to give the required fields alone in select query, because I used the internal table as a loop in smart forms.
This is my smart form code, kindly help me with the same.
data lifnr like bseg-lifnr.
data lifnrs like bseg-lifnr.
data koarth like bseg-koart.
data koarts like bseg-koart.
data shkzgh like bseg-shkzg.
data shkzgs like bseg-shkzg.
data kunnr like bseg-kunnr.
DATA HKONT LIKE BSEG-HKONT.
DATA AREA LIKE BSEG-PRCTR.
data kunnrh like bseg-kunnr.
data kunnrs like bseg-kunnr.
DATA HKONTh LIKE BSEG-HKONT.
DATA HKONTS LIKE BSEG-HKONT.
data lifnrh like bseg-lifnr.
data no like bseg-belnr.
no = it_bseg-belnr.
item = it_bseg-BUZEI.
select hkont from bseg into hkonth where belnr eq no and ktosl eq 'WIT'
and gjahr eq year.
endselect.
SELECT LIFNR KOART SHKZG KUNNR HKONT dmbtr prctr sgtxt FROM BSEG INTO (LIFNRs , KOARTs ,SHKZGs , KUNNRs , HKONTs , amth , area ,
sgtxth) WHERE BELNR EQ NO AND SHKZG EQ 'H' and koart eq 'S' and xauto ne 'X'
and gjahr eq year.
ENDSELECT.
SELECT LIFNR KOART SHKZG KUNNR HKONT DMBTR FROM BSEG INTO (LIFNR , KOART ,SHKZG , KUNNR , HKONT , AMT)
WHERE BELNR EQ NO AND SHKZG EQ 'S' and gjahr eq year.
ENDSELECT.
SELECT xblnr from bkpf into CHEQUE where belnr eq no.
endselect.
SELECT NAME1 FROM LFA1 INTO NAME WHERE LIFNR EQ LIFNR.
ENDSELECT.
SELECT NAME1 FROM LFA1 INTO NAME2 WHERE LIFNR EQ LIFNRh.
ENDSELECT.
SELECT MCOD1 FROM KNA1 INTO NAME1 WHERE KUNNR EQ KUNNR.
ENDSELECT.
SELECT MCOD1 FROM KNA1 INTO NAME3 WHERE KUNNR EQ KUNNRh.
ENDSELECT.
SELECT BUDAT FROM BSIS INTO DATE1 WHERE BELNR EQ NO and gjahr eq year.
ENDSELECT.
var = amtH.
VAR1 = AMTH.
TDS = AMT - AMTH.
vart = AMT.
var1t = VAR.
tdst = tds.
SELECT TXT50 FROM SKAT INTO TEXT WHERE SAKNR EQ HKONTS AND SPRAS EQ 'E'.
ENDSELECT.
SELECT TXT50 FROM SKAT INTO TEXT2 WHERE SAKNR EQ HKONTh AND SPRAS EQ 'E'.
ENDSELECT.
CALL FUNCTION 'HR_IN_CHG_INR_WRDS'
EXPORTING
AMT_IN_NUM = var
IMPORTING
AMT_IN_WORDS = var1.
select ltext from cepct into atext where prctr eq area AND SPRAS EQ 'EN' .
endselect.
Thanks & Regards
Karthe |
| __.____._ Copyright © 2011 Toolbox.com and message author.
Toolbox.com 4343 N. Scottsdale Road Suite 280, Scottsdale, AZ 85251
| | Popular White Papers
In the Spotlight   _.____.__ |
