我正在尝试更改已经创建的表单的一部分,更具体地说是表单头部的发件人地址。在需要进行更改的要求中,据说从会计区(Buchungskreis)'0055'中获取地址。表格如下所示:
目标是更改发货人地址,其中包括公司名称、街道、邮政编码、城市和国家/地区。已创建的表单具有以下结构:
现在我不确定应该在哪里进行更改,所以在表单或程序本身中。表格托运人部分使用的表格代码为:
/* ,,<H1>&ZSDSADR-NAME1&</>
/* ,,<H1>&ZSDSADR-LAND1&&'-'ZSDSADR-PSTLZ& &ZSDSADR-ORT01&
/* ,,Tel:,,&ZSDSADR-TELF1&
/* ,,Fax:,,&ZSDSADR-TELFX&</>
SB <H5>Shipper:</>
SB &ZSDSADR-NAME1& &ZSDSADR-NAME2& &ZSDSADR-NAME3& &ZSDSADR-NAME4&
SB &ZSDSADR-STRAS&
SB &ZSDSADR-PSTLZ& &ZSDSADR-ORT01&&'-'ZSDSADR-ORT02&, Germany
/* ADDRESS DELIVERY PARAGRAPH SB
/* STREET &ZSDSADR-STRAS&
/* POBOX &ZSDSADR-PFACH& CODE &ZSDSADR-PSTL2& CITY &ZSDSADR-PFORT&
/* POSTCODE &ZSDSADR-PSTLZ&
/* CITY &ZSDSADR-ORT01&, &ZSDSADR-ORT02&
/* REGION &ZSDSADR-REGIO&
/* COUNTRY &ZSDSADR-LAND1&
/* FROMCOUNTRY &ZSDSADR-LAND1&
/* ENDADDRESS
/* GERMANY
/* &'Tel: 'ZSDSADR-TELF1(C)&&' Fax: 'ZSDSADR-TELFX(C)&
/: INCLUDE ZVGF_TEL_ZET5 OBJECT TEXT ID ZVGF PARAGRAPH SB
而程序中用于声明表 ZSDSADR 的部分代码是:
CALL FUNCTION 'ADDR_GET'
EXPORTING
address_selection = addr_selection
address_group = ' '
IMPORTING
sadr = zsdsadr
EXCEPTIONS
OTHERS = 1.
IF sy-subrc NE 0.
CLEAR zsdsadr.
ELSE.
SELECT SINGLE landk FROM t005 INTO zsdsadr-land1
WHERE land1 = zsdsadr-land1.
ENDIF.
vbdkl-sland = zsdsadr-land1.
MOVE-CORRESPONDING zsdsadr TO zsdsadr.
如果您需要更多信息,请告诉我。
谢谢大家!