I am creating deliveries in Sage EM using the SDH web service. After the delivery is created, I am calling the code from the SDH object to validate the delivery. I have found that the deliveries get validated successfully, but they remain locked. Does anybody know what is causing this? Below is the code, which I copied from the Validate button on the Delivery screen.
Subprog SDHVAL(DELNO, SITE)
Value Char DELNO
Value Char SITE
If clalev([F:SDH])= 0 : Local File SDELIVERY[SDH] : Endif
Local Char PADMIN
Call OUVRE_TRACE(mess(34,191,1)) From LECFIC
# Récupération paramètre administrateur stock
Call PARAMUTIL("STOADMIN",PADMIN,"","") From SUBAUS
GSTOADMIN = val(PADMIN)
Call TEMPON("V") From GESECRAN
Call VALIDATION(DELNO) From TRTVENLIVV
Call TEMPOFF From GESECRAN
Call GLOBVAR(SITE,"VEN") From TRTX3
Call FERME_TRACE From LECFIC
If [F:SDH]CFMFLG <> 2
Call LEC_TRACE From LECFIC
Else
#BRBAN 08/07/2014 SAM #93745
GTRACE = ""
Endif
Close Local File [SDH]
End