DCDETAIL ;AFDRUKKEN DOKUMENTEN (Detail) [ 08/07/2002  10:41 AM ]
 ;
PROFORMA(FANr,BONNr,OLNr,IsOrgal)
 New EdiNummer,VHisieVwCust
 Set R=^KFAP("F",FANr,BonInd,OLNr)
 If $P(R,D,17)="KF5" Do  Quit 0
 .Set OrgalRef=$P(R,D,20),EdiNummer=$P(R,D,21),VHisieVwCust=$P(R,D,22)
 .If $L(EdiNummer) Do
 ..Set:$L(OrgalRef) OrgalRef=OrgalRef_"/" Set OrgalRef=OrgalRef_EdiNummer
 ..Set:$L(VHisieVwCust) OrgalRef=OrgalRef_"/"_VHisieVwCust
 .Set R=$P(R,D,5),ORDNr=$P(R," - "),OrdRef=$P(R," - ",3,99)
 .Do ORDREF^DCFAKTP(ORDNr,OrdRef,OrgalRef)
 If $P($P(R,D,17),"#")="KF11" Do TEXTFAKT^DCTEXT Quit $$PROFNXTL(FANr,BONNr,OLNr)
 If $P($P(R,D,17),"#")="KF1925" Do MANFAKT^DCMANL(R) Quit $$PROFNXTL(FANr,BONNr,OLNr)
 If $P(R,D,2) Do PRODFAKT^DCPROD(R) Quit 1
 Quit 0
 ;
FAKTUUR(FANr,BONNr,OLNr,IsOrgal)
 New EdiNummer,VHisieVwCust
 Set R=^KFA("F",FANr,BonInd,OLNr)
 If $P(R,D,17)="KF5" Do  Quit 0
 .Set OrgalRef=$P(R,D,20),EdiNummer=$P(R,D,21),VHisieVwCust=$P(R,D,22)
 .If $L(EdiNummer) Do
 ..Set:$L(OrgalRef) OrgalRef=OrgalRef_"/" Set OrgalRef=OrgalRef_EdiNummer
 ..Set:$L(VHisieVwCust) OrgalRef=OrgalRef_"/"_VHisieVwCust
 .Set R=$P(R,D,5),ORDNr=$P(R," - "),OrdRef=$P(R," - ",3,99)
 .Do ORDREF^DCFAKT(ORDNr,OrdRef,OrgalRef)
 If $P($P(R,D,17),"#")="KF11" Do TEXTFAKT^DCTEXT Quit $$FAKTNXTL(FANr,BONNr,OLNr)
 If $P($P(R,D,17),"#")="KF1925" Do MANFAKT^DCMANL(R) Quit $$FAKTNXTL(FANr,BONNr,OLNr)
 If $P(R,D,2) Do PRODFAKT^DCPROD(R) Quit 1
 Quit 0
 ;
BON(BONNr,OLNr,IsOrgal,FakSoort)
 New EdiNummer,VHisieVwCust
 Set FakSoort=$G(FakSoort,"F"),R=^KUL(KLNr,FakSoort,BONNr,OLNr)
 If $P(R,D,17)="KF5" Do  Quit 0
 .Set OrgalRef=$P(R,D,20),EdiNummer=$P(R,D,21),VHisieVwCust=$P(R,D,22)
 .If $L(EdiNummer) Do
 ..Set:$L(OrgalRef) OrgalRef=OrgalRef_"/" Set OrgalRef=OrgalRef_EdiNummer
 ..Set:$L(VHisieVwCust) OrgalRef=OrgalRef_"/"_VHisieVwCust
 .Set R=$P(R,D,5),ORDNr=$P(R," - "),OrdRef=$P(R," - ",3,99)
 .Do ORDREF^DCBON(ORDNr,OrdRef,OrgalRef)
 If $P($P(R,D,17),"#")="KF11" Do TEXTBON^DCTEXT Quit $$BONNXTL(BONNr,OLNr,FakSoort)
 Set Netto=Netto+$P(R,D,9)
 If $P($P(R,D,17),"#")="KF1925" Do MANBON^DCMANL(R) Quit $$BONNXTL(BONNr,OLNr,FakSoort)
 If $P(R,D,2) Do PRODBON^DCPROD(R) Quit 1
 Quit 0
 ;
SBON(BONNr,OLNr,IsOrgal) 
 Set R=^KUL(KLNr,"F",BONNr,OLNr)
 If $P(R,D,17)="KF5" Do  Quit 0
 .Set OrgalRef=$P(R,D,20)
 .Set R=$P(R,D,5),ORDNr=$P(R," - "),OrdRef=$P(R," - ",3,99)
 .Do ORDREF^DCSBON(ORDNr,OrdRef,OrgalRef)
 Set Netto=Netto+$P(R,D,9)
 Quit 0
 ;
ORDER(ORDNr,OLNr) 
 Set R=^KOD(KLNr,"F",ORDNr,OLNr)
 If $P($P(R,D,17),"#")="KF11" Do TEXTORD^DCTEXT Quit $$ORDNXTL(ORDNr,OLNr)
 If $P($P(R,D,17),"#")="KF1925" Do MANORD^DCMANL(R) Quit $$ORDNXTL(ORDNr,OLNr)
 If $P(R,D,2) Do PRODORD^DCPROD(R) Quit 1
 Quit 0
 ;
OFFERTE(OFFNr,I4,I5,I6,I7) 
 New Paste
 Set Paste=1
 If I4?.N Do  Quit Paste
 .Set R=^KOFKL(KLNr,"F",OFFNr,I4)
 .If $P($P(R,D,17),"#")="KOFGRP" Do  Quit
 ..Set Paste=$S($P($P(R,D,17),"#",3)&$L($O(^KOFKL(KLNr,"F",OFFNr,I4))):2,1:0)
 ..Do GROEPOFF^DCOFFD(R,I4,Paste)
 .If $P($P(R,D,17),"#")="KOF11" Do TEXTOFF^DCTEXT Set Paste=$$OFFNXTL(OFFNr,I4) Quit
 .If $P($P(R,D,17),"#")="KOF1925" Do MANOFF^DCMANL(R) Set Paste=$S($L($P(R,D,2)):1,1:$$OFFNXTL(OFFNr,I4)) Quit
 .If $P(R,D,2) Do PRODOFFD^DCPROD(R) Set Paste=1 Quit
 If I4="ZZZZUD" Do  Quit 0
 .Set R=^KOFKL(KLNr,"F",OFFNr,I4,I5) Quit:'$D(^KLIS1(R))
 .Set R=^KLIS1(R),R=^KLIS(R,0) Quit:$P(R,D,3)'="PR"!'$P(R,D,11)
 .Do UTILIDAT^DCOFF($P(R,D))
 If I4="ZZZZPS" Do  Quit 0
 .Set R=^KOFKL(KLNr,"F",OFFNr,I4,I5) Quit:'$D(^KSL1("PR",$P(R,D)))
 .Do PRODSEL^DCOFF(R)
 Do BOOM^DCOFF Quit 0
 Quit 0
 ;
TOELEV(TOENr,TLNr) 
 Set R=^KTO(LEVNr,TOENr,TLNr)
 If $P(R,D,17)="KTO11" Do TEXTTOE^DCTEXT Quit $$TOENXTL(TOENr,TLNr)
 If $P($P(R,D,17),"#")="KF1925" Do MANTOE^DCMANL(R) Quit $$TOENXTL(TOENr,TLNr)
 If $P(R,D,2) Do PRODTOE^DCPROD(R) Quit 1
 Quit 0
 ;
 ; Bouwstenen Halux
TOELEVBS(TOENr,TLNr) 
 Set R=^KTO(LEVNr,TOENr,TLNr)
 If $P(R,D,2) Do PRODTOEBS^DCPROD(R) Quit 1
 Quit 0
 ;
 ; Nazicht volgende lijn. Mag de huidige blok verwerkt worden?
 ; 0 = wachten, 1 = verwerk
PROFNXTL(FANr,BONNr,OLNr) 
 New R
 Set R=^KFAP("F",FANr,BonInd,OLNr) If $P(R,D,2)!$L($P(R,D,20)) Quit 1
 Set OLNr=$O(^KFAP("F",FANr,BonInd,OLNr)) If OLNr="" Quit 1
 Set R=^KFAP("F",FANr,BonInd,OLNr) If $P(R,D,2)!$L($P(R,D,20)) Quit 1
 If $P(R,D,17)="KF5" Quit 1
 Quit 0
 ;
FAKTNXTL(FANr,BONNr,OLNr) 
 New R
 Set R=^KFA("F",FANr,BonInd,OLNr) If $P(R,D,2)!$L($P(R,D,20)) Quit 1
 Set OLNr=$O(^KFA("F",FANr,BonInd,OLNr)) If OLNr="" Quit 1
 Set R=^KFA("F",FANr,BonInd,OLNr) If $P(R,D,2)!$L($P(R,D,20)) Quit 1
 If $P(R,D,17)="KF5" Quit 1
 Quit 0
 ;
BONNXTL(BONNr,OLNr,FakSoort) 
 New R
 Set FakSoort=$G(FakSoort,"F")
 Set R=^KUL(KLNr,FakSoort,BONNr,OLNr) If $P(R,D,2)!$L($P(R,D,20)) Quit 1
 Set OLNr=$O(^KUL(KLNr,FakSoort,BONNr,OLNr)) If 'OLNr Quit 1
 Set R=^KUL(KLNr,FakSoort,BONNr,OLNr) If $P(R,D,2)!$L($P(R,D,20)) Quit 1
 If $P(R,D,17)="KF5" Quit 1
 Quit 0
 ;
ORDNXTL(ORDNr,OLNr) 
 New R
 Set R=^KOD(KLNr,"F",ORDNr,OLNr) If $P(R,D,2)!$L($P(R,D,20)) Quit 1
 Set OLNr=$O(^KOD(KLNr,"F",ORDNr,OLNr)) If OLNr="" Quit 1
 Set R=^KOD(KLNr,"F",ORDNr,OLNr) If $P(R,D,2)!$L($P(R,D,20)) Quit 1
 Quit 0
 ;
OFFNXTL(OFFNr,I4,I5,I6,I7) 
 New R,Paste
 Set Paste=1
 If I4?.N Do  Quit Paste
 .Set R=^KOFKL(KLNr,"F",OFFNr,I4) If $P(R,D,2)!$L($P(R,D,20)) Quit
 .Set I4=$O(^KOFKL(KLNr,"F",OFFNr,I4)) If I4="" Quit
 .Set R=^KOFKL(KLNr,"F",OFFNr,I4) If $P(R,D,2)!$L($P(R,D,20)) Quit
 .If $P($P(R,D,17),"#")="KOFGRP" Quit
 .Set Paste=0
 Quit 0
 ;
TOENXTL(TOENr,TLNr) 
 New R
 Set R=^KTO(LEVNr,TOENr,TLNr) If $P(R,D,2)!$L($P(R,D,20)) Quit 1
 Set TLNr=$O(^KTO(LEVNr,TOENr,TLNr)) If TLNr="" Quit 1
 Set R=^KTO(LEVNr,TOENr,TLNr) If $P(R,D,2)!$L($P(R,D,20)) Quit 1
 Quit 0
 ;