INVOICE CODE

Former Member · ‎03-29-2010

Hi all,

I am not getting any output for the following code. While debugging it doesn't show any values in first select statement itself (it_header table), but in database it has values. Please help me out.

REPORT ZSD_DAILY_INVOICE_REGISTER1 NO STANDARD PAGE HEADING.

TABLES: VBAK,

VBAP,

VBRK,

KONV,

VBRP,

KNVP,

MARA,

J_1IEXCHDR,

MSEG,

ZDAILY,

T001W.

TYPE-POOLS: SLIS.

TYPES: BEGIN OF T_VBRP,

VBELN TYPE VBRK-VBELN,

FKIMG TYPE VBRP-FKIMG,

MEINS TYPE VBRP-MEINS,

VOLUM TYPE VBRP-VOLUM,

MATNR TYPE VBRP-MATNR,

FKIMG TYPE VBRP-VOLUM,

POSNR TYPE POSNR_VF,

CHARG TYPE VBRP-CHARG,

WERKS TYPE VBRP-WERKS,

END OF T_VBRP.

*DATA: IT_VBRP TYPE STANDARD TABLE OF VBRP WITH HEADER LINE.

TYPES: BEGIN OF T_HEADER,

VBELN TYPE VBRK-VBELN,

FKIMG TYPE VBRP-FKIMG,

FKART TYPE VBRK-FKART,

FKDAT TYPE VBRK-FKDAT,

KNUMV TYPE VBRK-KNUMV,

NETWR TYPE VBRK-NETWR,

KUNRG TYPE VBRK-KUNRG,

MWSBK TYPE VBRK-MWSBK,

NAME1 TYPE KNA1-NAME1,

INV_VALUE TYPE VBRK-NETWR,

CD TYPE NETWR,

AREA TYPE KNVP-PERNR,

TAXA TYPE KONV-KAWRT,

KWERT TYPE KONV-KWERT,

KBETR TYPE KONV-KBETR,

PERNR LIKE KNVP-PERNR,

PARVW LIKE KNVP-PARVW,

PERNR TYPE KNVP-PERNR,
MATNR LIKE MARA-MATNR,

PRODUCTCODE LIKE ZPROD_CODE-PRODUCTCODE,

PRODUCTDESC LIKE ZPROD_CODE-PRODUCTDESC,

WERKS_1 TYPE STRING,

MATNR LIKE MARA-MATNR,

FKIMG TYPE VBRP-FKIMG,

VOLUM TYPE VBRP-VOLUM,

EXNUM LIKE J_1IEXCHDR-EXNUM,

EXBED LIKE J_1IEXCHDR-EXBED,

ECS LIKE J_1IEXCHDR-ECS,

EXADDTAX1 LIKE J_1IEXCHDR-EXADDTAX1,

TOTAL1 LIKE VBRK-NETWR,

MEINS LIKE MARA-MEINS,

ERFMG LIKE MSEG-ERFMG,

STEUC LIKE MARC-STEUC,

POSNR TYPE POSNR_VF,

END OF T_HEADER.

TYPES: BEGIN OF T_CUST,

KUNNR TYPE KNA1-KUNNR,

NAME1 TYPE KNA1-NAME1,

WERKS LIKE VBRP-WERKS,
PERNR LIKE KNVP-PERNR,

END OF T_CUST.

TYPES: BEGIN OF T_KNVP,

PERNR TYPE KNVP-PERNR,

PARVW TYPE KNVP-PARVW,

KUNNR TYPE KNA1-KUNNR,

END OF T_KNVP.

TYPES: BEGIN OF T_KONV,

KNUMV TYPE KONV-KNUMV,

KSCHL TYPE KONV-KSCHL,

KBETR TYPE KONV-KWERT,

KPOSN TYPE KPOSN,

KAWRT TYPE KONV-KAWRT,

KBETR TYPE KONV-KBETR,

KWERT TYPE KONV-KWERT,

END OF T_KONV.

TYPES: BEGIN OF T_MSEG,

MATNR LIKE MSEG-MATNR,

ERFMG LIKE MSEG-ERFMG,

BWART LIKE MSEG-BWART,

KZBEW LIKE MSEG-KZBEW,

CHARG LIKE MSEG-CHARG,

END OF T_MSEG.

DATA: IT_HEADER TYPE STANDARD TABLE OF T_HEADER WITH HEADER LINE,

WA_HEADER TYPE T_HEADER,

IT_HEADER1 TYPE STANDARD TABLE OF T_HEADER WITH HEADER LINE,

WA_HEADER1 TYPE T_HEADER,

IT_CUST TYPE STANDARD TABLE OF T_CUST,

WA_CUST TYPE T_CUST,

IT_KONV TYPE STANDARD TABLE OF T_KONV,

WA_KONV TYPE T_KONV,

IT_KONV1 TYPE STANDARD TABLE OF T_KONV,

WA_KONV1 TYPE T_KONV,

IT_VBRP TYPE STANDARD TABLE OF T_VBRP,

WA_VBRP TYPE T_VBRP,

IT_VBRP1 TYPE STANDARD TABLE OF T_VBRP,

WA_VBRP1 TYPE T_VBRP,

V_NAME1 TYPE T001W-NAME1,

IT_JIVP TYPE STANDARD TABLE OF T_KONV,

WA_JIVP TYPE T_KONV,

IT_KNVP TYPE STANDARD TABLE OF T_KNVP,

WA_KNVP TYPE T_KNVP,

IT_MSEG TYPE STANDARD TABLE OF T_MSEG,

WA_MSEG TYPE T_MSEG.

*DATA: IT_VBRP TYPE STANDARD TABLE OF VBRP WITH HEADER LINE.

DATA: V_REPID LIKE SY-REPID.

DATA:IT_DESC TYPE STANDARD TABLE OF MARA WITH HEADER LINE.

DATA :ST_LAYOUT TYPE SLIS_LAYOUT_ALV,

IT_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV,

IT_LISTHEADER TYPE SLIS_T_LISTHEADER,

IT_EVENT TYPE SLIS_T_EVENT.

TABLES ZPROD_CODE.

DATA: BEGIN OF IT_MARA OCCURS 0,

MATNR LIKE MARA-MATNR,

MEINS LIKE MARA-MEINS,

EXTWG LIKE MARA-EXTWG,

END OF IT_MARA.

DATA: BEGIN OF IT_MARC OCCURS 0,

MATNR LIKE MARC-MATNR,

STEUC LIKE MARC-STEUC,

MEINS LIKE MARA-MEINS,

END OF IT_MARC.

DATA : BEGIN OF IT_J_1IEXCHDR OCCURS 0,

EXNUM LIKE J_1IEXCHDR-EXNUM,

EXGRP LIKE J_1IEXCHDR-EXGRP,

SRGRP LIKE J_1IEXCHDR-SRGRP,

RDOC LIKE J_1IEXCHDR-RDOC,

EXBED LIKE J_1IEXCHDR-EXBED,

ECS LIKE J_1IEXCHDR-ECS,

EXADDTAX1 LIKE J_1IEXCHDR-EXADDTAX1,

END OF IT_J_1IEXCHDR.

DATA:IT_J_1IEXCDTL TYPE STANDARD TABLE OF J_1IEXCDTL WITH HEADER LINE.

DATA : VAR TYPE VBRK-NETWR.

DATA:It_age type Standard table of Zageing with header line.

SELECTION-SCREEN BEGIN OF BLOCK B WITH FRAME TITLE TEXT-001 .

SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME.

SELECT-OPTIONS : S_DATE FOR VBRK-FKDAT,

S_WERKS FOR ZDAILY-WERKS NO-EXTENSION NO INTERVALS OBLIGATORY,

P_PERNR FOR KNVP-PERNR NO-EXTENSION NO INTERVALS,

S_GROUP FOR MARA-EXTWG, " OBLIGATORY,

S_EXGRP FOR J_1IEXCHDR-EXGRP NO-EXTENSION.

SELECTION-SCREEN END OF BLOCK B1.

SELECTION-SCREEN END OF BLOCK B.

SELECTION-SCREEN BEGIN OF BLOCK A WITH FRAME TITLE TEXT-001 .

SELECTION-SCREEN BEGIN OF BLOCK B2 WITH FRAME.

SELECTION-SCREEN END OF BLOCK B2.

SELECTION-SCREEN END OF BLOCK A.

************************************************************************

AT-Selection-Screen *

************************************************************************

AT SELECTION-SCREEN.

IF IT_AGE[] IS NOT INITIAL.

LOOP AT S_WERKS.

READ TABLE IT_AGE WITH KEY USERID = SY-UNAME

WERKS = S_WERKS-LOW.

IF SY-SUBRC NE 0.

MESSAGE 'You are not authorised to View the Plant' TYPE 'E'.

ENDIF.

ENDLOOP.

ENDIF.

********************************************************************

*INITIALIZATION

********************************************************************

INITIALIZATION.

V_REPID = SY-REPID.

SELECT * FROM ZAGEING INTO CORRESPONDING FIELDS OF TABLE IT_AGE

WHERE USERID = SY-UNAME.

IF SY-SUBRC = 0.

LOOP AT IT_AGE.

S_WERKS-SIGN = 'I'.

S_WERKS-OPTION = 'BT'.

S_WERKS-LOW = IT_AGE-WERKS.

APPEND S_WERKS.

CLEAR S_WERKS.

endloop.

ENDif.

********************************************************************

*START-OF-SELECTION

********************************************************************

START-OF-SELECTION.

PERFORM GET_DATA USING S_DATE.

PERFORM GET_EVENT USING IT_EVENT.

PERFORM FILL_LISTHEADER USING IT_LISTHEADER.

PERFORM DISPLAY.

&----

*& Form GET_DATA

&----

text

----

--> p1 text
<-- p2 text

----

FORM GET_DATA USING O_S_DATE.

SELECT VBELN FKART FKDAT NETWR MWSBK KUNRG KNUMV FROM VBRK INTO CORRESPONDING FIELDS OF TABLE IT_HEADER
WHERE FKDAT IN S_DATE AND
FKART = 'JEX'.

*LOOP AT IT_HEADER.

SORT IT_HEADER BY VBELN.

**

SELECT VBELN FKIMG MATNR MEINS VOLUM POSNR CHARG FROM VBRP INTO CORRESPONDING FIELDS OF TABLE IT_VBRP FOR ALL ENTRIES IN IT_HEADER
WHERE VBELN = IT_HEADER-VBELN
AND WERKS IN S_WERKS.

*READ TABLE IT_HEADER WITH KEY FKART = 'JEX'.

*ENDLOOP.

SELECT A_{VBELN A}MATNR A_{FKIMG A}VOLUM A_{POSNR B}FKDAT B_{NETWR B}MWSBK B_{KUNRG B}KNUMV "Changed by

INTO CORRESPONDING FIELDS OF TABLE IT_HEADER

FROM VBRP AS A INNER JOIN VBRK AS B ON A_{VBELN = B}VBELN

INNER JOIN MARA AS C ON C_{MATNR = A}MATNR

WHERE WERKS IN S_WERKS AND EXTWG IN S_GROUP

AND FKDAT IN S_DATE AND FKART = 'JEX'.

DELETE IT_HEADER WHERE FKIMG = 0.

IF IT_HEADER[] IS NOT INITIAL.

SELECT MATNR MEINS EXTWG

FROM MARA INTO TABLE IT_MARA

FOR ALL ENTRIES IN IT_HEADER

WHERE MATNR = IT_HEADER-MATNR

AND EXTWG IN S_GROUP.

SELECT MATNR ERFMG BWART KZBEW WERKS

FROM MSEG

INTO CORRESPONDING FIELDS OF TABLE IT_MSEG

FOR ALL ENTRIES IN IT_HEADER

WHERE MATNR = IT_HEADER-MATNR AND

BWART = '101' AND KZBEW = 'F'

AND WERKS IN S_WERKS.

ENDIF.

LOOP AT IT_MARA.
LOOP AT IT_VBRP INTO WA_VBRP WHERE MATNR = IT_MARA-MATNR.
IF SY-SUBRC = 0.
WA_VBRP1 = WA_VBRP.
APPEND WA_VBRP1 TO IT_VBRP1 .
CLEAR : WA_VBRP,WA_VBRP1.
ENDIF.
ENDLOOP.
ENDLOOP.

*

REFRESH IT_VBRP.
CLEAR I.

*

IT_VBRP = IT_VBRP1.

*

LOOP AT IT_VBRP INTO WA_VBRP .
READ TABLE IT_HEADER INTO WA_HEADER WITH KEY VBELN = WA_VBRP-VBELN.
IF SY-SUBRC = 0.
WA_HEADER-POSNR = WA_VBRP-POSNR.
WA_HEADER1 = WA_HEADER.
APPEND WA_HEADER1 TO IT_HEADER1.
CLEAR WA_HEADER1.
ENDIF.
ENDLOOP.

*

REFRESH IT_HEADER.
CLEAR IT_HEADER.
SORT IT_HEADER1 BY VBELN.
DELETE ADJACENT DUPLICATES FROM IT_HEADER1 COMPARING VBELN POSNR.

*

IT_HEADER[] = IT_HEADER1[].

IF NOT IT_VBRP[] IS INITIAL.

*

ENDIF.

SELECT KUNNR NAME1 FROM KNA1 INTO CORRESPONDING FIELDS OF TABLE IT_CUST FOR ALL ENTRIES IN IT_HEADER WHERE KUNNR = IT_HEADER-KUNRG.

SELECT PERNR KUNNR FROM KNVP INTO CORRESPONDING FIELDS OF TABLE IT_KNVP FOR ALL ENTRIES IN IT_CUST
WHERE KUNNR = IT_CUST-KUNNR
AND PARVW = 'VE'
AND PERNR IN P_PERNR.

IF NOT IT_HEADER[] IS INITIAL.

SELECT KNUMV KSCHL KBETR KPOSN KAWRT KWERT FROM KONV INTO CORRESPONDING FIELDS OF TABLE IT_KONV FOR ALL ENTRIES IN IT_HEADER WHERE KNUMV = IT_HEADER-KNUMV

AND KSCHL IN ('ZTRA').

ENDIF.

LOOP AT IT_VBRP INTO WA_VBRP .
READ TABLE IT_KONV INTO WA_KONV WITH KEY KPOSN = WA_VBRP-POSNR.
IF SY-SUBRC = 0.
WA_KONV1 = WA_KONV.
APPEND WA_KONV1 TO IT_KONV1.
CLEAR WA_KONV1.
ENDIF.
ENDLOOP.

*

REFRESH IT_KONV.
IT_KONV = IT_KONV1.

IF NOT IT_header[] IS INITIAL.

SELECT EXNUM EXGRP RDOC EXBED ECS EXADDTAX1 FROM J_1IEXCHDR INTO CORRESPONDING FIELDS OF TABLE IT_J_1IEXCHDR

FOR ALL ENTRIES IN IT_VBRP WHERE RDOC = IT_VBRP-VBELN AND EXGRP IN S_EXGRP.

ENDIF.

IF NOT IT_J_1IEXCHDR[] IS INITIAL.

SELECT * FROM J_1IEXCDTL INTO TABLE IT_J_1IEXCDTL FOR ALL ENTRIES IN IT_J_1IEXCHDR WHERE EXNUM = IT_J_1IEXCHDR-EXNUM.

ENDIF.

SELECT MATNR STEUC FROM MARC INTO TABLE IT_MARC FOR ALL ENTRIES IN IT_VBRP WHERE MATNR = IT_VBRP-MATNR AND WERKS IN S_WERKS.

SORT IT_VBRP BY VBELN POSNR.

LOOP AT IT_HEADER INTO WA_HEADER.

READ TABLE IT_VBRP INTO WA_VBRP WITH KEY VBELN = WA_HEADER-VBELN.
IF SY-SUBRC = 0.

READ TABLE IT_J_1IEXCHDR WITH KEY RDOC = wa_header-VBELN.

IF SY-SUBRC = 0.

WA_HEADER-MATNR = wa_header-MATNR.
WA_HEADER-VBELN = wa_header-VBELN.

WA_HEADER-VOLUM = WA_VBRP-VOLUM.

WA_HEADER-MEINS = WA_VBRP-MEINS.
WA_HEADER-VOLUM = WA_HEADER-VOLUM + WA_VBRP-FKIMG.

READ TABLE IT_MARC WITH KEY MATNR = wa_header-MATNR.

WA_HEADER-STEUC = IT_MARC-STEUC.

READ TABLE IT_MSEG INTO WA_MSEG WITH KEY MATNR = WA_HEADER-MATNR.

IF SY-SUBRC = 0.

WA_HEADER-ERFMG = WA_MSEG-ERFMG.

ENDIF.

LOOP AT IT_J_1IEXCDTL WHERE EXNUM = IT_J_1IEXCHDR-EXNUM AND MATNR = WA_HEADER-MATNR. "RDOC = WA_VBRP-VBELN.

WA_HEADER-EXNUM = IT_J_1IEXCDTL-EXNUM.

WA_HEADER-EXBED = WA_HEADER-EXBED + IT_J_1IEXCDTL-EXBED.

WA_HEADER-ECS = WA_HEADER-ECS + IT_J_1IEXCDTL-ECS.

WA_HEADER-EXADDTAX1 = WA_HEADER-EXADDTAX1 + IT_J_1IEXCDTL-EXADDTAX1.

ENDLOOP.

LOOP AT IT_KONV INTO WA_KONV WHERE KNUMV = WA_HEADER-KNUMV.

WA_HEADER-PERNR = WA_KNVP-PERNR.

WA_HEADER-NAME1 = WA_CUST-NAME1.

IF WA_KONV-KSCHL = 'ZTRA'.

WA_HEADER-KWERT = WA_KONV-KWERT.

ENDIF.

ENDLOOP.

SELECT SINGLE * FROM ZPROD_CODE WHERE PRODUCTCODE = WA_HEADER-MATNR+6(4).

WA_HEADER-PRODUCTDESC = ZPROD_CODE-PRODUCTDESC.

WA_HEADER-TOTAL1 = WA_HEADER-EXBED + WA_HEADER-ECS + WA_HEADER-EXADDTAX1.

MODIFY IT_HEADER FROM WA_HEADER.

ENDIF.

ENDIF.

ENDLOOP.

ENDLOOP.

APPEND WA_HEADER TO IT_HEADER.

SORT IT_HEADER.

CLEAR IT_HEADER.

DELETE IT_HEADER WHERE PRODUCTDESC = ' '.

COLLECT WA_HEADER INTO IT_HEADER.

ENDFORM.

former_member204746 · ‎03-29-2010

your problem is right after the 98th comma.

seriously, it is in no way related to MAXdb, nope?

INVOICE CODE

Accepted Solutions (0)

Answers (1)

Answers (1)

Developer extendibility for custom table and publi...

Re: SAP Build Work Zone Content Explorer Can't Sho...

Re: Flexible Workflow for PR

Integrate an external task system to Cloud ALM.

Dropdown scripting