DCMANL ;AFDRUKKEN DOKUMENTEN (Detail manuele lijnen) [ 08/06/2002  9:56 AM ]
 ;
FN(Number,Fraction,Format) 
 Quit $$FN^DCALG(Number,Fraction,$G(Format))
 ;
BLOCK(R) 
 Do BLOCK^DCALG(R)
 Quit
 ;
 ; Verwerking manuele lijn
MANFAKT(R) 
 New Omschr,Aantal,Prijs,Korting,Korting1,Korting2,Nr,CKPRNr,ActieCode
 New KortText,IdentNr,Kleur,Omschr1,Omschr2,Omschr3,Round,Bedrag
 Set Omschr=$P(R,D,5) If $E(Omschr)="@" Set Omschr=$E(Omschr,2,99)
 Do:$P($P(R,D,17),"#",2)="CK"
 . Set ActieCode=$P($P(R,D,17),"#",4)
 . Quit:ActieCode=""
 . Set CKPRNr=$P(^RES("FLOW","PI","MANLIJNAC","D",ActieCode),"`",4)
 . Quit:'CKPRNr
 . Set $P(R,D,2)=CKPRNr
 If '$P(R,D,2) Do
 . Set Aantal=$P(R,D,3),Prijs=$P(R,D,6),Korting=$P(R,D,7),Bedrag=$P(R,D,9)
 . Do FETCHPR(R,Taal)
 . If IdentNr="" Do  Quit
 . . Set R=Omschr_$J("",48-$L(Omschr))_"`3`42`CT"
 . . Set R=R_D_$$FN(Aantal,0)_"``51"_D_$$FN(Prijs,2)_"``63"_D_$$FN(Bedrag,2)_"``78"
 . . Do BLOCK(R)
 . Set Round=$P(R,D,21),Round=$P("%\/M",D,$F("HM",$E(Round))-1)
 . Set R=IdentNr_"`3"_D_"*`15"_D_KortText_"``41"_D_$$FN(Aantal,0)_"``51"
 . If $L(Round) Set R=R_D_Round_"`63"
 . Set R=R_D_$$FN(Prijs,2)_"``63"_D_$$FN(Bedrag,2)_"``78"
 . Do BLOCK(R)
 . Set R="   "_Omschr1_$J("",45-$L(Omschr1)-$L(Kleur))_Kleur_"`2`41`CT"
 . If NetBrutP Set Korting=$$KORTING^DCALG(Korting),R=R_D_Korting_"``63"
 . Do BLOCK(R)
 . For Nr=2,3 Set R=$$OMSCHR^DCALG(Nr) If $L(R) Do BLOCK(R)
 Else  Do PRODFAKT^DCPROD(R)
 Quit
 ;
MANBON(R) 
 New Omschr,Nr,KortText,IdentNr,Kleur,Omschr1,Omschr2,Omschr3,CKPRNr,ActieCode
 Set Omschr=$P(R,D,5) If $E(Omschr)="@" Set Omschr=$E(Omschr,2,99)
 Do:$P($P(R,D,17),"#",2)="CK"
 . Set ActieCode=$P($P(R,D,17),"#",4)
 . Quit:ActieCode=""
 . Set CKPRNr=$P(^RES("FLOW","PI","MANLIJNAC","D",ActieCode),"`",4)
 . Quit:'CKPRNr
 . Set $P(R,D,2)=CKPRNr
 If '$P(R,D,2) Do
 . Set Aantal=$P(R,D,3)
 . Do FETCHPR(R,Taal)
 . If IdentNr="" Do  Quit
 . . Set R=Omschr_$J("",48-$L(Omschr))_"`3`42`CT"
 . . Set R=R_D_$$FN(Aantal,0)_"``63"
 . . Do BLOCK(R)
 . Set R=IdentNr_"`3"_D_"*`15"_D_KortText_"``41"_D_$$FN(Aantal,0)_"``63"
 . Do BLOCK(R)
 . Set R="   "_Omschr1_$J("",45-$L(Omschr1)-$L(Kleur))_Kleur_"`2`41`CT"
 . Do BLOCK(R)
 . For Nr=2,3 Set R=$$OMSCHR^DCALG(Nr) If $L(R) Do BLOCK(R)
 Else  Do PRODBON^DCPROD(R)
 Quit
 ;
MANORD(R) 
 New Omschr,Aantal,Prijs,Korting,Korting1,Korting2,Nr,CKPRNr,ActieCode
 New KortText,IdentNr,Kleur,Omschr1,Omschr2,Omschr3,Round,LevWk
 Set Omschr=$P(R,D,5) If $E(Omschr)="@" Set Omschr=$E(Omschr,2,99)
 Do:$P($P(R,D,17),"#",2)="CK"
 . Set ActieCode=$P($P(R,D,17),"#",4)
 . Quit:ActieCode=""
 . Set CKPRNr=$P(^RES("FLOW","PI","MANLIJNAC","D",ActieCode),"`",4)
 . Quit:'CKPRNr
 . Set $P(R,D,2)=CKPRNr
 If '$P(R,D,2) Do
 . Set Aantal=$P(R,D,3),Prijs=$P(R,D,6),Korting=$P(R,D,7)
 . If '$L(Aantal) Set Prijs=$P(R,D,16)
 . Do FETCHPR(R,Taal)
 . If IdentNr="" Do  Quit
 . . Set R=Omschr_$J("",48-$L(Omschr))_"`3`42`CT"
 . . Set R=R_D_$$FN(Aantal,0)_"``57"_D_$$FN(Prijs,2)_"``69"
 . . Do BLOCK(R)
 . Set Round=$P(R,D,21),Round=$P("%\/M",D,$F("HM",$E(Round))-1),LevWk=$P(R,D,25)
 . Set R=IdentNr_"`3"_D_"*`15"_D_KortText_"``41"_D_$$FN(Aantal,0)_"``57"
 . If $L(Round) Set R=R_D_Round_"`69"
 . Set R=R_D_$$FN(Prijs,2)_"``69"_D_LevWk_"``77"
 . Do BLOCK(R)
 . Set R="   "_Omschr1_$J("",45-$L(Omschr1)-$L(Kleur))_Kleur_"`2`41`CT"
 . If NetBrutP Set Korting=$$KORTING^DCALG(Korting),R=R_D_Korting_"``69"
 . Do BLOCK(R)
 . For Nr=2,3 Set R=$$OMSCHR^DCALG(Nr) If $L(R) Do BLOCK(R)
 Else  Do PRODORD^DCPROD(R)
 Quit
 ;
MANOFF(R) 
 New Omschr,Aantal,Prijs,Korting,Bedrag,Korting1,Korting2,Nr,CKPRNr,ActieCode
 New KortText,IdentNr,Kleur,Omschr1,Omschr2,Omschr3,Round,LevTerm,Munt
 Set Omschr=$P(R,D,5) If $E(Omschr)="@" Set Omschr=$E(Omschr,2,99)
 Do:$P($P(R,D,17),"#",2)="CK"
 . Set ActieCode=$P($P(R,D,17),"#",4)
 . Quit:ActieCode=""
 . Set CKPRNr=$P(^RES("FLOW","PI","MANLIJNAC","D",ActieCode),"`",4)
 . Quit:'CKPRNr
 . Set $P(R,D,2)=CKPRNr
 If '$P(R,D,2) Do
 . Set Aantal=$P(R,D,3),Prijs=$P(R,D,6),Korting=$P(R,D,7),Bedrag=$P(R,D,9),Munt=$P(R,D,22)
 . Set Munt=$$MUNT^vhRtn1(Munt,1)
 . Do FETCHPR(R,Taal)
 . If IdentNr="" Do  Quit
 . . Set R=Omschr_$J("",48-$L(Omschr))_"`3`42`CT"
 . . Set R=R_D_$$FN(Aantal,0)_"``51"_D_$$FN(Prijs,2)_"``63"_D_$$FN(Bedrag,2)_"``78"
 . . Do BLOCK(R)
 . . If OffMunt="MTL" Set R=Munt_"``77" Do BLOCK(R)
 . Set Round=$P(R,D,21),Round=$P("%\/M",D,$F("HM",$E(Round))-1),LevTerm=$P(R,D,25)
 . If LevTerm,LevTerm>MaxWeek Set MaxWeek=LevTerm
 . Set R=IdentNr_"`3"_D_"*`15"_D_KortText_"`17"_D_$$FN(Aantal,0)_"``51"
 . If $L(Round) Set R=R_D_Round_"`63"
 . Set R=R_D_$$FN(Prijs,2)_"``63" Set:OffTyp'="C" R=R_D_$$FN(Bedrag,2)_"``78"
 . Do BLOCK(R)
 . Set R="   "_Omschr1_$J("",45-$L(Omschr1)-$L(Kleur))_Kleur_"`2`41`CT"
 . If IsTypDet Set T=LevTerm,T=$S(T=".":$$TXT^DCOFFD("Stock"),'T:"",1:T_" "_$$TXT^DCOFFD("Week")),R=R_D_T_"``50"
 . If NetBrutP Set Korting=$$KORTING^DCALG(Korting),R=R_D_Korting_"``63"
 . If OffMunt="MTL" Set R=R_D_Munt_"``77"
 . Do BLOCK(R)
 . For Nr=2,3 Set R=$$OMSCHR^DCALG(Nr) If $L(R) Do BLOCK(R)
 Else  Do PRODOFFD^DCPROD(R)
 Quit
 ;
FETCHPR(R,Taal) 
 Set KortText=$P(R,D,5),Omschr1=$P(R,D,29),Omschr2=$P(R,D,30),(Omschr3,Kleur)=""
 Set Kleur=$E(KortText,$L(KortText)-3,$l(KortText))_" "
 If $D(^KCOL(Kleur,Taal)) Set Kleur=^KCOL(Kleur,Taal)
 Else  Set Kleur=""
 Set IdentNr=$P(R,D,20)
 Quit
 ;