How to write the code?

Former Member — Mon, 14 Jan 2008 07:49:07 GMT

Hi,

I have a internal table T. when the t-zuonr is blank, the ALV look like:

t-zuonr document no data

200630303 AB 2007.08.31

200627855 AB 2007.06.30

200627887 AB 2007.06.30

MSFT047/07 93631164 RV 2007.10.19

MSFT061/07 93594484 RV 2007.10.09

MSFT061/07 93594485 RV 2007.10.09

MSFT061/07 93594486 RV 2007.10.09

MSFT061/07 93594487 RV 2007.10.09

MSFT061/07 93594488 RV 2007.10.09

MSFT061/07 93594489 RV 2007.10.09

MSFT061/07 93594490 RV 2007.10.09

*I need to not show the company which t-zuonr is space.

How can I write the code?*

The original source code is as following:

SORT t.

LOOP AT t.

AT NEW bukrs.

CLEAR anz_dl.

CLEAR htext-anzahl.

CLEAR htext-datei.

htext-text1 = ' records writen in file '.

CLEAR p_pfad.

CONCATENATE

i_pfad

'CU_CC'

t-bukrs

'_'

sy-datum+6(2)

sy-datum+4(2)

sy-datum(4)

'_'

sy-uzeit

'.txt'

INTO p_pfad.

CLEAR outtab.

REFRESH outtab.

REFRESH: gt_outalv. "INS MG020207

ENDAT.

IF t-shkzg = 'H'.
h_betrg = t-wrbtr * -1.
ELSE.

h_betrg = t-wrbtr.

h_dmbtr = t-dmbtr.

ENDIF.

s-filler1 = s-filler2 = s-filler3 = s-filler4 = s-filler5 = ';'.

s-filler6 = s-filler7 = s-filler8 = ';'.

s-filler9 = s-filler10 = s-filler11 = s-filler12 = s-filler13 = ';'.

s-filler14 = ';'.

s-belnr = t-belnr.

IF t-xblnr NE space. "WD041005a

s-xblnr = t-xblnr. "WD041005a

ELSE. "WD041005a

s-xblnr = t-belnr. "WD041005a

ENDIF. "WD041005a

WHILE s-xblnr(1) EQ '0'. "INS MG130606

SHIFT s-xblnr LEFT. "INS MG130606

ENDWHILE. "INS MG130606

*<<< CR01 CHANGE START BY LI_Y 2008/01/10

IF t-waers = 'JPY'.

h_dmbtr = h_dmbtr.

else.

h_dmbtr = h_dmbtr * 100.

endif.

*>>> CR01 CHANGE END BY LI_Y 2008/01/10

WRITE t-kunnr TO s-kunnr NO-ZERO.

s-lifn2 = s-kunnr.

shift s-lifn2 RIGHT.

s-lifn2(1) = 'R'.

S-KUNNR = T-KUNNR+5(5).

s-bldat+2(1) = '/'.

s-bldat+5(1) = '/'.

s-bldat0(2) = t-bldat4(2).

s-bldat3(2) = t-bldat6(2).

s-bldat6(4) = t-bldat0(4).

s-budat+2(1) = '/'.

s-budat+5(1) = '/'.

s-budat0(2) = t-budat4(2).

s-budat3(2) = t-budat6(2).

s-budat6(4) = t-budat0(4).

s-netdt+2(1) = '/'.

s-netdt+5(1) = '/'.

s-netdt0(2) = t-netdt4(2).

s-netdt3(2) = t-netdt6(2).

s-netdt6(4) = t-netdt0(4).

s-waers = t-waers.

s-dmbtr = t-dmbtr.

s-sgtxt = t-sgtxt.

CLEAR s-twaer.

SELECT SINGLE waers INTO s-twaer

FROM t001

WHERE bukrs = t-bukrs.

IF h_betrg < 0.

hs_betrg+0(1) = '-'.

ELSE.

hs_betrg+0(1) = ' '.

ENDIF.

WRITE h_betrg CURRENCY t-waers TO hs_betrg+1 NO-GROUPING

NO-SIGN

LEFT-JUSTIFIED.

REPLACE ',' WITH '.' INTO hs_betrg.

WRITE hs_betrg TO s-betrg.

IF h_dmbtr < 0.

hs_betrg+0(1) = '-'.

ELSE.

hs_betrg+0(1) = ' '.

ENDIF.

WRITE h_dmbtr CURRENCY t-waers TO hs_betrg+1 NO-GROUPING

NO-SIGN

LEFT-JUSTIFIED.

REPLACE ',' WITH '.' INTO hs_betrg.

WRITE hs_betrg TO s-dmbtr.

s-compcode = t-bukrs. "fw070905

IF p_downl = 'X'.

MOVE s TO outtab-s.

APPEND outtab.

ADD 1 TO anz_dl.

ENDIF.

gs_outalv-belnr = s-belnr. "INS MG020207

*<<<< CR01 START CHANGE BY LI_Y 2007/12/24 " ADD as_outalv-zuonr

gs_outalv-zuonr = s-zuonr. "CR01

*>>>> CR01 EDD CHANGE BY LI_Y 2007/12/24 "ADD as_outalv-zuonr

gs_outalv-kunnr = s-kunnr. "INS MG020207

gs_outalv-bldat = s-bldat. "INS MG020207

gs_outalv-netdt = s-netdt. "INS MG020207

gs_outalv-betrg = s-betrg. "INS MG020207

gs_outalv-waers = s-waers. "INS MG020207

gs_outalv-compcode = s-compcode. "INS MG020207

gs_outalv-budat = s-budat. "INS MG020207

gs_outalv-sgtxt = s-sgtxt.

gs_outalv-kmmnt = s-kmmnt.

gs_outalv-vbeln = s-vbeln.

gs_outalv-xblnr = s-xblnr.

gs_outalv-lifn2 = s-lifn2.

gs_outalv-dmbtr = s-dmbtr.

gs_outalv-twaer = s-twaer.

APPEND gs_outalv TO gt_outalv. "INS MG020207

AT END OF bukrs.

WRITE anz_dl TO htext-anzahl.

WRITE p_pfad TO htext-datei.

CONDENSE htext.

*<<<< CR01 START CHANGE BY LI_Y 2007/12/24

WA_SORT-fieldname = 'BELNR'. " speicfy field name..

WA_SORT-UP = 'X'.

WA_SORT-SUBTOT = 'X'.

APPEND WA_SORT TO I_SORT.

Thank you!!

Re: How to write the code?

Former Member — Mon, 14 Jan 2008 07:54:16 GMT

Hi,

Do this. Declare another internal table of identical structure as table t say t1.

REFRESH t1.

APPEND LINES OF t TO t1.

DELETE t1 WHERE zuonr IS INITIAL.

and then use t1 to display the ALV.

Hope this helps.

Regards,

Aditya

topic How to write the code? in Application Development and Automation Discussions

How to write the code?

Re: How to write the code?