Description

Modèle Logique de Données

Sous-modèle source

Wddemo4.mlr

C:\PROGRAM FILES\WIN'DESIGN\WIN'DESIGN 4.1\DONNEES\EXEMPLES\WDDEMO4.MLR

règles associées à la commande

boite de dialogue de saisie de la commande :

La saisie commande a été étudiée sous plusieurs angles , dans tous les modèles gérés par Win Design.

Cette boite de dialogue a été construite à partir du Modèle Logique de Données , et peut être appelée aussi à partir des modèles de traitements.

Le contexte d'utilisation peut se trouver soit :

dans la procédure organisationnelle décrivant l'organisation du travail déclenchée par l'arrivée d'une commande

dans la cartographie des applications pour les fonctions de gestion de commande

Description des objets

No

Nom

Type objet

Source

Type donnée / format / valeurs

NOCOM

EditBox

COM.NO_COM

no identifiant de la commande

le no de la commande est automatiquement créé par un compteur

Numérique 4,0

Standard  3456,789

le no de la commande est obligatoire pour pouvoir créer une commande

Comportement/règle

OBLIGATOIRE,

procédures

InitializeCREER.Enable=0

Change'contrôles sur changement de valeur

If NOCOM.Text<> "" And DEPOT.Value>0 Then

CREER.Enable=1

Else

CREER.Enable=0

End If

No

Nom

Type objet

Source

Type donnée / format / valeurs

DEPOT

ComboBox

DEPOT.CODE_DEPOT

code identifiant un dépôt

la liste de dépôts est obtenue à partir de la table DEPOT

Alphanumérique 22,0

Standard

AIX

MARSEILLE

PARIS

BORDEAUX

NANTES

RENNES

STRASBOURG

LYON

LILLE

Comportement/règle

OBLIGATOIRE,

procédures

ChangeIf NOCOM.Text<> "" And DEPOT.Value>0 Then

CREER.Enable=1

Else

CREER.Enable=0

End If

No

Nom

Type objet

Source

Type donnée / format / valeurs

DATE_RECEPTION

EditBox

COM.DTE_COM

date de réception de la commande par la société X

Date et heure 10,0

Date, standard  19/06/94 17:34:23

Comportement/règle

procédures

Initializethis.text=now

No

Nom

Type objet

Source

Type donnée / format / valeurs

DATE_LIVRAISON

EditBox

COM.DTE_LIV

date de livraison de la commande

Date et heure 10,0

Date, standard  19/06/94 17:34:23

Comportement/règle

procédures

Initializethis.text=now

No

Nom

Type objet

Source

Type donnée / format / valeurs

PRISE_COMMANDE

ComboBox

COM.prise de commande

position de la cde par rapport à l'arrivée

Alphanumérique 20,0

Standard

commande enregistrée

confirmée

en attente

non traitée

supprimé

Comportement/règle

' Règle : initialisation états commande 

' Libellé : initialisation par dépendance des états de la commande 

CAS COM.prise de commande ='enregistrée'

COM.livraison= ''

COM.facturation =''

CAS COM.prise de commande ='confirmée'

COM.livraison ='à livrer'

COM.facturation ='à facturer'

procédures

Change' Règle de dépendance des états de la commande

If PRISE_COMMANDE.Value=1 Then

LIVRAISON.Visible =1

FACTURATION.Visible=1

LIVRAISON.Value=0

FACTURATION.Value=0

Else

LIVRAISON.Visible =0

FACTURATION.Visible=0

FACTURATION.Visible=0

End If

If PRISE_COMMANDE.Value=2 Then

NOCOM.ForeColor= 255.0

Else

NOCOM.ForeColor= 0.0

End If

No

Nom

Type objet

Source

Type donnée / format / valeurs

LIVRAISON

RadioButton

COM.livraison

états et transitions de la cde / livraison

Alphanumérique 20,0

Standard

à livrer

livrée

retournée

Comportement/règle

procédures

Initializethis.Visible =0

No

Nom

Type objet

Source

Type donnée / format / valeurs

FACTURATION

ComboBox

COM.facturation

états et transitions de la cde / la facturation

Alphanumérique 20,0

Standard

à facturer

facturée

réglée

litige

Comportement/règle

procédures

InitializeTHIS.Visible=0

No

Nom

Type objet

Source

Type donnée / format / valeurs

CLI_PASSER

EditBox

COM.NOCLIENT_passer

no du client donneur d'ordre

Alphanumérique 10,0

Standard

Comportement/règle

OBLIGATOIRE,

procédures

Change' Exemple de procédure pour illustrer un comportement

' simulant un accès aux données pour une valeur saisie

If CLI_PASSER.Text="1234" Then

NOM_CLIENT.Text="CECIMA"

ADRESSE_CLIENT_PASSER.Text="24 rue de la Molle"

VILLE.Text="AIX EN PROVENCE"

CP.Text="13100"

End IF

No

Nom

Type objet

Source

Type donnée / format / valeurs

NOM_CLIENT

EditBox

Aucun

Aucun 40,0

Standard

Comportement/règle

procédures

No

Nom

Type objet

Source

Type donnée / format / valeurs

ADRESSE_CLIENT_PASSER

MultiEdit

CLI.RUE

rue correspondant à l'adresse tiers

Autre 1000,0

Standard

Comportement/règle

procédures

No

Nom

Type objet

Source

Type donnée / format / valeurs

CP

EditBox

CLI.CP

code postal correspondant à l'adresse tiers

Numérique 5,0

Standard  3456,789

Comportement/règle

procédures

No

Nom

Type objet

Source

Type donnée / format / valeurs

VILLE

EditBox

CLI.VILLE

ville correspondant à l'adresse tiers

Alphanumérique 32,0

Standard

Comportement/règle

procédures

No

Nom

Type objet

Source

Type donnée / format / valeurs

CLI_FACTURE

EditBox

COM.NOCLI_facturer

No du client à facturer (doit être différent du client donneur d'ordre)

Alphanumérique 10,0

Standard

Comportement/règle

V_COM_CLI_FACTURE

' Règle : §V_COM_CLI_FACTURE§ 

' Libellé : le client facturé doit être

différent du client donneur d'ordre

§COM.NOCLI_facturer§ <>§COM.NOCLIENT_passer§

procédures

ChangeIf CLI_FACTURE.Text<> "" And CLI_FACTURE.Text=CLI_PASSER.Text Then

MsgBox "attention le client à facturer doit être différent du client donneur d'ordre",,"contrôles sur le client"

CLI_FACTURE.SetFocus

CLI_FACTURE.Text=""

End If

No

Nom

Type objet

Source

Type donnée / format / valeurs

NOM_CLIENT_FACTURE

EditBox

Aucun

Aucun 40,0

Standard

Comportement/règle

procédures

No

Nom

Type objet

Source

Type donnée / format / valeurs

ADRESSE_FACTURE

MultiEdit

CLI.RUE

rue correspondant à l'adresse tiers

Autre 1000,0

Standard

Comportement/règle

procédures

No

Nom

Type objet

Source

Type donnée / format / valeurs

CP_FACTURE

EditBox

CLI.CP

code postal correspondant à l'adresse tiers

Numérique 5,0

Standard  3456,789

Comportement/règle

procédures

No

Nom

Type objet

Source

Type donnée / format / valeurs

VILLE_FACTURE

EditBox

CLI.VILLE

ville correspondant à l'adresse tiers

Alphanumérique 32,0

Standard

Comportement/règle

procédures

No

Nom

Type objet

Source

Type donnée / format / valeurs

LISTE_CLIENT2

Bouton

Aucun

Aucun 0,0

Standard

Comportement/règle

appel : CLIENT LISTE.MAQ

procédures

No

Nom

Type objet

Source

Type donnée / format / valeurs

LISTE_CLIENT3

Bouton

Aucun

Aucun 0,0

Standard

Comportement/règle

appel : CLIENT LISTE.MAQ

procédures

No

Nom

Type objet

Source

Type donnée / format / valeurs

LIGNE_COMMANDE

maquette ligne commande

0,0

Comportement/règle

Bouton INACTIF NON VISIBLE,

procédures

No

Nom

Type objet

Source

Type donnée / format / valeurs

LISTE_CLIENT1

Bouton

Aucun

Aucun 0,0

Standard

Comportement/règle

appel : depot.maq

procédures

No

Nom

Type objet

Source

Type donnée / format / valeurs

SORTIR

Bouton

Aucun

Aucun 0,0

Standard

Comportement/règle

appel :

X_BOUTON_SORTIR Actions associés au bouton Sortir des boites de dialogue :

afficher le message de demande de confirmation :Confirmez vous la sortie de la boite de dialogue sans enregistrer la saisie ?

boutons : OUI/NON

si oui => fermer la boite

si non=> ne rien faire

procédures

No

Nom

Type objet

Source

Type donnée / format / valeurs

CREER

Bouton

Aucun

Aucun 0,0

Standard

Comportement/règle

appel :

V_COM_CREER

' Règle : §V_COM_CREER§

' Libellé : ensemble des règles de validation pour la

création d'une commande à partir d'une saisie

les règles suivantes doivent être vérifiées :

§V_COM_DATE§

§V_COM_CLI_FACTURE§

§V_COM_LGCOM_INTEGRITE§

§V_COM_INTEGRITE§

affectation du dépôt (choisi dans la liste)

§CODE_DEPOT.COM§ = valeur sélectionnée dans la liste

CREATION DANS LA BASE :

§COM§ :

§NO_COM.COM§

§NOCLIENT_passer.COM§ =§NOCLI.CLI§

§NOCLI_facturer.COM§ =§NOCLI.CLI§

§CODE_DEPOT.COM§

§DTE_COM.COM§

§DTE_LIV.COM§

§prise de commande.COM§

§livraison.COM§

§facturation.COM§

§LG_COM§ :

§NO_COM.LG_COM§ =§NO_COM.LG_COM§

§NOLG.LG_COM§

§CODE_ART.LG_COM§ =§CODE_ART.ART§

§MT_NET.LG_COM§

§QTE_COM.LG_COM§

procédures

Initialize

If NOCOM.Text="" Then

CREER.Enable=0

Else CREER.Enable=1

End IF

Click

If CLI_PASSER.Text="" Then

Msgbox "il faut saisir le client donneur d'ordre",,"contrôles d'intégrité de la commande"

CLI_PASSER.SetFocus

Else

Msgbox "provoque la création dans la base de données de la commande saisie, les contrôles d'intégrité sont déclenchés par les triggers de la base , une validation de l'action est retournée",,"Créer un commande"

msgbox "exemple de retour de création : problèmes d'accès à la base ,l'action est annulée",,"retour création base de données"

msgbox "exemple de retour de création : création de la commande effectuée",,"retour création base de données"

PRISE_COMMANDE.Value=0

End If

No

Nom

Type objet

Source

Type donnée / format / valeurs

MODIFIER

Bouton

Aucun

Aucun 0,0

Standard

Comportement/règle

appel :

procédures

No

Nom

Type objet

Source

Type donnée / format / valeurs

SUPPRIMER

Bouton

Aucun

Aucun 0,0

Standard

Comportement/règle

appel :

procédures

No

Nom

Type objet

Source

Type donnée / format / valeurs

APPEL_MLD

Bouton

Aucun

Aucun 0,0

Standard

Comportement/règle

appel : WDDEMO4.MLR

procédures

No

Nom

Type objet

Source

Type donnée / format / valeurs

APPEL_MOT

Bouton

Aucun

Aucun 0,0

Standard

Comportement/règle

appel : motcde4.mga

procédures

No

Nom

Type objet

Source

Type donnée / format / valeurs

APPEL_ARTICLE

Bouton

Aucun

Aucun 0,0

Standard

Comportement/règle

appel : article.maq INACTIF NON VISIBLE,

procédures