cAFA64 ; openen producten vanuit de catalogi ;%AFA64 [ 06/30/00  3:41 PM ]
 ; Voorbeeldprogramma
 ;
 ;
YZ q
 ;
PATROON(K,C) ; beïnvloeden van het patroon met de cataloguswaarde
 ;    K = index in patroon
 ;    C = waarde van de catalogus
 i $p(P(K\100),D,K#100)="!" s $p(P(K\100),D,K#100)=C
 q
 ;
OPR ; openen producten vanuit de aankoopgegevens ivm catalogi
 ; Zie ^DMA("1","PR_LE","99" : Product, X ipv input
 d P^cAN200("PR","1","","",1) i K="-" g OPR
 q
 ;
PR(CPR) ; aanpassen patroon met catalogus-velden
 ; Zie $DMA("1","PR_LE","99" : Product, X ipv input
 q:'$l(CPR)
 ;    catalogi-gegevens
 d READ^cANP000("CPR",CPR,CTLGDMS)
 s $p(P(4),D,6)=UI1PRLE         ; hoofdleverancier
 ;  Vanaf hier moeten de velden specifiek worden opgevuld
 d PATROON(101,$p(CPR(1),D,1))  ;  productcode
 d PATROON(102,$p(CPR(1),D,2))  ;  omschrijving N1
 d PATROON(107,$p(CPR(1),D,7))  ;  verkoopprijs incl.
 d PATROON(112,$P(CPR(1),D,12)) ;  omschrijvinv F1
 d PATROON(502,$P(CPR(1),D,8))  ;  EAN-code (barcode)
 q
 ;
PRLE(CPR) ; aanpassen van de aankoopgegevens met de catalogus-velden
 ; Zie ^DMA("1","PR_LE","1.1" : Link met cataloog
 q:'$l(CPR)
 ;    catalogi-gegevens
 d READ^cANP000("CPR",CPR,CTLGDMS)
 ; Vanaf hier moeten de velden specifiek worden opgevuld
 i $p(P(1),D,3)="!" d B^cAN000(103,$p(CPR(1),D,1))   ;     lev.ref.
 i $p(P(1),D,6)="!" d B^cAN000(106,$p(CPR(1),D,5))   ;verpakkingseenheid
 i $p(P(1),D,10)="!" d B^cAN000(110,$p(CPR(1),D,3))  ;     basisprijs
 s REFRESH=1
 q
 ;
ZZ ; 05.02.01 - 16 u 23 * V7.84