origen: http://sagex3dev.mcmatica.com/2012/12/15/get-the-available-quantity/
The function below returns the available quantity of an item in a site
- Funprog GET_STODISP(XXFCY,XXITM)
- Value Char XXFCY #Stock Site
- Value Char XXITM #Item code
- #Opens the tables
- If clalev([F:YITV]) = 0 Then Local File ITMMVT [F:YITV] : Endif
- If clalev([F:ITM]) = 0 Then Local File ITMMASTER [F:ITM] : Endif
- If clalev([F:ITG]) = 0 Then Local File ITMCATEG [F:ITG] : Endif
- Filter [F:ITM]
- Read [F:ITM]ITM0 = XXITM
- Filter [F:ITG]
- Read [F:ITG]ITG0 = "";[F:ITM]TCLCOD
- Filter [F:YITV]
- Read [F:YITV]ITV0=XXITM;XXFCY
- Local Integer WSTA
- Local Decimal YSTODIS
- WSTA=0
- YSTODIS=0
- If [F:ITG]GLOAAAFLG = 2 WSTA += 1 Endif
- If [F:ITG]GLOQQQFLG = 2 WSTA += 2 Endif
- If [F:ITG]GLORRRFLG = 2 WSTA += 4 Endif
- #Call the X3 standard procedure for X3 version 1.4.x and 5
- Call STODISPO("[F:YITV]",XXFCY,XXITM,"*","*",1,WSTA,"","",YSTODIS) From STKLIB
- #Call the X3 standard procedure for X3 Version 6
- #Call STODISPO("[F:YITV]",XXFCY,XXITM,"*","*",1,WSTA,"","","",YSTODIS) From STKLIB