Process SUBSLX: Charge / Discount Transaction

SALTRS: Manage the specific/custom fields

This entry point concerns the management of sales entry transactions. It is common to all transactions - quotes, orders, contract orders, shipment, returns and invoices.

It is used to manage the added fields in specific/custom in the same way as the standard fields.

This entry point is located in the SUBSLX process.

Context and operating method

Transaction

During the running of the CREATION,  MODIF,  ANNULE, LIENS, INICRE and INIMOD actions, there is a transaction in process. The GOK variable is used and tested. It is equal to 1. It can be set to 0 if the transaction should be abandoned.

During the running of the APRES_MODIF action there is no transaction in process.

Log file

There is no open log file.

Different call cases

It is called in the actions CREATION,  MODIF,  ANNULE, LIENS, APRES_MODIF,  INICRE, INIMOD  by  Gosub PE_SALTRS From SUBSLX in the processes :

-          SUBSLQ : quote transactions

-          SUBSLC :order transactions

-          SUBSLO : open contract order transactions

-          SUBSLD : shipment transactions

-          SUBSLR : return transactions

-          SUBSLI : invoice transactions

Recall of the contents of the SALTRS table

The data contained in the SALTRS table concerning the storage of the sales module entry setups that are modifiable by transactions. A precise standardization must be respected.

Data added in a screen must correspond to the creation of the data in the SALTRS table.

The data added can be of 4 different types.

Available masks

Available variables

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

PACTION                  Standard action GOBJET at the origin of the call

PVERSION                  Numeric variable for the contents of GVERSION

                   ( if GVERSION="1.2.4" to PVERSION=124 )

FJL                  Transaction type ( SLQ= Quote, SLC= Orders, SLO=

                   Contract orders, SLD= Shipments, SLR= Returns,

                   SLI= Invoices).

MFROM                  Code for the entry screen

Open tables

The AWINDOW, AWINPAR, AREPORT, AMSK, AMSKZON, AMSKACT tables, as well as all the tables necessary for the management of the generation of the screens and process are open but must in no case be modified in the entry point process.

Example of the specific/custom process of the entry point

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

# Process for the entry point in the transactions

# Example : Add data to the order management

# - AAAA (not enterable) in Management screen   SOH1    

# - BBBB (enterable)     in Shipment tab SOH2 

# - CCCC (not enterable) in Lines tab    SOH4

# - DDDD (enterable)     in the Lines tab    SOH4

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

ACTION example

  When "SALTRS"  : Gosub SALTRS

Endcase

Return

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

$SALTRS

    Case FJL

  When "SLQ" : Gosub SALTRS_SLQ : # quote transaction

  When "SLC" : Gosub SALTRS_SLC : # order transaction

  When "SLO" : Gosub SALTRS_SLO : # contract order transaction

  When "SLD" : Gosub SALTRS_SLD : # shipment transaction

  When "SLR" : Gosub SALTRS_SLR : # return transaction

  When "SLI" : Gosub SALTRS_SLI : # invoice transaction

Endcase

Return

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

$SALTRS_SLQ

Return

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

$SALTRS_SLC

Case PACTION

  When "CREATION", "MODIF", "ANNULE","EXEBOUT","MASSE"

    If MFROM="SOH1"

      If [M:SLC5]AAAACOD = 1  TZONE(IZON)="AAAA"

                              TMOD (IZON)=3

                              IZON +=1

Endif

Endif

    If MFROM="SOH2"

      If [M:SLC2]BBBBCOD > 1  TZONE(IZON)="BBBB"

                              TMOD (IZON)=[M:SLC2]BBBBCOD

                              IZON +=1

Endif

Endif

    If MFROM="SOH4"

      If [M:SLC5]CCCCCOD = 1  TZONE(IZON)="CCCC"

                              TMOD (IZON)=3

                              IZON +=1

Else

        ZT="CCCCSCR" : ZM="CCCC" : Gosub TABLEAU_FICHE From SUBSLX

Endif

      If [M:SLC3]DDDDCOD > 1  TZONE(IZON)="DDDD"

                              TMOD (IZON)=[M:SLC3]DDDDCOD

                              IZON +=1

Endif

      If [M:SLC3]DDDDCOD = 1 | [M:SLC3]DDDDCOD = 2

        ZT="DDDDSCR" : ZM="DDDD" : Gosub TABLEAU_FICHE From SUBSLX

Endif

Endif

  When "APRES_MODIF"        : Gosub APRES_MODIF

  When "LIENS" Gosub LIENS

  When "INICRE" , "INIMOD"  : Gosub INICRE

When Default :

Endcase

Return

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

$SALTRS_SLO

Return

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

$SALTRS_SLD

Return

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

$SALTRS_SLR

Return

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

$SALTRS_SLI

Return

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

$APRES_MODIF 

# action common to the different transactions

# action only to be developed for the line data

Local Char PCOUZON : # to stock the compatible name V120 and V130

If PVERSION < 130  PCOUZON=zoncou

  Else             PCOUZON=COUZON

Endif

If PCOUZON = "CCCCCOD" : Gosub CCCCCOD : Endif

If PCOUZON = "DDDDCOD" : Gosub DDDDCOD : Endif

Return

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

$LIENS 

# action common to the different transactions

# action only to be developed for the line data

Gosub CCCCCOD

Gosub DDDDCOD

Return

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

$INICRE 

# action common to the different transactions

# action only to be developed for the line data

ZONECOD="CCCCCOD"  : Gosub INICRE_SCR From SUBSLX

ZONECOD="DDDDCOD"  : Gosub INICRE_SCR From SUBSLX

Return

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

$CCCCCOD

If dim([M]CCCCCOD)>0 & dim([M]CCCCSCR)>0

  If [M]CCCCCOD=1

     [M]CCCCSCR=1

     If !GIMPORT

       If FJL="SLC" : Affzo [M:SLC5]CCCCSCR : Grizo [M:SLC5]CCCCSCR : Endif

Endif

Else

     If !GIMPORT

       If FJL="SLC" : Actzo [M:SLC5]CCCCSCR : Endif

Endif

Endif

Endif

Return

#----

$DDDDCOD

If dim([M]DDDDCOD)>0 & dim([M]DDDDSCR)>0

  If [M]DDDDCOD=3

     [M]DDDDSCR=1

     If !GIMPORT

       If FJL="SLC" : Affzo [M:SLC3]DDDDSCR : Grizo [M:SLC3]DDDDSCR : Endif

Endif

Else

     If !GIMPORT

       If FJL="SLC" : Actzo [M:SLC3]DDDDSCR : Endif

Endif

Endif

Endif

Return

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

SALTRSWIN: Modify the entry window

This entry point concerns the management of sales entry transactions. It is common to all transactions - quotes, orders, contract orders, shipment, returns and invoices.

It is used to modify the window generated by the transaction, notably to delete a specific/custom tab.

This entry point is located in the SUBSLX process.

Context and operating method

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 should 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 :

-          SUBSLQ : quote transactions

-          SUBSLC :order transactions

-          SUBSLO : open contract order transactions

-          SUBSLD : shipment transactions

-          SUBSLR : return transactions

-          SUBSLI : invoice transactions

Available masks

Available variables

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

[F:SLT]STRTYP           Transaction type

[F:SLT]STRNUM          Transaction code

FOBJ                            Name of the OBJect ( "SQH", "SOH", "SOR", "SDH", "SIH", "SRH" )

WINREF                        Name of the reference window

                           = "O"+Name of the OBJect ( "SQH", "SOH", "SOR", "SDH", "SIH", "SRH" )

NOMWIN                       Name of the window generated for this transaction

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

Open tables

The AWINDOW, AWINPAR, AREPORT, AMSK, AMSKZON, AMSKACT tables, as well as all the tables required for the management of the screen generation and processes are open.