DCCMR ;AFDRUKKEN CMR-dokument [ 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("DCCMR"),FIELD^vhScherm("DCCMR","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")
 Set CMR(3,1)=$$TXT("OvGoed")
 Set CMR(4,1)=$$TXT("AflGoed")
 For I=1:1:3 Set CMR(5,I)=$$TXT("Transp"_I)
 Set CMR(5,4)="BELGIE"
 Set CMR(10,1)=$$TXT("Palet")
 Set CMR(10,2)=$$TXT("Gewicht")
 Set CMR(10,3)=$$TXT("Volume")
 Set CMR(11,1)=$$TXT("LevBon")
 Set CMR(11,2)=$$TXT("RetBon")
 Set CMR(12,1)=$$TXT("Opgem")
 For I=1:1:3 Set CMR(14,I)=^KBA(99,I)
 For I=1:1:3 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,"","")
 Do PASTE(1,(14+HeadLen),CMR(2,1),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,(54+HeadLen),CMR(11,1),7,"","")
 Do PASTE(1,(55+HeadLen),CMR(11,2),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
TGeadr ;DIVERSE ADRESSEN\DIVERSE ADRESSEN\DIVERSE ADRESSEN\DIVERSE ADRESSEN
TAflGoed ;DIVERSE\DIVERSE\DIVERSE\DIVERSE
TOvGoed ;SINT-NIKLAAS, BELGIE, ../../....\SINT-NIKLAAS, BELGIE, ../../....\SINT-NIKLAAS, BELGIE, ../../....\SINT-NIKLAAS, BELGIE, ../../....
TLevBon ;LEVERINGSBONNEN\LEVERINGSBONNEN\LEVERINGSBONNEN\LEVERINGSBONNEN
TRetBon ;TERUGNAMEBONNEN\TERUGNAMEBONNEN\TERUGNAMEBONNEN\TERUGNAMEBONNEN
TPalet ;.... PALETTEN MEUBELBESLAG\.... PALETTEN MEUBELBESLAG\.... PALETTEN MEUBELBESLAG\.... PALETTEN MEUBELBESLAG
TGewicht ;.... KG\.... KG\.... KG\.... KG
TVolume ;.... M³\.... M³\.... M³\.... M³
TOpgem ;SINT-NIKLAAS,   ../../....\SINT-NIKLAAS,   ../../....\SINT-NIKLAAS,   ../../....\SINT-NIKLAAS,   ../../....
TTransp1 ;TTC\TTC\TTC\TTC
TTransp2 ;OUDE GENTWEG 100\OUDE GENTWEG 100\OUDE GENTWEG 100\OUDE GENTWEG 100
TTransp3 ;B-2070 ZWIJNDRECHT\B-2070 ZWIJNDRECHT\B-2070 ZWIJNDRECHT\B-2070 ZWIJNDRECHT
TTransp4 ;
 ;