FORIEGN TRADE / EXPORT DATA

[former_member286404]

hi people,

could some one give me a clue for my problem.. some times my company does export .. i need "mode of transport - border " & "domestic mode of transport"(delivery header data) fields to populate automatically when it is export.. otherwise i dont need those fields..delivery can be done from any plant,for any customer... we have around 400 plants .......pls help

thxs in advance

sumanth

[Former Member]

Error due to Foreign Trade Data.

While releasing inland sale commercial document / invoice to accounting, an error is confronted – Foreign Trade Data incomplete.

Solution:

Reference note – 34222

a. Transaction VOFM – Data transfer – Billing Documents

Copy Routine number 001 as 601. Apply code corrections as per note 354222.

FORM DATEN_KOPIEREN_601.

*{ INSERT P3DK900617 1

• Header data

• VBRK-xxxxx = ............

• Prüfen Exportvorgang

IF VBRK-LANDTX = VBRK-LAND1.

CLEAR: VBRK-EXPKZ,

VBRK-EXNUM.

ENDIF.

• Item data

• VBRP-xxxxx = ............

• Additional split criteria

DATA: BEGIN OF ZUK,

MODUL(3) VALUE '001',

VTWEG LIKE VBAK-VTWEG,

SPART LIKE VBAK-SPART,

END OF ZUK.

ZUK-SPART = VBAK-SPART.

ZUK-VTWEG = VBAK-VTWEG.

VBRK-ZUKRI = ZUK.

*} INSERT

ENDFORM.

b. Transaction code – VTFL (Copy control – Delivery to Billing).Select the relevant delivery and billing document types. Go to item level and select the relevant item category (e.g.TAN).

Insert the routine 601 in ‘Data VBRK/VBRP’.

In case, one has already created billing documents, pl. refer to note 354222.

Regards,

Rajesh Banka

[Former Member]

Hi

Follow these steps

1)IMG->Material management->Purchaing->Foreign trade customs->Transportation data->Define customs office for departure country and destination countries

2)IMG->Material management->Purchaing->Foreign trade customs->Transportation data->Define modes of transport->for the departure country and destination countries create the mode of transport-border(lik

3)IMG->Material management->Purchaing->Foreign trade customs->Transportation data->Proposal for foreign trade in delivery header(VI95 t-code)->copy the existing one or new entries->Export import should be 2(Dispatch/Export) and enter the destination and departure countries and enter the mode of transport of border and domestic mode of transport which we have created in step2 and enter the office of exit which we have created in step 1.

If you are created delivery from purchase order or stock transport order follow this step also

4)IMG->Material management->Purchaing->Foreign trade customs->Transportation data->Define default data for stock transport order->For shipping point and plant and documnet category(Purchase order or stock transport order) assing the customsof and mode of transport and export import procedure which we have created in step1-2-3.

Reward if this helps

Regards

Simu

[rmazzali]

use this enhacement: V50EPROP, EXIT_SAPLV50E_005.

I also have a code example:

TABLES: t005.

DATA: w_auart LIKE vbak-auart. "Ref.sales order type

DATA: w_xegld LIKE t005-xegld. "EU member indicator

DATA: c_land1_sm LIKE t005-land1 VALUE '963'. "San Marino

**Deliveries concerned

DATA: w_local_j LIKE t005-xegld. "Del->Local transaction

DATA: w_eu_j LIKE t005-xegld. "Del->EU transaction

DATA: w_log_j LIKE t005-xegld. "Del->Logistics transaction

**Invoices concerned

DATA: w_local_m LIKE t005-xegld. "Del->Local transaction

DATA: w_eu_m LIKE t005-xegld. "Del->EU transaction

DATA: w_log_m LIKE t005-xegld. "Del->Not relevant bill.type

FIELD-SYMBOLS: <likp-mandt>, "Working with deliveries

<vbrk-mandt>, "Working with invoices

<likp-lfart>, "Delivery type

<likp-vkorg>, "Sales organization

<likp-zukrl>, "Reference sales doc. type

<vbrk-fkart>, "Billing type

<vbrk-vkorg>, "Sales organization

<t001-land1>, "Country of declaration

<kuwev-land1>. "Country of destination

*Only for export transactions

IF i_exp_imp_flag = 'E'.

*Detect the working objects

ASSIGN ('(SAPMV50A)likp-mandt') TO <likp-mandt>.

ASSIGN ('(SAPLV60A)vbrk-mandt') TO <vbrk-mandt>.

*Working with deliveries

IF NOT <likp-mandt> IS INITIAL. "Working with deliveries

ASSIGN ('(SAPMV50A)likp-lfart') TO <likp-lfart>.

ASSIGN ('(SAPMV50A)likp-vkorg') TO <likp-vkorg>.

ASSIGN ('(SAPMV50A)likp-ZUKRL') TO <likp-zukrl>.

ASSIGN ('(SAPMV50A)t001-LAND1') TO <t001-land1>.

ASSIGN ('(SAPMV50A)KUWEV-LAND1') TO <kuwev-land1>.

CLEAR: w_auart.

CLEAR: w_local_j, w_eu_j, w_log_j.

*Only for sales organizations ITALY

IF <likp-vkorg> EQ 'ITS1'.

*Only for export transactions (destination country <> country of decl.)

*Only for EU transactions (destination country is EU member or S.Marino)

IF <t001-land1> = <kuwev-land1>.

c_complete = 'X'.

w_local_j = 'X'.

ELSE.

CLEAR w_xegld.

SELECT SINGLE xegld INTO w_xegld FROM t005 WHERE land1 EQ <kuwev-land1>.

IF w_xegld EQ space AND <kuwev-land1> NE c_land1_sm.

c_complete = 'X'.

ELSE.

w_eu_j = 'X'.

ENDIF.

ENDIF.

*Exclude deliveries using delivery types

CASE <likp-lfart>.

WHEN 'Z000'.

c_complete = 'X'.

WHEN 'Z020'.

c_complete = 'X'.

WHEN OTHERS.

ENDCASE.

*20060102_Check_Allowed_Mode_of_Transport_for_Foreign_Trade_BI

• IF w_local_j NE 'X' AND w_log_j NE 'X' AND w_eu_j = 'X'.

• IF i_export_header-expvz CN '0123456789'.

• MESSAGE ID 'ZSD' TYPE 'I' NUMBER '003' WITH i_export_header-expvz.

• c_complete = ' '.

• ENDIF.

• ENDIF.

*20060102_Check_Allowed_Mode_of_Transport_for_Foreign_Trade_EI

ENDIF.

ENDIF.

ENDIF.

*Working with invoices

IF NOT <vbrk-mandt> IS INITIAL. "Working with invoices

ASSIGN ('(SAPLV60A)vbrk-fkart') TO <vbrk-fkart>.

ASSIGN ('(SAPLV60A)vbrk-vkorg') TO <vbrk-vkorg>.

ASSIGN ('(SAPLV60A)t001-LAND1') TO <t001-land1>.

ASSIGN ('(SAPLV60A)KUWEV-LAND1') TO <kuwev-land1>.

CLEAR: w_local_m, w_eu_m, w_log_m. "20060102_MoT

*Only for sales organizations ITALY

IF <vbrk-vkorg> EQ 'ITS1'.

*Only for export transactions (destination country<>country of decl.)

*Only for EU transactions (destination country is EU member or S.Marino)

IF <t001-land1> = <kuwev-land1>.

c_complete = 'X'.

w_local_m = 'X'.

ELSE.

CLEAR w_xegld.

SELECT SINGLE xegld INTO w_xegld FROM t005 WHERE land1 EQ <kuwev-land1>.

IF w_xegld EQ space AND <kuwev-land1> NE c_land1_sm.

c_complete = 'X'.

ELSE.

w_eu_m = 'X'.

ENDIF.

ENDIF.

*Exclude not relevant billing types

CASE <vbrk-fkart>.

*Generic proformas

WHEN 'Z000'.

c_complete = 'X'.

w_log_m = 'X'.

WHEN 'F5'.

c_complete = 'X'.

w_log_m = 'X'.

*Down payment

WHEN 'Z050'.

c_complete = 'X'.

w_log_m = 'X'.

*Contracts

WHEN 'Z060'.

c_complete = 'X'.

w_log_m = 'X'.

*Not relevant proformas

WHEN OTHERS.

*20060102_Check_Allowed_Mode_of_Transport_for_Foreign_Trade_BI

• IF w_local_m NE 'X' AND w_log_m NE 'X' AND w_eu_m = 'X'.

• IF i_export_header-expvz CN '0123456789'.

• MESSAGE ID 'ZSD' TYPE 'I' NUMBER '003' WITH i_export_header-expvz.

• c_complete = ' '.

• ENDIF.

• ENDIF.

*20060102_Check_Allowed_Mode_of_Transport_for_Foreign_Trade_EI

ENDCASE.

ENDIF.

ENDIF.

UNASSIGN <likp-mandt>.

UNASSIGN <vbrk-mandt>.

UNASSIGN <likp-lfart>.

UNASSIGN <likp-vkorg>.

UNASSIGN <likp-zukrl>.

UNASSIGN <vbrk-fkart>.

UNASSIGN <vbrk-vkorg>.

UNASSIGN <t001-land1>.

UNASSIGN <kuwev-land1>.

PLS. reward if helpful

regards

Roberto