#INCLUDE vhLib.Macro
BLEXPO1 ; BLUM EXPORTEREN VAN TOELEVERINGEN ;BLEXPO1; [ 12/27/2003  9:41 AM ]
 G S
 ;
 ;^HULP(%J)     : detail toelev
 ;^HULP(%J+100) : ALLE volgens toelnr (dalend met verwijz > scrollijst)
 ;^HULP(%J+200) : ALLE scrollijst
 ;^HULP(%J+300) : TE VERZ volgens toelnr (dalend)
 ;^HULP(%J+400) : TE VERZ scrollijst
 ;^HULP(%J+500) : TE VERW volgens toelnr (dalend)
 ;^HULP(%J+600) : TE VERW scrollijst
 ;^HULP(%J+700) : GENERISCH volgens toelnr
 ;
T1 ;Moeten de toeleveringsbons opgenomen blijven voor afdruk : .
T2 ;N = neen   [] = ja
T3 ;   [] = ok 
T4 ; Er zijn geen toeleveringen te exporteren
T5 ; Er zijn geen toeleveringen voor deze leverancier
T6 ;Allen
T7 ;1;N;R;9;;| \2;C;R;8;; | \3;C;L;20;; | \1;N+;L;7;; |;;$P($G(^KTO(5005,X,1)),D,9)\10;N;R;3;;|\4;C;L;16;;;;X_$S($L(X):" ",1:"")_$P(FL(3),D,5)
T8 ;  ToelNr |    Datum | Referentie            |  Klant  |#LN| Markering      
T9 ;Te verzenden
T10 ;1;N;R;9;;| \2;C;R;8;; | \3;C;L;20;; | \1;N+;L;7;; |;;$P($G(^KTO(5005,X,1)),D,9)\10;N;R;3;;|\5;C;L;16;;;;$S(X:$P($T(T25^BLEXPO1),U,2),1:"")_" "_$P(FL(3),D,6)
T11 ;  ToelNr |    Datum | Referentie           |  Klant  |#LN| Markering 
T12 ;Verwijderden
T13 ;1;N;R;9;;| \2;C;R;8;; | \3;C;L;20;; | \1;N+;L;7;; |;;$P($G(^KTO(5005,X,1)),D,9)\10;N;R;3;;|\4;C;L;16;;;;X_$S($L(X):" ",1:"")_$S($P(FL(3),D,5):$P($T(T25^BLEXPO1),U,3),1:"")
T14 ;  ToelNr |    Datum | Referentie           |  Klant  |#LN| Markering 
T15 ;0;C;L;1;;\1;C;L;25;; |\2;N;R;10;;|\3;N;R;10;2;| \4;C;R;5
T16 ; Korttekst                 |   Aantal |    Prijs | LevWk
T17 ;Uitgesteld;Definitief
T18 ;Te verz.;Verz.uitg.;Def. verw.
T19 ;Naam van de verzender
T20 ;Naam van de ontvanger
T21 ;[] = 
T22 ;PETER VDR;BAU03436  ;
T23 ; De toeleveringen van deze leverancier zijn in gebruik
T24 ;BLUM EXPORT;OVERZICHT
T25 ;Generisch;(Generisch);(Print);(Fax)
 ;
 ; Opmerkingen
O1 S K=$P($T(T4),U,2) G OY
O2 S K=$P($T(T5),U,2) G OY
O3 S K=$P($T(T23),U,2) G OY
OY S FP=2403 W @F,@F1,@FMTI,K,$P($T(T3),U,2),@FMTi,@F0 R *K W @F,@F1
OZ Q
 ;
 ; Print selektie op het scherm
PSE S FP=165 W @F,@FMTB,$J(K,15),@FMTb
 Q
 ;
 ; Help
HLP S K="" D PSE
 S HLP(1)=$P($T(T24),U,2),HLP(2)=$P($T(T24),U,3),HLP(3)=4,HLP(6)="" D HLP^HELP
 I "\A\B\V\Z\HELP\?\,\-\"'[(D_R_D) S R=VTB
 S VTB=""
 Q
 ;
 ; Allen
ALL K DL S DL(1)="ALL" I R'=VTB S VTB=R,K=$P($T(T6),U,2)  D PSE,WL^PROC
 D SL^PROC
 Q
 ;
 ; Te verzenden
TVZ D TVZ1,SL^PROC
 Q
TVZ1 K DL S DL(1)="TVZ" I R'=VTB S VTB=R,K=$P($T(T9),U,2) D PSE,RTVZ:RTVZ,WL^PROC
 Q
 ;
 ; Renumber te verzenden
RTVZ S (TR,VNR,RTVZ)=0 K ^HULP(%J+400)
RTVZ1 S TR=$N(^HULP(%J+300,TR)) I TR'=-1 S VNR=VNR+1,^HULP(%J+400,VNR)=^(TR) G RTVZ1
 Q
 ;
 ; Te verwijderen
TVW D TVW1,SL^PROC
 Q
TVW1 K DL S DL(1)="TVW" I R'=VTB S VTB=R,K=$P($T(T12),U,2) D PSE,RTVW:RTVW,WL^PROC
 Q
 ;
 ; Renumber te verwijderen
RTVW S (TR,VNR,RTVW)=0 K ^HULP(%J+600)
RTVW1 S TR=$N(^HULP(%J+500,TR)) G RTVW2:TR=-1
 S VNR=VNR+1,K=^(TR),^HULP(%J+600,VNR)=$P(K,D,1,3)_D_$P($T(T17),U,$F("UD",$P(K,D,4)))
 I $$GP($P(K,D)) S $P(^HULP(%J+600,VNR),D,5)=1
 G RTVW1
RTVW2 Q
 ;
 ; Tonen toeleveringslijnen
TLN K DL,TLN(9) S DL(1)="TLN",TLN(7)=1 D RTLN:R'=VTB I '$D(^HULP(%J)) S R=VTB G TLN1
 D WL^PROC,SL^PROC,CL^PROC1
TLN1 Q
 ;
 ; Renumber toeleveringslijnen
RTLN I VTB="A" G RTLN1:'$D(^HULP(%J+200,ALL(6))),RTLN4:TR=$P(^(ALL(6)),D,1) S TR=$P(^(ALL(6)),D,1) G RTLN2
 I VTB="V" G RTLN1:'$D(^HULP(%J+600,TVW(6))),RTLN4:TR=$P(^(TVW(6)),D,1) S TR=$P(^(TVW(6)),D,1) G RTLN2
 I VTB="Z" G RTLN1:'$D(^HULP(%J+400,TVZ(6))),RTLN4:TR=$P(^(TVZ(6)),D,1) S TR=$P(^(TVZ(6)),D,1) G RTLN2
RTLN1 K ^HULP(%J) S TR="" G RTLN4
RTLN2 S TZ=100,VNR=0 K ^HULP(%J)
RTLN3 S TZ=$N(^KTO(LC,TR,TZ)) G RTLN4:TZ=-1 S R=^(TZ) G RTLN3:'$P(R,D,2) S K=^KPR($P(R,D,2),0)
 S VNR=VNR+1,^HULP(%J,VNR)=$P(K,D,1)_D_$P(R,D,3)_D_$P(R,D,6)_D_$P(R,D,25) G RTLN3
RTLN4 Q
 ;
 ; Opname voor verzending
OVZ G OVZ1:VTB'="A" S K=^HULP(%J+200,ALL(6))
 I $P(K,D,4)'=$P($T(T18),U,2) S $P(^(ALL(6)),D,4)=$P($T(T18),U,2) D EL^PROC
 I '$D(^HULP(%J+300,1000000-$P(K,D,1))) D
 .S ^HULP(%J+300,1000000-$P(K,D,1))=$P(K,D,1,3),RTVZ=1
 .I $$GP($P(K,D)) S $P(^HULP(%J+300,1000000-$P(K,D,1)),D,5)=1
 I $D(^HULP(%J+500,1000000-$P(K,D,1))) K ^(1000000-$P(K,D,1)) S RTVW=1
OVZ1 G OVZ2:VTB'="V",OVZ2:'$D(^HULP(%J+600,TVW(6))) S K=^(TVW(6)),RTVW=$N(^(TVW(6)))'=-1 K ^HULP(%J+500,1000000-$P(K,D,1))
 S ^HULP(%J+300,1000000-$P(K,D,1))=$P(K,D,1,3),RTVZ=1
 I $$GP($P(K,D)) S $P(^HULP(%J+300,1000000-$P(K,D,1)),D,5)=1
 S VNR=^HULP(%J+100,1000000-$P(K,D,1)),$P(^HULP(%J+200,VNR),D,4)=$P($T(T18),U,2)
 I 'RTVW K ^HULP(%J+600,TVW(6)) S:TVW(6)>1 TVW(6)=TVW(6)-1 S:TVW(7)>1 TVW(7)=TVW(7)-1
 D TVW1 S VTB="V"
OVZ2 S R=VTB
 Q
 ;
 ; Markering
MRK S ^HULP(%J+500,1000000-$P(K,D,1))=$P(K,D,1,3)_D_MRK_"\\"
 S:$$GP($P(K,D)) $P(^HULP(%J+500,1000000-$P(K,D,1)),D,5)=1
 S VNR=^HULP(%J+100,1000000-$P(K,D,1)),$P(^HULP(%J+200,VNR),D,4)=$P($T(T18),U,$F("UD",MRK)+1)
 Q
 ;
 ; Uitstellen voor verzending
UVZ G UVZ2:VTB'="Z",UVZ3:'$D(^HULP(%J+400,TVZ(6))) S K=^(TVZ(6)),RTVZ=$N(^(TVZ(6)))'=-1 K ^HULP(%J+300,1000000-$P(K,D,1))
 I $D(^BLBeri("Z",$P(K,D,1))) S RTVW=1,MRK="U" D MRK G UVZ1
 S VNR=^HULP(%J+100,1000000-$P(K,D,1)),$P(^HULP(%J+200,VNR),D,4)=""
UVZ1 I 'RTVZ K ^HULP(%J+400,TVZ(6)) S:TVZ(6)>1 TVZ(6)=TVZ(6)-1 S:TVZ(7)>1 TVZ(7)=TVZ(7)-1
 D TVZ1 S VTB="Z"
UVZ2 G UVZ3:VTB'="V",UVZ3:'$D(^HULP(%J+600,TVW(6))) S K=^(TVW(6)) G UVZ3:$P(K,D,4)=$P($T(T17),U,2)
 S $P(K,D,4)=$P($T(T17),U,2) S ^HULP(%J+600,TVW(6))=K,MRK="U"
 D MRK,EL^PROC S VTB="V"
UVZ3 S R=VTB
 Q
 ;
 ; Definitief verwijderen voor verzending
DVZ G DVZ2:VTB'="Z",DVZ3:'$D(^HULP(%J+400,TVZ(6))) S K=^(TVZ(6)),RTVZ=$N(^(TVZ(6)))'=-1 K ^HULP(%J+300,1000000-$P(K,D,1))
 I $D(^BLBeri("Z",$P(K,D,1))) S RTVW=1,MRK="D" D MRK G DVZ1
 S VNR=^HULP(%J+100,1000000-$P(K,D,1)),$P(^HULP(%J+200,VNR),D,4)=""
DVZ1 I 'RTVZ K ^HULP(%J+400,TVZ(6)) S:TVZ(6)>1 TVZ(6)=TVZ(6)-1 S:TVZ(7)>1 TVZ(7)=TVZ(7)-1
 D TVZ1 S VTB="Z"
DVZ2 G DVZ3:VTB'="V",DVZ3:'$D(^HULP(%J+600,TVW(6))) S K=^(TVW(6)) G DVZ3:$P(K,D,4)=$P($T(T17),U,3)
 S $P(K,D,4)=$P($T(T17),U,3),^(TVW(6))=K,MRK="D" D MRK,EL^PROC S VTB="V"
DVZ3 S R=VTB
 Q
 ;
 ; Initialisatie
IN S K=$P($T(BLEXPO1),U,2),FP=103+$L(K) W @F61,@F11,@F1,@F,@FMTi S FP=101 W @F,@FMTI,K,@FMTi
 S %J=$$%J^vhRtn1()
 K ^HULP(%J) F I=100:100:600 K ^HULP(%J+I)
 S (LC,K)=5005,K=K_" "_$P(^KLE(^KL1(K),0),D,2),FP=137 W @F,K
 S FP=2303 W @F,$P($T(T1),U,2),!?2,$P($T(T2),U,2)
IN1 D IK^PROC1 G IN2:R="-" S AFDRUK=$S(R="N":"NEEN",R="ENTER":"JA",1:R)
 I AFDRUK'="JA",AFDRUK'="NEEN" G IN1
IN2 Q
 ;
 ; Selekteer alle toeleveringen van de gekozen leverancier
SA S TR=0 K ^HULP(%J+100),^HULP(%J+200)
SA1 S TR=$N(^KTO(LC,TR)) G SA2:TR=-1
 S K=TR_D_$P(^(TR,1),D,2,3)_"\\\"
 I $D(^HULP(%J+300,1000000-TR)) S $P(K,D,4)=$P($T(T18),U,2)
 I $$GP(TR) S ^HULP(%J+700,TR)="",$P(K,D,5)=$P($T(T25),U,3)
 S $P(K,D,10)=$$AantProdLijnen(LC,TR)
 S ^HULP(%J+100,1000000-TR)=K G SA1
SA2 S (TR,VNR)=0
SA3 S TR=$N(^HULP(%J+100,TR)) G SA4:TR=-1
 S VNR=VNR+1,K=^(TR),^(TR)=VNR,^HULP(%J+200,VNR)=K G SA3
 ; Tabeldefinitie te allen
SA4 S ALL(1)="^HULP(%J+200",ALL(2)=$P($T(T7),U,2,999),ALL(3)=4
 S ALL(4)=10,ALL(6)=1,ALL(8)=$P($T(T8),U,2)
 Q
	
 ; Selekteer de te verwerken toeleveringen vanuit het zendbakje
ST S TR=0 K ^HULP(%J+300)
ST1 S TR=$N(^BLBeri("Z",TR)) G ST2:TR=-1,ST1:$P(^(TR),D,1)'=LC
 I '$D(^KTO(LC,TR,1)) K ^BLBeri("Z",TR) G ST1
 S K=TR_D_$P(^KTO(LC,TR,1),D,2,3)_"\\\" S:$$GP(TR) $P(K,D,5)=1
 S $P(K,D,10)=$$AantProdLijnen(LC,TR)
 I $P(K,D,5) S ^HULP(%J+700,TR)=""
 S ^HULP(%J+300,1000000-TR)=K G ST1
ST2 D RTVZ
 ; Tabeldefinitie te verzenden
ST3 S TVZ(1)="^HULP(%J+400",TVZ(2)=$P($T(T10),U,2,999),TVZ(3)=4
 S TVZ(4)=10,TVZ(6)=1,TVZ(8)=$P($T(T11),U,2)
 Q
 ;
 ; Tabeldefinitie te verwijderen
SV K ^HULP(%J+500)
 S TVW(1)="^HULP(%J+600",TVW(2)=$P($T(T13),U,2,999),TVW(3)=4
 S TVW(4)=10,TVW(6)=1,TVW(8)=$P($T(T14),U,2)
 Q
 ;
 ; Tabeldefinitie toeleveringslijnen
TL S TLN(1)="^HULP(%J",TLN(2)=$P($T(T15),U,2,999),TLN(3)=15
 S TLN(8)=$P($T(T16),U,2)
 Q
 ;
GP(TR) 
 N R,LC,GP,PR
 S LC=$P(^KTO1(TR),D),TZ=100,GP=0
 F  S TZ=$O(^KTO(LC,TR,TZ)) Q:'TZ  D  Q:GP
 .S R=^KTO(LC,TR,TZ),PR=$P(R,D,2)
 .Q:'PR
 .S R=^KPR(PR,0) S:$P(R,D,3) GP=1
 Q GP
 ;
 ; Opbouw transmissiebestand
OTB N CHK
 S CHK=$$CHKOUT() I '$L(CHK) S K="-",R="" G OTB7
 K BLEXP(3) S R="K\22\3\"_$P($T(T19),U,2)_"\"""_$P($T(T21),U,2)_$P($T(T22),U,2)_"""\10" D R0^cA100
 I K="-" S R=VTB,FP=2203 W @F,@F1 G OTB7
 I K="" S FP=2227 W @F,$P($T(T22),U,2) G OTB1
 S BLEXP(3)=K
OTB1 K BLEXP(4) S R="K\23\3\"_$P($T(T20),U,2)_"\"""_$P($T(T21),U,2)_$P($T(T22),U,3)_"""\10" D R0^cA100
 G OTB:K="-" I K="" S FP=2327 W @F,$P($T(T22),U,3) G OTB2
 S BLEXP(4)=K
OTB2 L ^KTO(LC):2 E  D O3 G OTB2
 S BLEXP(1)=$NA(^HULP(%J)),TR=0,FP=2403 W @F,@F1 K ^HULP(%J)
OTB3 For  Set TR=$O(^HULP(%J+300,TR)) Quit:TR=""  Do
 .Set R=^(TR)
 .Set TLNr=$P(R,D,1)
 .I $$GP(TLNr) Do  Quit 
 . . Do WARN^vhTXTPOP("Toelevering "_TLNr_" bevat afgeleide producten~en kan niet electronisch worden doorgestuurd.~Gelieve dit met e-mail of fax af te handelen")
 .; Fiktieve BLUMklant Van Hoecke - ASOP met fax versturen
 .If $P(^KTO(LC,TLNr,1),D,9)=999250 Do  Quit 
 ..Set T=$$ASK^vhINP("Niet versturen : ",1,"J","De toelevering "_TLNr_" bevat speciale prijzen, deze MOET per FAX verstuurd","worden, en wordt NIET electronische verwerkt !")
 .; Nakijken of SO/DO klant
 .If $P(^KTO(LC,TLNr,1),D,9),$P($G(^BLBeri("K",$TR($J($P(^KTO(LC,TLNr,1),D,9),6)," ","0"))),D,6)="DO" Do
 ..Set ^HULP(%J,"DO",TLNr)=""
 .Else  Set ^HULP(%J,"SO",TLNr)=""
 Lock +^BLExport:60 Else  Set r=$$WARN^vhLock($NA(^BLExport),"X")  Quit
 D ^BLEXPO2,^BLEXP
 Lock -^BLExport
 D RTVW S (TR,VNR)=-1
OTB4 Set Type="" For  Set Type=$O(^HULP(%J,Type)) Quit:Type=""  Do
 .Set TR="" For  Set TR=$O(^HULP(%J,Type,TR)) Quit:TR=""  Do
 ..Kill:AFDRUK="NEEN" ^KTOB(TR)
 ..Kill ^BLBeri("Z",TR)
OTB5 S VNR=$N(^HULP(%J+600,VNR)) G OTB6:VNR=-1 S K=^(VNR) G OTB5:$P(K,D,4)=$P($T(T17),U,2)
 S TR=$P(K,D,1) K ^BLBeri("Z",TR) G OTB5
OTB6 S K=""
 D:CHK["P" PRINTTOE
 D:CHK["F" FAXTOE
OTB7 Q
 ;
CHKOUT() 
 N R,NXT,CHK
 S NXT="",CHK=1,(CHK("E"),CHK("P"),CHK("F"))=0
 F  S NXT=$O(^HULP(%J+300,NXT)) Q:NXT=""  D
 .S R=^HULP(%J+300,NXT)
 .Q:'$P(R,D,5)
 .S CHK=0 S:$P(R,D,6)="" CHK("E")=CHK("E")+1
 .S:$P(R,D,6)=$P($T(T25),U,4) CHK("P")=CHK("P")+1
 .S:$P(R,D,6)=$P($T(T25),U,5) CHK("F")=CHK("F")+1
 I CHK S CHK="E"
 E  D
 .S CHK=$$^vhTXTPOP("BLEXPO1","CHKOUT",,CHK("E"),CHK("P"),CHK("F"))
 .I CHK S CHK="" S:CHK("E") CHK=CHK_"E" S:CHK("P") CHK=CHK_"P" S:CHK("F") CHK=CHK_"F"
 Q CHK
 ;
AantProdLijnen(LC,TR)  ;Aantal productlijnen op een 
 Set Aantal=0,LNr=100
 For  Set LNr=$o(^KTO(LC,TR,LNr)) Quit:'+LNr  Do
 . Set Rec=^KTO(LC,TR,LNr),PRNr=$P(Rec,D,2) Quit:PRNr=""
 . Set Aantal=Aantal+1
 Quit Aantal
 
 ; Start
S D IN G YZ:R="-" S FP=2301 W @F,@F1,@FCH D ST S RTVZ=0,RTVW=1,VTB="",R="Z"
 I $D(^HULP(%J+300)) D TVZ1
 D SA,SV,TL S R=VTB I '$D(^HULP(%J+300)) D O1 S R="A"
 I '$D(^HULP(%J+100)) D O2 G YZ
S1 IF R="SPEC" D
 . ; DL(1,6): volgnummer                           vb:68
 . ; DL(1,7): volgnummer begin van scrollgedeelte  vb:64
 . ; DL(1,3): y-pos begin scrollgedeelte           vb:4  dan is ypos=68-64+4=8 
 . S YPos=@DL(1)@(6)-@DL(1)@(7)+@DL(1)@(3)
 . D CALLSPEC^vhMenu(YPos_";60","BLEXPOSPEC","") 
 I R="A" D ALL G S1
 I R="B" D OTB G S1:K="-",S2
 I R="D" D DVZ G S1
 I R="O" D OVZ G S1
 I R="T" D TLN G S1
 I R="U" D UVZ G S1
 I R="V" D TVW G S1
 I R="Z" D TVZ G S1
 I R="P" D PRT G S1
 I R="F" D FAX G S1
 I R="E" D EXP G S1
 I R="?"!(R="HELP") D HLP G S1
 I R'="-" S R=VTB G S1
S2 K ^HULP(%J) F I=100:100:700 K ^HULP(%J+I)
 ;
YZ Q
 ;
PRT 
 S R="",K=^HULP(%J+400,TVZ(6))
 I $P(K,D,5) D
 .S $P(K,D,6)=$P($T(T25),U,4),^HULP(%J+400,TVZ(6))=K
 .S $P(^HULP(%J+300,1000000-$P(K,D)),D,6)=$P($T(T25),U,4)
 .D EL^PROC
 Q
 ;
FAX 
 S R="",K=^HULP(%J+400,TVZ(6))
 Q
 I $P(K,D,5) D
 .S $P(K,D,6)=$P($T(T25),U,5),^HULP(%J+400,TVZ(6))=K
 .S $P(^HULP(%J+300,1000000-$P(K,D)),D,6)=$P($T(T25),U,5)
 .D EL^PROC
 Q
 ;
EXP 
 S R="",K=^HULP(%J+400,TVZ(6))
 I $P(K,D,5) D
 .S $P(K,D,6)="",^HULP(%J+400,TVZ(6))=K
 .S $P(^HULP(%J+300,1000000-$P(K,D)),D,6)=""
 .D EL^PROC
 Q
 ;
PRINTTOE 
 N R,NXT,Print,TR
 Set R=""
 Do INIT^vhPRINTER("S;L")
 Q:'$D(Print)
 S NXT=""
 F  S NXT=$O(^HULP(%J+300,NXT)) Q:NXT=""  D
 .S R=^HULP(%J+300,NXT)
 .Q:'$P(R,D,5)  Quit:$P(R,D,6)'=$P($T(T25),U,4)
 .S TR=$P(R,D)
 .Do EXTERN^DCPRINT("T",TR,1)
 .K:AFDRUK="NEEN" ^KTOB(TR)
 .K ^BLBeri("Z",TR)
 Do CLOSE^vhPRINTER
 Q
 ;
FAXTOE  
 Q
 ;
 ;
 ;
 ;
TOONPDF()
 Set ref=@DL(1)@(1)_@DL(1)@(6)_")"
 Set Rec=@ref
 Set ToeNr=$P(Rec,D)
 Set FileName=$$FileName(ToeNr)
 Set sc=##class(BL.Flow.Toelevering.Doc).RenderAndFileWWWDoc(ToeNr,.FileName)
 If +sc Do
 . Do Link^VBALink(FileName) ;,PRINT^LOG("TO",TOENr,"P")
 Else  Do WARN^vhTXTPOP($$ParseStatus^vhLib(sc),"") 
 Do WL^PROC
 Quit
 
PRINT()
 Set ref=@DL(1)@(1)_@DL(1)@(6)_")"
 Set Rec=@ref
 Set ToeNr=$P(Rec,D) 
 Do INIT^vhPRINTER("S","","FOP")
 Quit:'$D(Print)
 Set Sc=##class(BL.Flow.Toelevering.Doc).RenderAndPrintDoc(ToeNr,Print("FOPNAME"))
 Do CLOSE^vhPRINTER
 If '+Sc Do 
 . Do WARN^vhTXTPOP($$ParseStatus^vhLib(sc),"") 
 Else  Do WARN^vhTXTPOP("De PDF-file is afgedrukt") 
 Do WL^PROC
 Quit
 
PERSLIJST() ;Toont de contactpersonen van een klant
 N PersLijst
 Set ref=@DL(1)@(1)_@DL(1)@(6)_")"
 Set Rec=@ref
 Set ToeNr=$P(Rec,D) 
 Set LEVNr=$P(^KTO1(ToeNr),D)
 Set LevIndex=^KL1(LEVNr)
 Set Naam=$P($G(^KLE(LevIndex,0)),D,2)
 Set PersNr="",Aantal=0
 For  Set PersNr=$O(^PERS("L",LEVNr,PersNr)) Quit:PersNr=""  Do
 . Set xPers=^PERS("L",LEVNr,PersNr),Naam=$P(xPers,D,2)
 . For i=15:1:20 Do
 . . Set Connect=$P(xPers,D,i),ConnectType=$P(Connect,";"),ConnectWaarde=$P(Connect,";",2)
 . . If ConnectType="E",(ConnectWaarde'="") Do
 . . . Set Aantal=Aantal+1
 . . . Set PersLijst(Aantal)=ConnectWaarde_"`"_Naam
 If Aantal=0 Do
 . Do WARN^vhTXTPOP("Er zijn geen e-mailadressen van contactpersonen van leverancier Blum")
 Else  Do
 . Set MailAdres=$$WILD^vhPOPUP("C;C","KO1-","Selecteer een contactpersoon",.PersLijst)
 . Quit:MailAdres=""
 . Set Subject="Auftrag "_ToeNr
 . Set Body="Auftrag "_ToeNr
 . Set From=$$USERNAME^vhUSER(,"@1")
 . Do Mail(ToeNr,MailAdres,Subject,Body,From)
 . Do WARN^vhTXTPOP("Mail is opgestuurd naar "_MailAdres)
 Do WL^PROC
 Quit
 
MAILMIJ() ;mail de PDF-file naar de user die ingelogd is
 New To,Subject,LevNaam,FileName,sc
 Set ref=@DL(1)@(1)_@DL(1)@(6)_")"
 Set Rec=@ref
 Set ToeNr=$P(Rec,D)
 Set To=$$USERNAME^vhUSER(,"@")
 I $L(To) Do
 . Set Subject="Toelevering"_" "_ToeNr_" van Blum"
 . Set Body=""
 . Do Mail(ToeNr,To,Subject,Body)
 Do WL^PROC
 Quit
 
Mail(ToeNr,To,Subject,Body,From)  ; mail de PDF-file naar iemand
 Set LEVNr=$P(^KTO1(ToeNr),D)
 Set LevNaam=$P(^KLE(^KL1(LEVNr),0),D,2)
 Set FileName="L"_$E($ZSTRIP(LevNaam,"*E'A'N"),1,10)_ToeNr_".pdf"
 Set sc=##class(BL.Flow.Toelevering.Doc).RenderAndMailDoc(ToeNr,To,Subject,Body,FileName,$G(From))
 If '+sc Do WARN^vhTXTPOP($$ParseStatus^vhLib(sc),"") 
 Quit
 
FileName(Toenr)
 Set LEVNr=$P(^KTO1(ToeNr),D)
 Set LevNaam=$P(^KLE(^KL1(LEVNr),0),D,2)
 Set FileName="L"_$E($ZSTRIP(LevNaam,"*E'A'N"),1,10)_ToeNr_".pdf"
 Quit FileName