Les
projets AEK / CDM développés par compusoft sa
Les
projets AEK / CDM développés par compusoft sadernière mise à jour: 05 septembre 2007.
AN 2000 Fichiers d’import / export ( version DOS )
L’adaptation de la version DOS a servi de référence à l’adaptation de Cbwin16, le comportement devrait donc être identique. Ces points seront par contre à revérifier dans Cbwin 32.
Lecture des fichiers ascii Tarif/convention et médicaments
Tous les strings censés représenter une date passent à travers une même procédure et on considère que les dates de 01/01/00 à 31/12/69 concernent l’an 2000 et les dates de 01/01/70 à 31/12/99 concernent 1900.
La date 00/00/00 est considérée comme date non renseignée.
Le corps de la procédure :
if (copy(x,index,count)='000000') then r:=0.0 { Nodate }
else begin
annee:= copy(x,index,2);
if annee[1] in ['7'..'9'] then annee:='19'+annee
else annee:='20'+annee;
{ decision arbitraire :
une année sur 2 digit de 00 … 69 sera considérée 2000 à 2069
et de 70 à 99 sera considérée 1970 à 1999 }
s := copy(x,index+4,2) + '.' + copy(x,index+2,2)+'.'+ annee;
r:=DateStringToRDate( s );
Production du fichier UNI (ancien format)
Record /* date facture avec année sur 4 digits
Record /0 année de naissance sur 2 digits
date facture avec année sur 2 digits
Record /1 dates début, fin traitement et dernière séance : 2 digits
Date de naissance AAAAMMJJ (4 digits)
Record /2 date accident année sur 2 digits
Record /3 dates incapacité de travail, année sur 2 digits
Record /4 dates séance, année sur 2 digits
Dates changement TVA
Les dates TVA sont cohérentes avec les dates ‘internes’ du programme, c-à-d que 2000 = 100 et les dates sont calculées 1900 + Y
Le fichier TVA.TBL est lu / écrit en format ‘interne’.
ML 23-3-99
Ce
web est maintenu par compusoft.
Des problèmes ou des questions par rapport à ce Web ? liechti@compu.ch.