cANR21 ;Documenten doorsturen naar Word (bestelbon); %ANR20 [ 08/11/00  9:41 AM ]
 ;
 G YZ
 ;
T0 ;Omschrijving;
T1 ;Aantal;
T2 ;Eenh.prijs;
T5 ;Productcode printen\"[] = neen   1[] = ja";
T6 ;Kortingen printen\"[] = neen   1[] = ja";
T7 ;Prijs printen\"[] = neen   1[] = ja";
T13 ;Afsluiting printen\"[] = zonder   1[] = enkel totaal   2[] = BTW-afsluiting";
T17 ;Lever. ref. printen\"[] = neen   1[] = ja";
T18 ;Uw ref.;
 ;
T0F ;Description;
T1F ;Quantité;
T2F ;Prix unit.;
T5F ;Imprimer le code produit\"[] = non   1[] = oui";
T6F ;Imprimer réductions\"[] = non   1[] = oui";
T7F ;Imprimer le prix\"[] = non   1[] = oui";
T13F ;Imprimer fermeture\"[] = sans   1[] = seulement le total   2[] = fermeture TVA";
T17F ;Imprimer réf. four.\"[] = non   1[] = oui";
T18F ;Votre réf;
 ;
T0E ;Description;
T1E ;Quantite;
T2E ;PR/PC;
T5E ;Print product code\"[] = no  1[] =  yes";
T6E ;Print discount\"[] = no   1[] = yes";
T7E ;Print price\"[] = no   1[] = yes";
T13E ;Print conclusion\ "[] = without   1[] = only total   2[] = clonclusion VAT";
T17E ;Print supl. ref. \"[] = no   1[] = yes";
T18E ;Your ref.;    
 ;
T0D ;Umschreibung;
T1D ;Anzahl;
T2D ;Pr/St;
T18D ;Ihre reference;
 ;
 ;
 ;  Opzoeken van de detaillijnen
DETAIL S NUMCOL=5,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)="1"!($P(^DPAR(Q,"PAR",UGL_"."_US_".EXT",0),D,9)="."&($G(LR)="1")) S $P(^HULP(boot,$J+.01,"DETAIL",TELLER),D)=$P(INH,D,37)  ;  Leveranciers referentie
 . I $P(^DPAR(Q,"PAR",UGL_"."_US_".EXT",0),D,6)="" S $P(^HULP(boot,$J+.01,"DETAIL",TELLER),D,2)=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,2)=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,2)=PRCOOM
 . S $P(^HULP(boot,$J+.01,"DETAIL",TELLER),D,3)=$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,4)=$J($S($P(^DPAR(Q,"PAR",UGL_"."_US_".EXT",0),D,13)="":$P(INH,D,6),1:$P(INH,D,32)),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,4)=$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,4)=""
 . 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,5)=$$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))="+")!($P(U5,D,26)=1)!($P(^DPAR(Q,"PAR",UGL_"."_US_".EXT",0),D,13)=1) S $P(^HULP(boot,$J+.01,"DETAIL",TELLER),D,5)="" 
 . S $P(^HULP(boot,$J+.01,"DETAIL",TELLER),D,6)=$P(INH,D,17)
 . I $P(^HULP(boot,$J+.01,"DETAIL",TELLER),D,6)="L"!($P(^HULP(boot,$J+.01,"DETAIL",TELLER),D,6)="T")!($P(^HULP(boot,$J+.01,"DETAIL",TELLER),D,6)="G") D
 .. S $P(^HULP(boot,$J+.01,"DETAIL",TELLER),D,3)=""
 .. S $P(^HULP(boot,$J+.01,"DETAIL",TELLER),D,4)=""
 . I $P(^HULP(boot,$J+.01,"DETAIL",TELLER),D,6)="M" D
 .. I $P(^HULP(boot,$J+.01,"DETAIL",TELLER),D,3)=0&($P(^HULP(boot,$J+.01,"DETAIL",TELLER),D,4)=0) D
 ... S $P(^HULP(boot,$J+.01,"DETAIL",TELLER),D,3)=""
 ... S $P(^HULP(boot,$J+.01,"DETAIL",TELLER),D,4)=""
 . S TELLER=TELLER+1
DETAILZ Q
 ;
 ;  Opzoeken hoofdinggegevens
HOOFD S HEADER=$$SG^cAFA1("LE",KC,109) 
 S ^HULP(boot,$J+.01,"HEADER")=HEADER
 S $P(^HULP(boot,$J+.01,"HEADER"),D,2)=$$SG^cAFA1("LE",KC,102)
 S $P(^HULP(boot,$J+.01,"HEADER"),D,3)=$$SG^cAFA1("LE",KC,103)
 S $P(^HULP(boot,$J+.01,"HEADER"),D,4)=$$SG^cAFA1("LE",KC,105)_D_$P(^(0),D,6)_D_$P(^(0),D,7)
 S LAND=$$SG^cAFA1("LE",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,14)="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,14)="" 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("LE",KC,113)
 S $P(^HULP(boot,$J+.01,"HEADER"),D,15)=": "_$$SG^cAFA1("LE",KC,213)_D_""
 S $P(^HULP(boot,$J+.01,"HEADER"),D,16)=$$SG^cAFA1("LE",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(@("T18"_$S(HEADER="N":"",1:HEADER))),U,2)
 S $P(^HULP(boot,$J+.01,"TITEL"),D,2)=$P($T(@("T0"_$S(HEADER="N":"",1:HEADER))),U,2)
 S $P(^HULP(boot,$J+.01,"TITEL"),D,3)=$P($T(@("T1"_$S(HEADER="N":"",1:HEADER))),U,2)
 S $P(^HULP(boot,$J+.01,"TITEL"),D,4)=$P($T(@("T2"_$S(HEADER="N":"",1:HEADER))),U,2)
 I $P(^DPAR(Q,"PAR",UGL_"."_US_".EXT",0),D,9)=""!(($P(^DPAR(Q,"PAR",UGL_"."_US_".EXT",0),D,9)=".")&($G(LR)="")) S $P(^HULP(boot,$J+.01,"TITEL"),D)=""
KOLTITZ Q
 ;
 ;  Ophalen van de slotteksten
SLOT S AANTL=@("^"_Q_"BA(""%F"",12,US,0,0)")
 S COT=$$SG^cAFA1("LE",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"",12,US,COT,I1)"))
SLOTZ Q
 ;
 ;  Stellen van vragen ivm de 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="LR\22\3\"_$P($T(@("T17"_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
 ;
YZ Q
 ;
R0 S $P(R,D,12)=$T(+0) D ^cAN1000 Q
 ;
ZZ ; 05.02.01 - 16 u 23 * V7.84