CEURDATM ; Conversie naar Euro - Bijzondere aandacht ;[ 03/12/2001  9:39 AM ]
 Quit
 ;
DOC 
 ;Volgende Data-M routines werden aangepast:
 ;
 ;LVHI39M2
 ;LVHI39L
 ;
 ;
 ;Vragen aan Data-M:
 ;
 ;- De programma's van de boekhouding geven een slechte scherm lay-out.
 ;  Opgelost op 20.02.2001 door JVP.
 ;  ^cLOG(boot,"DAM",1)=1
 ;  ^cLOG(boot,"DAM",2)=1
 ;  ^cLOG(boot,"DAM",3)=1
 ;
 ;- In ^KFA, ^KFAP en ^COPYKFA, moet de pariteit (veld 4) en het bedrag 
 ;  in BEF (veld 14) herrekend worden of kan men beter de oude waarden
 ;  behouden?
 ;  Antwoord op 20.02.2001 van JVP: 'Ik zou de oude waarden behouden'.
 ;
 ;- Wat is de basis om te testen of de conversie naar EUR is doorgevoerd
 ;  Antwoord op 20.02.2001 van JVP: Het al of niet ingevuld zijn van
 ;                                  $P(^KBA(39),D,11)
 ;
 ;- Synoniemen landkodes via %ANSYN geeft een blanko scherm,
 ;  is dit een gevolg van ZWinterm?
 ;  Antwoord op 09.03.2001 door JVP: 'Ja'. Oplosing veld 13 in MENU op 1
 ;
 ;- Een faktuur gemaakt voor de euro maar afgeboekt na de conversie,
 ;  in welke munt is die dan afgeboekt $p(X,D,5) in ^KFI
 ;
 ;- De openstaande fakturen, hoe zien die er uit na de conversie
 ;  dit i.v.m. veld 10 (nog te betalen in BEF)
 ;  Antwoord op 09.03.2001 door JVP: Omgerekend naar EUR
 ;
 ;- Hoe kunnen we Data-M scrolllijsten verlaten
 ;  Antwoord op 09.03.2001 door JVP: Keyboard mapping
 ;
 ;- Leveranciersprogramma's
 ;  - Scherm 2 'Factoring' mag weg
 ;    Verwijderd op 09.03.2001 door JVP.
 ;  - Kunnen wij scherm 'C' (contactpersonen) vervangen door onze versie.
 ;    Aangepast op 09.03.2001 door JVP.
 ;  - Onze select leverancier werkt niet meer bij raadplegen leveranciers.
 ;    Node ^KLE(0,5)="^cAN101($P(R,D),16,"","LE")" vervangen door
 ;    ^KLE(0,5)="KLE^LEVER(5)" is geen oplossing
 ;  - Waar zijn de schermen 4 t.e.m. 8 naartoe
 ;    Opgezet op 09.03.2001 door JVP.
 ;
 ;- Hebben wij de programma's en bestanden 'Contactpersonen' van Data-M
 ;  nodig of kunnen wij de onze gebruiken
 ;  Antwoord op 09.03.2001 door JVP: Dit is een informatief scherm, we
 ;  kunnen de onze gebruiken
 ;
 ;- De <UNDEFINED>37^cT686 kan dit liggen aan het feit dat ik de conversie
 ;  geforceerd heb in ^KBA(11) en ^KBA(39)
 ;  Opgelost door CW op 09.03.2001: Local 'BF' = firmamunt opgezet
 ;
 ;- Vanuit raadplegen klanten gaan wij via de ingave van een kode recht-
 ;  streeks naar wijzigen klanten, zonder dat wij het klantnummer terug
 ;  moeten ingeven. Kan dit ook nog en zo ja hoe?
 ;  Opgelost door CW op 08.03.2001
 ;***
 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
 ;