cwDCFAKT ;AFDRUKKEN FAKTUREN [ 11/17/2003  9:39 AM ]
 ;
FN(Number,Fraction,Format) 
 Quit $$FN^DCALG(Number,Fraction,$G(Format))
 ;
CACHE(R) 
 Do CACHE^DCALG(R)
 Quit
 ;
PASTE(Page,Line,Text,BPos,EPos,Attr) 
 Do PASTE^DCALG(Page,Line,Text,BPos,EPos,Attr)
 Quit
 ;
 ; Afdruk afsluiting (laatste blad)
LFOOTER
 New R,T,Goederen,Port,KontKrt,Basis,%Btw,Btw,TeBet,VervDag
 Set R=^KFA("F",FANr,0,0),Goederen=$P(R,D,7),Basis=$P(R,D,8),Btw=$P(R,D,9)
 Set TeBet=$P(R,D,12),KontKrt=$P(R,D,13),Port=$P($P(R,D,17),"#",2)
 Set VervDag=$TR($P(R,D,3),".","-")
 Set R=^KFA("F",FANr,0,1),%Btw=+R
 Set Goederen=Goederen-Port
 Do CACHE(L("A","F"))
 Do CACHE(L("A","B"))
 Do
 .New VPerfo
 .Set T=$$TXT("Goed")
 .Do PASTE(PCount,LCount,T,3,"","")
 Do PASTE(PCount,LCount,$$FN(Goederen,2),"",24,"")
 Set T=$$TXT("Basis")
 Do PASTE(PCount,LCount,T,27,"","")
 Do PASTE(PCount,LCount,$$FN(Basis,2),"",46,"")
 If FaktTyp="F" Set T=$$TXT("TeBet")
 Else  Set T=$$TXT("TeGoed")
 Do PASTE(PCount,LCount,T,49,"","")
 Do PASTE(PCount,LCount,$$FN(TeBet,2),"",74,"")
 Do PASTE(PCount,LCount,FaktMunt,75,"","")
 Do CACHE(L("A","B"))
 Do
 .New VPerfo
 .Set T=$$TXT("Port")
 .Do PASTE(PCount,LCount,T,3,"","")
 Do PASTE(PCount,LCount,$$FN(Port,2),"",24,"")
 If %Btw Do
 .Set T=$$TXT("BtwP")
 .Do PASTE(PCount,LCount,T,27,"","")
 .Do PASTE(PCount,LCount,BtwVoet(%Btw),"",45,"")
 Do CACHE(L("A","B"))
 If KontKrt Do
 .Do
 ..New VPerfo
 ..Set T=$$TXT("KortK")
 ..Do PASTE(PCount,LCount,T,3,"","")
 .Do PASTE(PCount,LCount,$$FN(KontKrt,2),"",24,"")
 Set T=$$TXT("BtwB")
 Do PASTE(PCount,LCount,T,27,"","")
 Do PASTE(PCount,LCount,$$FN(Btw,2),"",46,"")
 Set T=$$TXT("Vervd")
 Do PASTE(PCount,LCount,T,49,"","")
 Do PASTE(PCount,LCount,VervDag,66,"","")
 Do CACHE(L("A","L"))
 Quit
 ;
 ; Ophalen taalafhankelijke tekst
TXT(Ref,Piece) 
 If '$D(Piece) Set Piece=2
 Quit $P($P($T(@("T"_Ref)),U,Piece),D,$F("NFDE",Taal)-1)
 ;
TFakt ;FACTUUR\FACTURE\RECHNUNG\INVOICE
TKred ;CREDITNOTA\NOTE DE CREDIT\KREDITNOTA\CREDITNOTE
TContr ;Afname van contract\Prise du contrat\Afname van contract\Afname van contract
TDate ;Datum\Date\Datum\Date
TBtw ;BTW nr.\No. TVA\BTW nr.\VAT nbr
TKopie ;Kopie\Copie\Kopie\Copie
TKopieI ;intern
TVervg ;vervolg\suite\fortsetzung\continue
TVervt ;vervolgt\à suivre\fortgesetzt\t.b.continued
TArt ;Artikel\Article\Artikel\Article
TAant ;Aantal\Quant.\Menge\Quant.
TPrijs ;E.Prijs\Prix U\E.Preis\U.Price
TBedr ;Bedrag\Montant\Betrag\Amount
TKort ;Korting\Remise\Rabat\Discount
TGoed ;Goederen\Marchand.\Waren\Goods
TPort ;Port\Port\Porto\Postage
TKortK ;Bet. Korting\Esc au compt\Rabat zahl\Bet. Korting
TBasis ;Basis\Base\Basis\Base
TBtwP ;BTW%\TVA%\MWST%\VAT%
TBtwB ;BTW\TVA\MWST\VAT
TTeBet ;Te betalen\A payer\Zu bezahlen\To pay
TTeGoed ;Uw voordeel\Votre faveur\Ihrem vorteil\Your favour
TVervd ;Vervaldag\Echeance\Faellig\D of mat
TPalet ;Palet\Palette\Palette\Palet;ten\s\n\s
TColli ;Coll\Coli\Koll\Parcel;o\s\o\o;i\s\i\i
TKarton ;Karton\Carton\Paket\Carton;s\s\e\s
TGew ;Brutogewicht\Poids brut\Bruttogewicht\brutogewicht
TFaktW ;Faktuurwaarde\Valeur de la facture\Warenwert\Faktuurwaarde
TVrijst ;-  vrijstelling art 39 bis - "BTW verlegd"\-  livraison intra-communautaire hors taxe\-  steuerfreie innergemeinschaftliche sendung\-  vrijstelling art 39 bis - "BTW verlegd"
TVwNl1 ;Verkopen en leveringen in Nederland volgens BELUNED-condities, gedeponeerd
TVwNl2 ;bij de Kamer van Koophandel en Fabrieken te 's Gravenhage onder nummer 1287.
TLevVw ;Leveringsvoorwaarde\Conditions de livraison\Lieferbedingung\Betalingsvoorwaarde
TBetVw ;Betalingsvoorwaarde\Conditions de paiement\Zahlungsbedingung\Betalingsvoorwaarde
TBon ;Leveringsbon nr.\Bon de livraison nr.\Lieferschein nr.\Leveringsbon nr.;van\du\vom\van
TLevAdr ;L/A\A/L\L/A\L/A
TOrder ;O/order\N/ordre\U/auftr\O/order
TKlRef ;Uw ref\Votre ref\Ihre ref\Uw ref
TProjRef ;Ref\Ref\Ref\Ref
TExped ;Expediteur\Expediteur\Expediteur\Expediteur
TOrgal ;ORGALUX\ORGALUX\ORGALUX\ORGALUX