1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56
| GO_BLOCK('SWM_SPE_DT_1_21');
--Champ CODE_REQUETE
set_item_property('SWM_SPE_DT_1_21.CODE_REQUETE',REQUIRED,PROPERTY_FALSE);
--Champ DESCRIPTION
set_item_property('SWM_SPE_DT_1_21.DESCRIPTION',REQUIRED,PROPERTY_FALSE);
CLEAR_BLOCK(NO_VALIDATE);
GO_BLOCK('SWM_SPE_DT_1_3');
CLEAR_BLOCK(NO_VALIDATE);
--Ligne CODE_ORG
:SWM_SPE_DT_1_3.ID_REQUETE := :SWM_SPE_DT_1_21.ID_REQUETE;
:SWM_SPE_DT_1_3.NO_LIGNE_REQUETE := 10;
:SWM_SPE_DT_1_3.TYPE_CRITERE := 'Code_organisation';
:SWM_SPE_DT_1_3.OPERATEUR_COMPARAISON := '=';
:SWM_SPE_DT_1_3.VALEUR_COMPARAISON := '000';
--
PROC_GEST_PROPS;
--
/*set_item_instance_property('SWM_SPE_DT_1_3.NO_REQUETE', CURRENT_RECORD, UPDATE_ALLOWED, PROPERTY_FALSE);
set_item_instance_property('SWM_SPE_DT_1_3.PARENTHESE_DEBUT', CURRENT_RECORD, UPDATE_ALLOWED, PROPERTY_FALSE);
set_item_instance_property('SWM_SPE_DT_1_3.TYPE_CRITERE', CURRENT_RECORD, UPDATE_ALLOWED, PROPERTY_FALSE);
set_item_instance_property('SWM_SPE_DT_1_3.ELEMENT_SPEC', CURRENT_RECORD, UPDATE_ALLOWED, PROPERTY_FALSE);
set_item_instance_property('SWM_SPE_DT_1_3.OPERATEUR_COMPARAISON', CURRENT_RECORD, UPDATE_ALLOWED, PROPERTY_FALSE);
set_item_instance_property('SWM_SPE_DT_1_3.VALEUR_COMPARAISON', CURRENT_RECORD, UPDATE_ALLOWED, PROPERTY_FALSE);
set_item_instance_property('SWM_SPE_DT_1_3.PARENTHESE_FIN', CURRENT_RECORD, UPDATE_ALLOWED, PROPERTY_FALSE);*/
--
/*IF :PARAMETER.PV_CODE_ARTICLE IS NOT NULL THEN
NEXT_RECORD;
:SWM_SPE_DT_1_3.ID_REQUETE := :SWM_SPE_DT_1_21.ID_REQUETE;
:SWM_SPE_DT_1_3.NO_LIGNE_REQUETE := 20;
:SWM_SPE_DT_1_3.TYPE_CRITERE := 'Code_article';
:SWM_SPE_DT_1_3.OPERATEUR_COMPARAISON := '=';
:SWM_SPE_DT_1_3.VALEUR_COMPARAISON := :PARAMETER.PV_CODE_ARTICLE;
END IF;*/
--
PROC_GEST_PROPS;
--
GO_BLOCK('SWM_SPE_DT_1_21');
--Champ CODE_REQUETE
set_item_property('SWM_SPE_DT_1_21.CODE_REQUETE',REQUIRED,PROPERTY_TRUE);
--Champ DESCRIPTION
set_item_property('SWM_SPE_DT_1_21.DESCRIPTION',REQUIRED,PROPERTY_TRUE);
--Renseignement des champs avant de sauvegarder.
--Champ ID_REQUETE
BEGIN
SELECT SWM_SPE_DT_1_2_S.NEXTVAL INTO :SWM_SPE_DT_1_21.ID_REQUETE FROM dual;
EXCEPTION
WHEN OTHERS THEN
set_alert_property( 'ALERTE_STOP_1_BUTTON',ALERT_MESSAGE_TEXT,
'Une erreur s''est produite sur la séquence SWM_SPE_DT_1_2_S. Veuillez contacter votre administrateur système.' || chr(10)
|| pv_event || '/' || pv_item || chr(10)
|| sqlerrm);
vn_ret_code_alerte := SHOW_ALERT('ALERTE_STOP_1_BUTTON');
END;
--Champ CODE_UTILISATEUR
:SWM_SPE_DT_1_21.CODE_UTILISATEUR := :SWM_NON_BASE.vv_glo_user_name; |