cT851 ;Fin & div: beheer boekingsreeksen ;%T80 ; [ 01/12/01  10:05 AM ]
 G 1
 ;
T0 ;Importeren ;
T1 ;Keuze\"[] = ingelezen bestand verwerken   .[] = bestand inlezen + verwerken";
T2 ;Het gekozen bestand is leeg;De recordbeschrijving ontbreekt ;
T3 ;Invoerbestand  : ;
T4 ;Omschrijving   : ;
T5 ;Ingelezen op   : ;
T6 ;Aantal records : ;
T7 ;Nummer formaat : ;
 ;
T0F ;Importer ;
T1F ;Choix\"[] = traiter fichier importé   .[] = importer fichier + traiter";
T2F ;Le fichier sélectionné est vide;La description des records manque ;
T3F ;Fichier        : ;
T4F ;Description    : ;
T5F ;Date d'import. : ;
T6F ;Nombre records : ;
T7F ;N° du format   : ;
 ;
T0E ;Import ;
T1E ;Choice\"[] = process imported file   .[] = import + process file";
T2E ;The chosen file is empty;The record-description is absent ;
T3E ;Import file    : ;
T4E ;Description    : ;
T5E ;Imported on    : ;
T6E ;Number records : ;
T7E ;Number format  : ;
 ;
 ; keuze
1 ;D O^cA612(4,1,18,80,1,0,0,0),T^cA612($P($T(@("T0"_QT)),U,2),0,0,7,0,0) ;10.03.00
 D P^cA612(4,1,18,80,1,0,0,0,$P($T(@("T0"_QT)),U,2),0,0,7,0,0)
11 S R="K\22\3\"_$P($T(@("T1"_QT)),U,2)_"\1\\""-.""[K" D R0 G YZ:K="-"
13 I K="." D B^cA612,^cA703,C^cA612 G 11:K="-",2
15 D B^cA612,^cA705,C^cA612 G 11:K="-"
 ;
 ; controle ingelezen bestand
2 S REC0=^HULP("RC",Q,TNR,0),FORM=$P(REC0,D,5)
21 W /CUP(2,3),$P($T(@("T3"_QT)),U,2),TNR
23 W /CUP(3,3),$P($T(@("T4"_QT)),U,2),$P(REC0,D)
25 W /CUP(4,3),$P($T(@("T5"_QT)),U,2),$P(REC0,D,2)," - ",$P(REC0,D,3)
27 W /CUP(5,3),$P($T(@("T6"_QT)),U,2),+$P(REC0,D,4)
29 W /CUP(6,3),$P($T(@("T7"_QT)),U,2),FORM," ",$$SIG^cAFA1("FORM",FORM,102)
 ;
 ; recordbeschrijving
3 I '$P(REC0,D,4) S K=$P($T(@("T2"_QT)),U,2) D TXT^cAFA1(250) G 15
31 S REC3=$$^cANSYN("FIA.REC","","",0,0,"","I $P(^(0),D)=FORM") G 15:K="-"
33 I 'REC3 S K=$P($T(@("T2"_QT)),U,3) D TXT^cAFA1(250) G 15
35 I $O(^DATA(0,"FIA.REC",REC3,0))="" S REC3=0 G 33
 ;
 ; verwerken bestand
4 G ^cT852
 ;
YZ K TNR,TVG,REC0,REC3,FORM D C^cA612 Q
 ;
R0 S $P(R,D,12)=$T(+0) D ^cAN1000 Q  ; v12 23.01.95
 ;
ZZ ; 05.02.01 - 16 u 23 * V7.84