cANR20(Q,UGL,US,KC,UR,PRG) ;Documenten doorsturen naar Word/Excel; %FN26 [ 01/22/01  9:43 AM ]
 ;
 G 1
 ;
T0 ;Omschrijving;
T1 ;Aantal;
T2 ;Eenh.prijs;
T3 ;Bedrag;
T4 ;BTW;
T5 ;Productcode printen\"[] = neen   1[] = ja";
T6 ;Kortingen printen\"[] = neen   1[] = ja";
T7 ;Prijs printen\"[] = neen   1[] = ja";
T8 ;Goederen;
T9 ;Basis;
T10 ;BTW;
T11 ;Indicatief in;
T12 ;Te betalen;Uw voordeel;
T13 ;Afsluiting printen\"[] = zonder   1[] = enkel totaal   2[] = BTW-afsluiting";
T14 ;Afdruk G-lijn\"[] = zonder detail   1[] = met detail";
T15 ;Totaal;
T16 ;Betaald;
T17 ;Lever. ref. printen\"[] = neen   1[] = ja";
T18 ;Uw ref.;
 ;
T0F ;Description;
T1F ;Quantité;
T2F ;Prix unit.;
T3F ;Montant;
T4F ;TVA;
T5F ;Imprimer le code produit\"[] = non   1[] = oui";
T6F ;Imprimer réductions\"[] = non   1[] = oui";
T7F ;Imprimer le prix\"[] = non   1[] = oui";
T8F ;Marchand.;     
T9F ;Base;
T10F ;TVA;
T11F ;Indicatif en;
T12F ;A payer;Votre faveur;
T13F ;Imprimer fermeture\"[] = sans   1[] = seulement le total   2[] = fermeture TVA";
T14F ;Imprimer ligne G\"[] = sans détail   1[] = avec détail";
T15F ;Total;
T16F ;Payé;
T17F ;Imprimer réf. four.\"[] = non   1[] = oui";
T18F ;Votre réf;
 ;
T0E ;Description;
T1E ;Quantite;
T2E ;PR/PC;
T3E ;Amount;
T4E ;VA;
T5E ;Print product code\"[] = no  1[] =  yes";
T6E ;Print discount\"[] = no   1[] = yes";
T7E ;Print price\"[] = no   1[] = yes";
T8E ;Goods;     
T9E ;Basis;
T10E ;VAT;    
T11E ;Indicative in;
T12E ;To pay;In your favour;
T13E ;Print conclusion\ "[] = without   1[] = only total   2[] = clonclusion VAT;
T14E ;Print G line\"[] = without   1[] = with detail";
T15E ;Total;
T16E ;Payed;
T17E ;Print supl. ref. \"[] = no   1[] = yes";
T18E ;Your ref.;
 ;
T0D ;Umschreibung;
T1D ;Anzahl;
T2D ;Pr/St;
T3D ;Betrag;
T4D ;MW;
T8D ;Gueter;
T9D ;Basis;
T10D ;MwSt;
T11D ;Indikation in;    
T12D ;Zu zahlen;Ihrem vorteil;
T15D ;Totaal;
T16D ;Zahled;
T18D ;Ihre reference;
 ;
 ;
1 K ^HULP(boot,$J+.01)
11 N SWEND,HEADER,NUMCOL,I1,I2,I3,UCO,NET,MST,BTW,PBTW,TTB,INH,TELLER,U5,LAND,PRO,PRCOOM,KORT,PRIJS,AF,GL,LR,AANTL,COT,UPRDMS,UQD,U8
13 S $ZT="TRAP^cAN000"
15 D @($P(@("^"_Q_UGL_"(0,US,""UDOU.EXT"")"),D,10)) I $G(SWEND)=1 G YZ ; VRAAG
19 D @($P(@("^"_Q_UGL_"(0,US,""UDOU.EXT"")"),D,2))  ; HOOFD
 ;
2 D @($P(@("^"_Q_UGL_"(0,US,""UDOU.EXT"")"),D,3))  ; INTER
21 D @($P(@("^"_Q_UGL_"(0,US,""UDOU.EXT"")"),D,11)) ; KOLTIT
23 D @($P(@("^"_Q_UGL_"(0,US,""UDOU.EXT"")"),D))    ; DETAIL
25 D @($P(@("^"_Q_UGL_"(0,US,""UDOU.EXT"")"),D,4))  ; AFSL
 D @($P(@("^"_Q_UGL_"(0,US,""UDOU.EXT"")"),D,5))  ; SLOT
27 D MAC
 ;
YZ K ^HULP(boot,$J+.01) Q
 ;
R0 S $P(R,D,12)=$T(+0) D ^cAN1000 Q
 ;
 ;  Opzoeken van de afsluiting
AFSL I $P(^DPAR(Q,"PAR",UGL_"."_US_".EXT",0),D,10)="" G AFSLZ
 I $P(^DPAR(Q,"PAR",UGL_"."_US_".EXT",0),D,10)=".",($G(AF)="") G AFSLZ
 N UPM,UGB,UCO,UCO1,Q1,VM,TELLER,X,U1
 S UPM=@("^"_Q_UGL_"(0,US,""ULNT"")"),UGB=""
 S UCO=@("^"_Q_UGL)@(0,US,"UCO")
 S UCO1=$P(UCO,U,3),Q1="^"_Q_$P(UCO1,D,1)_"(^"_Q_$P(UCO1,D,2)_"(KC),0)"
 S X=$O(@("^"_Q_"BA(18,"""")"))
 F X=0:1:9 S:$D(^(X)) PBTW(X)=$P(^(X),D,1)
 S VM=$P(U5,D,18)
 S U1=U5
 D ^cFN46
 I $P(^DPAR(Q,"PAR",UGL_"."_US_".EXT",0),D,10)="1" G AFSLA
 I $G(AF),AF=1 G AFSLA
 S I1="",TELLER=0
 F  S I1=$O(NET(I1)) Q:I1=""  D
 . I 'NET(I1)&'MST(I1)&'BTW(I1) Q
 . S $P(^HULP(boot,$J+.01,"DETFOOT",TELLER),D)=$J(NET(I1),0,UQD)
 . S $P(^HULP(boot,$J+.01,"DETFOOT",TELLER),D,2)=$J(MST(I1),0,UQD)
 . S $P(^HULP(boot,$J+.01,"DETFOOT",TELLER),D,3)=PBTW(I1)_"%"
 . S $P(^HULP(boot,$J+.01,"DETFOOT",TELLER),D,4)=$J(BTW(I1),0,UQD)
 . S $P(^HULP(boot,$J+.01,"DETFOOT",TELLER),D,5)=""
 . S TELLER=TELLER+1
 ;   Rekening houden met een voorschot
 I $P(U5,D,12)'="" D
 . I TELLER=0 D
 .. S $P(^HULP(boot,$J+.01,"DETFOOT",(TELLER+1)),D,5)=$P($T(@("T15"_$S(HEADER="N":"",1:HEADER))),U,2)_": "_$J(TTB,0,UQD)
 .. S $P(^HULP(boot,$J+.01,"DETFOOT",TELLER),D,5)=$P($T(@("T16"_$S(HEADER="N":"",1:HEADER))),U,2)_": "_$P(U5,D,12)
 . I TELLER=1 D
 .. S $P(^HULP(boot,$J+.01,"DETFOOT",TELLER),D,5)=$P($T(@("T15"_$S(HEADER="N":"",1:HEADER))),U,2)_": "_$J(TTB,0,UQD)
 .. S $P(^HULP(boot,$J+.01,"DETFOOT",(TELLER-1)),D,5)=$P($T(@("T16"_$S(HEADER="N":"",1:HEADER))),U,2)_": "_$P(U5,D,12)
 . I TELLER>1 D
 .. S $P(^HULP(boot,$J+.01,"DETFOOT",(TELLER-1)),D,5)=$P($T(@("T15"_$S(HEADER="N":"",1:HEADER))),U,2)_": "_$J(TTB,0,UQD)
 .. S $P(^HULP(boot,$J+.01,"DETFOOT",(TELLER-2)),D,5)=$P($T(@("T16"_$S(HEADER="N":"",1:HEADER))),U,2)_": "_$P(U5,D,12)
 S ^HULP(boot,$J+.01,"FOOT")=$J(NET,0,UQD)_D_$J(MST,0,UQD)_D_$J(BTW,0,UQD)_D_""
 ;I $$IDEU^cAFE3(UPM) S $P(^HULP(boot,$J+.01,"FOOT"),D,4)=$$OMREK^cAFE1(Q,(TTB-$P(U5,D,12)),VM,"EUR","V","")_" EUR"
 S $P(^HULP(boot,$J+.01,"FOOT"),D,4)=$$IND^cANR201((TTB-$P(U5,D,12)),VM,$P(U5,D,2))
 S $P(^HULP(boot,$J+.01,"FOOT"),D,5)=$J((TTB-$P(U5,D,12)),0,UQD)_" "_VM
AFSLA I ($P(^DPAR(Q,"PAR",UGL_"."_US_".EXT",0),D,10)="1")!($G(AF)=1) D
 . S ^HULP(boot,$J+.01,"FOOT")=""_D_""_D_""_D_""
 . ;I $$IDEU^cAFE3(UPM) S $P(^HULP(boot,$J+.01,"FOOT"),D,4)=$$OMREK^cAFE1(Q,(NET-$P(U5,D,12)*(FC="C"*-2+1)),VM,"EUR","V","")_" EUR"
 . S $P(^HULP(boot,$J+.01,"FOOT"),D,4)=$$IND^cANR201((NET-$P(U5,D,12)*(FC="C"*-2+1)),VM,$P(U5,D,2))
 . S $P(^HULP(boot,$J+.01,"FOOT"),D,5)=$J((NET-$P(U5,D,12)*(FC="C"*-2+1)),0,UQD)_" "_VM
 I ($P(^DPAR(Q,"PAR",UGL_"."_US_".EXT",0),D,10)="1")!($G(AF)=1) G AFSLB
 S $P(^HULP(boot,$J+.01,"FOOT"),D,6)=$P($T(@("T8"_$S(HEADER="N":"",1:HEADER))),U,2)
 S $P(^HULP(boot,$J+.01,"FOOT"),D,7)=$P($T(@("T9"_$S(HEADER="N":"",1:HEADER))),U,2)
 S $P(^HULP(boot,$J+.01,"FOOT"),D,8)=$P($T(@("T10"_$S(HEADER="N":"",1:HEADER))),U,2)
 S $P(^HULP(boot,$J+.01,"FOOT"),D,9)=$S($P(^HULP(boot,$J+.01,"FOOT"),D,4)'="":$P($T(@("T11"_$S(HEADER="N":"",1:HEADER))),U,2)_" "_$S($P($P(^HULP(boot,$J+.01,"FOOT"),D,4)," ",2)="EUR":"euro",1:$P($P(^HULP(boot,$J+.01,"FOOT"),D,4)," ",2)),1:"")
 S $P(^HULP(boot,$J+.01,"FOOT"),D,10)=$P($T(@("T12"_$S(HEADER="N":"",1:HEADER))),U,2+(FC="C"))
AFSLB I ($P(^DPAR(Q,"PAR",UGL_"."_US_".EXT",0),D,10)="1")!($G(AF)=1) D   
 . S $P(^HULP(boot,$J+.01,"FOOT"),D,6)=""_D_""_D_""
 . S $P(^HULP(boot,$J+.01,"FOOT"),D,9)=$S($P(^HULP(boot,$J+.01,"FOOT"),D,4)'="":$P($T(@("T11"_$S(HEADER="N":"",1:HEADER))),U,2)_" "_$S($P($P(^HULP(boot,$J+.01,"FOOT"),D,4)," ",2)="EUR":"euro",1:$P($P(^HULP(boot,$J+.01,"FOOT"),D,4)," ",2)),1:"")
 . S $P(^HULP(boot,$J+.01,"FOOT"),D,10)=$P($T(@("T15"_$S(HEADER="N":"",1:HEADER))),U,2)
 ;I $P(^DPAR(Q,"PAR",UGL_"."_US_".EXT",0),D,11)="" D
 ;. S $P(^HULP(boot,$J+.01,"FOOT"),D,4)=""
 ;. S $P(^HULP(boot,$J+.01,"FOOT"),D,9)=""
AFSLZ Q
 ;
 ;  Opzoeken van de detaillijnen
DETAIL S NUMCOL=6,I1=100,TELLER=0,UQD=QD
 F  S I1=$O(@("^"_Q_UGL_"(KC,US,UR,I1)")) Q:I1=""  D
 . S INH=^(I1)
 . I $P(^DPAR(Q,"PAR",UGL_"."_US_".EXT",0),D,4)=""!($G(PRO)="") S PRCOOM=""
 . I $P(^DPAR(Q,"PAR",UGL_"."_US_".EXT",0),D,4)="1"!($G(PRO)="1") S PRCOOM=$$SIG^cAFA1("PR",$P(INH,D,2),101)
 . I $P(^DPAR(Q,"PAR",UGL_"."_US_".EXT",0),D,5)="1" S PRCOOM=$G(PRCOOM)_$S($L($G(PRCOOM))>0:" ",1:"")_$P(INH,D,5)
 . I $P(^DPAR(Q,"PAR",UGL_"."_US_".EXT",0),D,5)=""&($P(INH,D,17)'=".") S PRCOOM=$G(PRCOOM)_$S($L($G(PRCOOM))>0:" ",1:"")_$P(INH,D,5)
 . I $P(^DPAR(Q,"PAR",UGL_"."_US_".EXT",0),D,9)=""!($P(^DPAR(Q,"PAR",UGL_"."_US_".EXT",0),D,9)="."&($G(GL)="")) D
 .. I $P(INH,D,17)'="G" Q
 .. S I2=$P(INH,D,30) 
 .. F I3=1:1:I2 D
 ... S TELLER=TELLER-1
 ... K ^HULP(boot,$J+.01,"DETAIL",TELLER)
 . I $P(^DPAR(Q,"PAR",UGL_"."_US_".EXT",0),D,6)="" S $P(^HULP(boot,$J+.01,"DETAIL",TELLER),D)=PRCOOM  ;  Omschrijving
 . I $P(^DPAR(Q,"PAR",UGL_"."_US_".EXT",0),D,6)="1"&($P(INH,D,17)=".") S $P(^HULP(boot,$J+.01,"DETAIL",TELLER),D)=PRCOOM_$J(" ",37-$L(PRCOOM))_" "_$P(INH,D,4)  ;  Omschrijving
 . I $P(^DPAR(Q,"PAR",UGL_"."_US_".EXT",0),D,6)="1"&($P(INH,D,17)'=".") S $P(^HULP(boot,$J+.01,"DETAIL",TELLER),D)=PRCOOM
 . S $P(^HULP(boot,$J+.01,"DETAIL",TELLER),D,2)=$P(INH,D,3)   ;  Aantal
 . S UPRDMS=$P($G(@("^"_Q_UGL_"(0,US,""UPR"")"),"PR\"),D)
 . S UQD=$S($L($P(U5,D,18)):$P(@("^"_Q_"BA(11,$P(U5,D,18))"),D,7),1:QD)
 . S $P(^HULP(boot,$J+.01,"DETAIL",TELLER),D,3)=$J($P(INH,D,6),0,UQD)  ;  E.P.
 . I ($E($P(INH,D,7))="+"&($P(^DPAR(Q,"PAR",UGL_"."_US_".EXT",0),D,8)="1"!(($P(^DPAR(Q,"PAR",UGL_"."_US_".EXT",0),D,8)=".")&($G(PRIJS)="1"))))!(($P(^DPAR(Q,"PAR",UGL_"."_US_".EXT",0),D,7)=""!(($P(^DPAR(Q,"PAR",UGL_"."_US_".EXT",0),D,7)=".")&($G(KORT)="")))&($P(INH,D,7)'="")) D
 .. I $P(INH,D,7)="" Q
 .. D EP^cANR201($P(INH,D,29)/$P(INH,D,3))
 .. S $P(^HULP(boot,$J+.01,"DETAIL",TELLER),D,3)=$J($P(R,D),0,UQD)
 . I $P(^DPAR(Q,"PAR",UGL_"."_US_".EXT",0),D,8)=""!(($P(^DPAR(Q,"PAR",UGL_"."_US_".EXT",0),D,8)=".")&($G(PRIJS)="")) S $P(^HULP(boot,$J+.01,"DETAIL",TELLER),D,3)=""
 . S $P(U8,U,9)="1"
 . I $P(^DPAR(Q,"PAR",UGL_"."_US_".EXT",0),D,7)="1"!(($P(^DPAR(Q,"PAR",UGL_"."_US_".EXT",0),D,7)=".")&($G(KORT)="1")) D 
 .. I $P(INH,D,7)="" Q
 .. S $P(^HULP(boot,$J+.01,"DETAIL",TELLER),D,4)=$$KORT^cANR201($P(INH,D,7),"V",$G(UPRDMS,"PR")) ; Korting %
 . I ($P(^DPAR(Q,"PAR",UGL_"."_US_".EXT",0),D,8)=""!(($P(^DPAR(Q,"PAR",UGL_"."_US_".EXT",0),D,8)=".")&($G(PRIJS)="")))!($E($P(INH,D,7))="+") S $P(^HULP(boot,$J+.01,"DETAIL",TELLER),D,4)="" 
 . ;I $P(^DPAR(Q,"PAR",UGL_"."_US_".EXT",0),D,8)="1"!$G(PRIJS)="1" S $P(^HULP(boot,$J+.01,"DETAIL",TELLER),D,5)=+$J($P(INH,D,9),0,UQD) ;  Bedrag
 . I $P(^DPAR(Q,"PAR",UGL_"."_US_".EXT",0),D,8)="1"!(($P(^DPAR(Q,"PAR",UGL_"."_US_".EXT",0),D,8)=".")&($G(PRIJS)="1")) S $P(^HULP(boot,$J+.01,"DETAIL",TELLER),D,5)=$J($P(INH,D,9),0,UQD) ;  Bedrag
 . S $P(^HULP(boot,$J+.01,"DETAIL",TELLER),D,6)=$P(INH,D,8)  ; BT (BTW-code)
 . S $P(^HULP(boot,$J+.01,"DETAIL",TELLER),D,7)=$P(INH,D,17) ; Module keuze
 . I $P(^DPAR(Q,"PAR",UGL_"."_US_".EXT",0),D,8)=""!(($P(^DPAR(Q,"PAR",UGL_"."_US_".EXT",0),D,8)=".")&($G(PRIJS)="")) S $P(^HULP(boot,$J+.01,"DETAIL",TELLER),D,6)=""
 . I $P(^HULP(boot,$J+.01,"DETAIL",TELLER),D,7)="L"!($P(^HULP(boot,$J+.01,"DETAIL",TELLER),D,7)="T") D
 .. S $P(^HULP(boot,$J+.01,"DETAIL",TELLER),D,2)=""
 .. S $P(^HULP(boot,$J+.01,"DETAIL",TELLER),D,3)=""
 .. S $P(^HULP(boot,$J+.01,"DETAIL",TELLER),D,5)=""
 . I $P(^HULP(boot,$J+.01,"DETAIL",TELLER),D,7)="G" D
 .. S $P(^HULP(boot,$J+.01,"DETAIL",TELLER),D,2)=""
 .. S $P(^HULP(boot,$J+.01,"DETAIL",TELLER),D,3)=""
 . I $P(^HULP(boot,$J+.01,"DETAIL",TELLER),D,7)="M" D
 .. I $P(^HULP(boot,$J+.01,"DETAIL",TELLER),D,2)=0&(($P(^HULP(boot,$J+.01,"DETAIL",TELLER),D,3)=0)&($P(^HULP(boot,$J+.01,"DETAIL",TELLER),D,5)'=0)) D
 ... S $P(^HULP(boot,$J+.01,"DETAIL",TELLER),D,2)=""
 ... S $P(^HULP(boot,$J+.01,"DETAIL",TELLER),D,3)=""
 . S TELLER=TELLER+1
DETAILZ Q
 ;
 ;  Opzoeken hoofinggevens
HOOFD S HEADER=$$SG^cAFA1("KL",KC,109)
 S ^HULP(boot,$J+.01,"HEADER")=HEADER
 S $P(^HULP(boot,$J+.01,"HEADER"),D,2)=$$SG^cAFA1("KL",KC,102)
 S $P(^HULP(boot,$J+.01,"HEADER"),D,3)=$$SG^cAFA1("KL",KC,103)
 S $P(^HULP(boot,$J+.01,"HEADER"),D,4)=$$SG^cAFA1("KL",KC,105)_D_$P(^(0),D,6)_D_$P(^(0),D,7)
 S LAND=$$SG^cAFA1("KL",KC,108)
 S $P(^HULP(boot,$J+.01,"HEADER"),D,7)=$$SIG^cAFA1("ISO.LAND",LAND,102)
 I $$SIG^cAFA1("ISO.LAND",LAND,101)=$P(@("^"_Q_"BA(39)"),D,3) S $P(^HULP(boot,$J+.01,"HEADER"),D,7)=""
 S $P(^HULP(boot,$J+.01,"HEADER"),D,8)=KC
HOOFDZ Q
 ;
 ;  Opzoeken interludium
INTER S U5=@("^"_Q_UGL_"(KC,US,UR,""1"")")
 S $P(^HULP(boot,$J+.01,"HEADER"),D,9)=$P(U5,D,27)_" "_$E(UR,1,($L(UR)-3))_"."_$E(UR,($L(UR)-2),$L(UR))
 S $P(^HULP(boot,$J+.01,"HEADER"),D,10)=": "_$P(U5,D,2)_D_": "_$P(U5,D,3)
 I $P(^DPAR(Q,"PAR",UGL_"."_US_".EXT",0),D,9)="1" S $P(^HULP(boot,$J+.01,"HEADER"),D,12)=$S($L($P(U5,D,19))>0:": "_$P(U5,D,19),1:"")
 I $P(^DPAR(Q,"PAR",UGL_"."_US_".EXT",0),D,9)="" S $P(^HULP(boot,$J+.01,"HEADER"),D,12)=""
 S $P(^HULP(boot,$J+.01,"HEADER"),D,13)=""
 S $P(^HULP(boot,$J+.01,"HEADER"),D,14)=": "_$$SG^cAFA1("KL",KC,113)
 S $P(^HULP(boot,$J+.01,"HEADER"),D,15)=": "_$$SG^cAFA1("KL",KC,213)_D_""
 S $P(^HULP(boot,$J+.01,"HEADER"),D,16)=$$SG^cAFA1("KL",KC,104)
 S ^HULP(boot,$J+.01,"THEADER")=$S(HEADER="N":"Datum",1:"Date")_D_$S(HEADER="N":"Referte",1:"Référence")
 S $P(^HULP(boot,$J+.01,"THEADER"),D,3)=$S($L($P(^HULP(boot,$J+.01,"HEADER"),D,12))>0:$S(HEADER="N":"Lev. datum",1:"Date liv."),1:"")
 S $P(^HULP(boot,$J+.01,"THEADER"),D,4)=D_$S(HEADER="N":"Telefoon",1:"Téléphone")_D_$S(HEADER="N":"Fax",1:"Fax")
INTERZ Q
 ;
 ;  Bepalen van de titels van de kolommen
KOLTIT S ^HULP(boot,$J+.01,"TITEL")=$P($T(@("T0"_$S(HEADER="N":"",1:HEADER))),U,2)
 S $P(^HULP(boot,$J+.01,"TITEL"),D,2)=$P($T(@("T1"_$S(HEADER="N":"",1:HEADER))),U,2)
 S $P(^HULP(boot,$J+.01,"TITEL"),D,3)=$P($T(@("T2"_$S(HEADER="N":"",1:HEADER))),U,2)
 S $P(^HULP(boot,$J+.01,"TITEL"),D,5)=$P($T(@("T3"_$S(HEADER="N":"",1:HEADER))),U,2)
 S $P(^HULP(boot,$J+.01,"TITEL"),D,6)=$P($T(@("T4"_$S(HEADER="N":"",1:HEADER))),U,2)
KOLTITZ Q
 ;
 ;  Starten macro + doorsturen gegevens
MAC D START^cANR0($P("DocToWrd\DocToEx",D,PRG))
 W "TEMPLATE",!
 I PRG="1"&($ZV["MSM") W $$D2NT^cQCV($TR($P(^DPAR(Q,"PAR",UGL_"."_US_".EXT",0),D,2),"/",D)),!
 I PRG="1"&($ZV'["MSM") W $TR($P(^DPAR(Q,"PAR",UGL_"."_US_".EXT",0),D,2),"/",D),!
 I PRG="2"&($ZV["MSM") W $$D2NT^cQCV($TR($P(^DPAR(Q,"PAR",UGL_"."_US_".EXT",0),D,3),"/",D)),!
 I PRG="2"&($ZV'["MSM") W $TR($P(^DPAR(Q,"PAR",UGL_"."_US_".EXT",0),D,3),"/",D),!
 W "HEADER",!
 I $ZV["MSM" F I1=1:1:16 W $$D2NT^cQCV($P(^HULP(boot,$J+.01,"HEADER"),D,I1)),!
 I $ZV'["MSM" F I1=1:1:16 W $P(^HULP(boot,$J+.01,"HEADER"),D,I1),!
 W "THEADER",!
 I $ZV["MSM" F I1=1:1:6 W $$D2NT^cQCV($P(^HULP(boot,$J+.01,"THEADER"),D,I1)),!
 I $ZV'["MSM" F I1=1:1:6 W $P(^HULP(boot,$J+.01,"THEADER"),D,I1),!
 W "NUMCOL",!
 W NUMCOL,!
 W "TITEL",!
 I $ZV["MSM" F I1=1:1:NUMCOL W $$D2NT^cQCV($P(^HULP(boot,$J+.01,"TITEL"),D,I1)),!
 I $ZV'["MSM" F I1=1:1:NUMCOL W $P(^HULP(boot,$J+.01,"TITEL"),D,I1),!
 W "DETAIL",!
 S I1=""
 F  S I1=$O(^HULP(boot,$J+.01,"DETAIL",I1)) Q:I1=""  D
 . S K=^HULP(boot,$J+.01,"DETAIL",I1)
 . I $ZV["MSM" W $$D2NT^cQCV($P(K,D)),!,D,$$D2NT^cQCV($P(K,D,2,$L(K,D))),!
 . i $ZV'["MSM" W $P(K,D),!,D,$P(K,D,2,$L(K,D)),!
 W "ENDDET",!
 W "DETFOOT",!
 S I1=""
 F  S I1=$O(^HULP(boot,$J+.01,"DETFOOT",I1)) Q:I1=""  D
 . I $ZV["MSM" W $$D2NT^cQCV(^HULP(boot,$J+.01,"DETFOOT",I1)),!
 . I $ZV'["MSM" W ^HULP(boot,$J+.01,"DETFOOT",I1),!
 W "ENDDETFOOT",!
 W "FOOT",!
 I $ZV["MSM" F I1=1:1:10 W $$D2NT^cQCV($P($G(^HULP(boot,$J+.01,"FOOT")),D,I1)),!
 I $ZV'["MSM" F I1=1:1:10 W $P($G(^HULP(boot,$J+.01,"FOOT")),D,I1),!
 W "SLOT",!
 I $ZV["MSM" F I1=1:1:AANTL W $$D2NT^cQCV(^HULP(boot,$J+.01,"SLOT",I1)),!
 I $ZV'["MSM" F I1=1:1:AANTL W ^HULP(boot,$J+.01,"SLOT",I1),!
 W "ENDSLOT",!
 W "END",!
 D STOP^cANR0
MACZ Q
 ;
 ;  Ophalen van de slotteksten
SLOT S AANTL=@("^"_Q_"BA(""%F"",15,US,0,0)")
 S COT=$$SG^cAFA1("KL",KC,109)
 I '$L($G(AANTL)) G SLOTZ
 F I1=1:1:AANTL D
 . S ^HULP(boot,$J+.01,"SLOT",I1)=$G(@("^"_Q_"BA(""%F"",15,US,COT,I1)"))
SLOTZ Q
 ;
 ;  Stellen van vragen ivm layout van het printen
VRAAG I $P(^DPAR(Q,"PAR",UGL_"."_US_".EXT",0),D,4)="." S R="PRO\22\3\"_$P($T(@("T5"_QT)),U,2)_"\1\\""1-""[K" D R0 I K="-" S SWEND=1 G VRAAGZ
VRAAGA I $P(^DPAR(Q,"PAR",UGL_"."_US_".EXT",0),D,7)="." S R="KORT\22\3\"_$P($T(@("T6"_QT)),U,2)_"\1\\""1-""[K" D R0
 I $P(^DPAR(Q,"PAR",UGL_"."_US_".EXT",0),D,7)=".",((K="-")&($P(^DPAR(Q,"PAR",UGL_"."_US_".EXT",0),D,4)=".")) G VRAAG
 I $P(^DPAR(Q,"PAR",UGL_"."_US_".EXT",0),D,7)=".",((K="-")&($P(^DPAR(Q,"PAR",UGL_"."_US_".EXT",0),D,4)'=".")) S SWEND=1 G VRAAGZ
VRAAGB I $P(^DPAR(Q,"PAR",UGL_"."_US_".EXT",0),D,8)="." S R="PRIJS\22\3\"_$P($T(@("T7"_QT)),U,2)_"\1\\""1-""[K" D R0 
 I $P(^DPAR(Q,"PAR",UGL_"."_US_".EXT",0),D,8)=".",((K="-")&($P(^DPAR(Q,"PAR",UGL_"."_US_".EXT",0),D,7)=".")) G VRAAGA
 I $P(^DPAR(Q,"PAR",UGL_"."_US_".EXT",0),D,8)=".",((K="-")&($P(^DPAR(Q,"PAR",UGL_"."_US_".EXT",0),D,7)'=".")&($P(^DPAR(Q,"PAR",UGL_"."_US_".EXT",0),D,4)=".")) G VRAAG
 I $P(^DPAR(Q,"PAR",UGL_"."_US_".EXT",0),D,8)=".",((K="-")&($P(^DPAR(Q,"PAR",UGL_"."_US_".EXT",0),D,7)'=".")&($P(^DPAR(Q,"PAR",UGL_"."_US_".EXT",0),D,4)'=".")) S SWEND=1 G VRAAGZ
VRAAGC I $P(^DPAR(Q,"PAR",UGL_"."_US_".EXT",0),D,9)="." D
 . S R="GL\22\3\"_$P($T(@("T14"_QT)),U,2)_"\1\\""1-""[K" D R0
 I $P(^DPAR(Q,"PAR",UGL_"."_US_".EXT",0),D,9)=".",((K="-")&($P(^DPAR(Q,"PAR",UGL_"."_US_".EXT",0),D,8)=".")) G VRAAGB
 I $P(^DPAR(Q,"PAR",UGL_"."_US_".EXT",0),D,9)=".",((K="-")&($P(^DPAR(Q,"PAR",UGL_"."_US_".EXT",0),D,8)'=".")&($P(^DPAR(Q,"PAR",UGL_"."_US_".EXT",0),D,7)=".")) G VRAAGA
 I $P(^DPAR(Q,"PAR",UGL_"."_US_".EXT",0),D,9)=".",((K="-")&($P(^DPAR(Q,"PAR",UGL_"."_US_".EXT",0),D,8)'=".")&($P(^DPAR(Q,"PAR",UGL_"."_US_".EXT",0),D,7)'=".")&($P(^DPAR(Q,"PAR",UGL_"."_US_".EXT",0),D,4)=".")) G VRAAG
 I $P(^DPAR(Q,"PAR",UGL_"."_US_".EXT",0),D,9)=".",((K="-")&($P(^DPAR(Q,"PAR",UGL_"."_US_".EXT",0),D,8)'=".")&($P(^DPAR(Q,"PAR",UGL_"."_US_".EXT",0),D,7)'=".")&($P(^DPAR(Q,"PAR",UGL_"."_US_".EXT",0),D,4)'=".")) S SWEND=1 G VRAAGZ
 I $P(^DPAR(Q,"PAR",UGL_"."_US_".EXT",0),D,10)="." S R="AF\22\3\"_$P($T(@("T13"_QT)),U,2)_"\1\\""12-""[K" D R0
 I $P(^DPAR(Q,"PAR",UGL_"."_US_".EXT",0),D,10)=".",((K="-")&($P(^DPAR(Q,"PAR",UGL_"."_US_".EXT",0),D,9)=".")) G VRAAGC
 I $P(^DPAR(Q,"PAR",UGL_"."_US_".EXT",0),D,10)=".",((K="-")&($P(^DPAR(Q,"PAR",UGL_"."_US_".EXT",0),D,9)'=".")&($P(^DPAR(Q,"PAR",UGL_"."_US_".EXT",0),D,8)=".")) G VRAAGB
 I $P(^DPAR(Q,"PAR",UGL_"."_US_".EXT",0),D,10)=".",((K="-")&($P(^DPAR(Q,"PAR",UGL_"."_US_".EXT",0),D,9)'=".")&($P(^DPAR(Q,"PAR",UGL_"."_US_".EXT",0),D,8)'=".")&($P(^DPAR(Q,"PAR",UGL_"."_US_".EXT",0),D,7)=".")) G VRAAGA
 I $P(^DPAR(Q,"PAR",UGL_"."_US_".EXT",0),D,10)=".",((K="-")&($P(^DPAR(Q,"PAR",UGL_"."_US_".EXT",0),D,9)'=".")&($P(^DPAR(Q,"PAR",UGL_"."_US_".EXT",0),D,8)'=".")&($P(^DPAR(Q,"PAR",UGL_"."_US_".EXT",0),D,7)'=".")&($P(^DPAR(Q,"PAR",UGL_"."_US_".EXT",0),D,4)=".")) G VRAAG
 I $P(^DPAR(Q,"PAR",UGL_"."_US_".EXT",0),D,10)=".",((K="-")&($P(^DPAR(Q,"PAR",UGL_"."_US_".EXT",0),D,9)'=".")&($P(^DPAR(Q,"PAR",UGL_"."_US_".EXT",0),D,8)'=".")&($P(^DPAR(Q,"PAR",UGL_"."_US_".EXT",0),D,7)'=".")&($P(^DPAR(Q,"PAR",UGL_"."_US_".EXT",0),D,4)'=".")) S SWEND=1 G VRAAGZ
 S SWEND=0
VRAAGZ Q
 ;
ZZ ; 05.02.01 - 16 u 23 * V7.84