cAFA63(UI1CAT) ;Update eigen produkten ;%AFA63 [ 06/30/00  3:41 PM ]
 ;
 ; Opgeroepen via ^DMM("CTLG",code cat_".PW",69
 ;
T0 ;Update eigen producten ;
T1 ; Update producten ;
T2 ;Er zijn geen gegevens gewijzigd;
T3 ;Update producten is beëindigd;
 ;
T0F ;M.à.j. propes produits ;
T1F ; M.à.j. propres produits ;
T2F ;Aucune donnée a été modifiée;
T3F ;Mise à jour des propres produits terminée;
 ;
T0E ;Update eigen producten ;
T1E ; Update producten ;
T2E ;Er zijn geen gegevens gewijzigd;
T3E ;Update producten is beëindigd;
 ;
1 D P^cA612(19,1,5,80,1,0,0,0,$P($T(@("T1"_QT)),U,2),0,0,0,0,0)
 N DATUPD,SWUPD,UFU
 K ^HULP(boot,$J+.03)
 S $ZT="TRAP^cAN000"
 ; Ophalen basisgegevens catalog
 D B^cAFA61(UI1CAT)
 S PRG=$P(B(1),D,26)     ; Specifiek uit te voeren voor update producten
 S DATUPD=$P(B(2),D,6)
 S VKPCO=$P(B(1),D,5),BTW=$P(B(1),D,6)
 I VKPCO="" S VKPCO="1"
 D UPDATE
 S K=$P($T(@("T3"_QT)),U,2) D TXT^cAFA1(250)
 I $G(SWUPD) D
 . N TAB
 . S TAB(210)=DT
 . S TAB(211)=QU
 . D B^cAN220("PW","CTLG",UI1CAT,"TAB")
 I '$G(SWUPD) S K=$P($T(@("T2"_QT)),U,2) D TXT^cAFA1(250)
 ;
YZ D C^cA612 Q
 ;
UPDATE N UQC,USC,UREFC,DMS,PRLEOMS,PROMS,A,B,RI,UI1,UI1PR,SW3,ULOG,U2,CTLGUSA,CTLGDMA,CTLGDMS,CTLGUQC,CTLGUSC,PRLEUSC,PRLEUQC,PRUSC,PRUQC,UI1PRLE,UI1PR,UREF,IREF,OQU,UFU,TAB,INTNR
 S $ZT="TRAP^cAN000"
 ;
 S OQU=$G(QU),QU=$G(QU)
 ; ophalen definitie catalogus
 D CTLGDEF^cAFA6(UI1CAT)
 D DMS^cAN000("UQC","USC",CTLGDMS)
 I '$L(UQC)!'$L(USC) G UPDATEZ
 S CTLGUQC=UQC,CTLGUSC=USC
 S UREFC=$G(^DMC(UQC,USC,"DATA","REF"))
 ; ophalen def. productgegevens
 D DMS^cAN000("UQC","USC","PR")
 I '$L(UQC)!'$L(USC) G UPDATEZ
 S PRUSC=USC,PRUQC=UQC
 ; ophalen def. aankoopgegevens
 D DMS^cAN000("UQC","USC","PR_LE")
 I '$L(UQC)!'$L(USC) G UPDATEZ
 S PRLEUSC=USC,PRLEUQC=UQC
 ;
2 S IREF=$G(^DMC(PRLEUQC,PRLEUSC,"DATA","INDEX")),RI=""
 I '$L(IREF) G UPDATEZ
 F TEL=1:1 S RI=$O(@IREF@("M3",UI1CAT,RI)) Q:RI=""  D
 . ; Ophalen aankoopgegevens
 . S (UI1,UI1PRLE)=^(RI)
 . S UQC=PRLEUQC,USC=PRLEUSC,SW3=2
 . K BA,B
 . D R^cAN000 M BA=B
 . I $P(BA(2),D,28)'=UI1CAT Q  ; niet gelinkt met deze cataloog
 . ; Ophalen cataloog gegevens
 . S UI1=$P(BA(2),D,29)
 . S INTNR=UI1
 . S UQC=CTLGUQC,USC=CTLGUSC,SW3=1
 . K BC,B
 . D R^cAN000 M BC=B
 . I '$L($G(BC(1))) Q
 . I $$HD^cAFA1($P(BC(1),D,28))'=DATUPD Q
 . ; Ophalen product gegevens
 . S (UI1,UI1PR)=$P(BA(2),D) ; Intern productnummer
 . S UQC=PRUQC,USC=PRUSC,SW3=6
 . K BP,B
 . D R^cAN000 M BP=B
 . w /CUP(3,3),$P(BC(1),D),/EL
 . ; Velden updaten met specifieke gegevens
 . I $L(PRG) D @(PRG)
 ;
UPDATEZ S QU=OQU Q
 ;
ZZ ; 05.02.01 - 16 u 23 * V7.84