Estoy desarrollando una interface para crear especificaciones en el Modulo de calidad del EBS. El problema que se presento es que no esta guardando la informacion en la tabla. Este es el query que he desarrollado
nsertar_especi.SPEC_NAME :=
'XXX_665_1';
insertar_especi.SPEC_VERS := 1;
insertar_especi.SPEC_DESC := 'XXXXXX';
insertar_especi.ITEM_ID := 665;
insertar_especi.SPEC_STATUS := 100;
insertar_especi.OWNER_ORGN_CODE := 'YYY';
insertar_especi.OWNER_ID := 9243;
insertar_especi.DELETE_MARK := 0;
insertar_especi.SPEC_TYPE := 'I'; --I Articulo M Monitoreo
insertar_prueba(1).TEST_ID := 230;
insertar_prueba(1).TEST_METHOD_ID := 0;
insertar_prueba(1).SEQ := 10;
--insertar_prueba(1).test_qty := '';
--insertar_prueba(1).test_uom := '';
insertar_prueba(1).test_replicate := 1;
insertar_prueba(1).test_priority := '5N';
Begin
GMD_SPEC_PUB.CREATE_SPEC
( p_api_version => 1.0
, p_init_msg_list => FND_API.G_FALSE
, p_commit => FND_API.G_FALSE
, p_validation_level => FND_API.G_VALID_LEVEL_FULL
, p_spec => insertar_especi
, p_spec_tests_tbl => insertar_prueba
, p_user_name => apps.fnd_global.USER_NAME
, x_spec => l_spec
, x_spec_tests_tbl => l_spec_tests_tbl
, x_return_status => l_return_status
, x_msg_count => x_msg_count
, x_msg_data => x_msg_data
);
If l_return_status = 'S' Then
mensaje_log('Creado: '||l_return_status ||' '|| x_msg_data);
Else
mensaje_log('Error: '||l_return_status ||' '|| x_msg_data);
End if
Agradesco de apoyo