transpea ;Verwerking expediteur (EDI ABX) [ 12/05/2001  4:55 PM ]
 ;
 Set VervRef=262,Ok=0 Write @F11,@F1
 For  Do  Quit:Ok  If 'Ok Quit:R
 .New Txt1,Txt2,But1,But2
 .Set Txt1=$S(Ok:"",1:"ªBNIET ")_"verzonden"_$S(Ok:"",1:"ªb")
 .Set Txt2=$S(Ok:"",1:"Gelieve PaulV en/of ChrisW te verwittigen")
 .Set But1=$S(Ok:"Ok",1:"Annuleer"),But2=$S(Ok:"",1:"Ok")
 .Set R=$$^vhTXTPOP("TRANSP","FTPABX","",VervRef,Txt1,Txt2,But1,But2)
 Write !!!,R
 Quit
 ;