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….
Deixe uma resposta