[59988] in SAPr3-news
Re: Sachbearbeiterinfos in Mahnung
daemon@ATHENA.MIT.EDU (Christian Wallner)
Mon Sep 17 09:49:20 2007
To: sapr3-news@mit.edu
Date: Mon, 17 Sep 2007 06:48:01 -0700
From: Christian Wallner <wallner@gmx.org>
Message-ID: <1190036881.205205.164350@50g2000hsm.googlegroups.com>
On 17 Sep., 15:05, "St. Kother" <steffen.kot...@gmx.net> wrote:
> Hallo,
>
> Christian Wallner schrieb:
>
> > <FORM> IN PROGRAM <ZREP> im Fenster INFO gel=F6st.
>
> Ich bekomme blo=DF die Emailadresse nicht aus dem Programm in mein Formul=
ar:
>
> FORM get_email tables in_tab structure itcsy
> out_tab structure itcsy.
>
> * Ermittlung der Emailadresse
> * steht in adr6-smtp_addr
>
> move 'EMAIL' to out_tab-name.
> move adr6-smtp_addr to out_tab-value.
> append out_tab.
>
> ENDFORM.
>
> Die Adresse selber wird korrekt ermittelt.
>
> Wenn ich in das Programm noch einen Funktionsaufruf mit simplen "write"
> packe und die Funktion anpasse (using usw.), dann sehe ich die
> Emailadresse. Ich stehe bissl auf'm Schlauch. Von dem Funktionsaufruf,
> bei dem ich abgeguckt habe, der macht im Endeffekt auch nichts and(ere)s.
> --
> Mit freundlichen Gruessen / Kind regards
>
> Steffen Kother
Ein Beispiel meinerseits das pr=E4chtig funkt:
lg
Christian
FORM conv_fltp TABLES in_par STRUCTURE itcsy
out_par STRUCTURE itcsy.
DATA: fltp LIKE cha_class_data-sollwert,
c_fltp LIKE cha_class_view-sollwert,
c_hlp TYPE itcsy-value,
stellen TYPE qapmv-stellen.
*/: PERFORM CONV_FLTP IN PROGRAM Z2QMR004
*/: USING &QAPMV-TOLERANZOB&
*/: CHANGING &C_FLTP&
*/: ENDPERFORM
*/ &C_FLTP&
* Lesen des =DCbergabewerts aus dem
* SAPScript Formular (floating point wird konvertiert)
READ TABLE in_par WITH KEY name =3D 'FLTP'. "'QAPMV-TOLERANZOB'.
CHECK sy-subrc =3D 0.
CLEAR c_hlp.
c_hlp =3D in_par-value.
CONDENSE c_hlp NO-GAPS.
* c_hlp+1(1) =3D '.'. "',' durch '.' ersetzen
REPLACE ',' WITH '.' INTO c_hlp.
fltp =3D c_hlp.
READ TABLE in_par WITH KEY name =3D 'QAPMV-STELLEN'.
CHECK sy-subrc =3D 0.
stellen =3D in_par-value.
CALL FUNCTION 'QSS0_FLTP_TO_CHAR_CONVERSION'
EXPORTING
i_number_of_digits =3D stellen
i_fltp_value =3D fltp
* I_VALUE_NOT_INITIAL_FLAG =3D 'X'
* I_SCREEN_FIELDLENGTH =3D 16
IMPORTING
e_char_field =3D c_fltp
.
READ TABLE out_par WITH KEY name =3D 'C_FLTP'.
CHECK sy-subrc =3D 0.
out_par-value(16) =3D c_fltp.
MODIFY out_par INDEX sy-tabix.
ENDFORM. " conv_fltp
