PVPFAND ;Ophalen verkoop boxen om na te gaan hoeveel PFANDGEBUHR er mee geleverd werd. [ 11/08/2003   8:27 PM ]
 Set Dev=0
 Set Dev=$$OPEN^vhDEV(,"PFANDGEBUHR.txt","W")
 Use Dev
 Set FAKNr=100000
 For  Set FAKNr=$O(^KFA("F",FAKNr)) Quit:FAKNr=""  Do  Quit:FAKNr>299999
 . Set ULNr="U"
 . For  Set ULNr=$O(^KFA("F",FAKNr,ULNr)) Quit:ULNr=""  Do
 .. Set LijnNr=100
 .. For  Set LijnNr=$O(^KFA("F",FAKNr,ULNr,LijnNr)) Quit:LijnNr=""  Do
 ... Set Rec=^KFA("F",FAKNr,ULNr,LijnNr)
 ... Set PRNr=$P(Rec,D,2)
 ... ; Ladeprofiel die verpakt zit in de PFANDGEBUHR
 ... If (PRNr'=51346)&(PRNr'=51347)&(PRNr'=32988)&(PRNr'=32989)&(PRNr'=33013)&(PRNr'=51766) Quit
 ... Set KLNTNr=$P(^KFA("F",FAKNr,0,0),D,1)          
 ... Set INDX=^KK1(KLNTNr)
 ... Set KLNTRec=^KKL(INDX,0)
 ... Set KLNTNaam=$P(KLNTRec,D,4)_" "_$P(KLNTRec,D,3)_" "_$P(KLNTRec,D,2) 
 ... Set FAKDtm=$P(^KFA("F",FAKNr,0,0),D,6)
 ... Set Qty=$P(Rec,D,3)
 ... Write FAKNr,$C(9),FAKDtm,$C(9),PRNr,$C(9),$P(^KPR(PRNr,0),D,1),$C(9),Qty,$C(9),KLNTNr,$C(9),KLNTNaam,!
 Close:0'[Dev Dev