Criar Percurso via API

Nesse post irei mostrar como criar percurso/distribuição via API

Execute o script abaixo para criar o percurso e distribuição ao mesmo tempo

DECLARE
lv_return_status VARCHAR2 (1);
ln_msg_count NUMBER;
lv_msg_data VARCHAR2 (400);
ln_trip_id VARCHAR2 (20);
lv_trip_name VARCHAR2 (30);
l_line_tbl WSH_UTIL_CORE.id_tab_type;
l_del_rows_tbl WSH_UTIL_CORE.id_tab_type;
i NUMBER := 1;
l_msg_index_out NUMBER;

CURSOR cur_trip IS 
SELECT delivery_detail_id
FROM wsh_delivery_details a,
oe_order_headers_all ooha,
oe_order_headers_all oola
WHERE a.source_header_id = ooha.header_id
AND ooha.header_id = oola.header_id
AND ooha.order_number = 96;

BEGIN

FOR c IN cur_trip
LOOP
l_line_tbl (i) := c.delivery_detail_id;
i := i +1;
END LOOP;

WSH_DELIVERY_DETAILS_PUB.autocreate_del_trip (p_api_version_number => 1.0 ,
p_init_msg_list => FND_API.g_false,
p_commit => FND_API.g_false,
x_return_status => lv_return_status,
x_msg_count => ln_msg_count,
x_msg_data => lv_msg_data,
p_line_rows => l_line_tbl,
x_del_rows => l_del_rows_tbl,
x_trip_id => ln_trip_id,
x_trip_name => lv_trip_name );
IF NVL (ln_msg_count, 0) > 0 THEN

FOR j IN 1 .. ln_msg_count 
LOOP 
FND_MSG_PUB.get (p_msg_index => j,
p_encoded => 'F',
p_data => lv_msg_data,
p_msg_index_out => l_msg_index_out );

DBMS_OUTPUT.PUT_LINE ('Return Status = ' || lv_return_status);
END LOOP;

END IF;

COMMIT;
END;

Distribuição criada…..

Percurso criado….