SUBPTX processing: Charge/discount transaction

PURTRS: Intervening in the specific field management

This entry point located in the SUBPTX processing (purchase entry transaction management) generates a "PURTRS" action.

This action aims at giving the possibility to intervene in the specific field management at the display level as well as the entry level.

All the purchase entry transactions are concerned by this entry point, that is to say the requests for quote, the purchase requests, the classic orders, the open contract orders and the invoices.

Context and operating mode

Transaction

There is a transaction in progress for the INICRE, CREATION, INIMOD and MODIF actions.

There is not transaction in progress for the RAZCRE, LIENS and APRES_MODIF actions.

Log file

There is no open log file.

Different call cases

The call is carried out when managing the entry transaction setup:

-          for requests for quotes

-          for purchase requests

-          for subcontract orders

-          for standard orders

-          for open contract orders

-          for receipts

-          for supplier returns

-          for invoices

and this for the following actions for GOBJET:

-          RAZCRE  in creation mode, initialization of the screen fields

-          INICRE  before writing the recording, loading of the file fields

-          CREATION  after writing the recording, intervention in the field parameters before the entry screen generation

-          LIENS  after each recording read, interventions in the screen fields after each recording read

-          INIMOD  before the re-write of the record, loading of the file fields

-          MODIF  after rewriting the recording, intervention in the fields parameters before the entry screen generation

-          APRES_MODIF  after entering each field, intervention on the screen fields

-          EXEBOUT  after clicking a button at the bottom of the screen. Only the "Validation" button is of interest, in this case the REP variable is set to "1" (caution, this is an alphanumeric number).

Content of the PURTRS table

The data contained in the PURTRS table concerns the storage of the purchase module entry setup that can be modified by transaction.

A specific standard must be complied with. To each field added to a screen must correspond the creation of data in the PURTRS table.

The data added can be of 4 different types :

Available masks

Available variables

The following variables are loaded when calling the "PURTRS" action.

PACTION

GOBJET action at the origin of the call (RAZCRE, INICRE, CREATION, LIENS, INIMOD, MODIF, APRES_MODIF, EXEBOUT).

PVERSION

Numeric value of the X3 version number used (e.g. GVERSION=1.2.4  PVERSION=124).

 FJL

Transaction type currently being managed (PTA=request for quotes, PTD=purchase request, PTC=standard orders, PTT=contracts, PTF=invoices).

 MFROM

Code of the entry screen (PQH0, PQH1, PSH1, POH1, POH2, POH3, POI1, POC0, POC1, POC2, POC3, PIH0, PIH1, PIH2, PIH3 and PIH4)

Open tables

In the table below, the significant content flag indicates that the content is in phase with the context.

Miscellaneous remarks

The AWINDOW, AWINPAR, AMSK, AMSKZON, AMSKACT tables, as well as all the tables required for the management of the screen generation and processings are open but must not be modified in the entry point.

Use example of the entry point

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

# Variables that can be used by the PURTRS entry point                     #

#                                                                       #

#    PACTION    : Action GOBJET at the origin of the call                  #

#    PVERSION   : Numeric value of the X3 version number           #

#    FJL        : Type of transaction in progress                          #

#    MFROM      : Code for the entry screen                             #

#                                                                       #

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

$ACTION

Case ACTION

  When "PURTRS"

    Case FJL

      When "PTA"                    : # Request for quote transaction

      When "PTD"                    : # Purchase request transaction

      When "PTC": Gosub PURTRS_PTC : # Order transaction

      When "PTT"                    : # Contract order transaction

      When "PTF"                    : # Invoice transaction

    Endcase

  When Default:

Endcase

Return

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

# Setup management of the specific fields in the orders  #

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

# AAAA field not available for entry in the Management tab        #

#            defined in display on the POH1 base screen   #

# BBBB available for entry in the Total tab         #

#            defined in entry mode on the POH3 base screen   #

# CCCC field not available for entry in the Lines tab         #

#            defined in display in the base screen POH2   #

# DDDD field available for entry in the Lines tab        #

#            defined in entry mode on the POH2 base screen   #

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

$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 on the generated invoices

This entry point concerns the purchase entry transaction management. It is common to the transactions for requests for quotes, purchase requests, orders, open orders, receipts, returns and invoices.

It is used to modify the window generated by the transaction, for example to delete a specific tab.

This entry point is located in the SUBPTX processing.

Context and operating mode

Transaction

There is one transaction in progress. The GOK variable is used and tested. It is equal to 1. It can be set to 0 if the transaction is to be abandoned.

Log file

There is no open log file.

Different call cases

 It is called in the CREATION,  MODIF,  and ANNULE actions in the processings :

- SUBPTA: Transactions for Requests for quote

- SUBPTD: Transactions for Purchase requests

- SUBPTE: Transactions for Subcontract orders

- SUBPTC: Transactions for Orders

- SUBPTT: Transactions for Open orders

- SUBPTR: Transactions Receipt

- SUBPTN: Transactions Supplier returns

 - SUBPTF: Transactions Purchase invoices

Available masks

Available variables

The following variables are available to define the processing to carry out:

[F :AWI]                          The [F :AWI] class is loaded and can be modified if required to intervene on the generated window.

[F :PTR]PTRTYP         Transaction type

[F :PTR]PTRNUM        Transaction code

WINREF                        Name of the reference window

                                      ="O"+Name of the OBJect ("PQH", "PSH", "POH", "POC", "PTH", "PNH", "PIH", "SCO")

NOMWIN                       Name of the window generated for this transaction

                                       ="WO"+Name of the OBJect+Transaction code 

Open tables 

The AWINDOW, AWINPAR, AWINBRO, AWINBOUT, AMSK, AMSKPAR, AMSKZON tables, as well as all tge tables required for the management of the screen generation and processes are open.

PURTRSAWB: Intervention on the browsers of the generated windows

This entry point concerns the purchase entry transaction management. It is common to the transactions for request for quotes, purchase requests, subcontract orders, open orders, receipts, returns and invoices.

It is used to modify the browsers of the window generated by the transaction.

This entry point is located in the SUBPTX processing.

Context and operating mode

Transaction

There is one transaction in progress. The GOK variable is used and tested. It is equal to 1. It can be set to 0 if the transaction is to be abandoned.

Log file

There is no open log file.

Different call cases

 It is called in the CREATION,  MODIF,  and ANNULE actions in the processes :

- SUBPTA: Transactions for Requests for quote

- SUBPTD: Transactions for Purchase requests

- SUBPTE: Transactions for Subcontract orders

- SUBPTC: Transactions for Orders

- SUBPTT: Transactions for Open orders

- SUBPTR: Transactions Receipt

- SUBPTN: Transactions Supplier returns

 - SUBPTF: Transactions Purchase invoices

Available masks

Available variables

The following variables are available to define the process to be carried out :

[F :AWB]                          The [F :AWB] class is loaded and can be modified if required to intervene on the browser of the generated window.

[F :PTR]PTRTYP         Transaction type

[F :PTR]PTRNUM        Transaction code

WINREF                        Name of the reference window

                                      ="O"+Name of the OBJect ("PQH", "PSH", "POH", "POC", "PTH", "PNH", "PIH", "SCO")

NOMWIN                       Name of the window generated for this transaction

                                       ="WO"+Name of the OBJect+Transaction code 

Open tables 

The AWINDOW, AWINPAR, AWINBRO, AWINBOUT, AMSK, AMSKPAR, AMSKZON tables, as well as all tge tables required for the management of the screen generation and processes are open.