Dragi ABAP-isti,
Am o problema si sper sa ma puteti ajuta cu un sfat.
Am un form in SE71 cu un paragraf in care am pus o conditie cu IF. Acesta este:

ADDRESS PARAGRAPH AS
&kna1-name1&
IF &ADRC-ADDRNUMBER& > '0'.
&adrc-street& &adrc-house_num1& "contact person address
ELSE.
&KNA1-STRAS& "customer address"
ENDIF.
ENDADDRESS

Datele sunt luate dintr-un raport care apeleaza formul si care contine urmatoarele linii de cod pentru selectia datelor pt. form:
.
.
GET kna1.
select single * from knvk where kunnr = kna1-kunnr.
if sy-subrc = 0.
select single * from adrc where addrnumber = knvk-adrnd.
if sy-subrc = 0.
adnr = adrc-addrnumber.
else.
adnr = '0'.
endif.
.
.
.

Programul ruleaza bine NUMAI daca folosesc customer with contact person address (care au inregistrari in tabela ADRC) SAU NUMAI fara contact person address (clienti care nu au inregistrari in tabela ANRC care contine adresele persoanelor din KNVK).
Problema apare cand rulez pt. 2 customers (1 cu contact person address si 1 fara ) iar la afisare imi arata corect (pe rand) numele clientului dar la adresa ramane adresa pers. de contact de la primul client, in loc sa-mi arate adresa clientului 2.
Mentionez ca IF-ul functioneaza bine daca rulez separat cele doua tipuri de clienti (cu sau fara persoane de contact)
Ma puteti ajuta cu un sfat?
Am facut ceva gresit in cod sau am uitat ceva?

Cu multumiri,
Dorin

Incearca:

GET kna1.
CLEAR adrc.
select single * from knvk where kunnr = kna1-kunnr.
if sy-subrc = 0.
select single * from adrc where addrnumber = knvk-adrnd.
if sy-subrc = 0.
adnr = adrc-addrnumber.
else.
adnr = '0'.
endif.
endif.

Multumesc pt. sfat, dar din pacate tot nu rezolva problema. Se comporta la fel.
Daca cumva mai ai vreo ideea as fi bucuros sa o testez.

O zi buna in continuare!
Dorin

Dorin, eu as face ceva in genul:

ADDRESS PARAGRAPH AS
&kna1-name1&
&adresa&
ENDADDRESS

Si in raport:

data adresa(50).
GET kna1.
select single * from knvk where kunnr = kna1-kunnr.
if sy-subrc = 0.
select single * from adrc where addrnumber = knvk-adrnd.
if sy-subrc = 0.
concatenate adrc-street adrc-house_num into adresa separated by space.
else.
adresa = kna1-stras.
endif.
else.
adresa = kna1-stras.
endif.


Prefer sa nu fac prea multe operatii (comparare etc) in SapScript pentru ca aici se lucreaza exclusiv cu caractere si, dupa cum ai observat, rezultatele sunt imprevizibile.

_________________
Bogdan CIOC

Am incercat si asa. Codul ce l-am folosit este urmatorul:
...
get kna1.
adr1 = ' '.
adr2 = ' '.
select single * from knvk where kunnr = kna1-kunnr.
if sy-subrc = 0.
select single * from adrc where addrnumber = knvk-adrnd.
if sy-subrc = 0.
concatenate adrc-street ' ' adrc-house_num1 ', ' adrc-city1 into adr1.
concatenate adrc-post_code1 adrc-city2 ', ' adrc-country into adr2.
else.
adr1 = kna1-stras.
concatenate kna1-land1 '-' kna1-pstlz ' ' kna1-ort01 into adr2.
endif.
else.
adr1 = kna1-stras.
concatenate kna1-land1 '-' kna1-pstlz ' ' kna1-ort01 into adr2.
endif.
get knb1
...


iar in SAPScript am pus:

ADDRESS PARAGRAPH AS
&kna1-name1&
&adr1&
&adr2&
ENDADDRESS

In acest fel, la rulare imi afiseaza bine doar &kna1-name1& iar variabilele
sunt tot timpul cu adresa ultimului client din lista.
Nu stiu ce sa mai caut. M-am uitat si in SAP documentation si nu prea imi dau seama ce nu fac bine.
Am incercat si sa fac doua formuri, cate unul pentru fiecare tip de adresa si in functie de conditie (daca are sau nu pers. de contact cu adresa) sa-mi afiseze formul dorit dar degeaba, programul afisa tot timpul formul corespunzator pt. ultimul client din lista.
Orice sugestie si ideea e binevenita.

Cu multumiri,
Dorin

No offence (eu am facut greseala asta si aproape mi-am iesit din minti tot facand modificari ) ) dar esti sigur ca raportul foloseste fix formularul in care tu faci acele modificari?
Daca ai mai multe versiuni, verifica daca versiunea folosita de program e aceeasi cu cea pe care tu o modifici.

_________________
Bogdan CIOC

Da. Am doar un singur formular. Am facut doua dar tot nu a mers si am ramas doar la unul in care am operat modificarile sugerate de tine. Am verificat si versiunea progr. si e ok.
Dorin

Vezi ca poti sa pui in SapScript un PERFORM ... IN PROGRAM. Pune-l inainte de IF &ADRC-ADDRNUMBER& > '0'. In formul respectiv reinitializeaza ADRC prin KNVK cu codul tau vechi:

Am introdus urmatoarea comanda in form:

PERFORM &NUME_SIMBOL& IN PROGRAM NUMEPROGRAM.
Te rog sa-mi spui daca e corect dupa parerea ta fiindca in form nu mi-a dat eroare iar la rulare e acelasi comportament. Imi afiseaza ultima adresa.
Cu multumiri,
Dorin

PERFORM &NUME_SIMBOL& IN PROGRAM NUMEPROGRAM. ?

Nu e bine.

PERFORM get_adrc IN PROGRAM zmyforms.

si pui codul in ZMYFORMS, rutina get_adrc.

vezi ca trebuie si un ENDPERFORM

Detalii la:
http://help.sap.com/saphelp_erp2004/helpdata/en/d1/803279454211d189710000e8322d00/frameset.htm

Va multumesc tuturor pentru ajutorul dat si pentru promtitudinea raspunsurilor. In sfarsit, datorita sfaturilor voastre, am reusit sa rezolv problema.
Dorin

Dorin,

Incearca sa faci debug pe acel SapScript, sa vezi concret ce valori au simbolurile text la momentele cand faci WRITE_FORM.
Poate astfel devine mai clar modul in care se paseaza aceste valori intre raportul ABAP si form-ul SapScript, si poate asta te ajuta.

_________________
Bogdan CIOC