topic Re: code needed in Application Development and Automation Discussions

code needed

Former Member — Mon, 30 Oct 2006 08:57:29 GMT

GET BILLTO_PARTNER customer number for the document (reading VBPA where VBELN = document number VBDKR-VBELN and partner PARVW = ‘RE’ / ‘BP’)

Read table KNA1 to get field KNA1-KATR6 where KUNNR equals Billto partner, and fields VBDKR-VKORG, VBDKR-VTWEG, VBDKR-SPART,

Store first character of field KNA1-KATR6 in a work field e.g. W_ KATR6.

Re: code needed

Former Member — Mon, 30 Oct 2006 09:13:33 GMT

Can you please elaborate this more?

Re: code needed

Former Member — Mon, 30 Oct 2006 09:14:20 GMT

HI Ali

Hope the below code gives you some idea on addressing the same:

tables: vbpa, kna1.
types: begin of t_partn,
         vbeln like vbpa-vbeln,
         kunnr like vbpa-kunnr,
         katr6 like kna1-katr6,
       end of t_partn.
data: it_partn type standard table of t_partn.
data: w_katr6 like kna1-katr6.

select vbpa~vbeln vbpa~kunnr kna1~katr6
       into table it_partn
       from vbpa
       inner join kna1
       on vbpa~kunnr = kna1~kunnr
       where vbpa~vbeln = VBKDR-VBELN
       and   vbpa~parvw = 'RE'
       and   vbpa~posnr = '000000'.

Kind Regards

Eswar