DCCMRBLUM ;AFDRUKKEN CMR-dokument voor transport Blum [ 09/15/2003  4:40 PM ]
 ;
 ; Het afdrukken van een cmr kan met volgende oproep
 ; --> Do PRINT^DCCMR(.CMR)
 ;
VERWERK(Modify) 
 New CMR
 Set Aantal=1
 Do CMR(.CMR)
 Do:$G(Modify)
 .Do DISPLAY^vhScherm("DCCMRBLUM"),FIELD^vhScherm("DCCMRBLUM","AANTALCMR")
 .Set:'%SC Aantal=0
 Do:$G(Aantal)
 .Do INIT^vhPRINTER()
 .Do:$D(Print)
 ..Do INIT
 ..Do PRINT(.CMR,Aantal)
 ..Do CLOSE^vhPRINTER
 Quit
 ;
CMR(CMR,Taal) 
 New I
 Set Taal=$G(Taal,"N")
 For I=1:1:3 Set CMR(1,I)=^KBA(99,I)
 Set CMR(1,4)="BELGIE"
 Set CMR(2,1)=$$TXT("Geadr")
 For I=1:1:4 Xecute "Set CMR(2,I)="_$$TXT("Geadr"_I)
 Set CMR(3,1)=$$TXT("OvGoed")
 Set CMR(4,1)=$$TXT("AflGoed")
 For I=1:1:4 Xecute "Set CMR(5,I)="_$$TXT("Transp"_I)
 Set CMR(10,1)=$$TXT("Palet")
 Set CMR(10,2)=$$TXT("Gewicht")
 Set CMR(10,3)=$$TXT("Volume")
 Set CMR(10,4)=$$TXT("Pakket")
 Set CMR(11,1)=$$TXT("LevBon")
 Set CMR(12,1)=$$TXT("Opgem")
 For I=1:1:3 Set CMR(14,I)=^KBA(99,I)
 For I=1:1:3 Xecute "Set CMR(15,I)="_$$TXT("Transp"_I)
 Quit
 ;
PASTE(Page,Line,Text,BPos,EPos,Attr) 
 Do PASTE^DCALG(Page,Line,Text,BPos,EPos,Attr)
 Quit
 ;
 ; Afdruk body
BODY 
 New I
 For I=1:1:MaxLines Set C(1,I)=""
 For I=1:1:4 Do PASTE(1,(6+HeadLen+I),CMR(1,I),7,"","")
 For I=1:1:4 Do PASTE(1,(7+HeadLen+I),CMR(5,I),44,"","")
 For I=1:1:4 Do PASTE(1,(12+HeadLen+I),CMR(2,I),7,"","")
 Do PASTE(1,(19+HeadLen),CMR(3,1),7,"","")
 ;Do PASTE(1,(23+HeadLen),CMR(4,1),7,"","")
 Do PASTE(1,(43+HeadLen),CMR(10,1),13,"","")
 Do PASTE(1,(43+HeadLen),CMR(10,2),59,"","")
 Do PASTE(1,(43+HeadLen),CMR(10,3),68,"","")
 Do PASTE(1,(45+HeadLen),CMR(10,4),13,"","")
 Do PASTE(1,(54+HeadLen),CMR(11,1),7,"","")
 Do PASTE(1,(57+HeadLen),CMR(12,1),7,"","")
 For I=1:1:3 Do PASTE(1,(59+HeadLen+I),CMR(14,I),7,"",""),PASTE(1,(59+HeadLen+I),CMR(15,I),31,"","")
 Quit
 ;
 ; Afdrukken van een bladzijde
PPRINT 
 Do PPRINT^DCPRINT(1)
 Quit
 ;
 ; Opbouwen local C en afdrukken van de bon
PRINT(CMR,Aantal,Taal) 
 New C,Taal
 Set Aantal=$G(Aantal,1),Taal=$G(Taal,"N")
 Do:'$D(CMR) CMR(.CMR)
 If '$G(Init) Do INIT
 Do BODY
 For Aantal=1:1:Aantal Do PPRINT
 Quit
 ;
 ; Initialisatie
INIT 
 If '$D(P) Do PINIT^DCINIT
 If '$D(PageLen)!'$D(V) Do FINIT^DCINIT("C")
 Set HeadLen=Print("HEAD")-(P("Type")="BR"*2)
 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)
 ;
TCMR ;CMR\CMR\CMR\CMR
TGeadr1 ;$P(^KLE(^KL1(5005),0),D,2)
TGeadr2 ;$P(^KLE(^KL1(5005),0),D,5)
TGeadr3 ;$P(^KLE(^KL1(5005),0),D,6)_" "_$P(^KLE(^KL1(5005),0),D,7)
TGeadr4 ;$$LAND^vhRtn1($P(^KLE(^KL1(5005),0),D,8),2,"D")
TAflGoed ;DIVERSE\DIVERSE\DIVERSE\DIVERSE
TOvGoed ;SINT-NIKLAAS, BELGIE, ../../....\SINT-NIKLAAS, BELGIE, ../../....\SINT-NIKLAAS, BELGIE, ../../....\SINT-NIKLAAS, BELGIE, ../../....
TLevBon ;LIEFERSCHEIN\LIEFERSCHEIN\LIEFERSCHEIN\LIEFERSCHEIN
TPalet ;.... PALETTEN\.... PALETTEN\.... PALETTEN\.... PALETTEN
TPakket ;.... KARTONS\.... KARTONS\.... KARTONS\.... KARTONS
TGewicht ;.... KG\.... KG\.... KG\.... KG
TVolume ;.... M³\.... M³\.... M³\.... M³
TOpgem ;SINT-NIKLAAS,   ../../....\SINT-NIKLAAS,   ../../....\SINT-NIKLAAS,   ../../....\SINT-NIKLAAS,   ../../....
TTransp1 ;$P(^KLE(^KL1(7076),0),D,2)
TTransp2 ;$P(^KLE(^KL1(7076),0),D,5)
TTransp3 ;$P(^KLE(^KL1(7076),0),D,6)_" "_$P(^KLE(^KL1(7076),0),D,7)
TTransp4 ;$$LAND^vhRtn1($P(^KLE(^KL1(7076),0),D,8),2,"D")
 ;