CEURATN ; Conversie naar Euro - Bijzondere aandacht ;[ 07/18/2001  11:00 AM ]
 Quit
 ;
DOC 
 ;Volgende zaken vragen bijzondere aandacht na de Van Hoecke conversie:
 ;
 ;
 ;- Error logging (^CEURERR en ^HULP("LVHI39"-"LVHI39z"))
 ;
 ;- Flow, van order tot faktuur (^KOD, ^KUL, ^KFA en ^KFAP)
 ;  De berekening van de port niet vergeten in ^KUL en ^KFA
 ;  Dit voor een klant EUR, BEF en NLG
 ;
 ;- De opbouw van de historieken bij het uitleveren
 ;  en het faktureren van kredietnot's (^KPR(PRNr,"H"))
 ;  CEURPR was fout, de laatste $P was = "#"
 ;
 ;- De opbouw van de statistieken bij het faktureren (^KSTKL en ^KSTPR)
 ;
 ;- De opbouw van de weekstatistiek  (^KSPW)
 ;
 ;- Het automatisch inboeken van de aankoopfakturen Blum
 ;  via routine BLCSBAF-> FCINK -> %T643
 ;  Laten nazien door iemand van Data-M
 ;
 ;- De conversie van de bedragen "kredietlimiet" van BEF naar EUR
 ;
 ;- De boekhouding zal tot 30.06.2001 in BEF zijn, vanaf 01.07.2001
 ;  is het EUR
 ;
 ;- Nakijken ^KBA(50), Kill indien $D()
 ;
 ;
 ;Volgende zaken moeten in een later stadium aangepakt worden:
 ;
 ;
 ;- KPHPR stockeren huidige prijzen klanten
 ;***
 New L,R
 Write !,$ZN,!
 For L=1:1 Set R=$T(DOC+L) Quit:R=""!($P(R,";",2)="***")  Do
 .If $E(R)=" " Write !?5,$P(R,";",2,99)
 .Else  Xecute $P(R,";")_$P(R,";",2,99)
 Quit
 ;