Traitement SUBPTX : Paramètrages des transactions de saisie des achats

PURTRS : Intervention sur la gestion des champs spécifiques

Ce point d'entrée situé dans le traitement SUBPTXgestion des transactions de saisie des achats, génère une action "PURTRS".

Le but de cette action est de donner la possibilité d'intervenir sur la gestion des champs spécifiques tant au niveau de l’affichage que de la saisie.

Toutes les transactions de saisie des achats sont concernées par ce point d’entrée, c’est-à-dire celles des appels d’offre, des demandes d’achats, des commandes classiques, des contrats de commandes ouvertes et des factures.

Contexte et mode de fonctionnement

Transaction

Il y a une transaction en cours pour les actions INICRE, CREATION, INIMOD et MODIF.

Il n’y a pas de transaction en cours pour les actions RAZCRE, LIENS et APRES_MODIF

Fichier trace

Il n'y a pas de fichier trace ouvert.

Différents cas d’appel

L'appel se fait lors de la gestion du paramétrage des transactions de saisie :

-          des appels d’offre

-          des demandes d’achats

-          des ordres de sous-traitance

-          des commandes standards

-          des contrats de commandes ouvertes

-          des réceptions

-          des retours fournisseur

-          des factures

et ceci pour les actions suivantes du GOBJET :

-          RAZCRE  à l’entrée en création, initialisation des champs écrans

-          INICRE  avant l’écriture de l’enregistrement, chargement des champs fichiers

-          CREATION  après l’écriture de l’enregistrement, intervention sur les paramètres champs avant la génération des écrans de saisie

-          LIENS  après chaque lecture d’enregistrement, interventions sur les champs écrans après chaque lecture d’enregistrement

-          INIMOD  avant la réécriture de l’enregistrement, chargement des champs fichiers

-          MODIF  après la réécriture de l’enregistrement, intervention sur les paramètres champs avant la génération des écrans de saisie

-          APRES_MODIF  après saisie de chaque champs, intervention sur les champs écran

-          EXEBOUT  après appui sur un bouton bas d’écran. Seul le bouton « Validation » est intéressant, dans ce cas la variable REP vaut  « 1 » (attention c’est une valeur alphanumérique)

Contenu de la table PURTRS

Les données contenues dans la table PURTRS concernent le stockage du paramétrage des saisies du module achats modifiables par transaction.

Une normalisation précise doit être respectée, à chaque champ ajouté dans un écran doit correspondre la création de données dans la table PURTRS.

Les données ajoutées peuvent être de 4 types différents :

Masques disponibles

Variables disponibles

Les variables suivantes sont  chargées lors de l'appel de l'action "PURTRS".

PACTION

Action GOBJET à l’origine de l’appel (RAZCRE, INICRE, CREATION, LIENS, INIMOD, MODIF, APRES_MODIF, EXEBOUT).

PVERSION

Valeur numérique du numéro de la version d’X3 utilisée (ex GVERSION=1.2.4  PVERSION=124).

 FJL

Type de transaction en cours de gestion (PTA=appels d’offre, PTD=demandes d’achat, PTC=commandes standards, PTT=contrats, PTF=factures).

 MFROM

Code de l'écran de saisie (PQH0, PQH1, PSH1, POH1, POH2, POH3, POI1, POC0, POC1, POC2, POC3, PIH0, PIH1, PIH3, PIH4, SCO0, SCO1, SCO2 et SCO3)

Tables ouvertes

Dans le tableau ci-dessous, le flag contenu significatif signifie que le contenu est en phase avec le contexte.

Remarques diverses

Les tables AWINDOW, AWINPAR, AMSK, AMSKZON, AMSKACT, ainsi que toutes les tables nécessaires à la gestion de la génération d'écrans et de traitements sont ouvertes mais ne doivent en aucun cas être modifiées dans le point d'entrée.

Exemple de l'exploitation du point d'entrée

#########################################################################

# Variables utilisables par le point d'entrée PURTRS                    #

#                                                                       #

#    PACTION    : Action GOBJET à l'origine de l'appel                  #

#    PVERSION   : Valeur numérique du numéro de version d'X3            #

#    FJL        : Type de transaction en cours                          #

#    MFROM      : Code de l'écran de saisie                             #

#                                                                       #

#########################################################################

$ACTION

Case ACTION

  When "PURTRS"

    Case FJL

      When "PTA"                    : # Transaction appels d'offre

      When "PTD"                    : # Transaction demandes d'achat

      When "PTC" : Gosub PURTRS_PTC : # Transaction commandes

      When "PTT"                    : # Transaction contrats

      When "PTF"                    : # Transaction factures

    Endcase

  When Default

Endcase

Return

#---------------------------------------------------------#

# Gestion du paramétrage des zones spécifiques commandes  #

# ------------------------------------------------------- #

# champ AAAA non saisissable dans l'onglet Gestion        #

#            défini en affiché sur l'écran de base POH1   #

# champ BBBB saisissable     dans l'onglet Total          #

#            défini en saisi   sur l'écran de base POH3   #

# champ CCCC non saisissable dans l'onglet Lignes         #

#            défini en affiché sur l'écran de base POH2   #

# Champ DDDD saisissable     dans l'onglet Lignes         #

#            défini en saisi   sur l'écran de base POH2   #

#---------------------------------------------------------#

$PURTRS_PTC

Case PACTION

  When "RAZCRE"

    [M:PTC1]AAAAFLG=1

    [M:PTC2]BBBBCOD=1

    [M:PTC1]CCCCFLG=1 : [M:PTC1]CCCCSCR=1 : Grizo [M:PTC1]CCCCSCR

    [M:PTC3]DDDDCOD=1 : [M:PTC3]DDDDSCR=1 : Actzo [M:PTC3]DDDDDCR

  When "LIENS"

    If [M:PTC1]AAAAFLG=0 [M:PTC1]AAAAFLG=1 : Endif

    If [M:PTC2]BBBBCOD=0 [M:PTC2]BBBBCOD=1 : Endif

    If [M:PTC1]CCCCFLG=0 [M:PTC1]CCCCFLG=1 : [M:PTC1]CCCCSCR=1 : Endif

    If [M:PTC3]DDDDCOD=0 [M:PTC3]DDDDCOD=1 : [M:PTC1]DDDDSCR=1 : Endif

    If [M:PTC1]CCCCFLG=1 Grizo [M:PTC1]CCCCSCR Else Actzo [M:PTC1]CCCCSCR : Endif

    If [M:PTC3]DDDDCOD=3 Grizo [M:PTC3]DDDDSCR Else Actzo [M:PTC3]DDDDSCR : Endif

  When "INICRE"

  When "INIMOD"

  When "CREATION", "MODIF"

    Case MFROM

      When "POH1"

        If [M:PTC1]AAAAFLG=1

          TZONE(IZON)="AAAA" : TMOD(IZON)=3 : IZON+=1

        Endif

      When "POH3"

        If [M:PTC2]BBBBCOD>1

          TZONE(IZON)="BBBB" : TMOD(IZON)=[M:PTC2]BBBBCOD : IZON+=1

        Endif

      When "POH2"

        If [M:PTC1]CCCCFLG=1

          TZONE(IZON)="CCCC" : TMOD(IZON)=3 : IZON+=1

        Endif

        If [M:PTC1]CCCCSCR>1

          TZONE(IZON)="CCCC" : TMOD(IZON)=9 : TINT(IZON)=num$([M:PTC1]CCCCSCR) : IZON+=1

        Endif

        If [M:PTC3]DDDDCOD>1

          TZONE(IZON)="DDDD" : TMOD(IZON)=[M:PTC2]DDDDCOD : IZON+=1

        Endif

        If [M:PTC3]DDDDSCR>1

          TZONE(IZON)="DDDD" : TMOD(IZON)=9 : TINT(IZON)=num$([M:PTC3]DDDDSCR) : IZON+=1

        Endif

    Endcase

  When "APRES_MODIF"

    If PVERSION<130

      Case zoncou

        When "CCCCFLG"

          If val(zc)=1

            [M:PTC1]CCCCSCR=1

            If !GIMPORT Affzo [M:PTC1]CCCCSCR : Grizo [M:PTC1]CCCCSCR: Endif

          Elsif !GIMPORT

            Actzo [M:PTC1]CCCCSCR

          Endif

        When "DDDDCOD"

          If val(zc)=3

            [M:PTC3]DDDDSCR=1

            If !GIMPORT Affzo [M:PTC3]DDDDSCR : Grizo [M:PTC3]DDDDSCR : Endif

          Elsif !GIMPORT

            Actzo [M:PTC3]DDDDSCR

          Endif

      Endcase

    Else

      Case COUZON

        When "CCCCFLG"

          If val(CZ)=1

            [M:PTC1]CCCCSCR=1

            If !GIMPORT Affzo [M:PTC1]CCCCSCR : Grizo [M:PTC1]CCCCSCR: Endif

          Elsif !GIMPORT

            Actzo [M:PTC1]CCCCSCR

          Endif

        When "DDDDCOD"

          If val(CZ)=3

            [M:PTC3]DDDDSCR=1

            If !GIMPORT Affzo [M:PTC3]DDDDSCR : Grizo [M:PTC3]DDDDSCR : Endif

          Elsif !GIMPORT

            Actzo [M:PTC3]DDDDSCR

          Endif

      Endcase

    Endif

Endcase

Return

PURTRSWIN : Intervention sur les fenêtres générées

Ce point d’entrée concerne la gestion des transactions de saisie des achats. Il est commun aux transactions d’appels d’offre, demandes d’achat, commandes, commandes ouvertes, réceptions, retours et factures.

Il permet de modifier la fenêtre générée par la transaction, notamment pour supprimer un onglet spécifique.

Ce point d‘entrée est situé dans le traitement SUBPTX.

Contexte et mode de fonctionnement

Transaction

Il y a une transaction en cours. La variable GOK est utilisée et testée. Elle est égale à 1. Elle peut être positionnée à 0 si on désire abandonner la transaction.

Fichier trace

Il  n’y a pas de fichier trace ouvert.

Différents cas d’appel

 Il est appelé dans les actions CREATION,  MODIF,  ANNULE dans les traitements :

-          SUBPTA : Transactions appels d’offre

-          SUBPTD : Transactions demandes d’achat

-          SUBPTE : Transactions ordres de sous-traitance

-          SUBPTC : Transactions commandes

-          SUBPTT : Transactions commandes ouvertes

-          SUBPTR : Transactions réceptions

-          SUBPTN : Transactions retours fournisseurs

 -         SUBPTF : Transactions factures d’achat

Masques disponibles

Variables disponibles

On dispose des variables suivantes pour définir le traitement à effectuer:

[F :AWI]                          La classe [F:AWI] est chargée et peut être modifiée si l’on désire intervenir sur la fenêtre générée.

[F :PTR]PTRTYP         Type de transaction

[F :PTR]PTRNUM        Code transaction

WINREF                        Nom de la fenêtre de référence

                                      ="O"+Nom de l'OBJet ( "PQH", "PSH", "POH", "POC", "PTH", "PNH", "PIH", "SCO"  )

NOMWIN                       Nom de la fenêtre générée pour cette transaction

                                       ="WO"+Nom de l'OBJet+Code transaction 

Tables ouvertes 

Les tables AWINDOW, AWINPAR, AWINBRO, AWINBOUT, AMSK, AMSKPAR, AMSKZON, ainsi que toutes les tables nécessaires à la gestion génération des écrans et traitements sont ouvertes.

PURTRSAWB : Intervention sur les browsers des fenêtres générées

Ce point d’entrée concerne la gestion des transactions de saisie des achats. Il est commun aux transactions d’appels d’offre, demandes d’achat, ordres de sous-traitance, commandes, commandes ouvertes, réceptions, retours et factures.

Il permet de modifier les browsers de la fenêtre générée par la transaction.

Ce point d‘entrée est situé dans le traitement SUBPTX.

Contexte et mode de fonctionnement

Transaction

Il y a une transaction en cours. La variable GOK est utilisée et testée. Elle est égale à 1. Elle peut être positionnée à 0 si on désire abandonner la transaction.

Fichier trace

Il  n’y a pas de fichier trace ouvert.

Différents cas d’appel

 Il est appelé dans les actions CREATION,  MODIF,  ANNULE dans les traitements :

-          SUBPTA : Transactions appels d’offre

-          SUBPTD : Transactions demandes d’achat

-          SUBPTE : Transactions ordres de sous-traitance

-          SUBPTC : Transactions commandes

-          SUBPTT : Transactions commandes ouvertes

-          SUBPTR : Transactions réceptions

-          SUBPTN : Transactions retours fournisseurs

 -         SUBPTF : Transactions factures d’achat

Masques disponibles

Variables disponibles

On dispose des variables suivantes pour définir le traitement à effectuer:

[F :AWB]                          La classe [F:AWB] est chargée et peut être modifiée si l’on désire intervenir sur le browser de la fenêtre générée.

[F :PTR]PTRTYP         Type de transaction

[F :PTR]PTRNUM        Code transaction

WINREF                        Nom de la fenêtre de référence

                                      ="O"+Nom de l'OBJet ( "PQH", "PSH", "POH", "POC", "PTH", "PNH", "PIH", "SCO"  )

NOMWIN                       Nom de la fenêtre générée pour cette transaction

                                       ="WO"+Nom de l'OBJet+Code transaction 

Tables ouvertes 

Les tables AWINDOW, AWINPAR, AWINBRO, AWINBOUT, AMSK, AMSKPAR, AMSKZON, ainsi que toutes les tables nécessaires à la gestion génération des écrans et traitements sont ouvertes.