Announcement:
wanna exchange links? contact me at sapchatroom@gmail.com.
Posted by
Admin at
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
| | | ---------------Original Message---------------
From: karthe shan
Sent: Tuesday, August 02, 2011 12:35 AM
Subject: Performance Issue - for bank voucher printing
Hi everyone,
1) while taking the first printout alone it taking more time.
2) the second ones are coming quickly.
I have used smart form in my z program as a function.
This is my code.
SELECT * FROM BSEG INTO TABLE IT_BSEG WHERE bukrs = '1000' and BELNR EQ NO and gjahr eq year and SHKZG eq 'H'.
CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'
EXPORTING
FORMNAME = 'ZFI_VOUCHERB'
* VARIANT = ' '
* DIRECT_CALL = ' '
IMPORTING
FM_NAME = V_FMNAME
* EXCEPTIONS
* NO_FORM = 1
* NO_FUNCTION_MODULE = 2
* OTHERS = 3
.
IF SY-SUBRC <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
CALL FUNCTION V_FMNAME
EXPORTING
TYPE = TYPE
YEAR = year
TABLES
IT_BSEG = IT_BSEG.
IF SY-SUBRC <> 0.
ENDIF.
Help me with the same,
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   _.____.__ |
