cAFE4 ;Wijzigen muntcode leverancier naar EURO ;%AFE4 ; [ 05/18/01 3:07 PM ] G 1 ; UPRDMS(UPRDMS) ; ingang om UPRDMS mee te geven S UPRDMS=$G(UPRDMS,"PR") G 1 Q ; MUNT ; vraag naar muntcode (ingang Data-M) N SWMNT S SWMNT=1 G 1 MUNTZ Q ; T0 ;Wijzigen muntcode leverancier ; T1 ;DE LEVERANCIER\LEVERANCIERS\ALFABETISCHE\alfabetische; T2 ;Bevestiging\".[] = ok ,[] = hernemen"; T3 ;Dit programma herberekent de basis- en aankoopprijzen naar EUR voor alle; T4 ;producten die aan de geselecteerde leverancier(s) gekoppeld zijn.; T5 ;De basis- en aankoopprijzen van andere leveranciers van hetzelfde product; T6 ;blijven onveranderd.; T7 ;Vervolgens wordt ook de muntcode in de signaletiek van de geselecteerde; T8 ;leveranciers gewijzigd in EUR.; T9 ;Opmerkingen : De uitvoering van dit programma kan, bij selectie van ; T10 ; meerdere leveranciers, geruime tijd in beslag nemen en; T11 ; mag in geen enkel geval onderbroken worden !!; T12 ; De omzetting naar EUR is bovendien onomkeerbaar !!; T13 ; De openstaande aankoopdocumenten (prijsaanvragen, bestel-; T14 ; bonnen en leveringen) worden niet geconverteerd naar EUR.; T15 ; Wel wordt de rubriek 'Ak-code' van deze documenten op ; T16 ; 'niet aanpassen' gezet, indien dit niet het geval zou zijn.; T17 ; Einde conversie; ; T0F ;Modifier code monétaire fournisseur ; T1F ;LE FOURNISSEUR\FOURNISSEURS\ALPHABETIQUE\alphabétique; T2F ;Confirmation\".[] = ok ,[] = reprendre"; T3F ;Ce programme convertit le prix de base ainsi que le prix d'achat de tous; T4F ;les articles qui sont liés au(x) fournisseur(s) sélectionné(s).; T5F ;Le prix de base et le prix d'achat d'autres fournisseurs du même article; T6F ;resteront inchangés.; T7F ;Ensuite le programme changera aussi le code monnaie dans la signalétique; T8F ;du (des) fournisseur(s) sélectionné(s) en EUR.; T9F ;Remarque : L'exécution de ce programme pourra prendre beaucoup de temps,; T10F ; surtout au cas où on aurait sélectionnés plusieurs fournisseurs.; T11F ; En aucan cas l'exécution de ce programme peut être interrompue !!; T12F ; La conversion en EUR est en plus irréversible !!; T13F ; Les documents d'achat en suspens (demandes de prix, bons de; T14F ; commande et bons de réception) ne sont pas convertis en EUR.; T15F ; La rubrique 'Code Ak' de ces documents est toutefois convertie.; T16F ; en position 'ne pas adapter', si ceci ne serait pas le cas.; T17F ; Fin de la conversion ; ; T0E ;Wijzigen muntcode leverancier ; T1E ;DE LEVERANCIER\LEVERANCIERS\ALFABETISCHE\alfabetische; T2E ;Bevestiging\".[] = ok ,[] = hernemen"; T3E ;Dit programma herberekent de basis- en aankoopprijzen naar EUR voor alle; T4E ;producten die aan de geselecteerde leverancier(s) gekoppeld zijn.; T5E ;De basis- en aankoopprijzen van andere leveranciers van hetzelfde product; T6E ;blijven onveranderd.; T7E ;Vervolgens wordt ook de muntcode in de signaletiek van de geselecteerde; T8E ;leveranciers gewijzigd in EUR.; T9E ;Opmerkingen : De uitvoering van dit programma kan, bij selectie van ; T10E ; meerdere leveranciers, geruime tijd in beslag nemen en; T11E ; mag in geen enkel geval onderbroken worden !!; T12E ; De omzetting naar EUR is bovendien onomkeerbaar !!; T13E ; De openstaande aankoopdocumenten (prijsaanvragen, bestel-; T14E ; bonnen en leveringen) worden niet geconverteerd naar EUR.; T15E ; Wel wordt de rubriek 'Ak-code' van deze documenten op ; T16E ; 'niet aanpassen' gezet, indien dit niet het geval zou zijn.; T17E ; Einde conversie; ; T0D ;Wijzigen muntcode leverancier ; T1D ;DE LEVERANCIER\LEVERANCIERS\ALFABETISCHE\alfabetische; T2D ;Bevestiging\".[] = ok ,[] = hernemen"; T3D ;Dit programma herberekent de basis- en aankoopprijzen naar EUR voor alle; T4D ;producten die aan de geselecteerde leverancier(s) gekoppeld zijn.; T5D ;De basis- en aankoopprijzen van andere leveranciers van hetzelfde product; T6D ;blijven onveranderd.; T7D ;Vervolgens wordt ook de muntcode in de signaletiek van de geselecteerde; T8D ;leveranciers gewijzigd in EUR.; T9D ;Opmerkingen : De uitvoering van dit programma kan, bij selectie van ; T10D ; meerdere leveranciers, geruime tijd in beslag nemen en; T11D ; mag in geen enkel geval onderbroken worden !!; T12D ; De omzetting naar EUR is bovendien onomkeerbaar !!; T13D ; De openstaande aankoopdocumenten (prijsaanvragen, bestel-; T14D ; bonnen en leveringen) worden niet geconverteerd naar EUR.; T15D ; Wel wordt de rubriek 'Ak-code' van deze documenten op ; T16D ; 'niet aanpassen' gezet, indien dit niet het geval zou zijn.; T17D ; Einde conversie; ; ; algemene initialisatie 1 N AKP,BAS,COEF,IND,INH,KC,NAKP,NBAS,OMUNT,TAB,V6 11 S UPRDMS=$G(UPRDMS,"PR") I '$D(^DMS(Q)) S V6=0 G 3 ; NIET VERSIE 60 13 ;S V6=1 D O^cA612(2,1,20,80,1,1,1,1),T^cA612($P($T(@("T0"_QT)),U,2),0,0,7,1,1) ;10.03.00 S V6=1 D P^cA612(2,1,20,80,1,1,1,1,$P($T(@("T0"_QT)),U,2),0,0,7,1,1) S MNT=$G(MNT,"EUR") I $G(SWMNT) S MNT=$$^cANSYN("KODE.VM") G YZ:MNT="-" 15 D TEKST G YZ:K'="." S @%Q1=0 S $ZT="TRAP^cAN000" ; ; selectie leveranciers in V6 ; 17 S FP=101 w @F,@F1 D ^cAN003(3,"LE") G YZ:K="-" ; ; muntcode leverancier V6 ; 2 N UQC,USC,UI1,UREF,IREF S TEL=0 20 S R="K\22\3\"_$P($T(@("T2"_QT)),U,2)_"\1\\""-,.""[K" D R0 G 17:K="-",17:K=",",20:K'="." 200 D:$L($G(UI1LE)) SHOWOK D ^cAN004("UI1LE","LE") G Y:UI1LE="" S TEL=TEL+1,KC=$P(UI1LE," ",2),UI1=UI1LE D SHOWLE 201 G 200:$$SIG^cAFA1("LE",UI1LE,111)=MNT ; indien al op EURO 203 S UQA=$P(^DMS(Q,"LE",0),D,3),USA=$P(^(0),D,4) 205 S USC=$P(^DMS(Q,"LE"),D,2),UQC=$p(^("LE"),D),UREF=^DMC(UQC,USC,"DATA","REF") 2050 L @UREF@(UI1LE),@("^"_Q_"TO(KC)"),@("^"_Q_"TOL(KC)"):2 E D TXT^cAFA1(14) G 2050 206 D W^cAN220(USA,UQA,UI1LE,111,MNT) ; rubriek muntcode bij leverancier ; ; aankoopgegevens V6 ; 207 D DMS^cAN000("UQC","USC",UPRDMS_"_LE") 208 S UQA=$P(^DMS(Q,UPRDMS_"_LE",0),D,3),USA=$P(^(0),D,4) 21 S UREF=^DMC(UQC,USC,"DATA","REF"),IREF=^("INDEX") 23 S IND=KC_" " F S IND=$O(@IREF@(101,IND)) Q:$P(IND," ")'=KC D . S UI1=^(IND),INH=@UREF@(0) F L @UREF@(UI1):2 Q:$T D TXT^cAFA1(14) . S AKP=$P(INH,D,4),BAS=$P(INH,D,10),OMUNT=$P(INH,D,17),COEF=$P(INH,D,11),TPT=$P(INH,D,12),PR=$P(@UREF@(1),D) D SHOWPR . S TAB(117)=MNT . I BAS S TAB(110)=$$EPR^cAFE5(BAS,MNT,"A",UPRDMS,OMUNT) . I BAS S TAB(104)=$$EPR^cAFE5(TAB(110),MNT,"A",UPRDMS,MNT,COEF) . I TPT S TAB(112)=$$EPR^cAFE5(TPT,MNT,"A",UPRDMS,OMUNT) . D B^cAN220(UPRDMS_"_LE",UQA,UI1,"TAB") 29 G 4 ; ; Leveranciers in V5 3 N I2,I3,I4,UI1 S K=$P($T(+1),U,2)_QN_" " S FP=203+$L(K) W @F11,@F1,@F,@F5 S FP=202 W @F,@F4,K,@F5 D TEKST G YZ:K'="." 30 S TXT=$P($T(@("T1"_QT)),U,2)_"\LE\L1\1" D ^cA306 G YZ:K="-" 300 S R="K\22\3\"_$P($T(@("T2"_QT)),U,2)_"\1\\""-,.""[K" D ^cA100 G 30:K="-",30:K=",",20:K'="." S TEL=0 31 D:$L($G(IND)) SHOWOK S R="IND"_D_"LE" D ^cA327 G Y:IND="" S TEL=TEL+1,KC=$P(IND," ",2),I2=" " D SHOWLE 311 L @("^"_Q_"LE(IND)"),@("^"_Q_"TO(KC)"),@("^"_Q_"TOL(KC)"):2 E X ^cTXT(0,"N",14) R K G 311 313 G 31:$P(@("^"_Q_"LE(IND,0)"),D,11)=MNT ; indien al op EURO S $P(^(0),D,11)=MNT ; muntcode bij leverancier 32 S I2=$O(@("^"_Q_"PL")@(KC_" ",I2)) G 4:I2="" S I3=" " 33 S I3=$O(@("^"_Q_"PL")@(KC_" ",I2,I3)) G 32:I3="" S I4=" " 34 S I4=$O(@("^"_Q_"PL")@(KC_" ",I2,I3,I4)) G 33:I4="" 35 S PR=^(I4),INH=@("^"_Q_"PR")@(PR,"J"_KC) D SHOWPR 36 S AKP=$P(INH,D,4),BAS=$P(INH,D,10),OMUNT=$P(INH,D,17),COEF=$P(INH,D,11) 37 S $P(INH,D,17)=MNT,TPT=$P(INH,D,12) 371 I BAS S NBAS=$$OMREK^cAFE1(Q,BAS,OMUNT,MNT,"A",""),$P(INH,D,10)=NBAS I TPT S NTPT=$$OMREK^cAFE1(Q,TPT,OMUNT,MNT,"A",""),$P(INH,D,12)=NTPT 372 S NAKP=NBAS*COEF,$P(INH,D,4)=NAKP,@("^"_Q_"PR")@(PR,"J"_KC)=INH D . N B S:'$G(QD) QD=5 S B("J"_KC)=INH . D @$P(@("^"_Q_"PR(0,3)"),D,3) 373 G 34 ; ; bestellingen en leveringen voor deze leverancier 4 S UR="" 41 F S UR=$O(@("^"_Q_"TO2(""F"",KC,UR)")) Q:UR="" D 43 . S $P(@("^"_Q_"TO(KC,""F"",UR,1)"),D,34)=1,UI1=$P($G(^(3)),D,24) 45 . D SHOWTO I UI1 D W^cAN220("TO.F","AKP",UI1,134,1) 47 . S UZ=100 F S UZ=$O(@("^"_Q_"TO(KC,""F"",UR,UZ)")) Q:UZ="" S $P(^(UZ),D,38)=1 49 F S UR=$O(@("^"_Q_"TOL2(""F"",KC,UR)")) Q:UR="" D 51 . S $P(@("^"_Q_"TOL(KC,""F"",UR,1)"),D,34)=1,UI1=$P($G(^(3)),D,24) 53 . D SHOWTO I UI1 D W^cAN220("TOL.F","AKP",UI1,134,1) 55 . S UZ=100 F S UZ=$O(@("^"_Q_"TOL(KC,""F"",UR,UZ)")) Q:UZ="" S $P(^(UZ),D,38)=1 ; ; volgende leverancier 57 ; extra xecute S K=$G(^DPAR(Q,"EUR","LE",0)) I $L(K),$P(K,D),$L($P(K,D,2)) X $P(K,D,2) 59 G 200:V6,31 ; Y S K=$P($T(@("T17"_QT)),U,2) D TXT^cAFA1(250) YZ D C^cA612 S @%Q1=1 Q ; TEKST ; op scherm zetten van inleidingstekst versie 5 TE1 S LN=$S(V6:2,1:4) F I=3:1:8 S FP=LN*100+5 W @F,$$CMNT($P($T(@("T"_I_QT)),U,2)) S LN=LN+1 TE3 S LN=$S(V6:9,1:11) F I=9:1:12 S FP=LN*100+5 W @F,$$CMNT($P($T(@("T"_I_QT)),U,2)) S LN=LN+1 TE5 S LN=$S(V6:14,1:16) F I=13:1:16 S FP=LN*100+5 W @F,$$CMNT($P($T(@("T"_I_QT)),U,2)) S LN=LN+1 TE7 S R="K\22\3\"_$P($T(@("T2"_QT)),U,2)_"\1\\""-,.""[K" D R0 G TEZ:K="-",TEZ:K=",",TE7:K'="." TEZ Q ; CMNT(R) ; I R'["EUR" G CMNTZ S R=$P(R,"EUR")_MNT_$P(R,"EUR",2,99) CMNTZ Q R ; SHOWLE ; tonen leverancier waarmee we bezig zijn S FP=1503 W @F,@F1,$P(@("^"_Q_"LE(^"_Q_"L1(KC),0)"),D,2) SHOWLEZ Q ; SHOWPR ; tonen product waarmee we bezig zijn S FP=1603 W @F,@F1,$P(@("^"_Q_UPRDMS_"(PR,0)"),D) SHOWPRZ Q ; SHOWTO ; tonen bestelling/levering waarmee we bezig zijn S FP=1603 W @F,@F1,UR SHOWTOZ Q ; SHOWOK ; tonen leverancier die geconverteerd is S FP=905+(TEL*100) I FP>1700 S FP=905+(TEL*100) W @F,@F1,$P(@("^"_Q_"LE(^"_Q_"L1(KC),0)"),D,2)," --> ok" SHOWOKZ Q ; R0 S $P(R,D,12)=$T(+0),$P(R,D,13)=1 D ^cAN1000 Q ; v12 23.01.95 ; ZZ ; 22.06.04 - 16 u 32 * V8