PICKE

Description

This action is called just after the selection of an element in the picking list.

OBJect type

Single, Combined

Transaction

Use

It is used to carryout the controls in order to verify whether the element can or cannot be selected.
If the element can be selected, this action is used to load the right hand side of the screen, the the information linked to the selected record.
If it cannot be selected, the supervisor is notified by setting OK=0.

Example

The management of the locks is automatically made by the OBJect management : When an attempt is made to enter a modification in a record already used by another user, the small key is present in the bottom right of the screen and an error message is obtained "Modification in process on another workstation". However the lock management is not processed, when adding lines by picking. Addition of the first line will open it up in modification mode but without in control. To correct this problem, it is necessary to add several lines in the application processes managing the pickings.

These lines are to be added in the PICKE and FIN_PICKE section as indicated in the example below :
NB: The gosub AVANT_MOD is optional, it is possible that this section does not exist !

$PICKE
# New selected element #
If !find(currbox,GBOXPO1,GBOXPT1,GBOXPI1,GBOXPN1) Return : Endif
If REP=""
If !CLECUR | !VERROU | !ACTMOD | GCONSULT OK=0 : Return : Endif
Gosub AVANT_MOD : If !OK Return : Endif
Endif
Case currbox
When GBOXPO1 : Gosub PICKE_CDE From SUBPIHD
When GBOXPT1 : Gosub PICKE_RCP From SUBPIHD
When GBOXPI1 : Gosub PICKE_FAC2 From SUBPIHD
When GBOXPN1 : Gosub PICKE_RET From SUBPIHD
Endcase
Return

$FIN_PICK
# Fin picking #
If REP=""
If !VERROU
GMESSAGE=mess(10,100,1) : GERR=1 : OK=0 : Return
Elsif !CLECUR | !ACTMOD | GCONSULT
GMESSAGE=mess(9,123,1) : GERR=1 : OK=0 : Return
Endif
Endif
Affzo [PIH3]1-99
Gosub TEST_VALID From SUBPIH : # Update taxable basis and invoicing tax element calculations
Return

Associated actions

	DEB_PICK
	PICKE
	FIN_PICK