To get the contact fax number in my form

[Former Member]

Hi!

I would like to get the fax number on the customer section of my smartform for BOL. How do i get the contact fax number in my form with following lines that i ahve for getting contact name.

data: l_parnr like vbpa-parnr,
      l_name1 like knvk-name1,
      l_namev like knvk-namev. "first name

select parnr into l_parnr from
       vbpa
       where
       vbeln = g_sale_ord and
*      vbeln = is_nast-objky and
       parvw = 'AP'.
       exit.
endselect.

if l_parnr is not initial.
   select single name1 namev  into (l_name1, l_namev)
      from knvk
      where
       parnr = l_parnr.
   concatenate l_namev l_name1 into g_contact separated by ' '.
endif.

Thanks

[former_member156446]

From ADCP table

select persnumber fax_number 
          from adcp
      INTO TABLE <ur_table>
      FOR ALL ENTRIES IN i_knvk
      WHERE persnumber = i_knvk-prsnr.

[Former Member]

The fax number still dosent show up . I tried pulling in from teh adcp table but as per the code above the tel number pulls from teh adrc table but teh fax number dosent come up from teh adcp table.

Thanks

[former_member156446]

fax number might not always be filled in...for every customer..

write stand alone code using this select

parameter: p_prsnr type prsnr.

select persnumber fax_number 
          from adcp
      INTO TABLE <ur_table>
         WHERE persnumber = p_prsnr
         AND fax_number NE space.

[Former Member]

Can we give the parameter for the as in here?

I amnot sure , but teh fax number dose exist for teh one I am trying to test with but it still dosent pull up.

Thanks

[Former Member]

It says that parameters are not allowed inside the form unless...

Is there a way I can extract the fax number in my form from the above data.

Thanks

[former_member156446]

I wanted you to check if the fax number exists or not.... you can do that using se16n by restricting fax number NE space and see how many entries come up...

if some also have fax numbers it means that the table correect but the data is not maintained..

[Former Member]

I added this and it shows up the fax number:

data: l_parnr like vbpa-parnr,
      l_name1 like knvk-name1,
      l_namev like knvk-namev, "first name
      l_kunnr like vbpa-kunnr,
      l_persnumber like adcp-persnumber,
      l_fax_number like adcp-fax_number,
      l_vbelv like vbfa-vbelv.
***      
select parnr into l_parnr from
       vbpa
       where
       vbeln = g_sale_ord and
*      vbeln = is_nast-objky and
       parvw = 'AP'.
       exit.
endselect.

if l_parnr is not initial.
   select single name1 namev  into (l_name1, l_namev)
      from knvk
      where
       parnr = l_parnr.
   concatenate l_namev l_name1 into g_contact separated by ' '.
endif.
***
select vbelv into l_vbelv from vbfa where
vbeln = gs_hd_adr-deliv_numb and
vbtyp_n = 'J' and
vbtyp_v = 'C'.
  exit.
endselect.
select single parnr from vbpa into l_parnr
where vbeln eq l_vbelv
and parvw eq 'AP'.

if sy-subrc eq 0.
  select single * from knvk into g_knvk where
  parnr = l_parnr.

  select single fax_number into g_contact_fax
  from adcp
  where persnumber = g_knvk-prsnr.

else.

*--------------------------------------------------------
  select single kunnr from vbpa into l_kunnr
  where vbeln eq gs_hd_adr-deliv_numb
  and   parvw eq 'AG'.  "sold to
  if sy-subrc <> 0.
*from ship to
    select single kunnr from vbpa into l_kunnr
    where vbeln eq gs_hd_adr-deliv_numb
    and   parvw eq 'WE'.  "ship to

  endif.

  check sy-subrc = 0.
  select single * from knvk into g_knvk where
  kunnr = l_kunnr and
  abtnr = 'Z007'.

  select single fax_number into g_contact_fax
  from adcp
  where
  persnumber = g_knvk-prsnr.

endif.

Thanks

[Former Member]

COuld some help me with this , I am trying to get the contact fax number for my BOL to show in my form which is run based on teh delivery number.I am unable to get it down on my form .

data: l_parnr like vbpa-parnr,
     l_name1 like knvk-name1,
      l_namev like knvk-namev, "first name
      l_kunnr like vbpa-kunnr,
      l_persnumber like adcp-persnumber,
      l_fax_number like adcp-fax_number,
      l_vbelv like vbfa-vbelv.
*****
select parnr into l_parnr from
       vbpa
       where
       vbeln = g_sale_ord and
      
       parvw = 'AP'.
       exit.
endselect.

if l_parnr is not initial.
   select single name1 namev  into (l_name1, l_namev)
      from knvk
      where
       parnr = l_parnr.
   concatenate l_namev l_name1 into g_contact separated by ' '.
endif.

I have to get the fax number suposedly from adr3 table I beleive.

Thanks