Index: PRODUKT2.mac.rou
===================================================================
diff -u -r734 -r918
--- PRODUKT2.mac.rou (.../PRODUKT2.mac.rou) (revision 734)
+++ PRODUKT2.mac.rou (.../PRODUKT2.mac.rou) (revision 918)
@@ -236,36 +236,6 @@
Do blBldInd.Init(PRNr) ; incl reload van het product object
Do blBldInd.DeleteIndex()
Quit
- ;
- New Key,I,KHS,KGS,KSS,Merk,LevRef,LevNr,RecG,HDosNr,GenTyp
- ; Ophalen gegevens
- If '$D(KortT) Do
- .For I="I","J" Do
- ..Set @("Rec"_I)="",Key=$O(^KPR(PRNr,I))
- ..If $E(Key)=I Set @("Rec"_I)=^KPR(PRNr,Key)
- .Set KortT=$P(^KPR(PRNr,0),D,1)
- .Set IdentNr=$P(^KPR(PRNr,2),D,25)
- Set KortT=$$COMPRES^PRODUKT(KortT,$P(RecI,D,5),$P(^KPR(PRNr,1),D,20),IdentNr)
- Set IdentNr=$$TRIMN^vhRtn1(IdentNr)
- Set RecG=$G(^KPR(PRNr,"G")),HDosNr=$P(RecG,D),GenTyp=""
- Set:$L(HDosNr) GenTyp=$P($$GENTYP^HAD(PRNr),D,3)
- ; Verwijderen
- Kill ^KPR1(KortT)
- Kill ^KPR2($$TRIMN^vhRtn1(IdentNr)_" ")
- If $L(GenTyp),$L(HDosNr) Kill ^KPR3(GenTyp,HDosNr)
- If $L(RecJ) Do
- .Set LevNr=$P(RecJ,D)_" "
- .Set LevRef=$P(RecJ,D,3)_" "
- .Set Merk=$P(RecJ,D,2)_" " If $L(Merk)=1 Set Merk=" "
- .Kill ^KPL(LevNr,Merk,LevRef,KortT)
- If $L(RecI) Do
- .Set KHS=$P(RecI,D)
- .Set KGS=$P(RecI,D,2)
- .Set KSS=$P(RecI,D,3)
- .Set Merk=$P(RecJ,D,2)_" " If $L(Merk)=1 Set Merk=" "
- .Kill:$L(KHS) ^KPH(KHS,KGS,KSS,Merk,KortT)
- .Kill:$L(KHS) ^KPM(Merk,KHS,KGS,KSS,KortT)
- Quit
BLDIND(PRNr,KortT,IdentNr,RecI,RecJ) ; Opbouw indexen
New blBldInd
@@ -274,39 +244,6 @@
Do blBldInd.BuildIndex()
Quit
;
- New Key,I,KHS,KGS,KSS,Merk,LevRef,LevNr,KKortT,RecG,HDosNr,GenTyp
- ; Ophalen gegevens
- If '$D(KortT) Do
- .For I="I","J" Do
- ..Set @("Rec"_I)="",Key=$O(^KPR(PRNr,I))
- ..If $E(Key)=I Set @("Rec"_I)=^KPR(PRNr,Key)
- .Set KortT=$P(^KPR(PRNr,0),D,1)
- .Set IdentNr=$P(^KPR(PRNr,2),D,25)
- Set KKortT=$$COMPRES^PRODUKT(KortT,$P(RecI,D,5),$P(^KPR(PRNr,1),D,20),IdentNr)
- Set RecG=$G(^KPR(PRNr,"G")),HDosNr=$P(RecG,D),GenTyp=""
- Set:$L(HDosNr) GenTyp=$P($$GENTYP^HAD(PRNr),D,3)
- ;Indexen
- Set ^KPR1(KKortT)=PRNr_D_KortT
- ;w $zr,!
- Set ^KPR2($$TRIMN^vhRtn1(IdentNr)_" ")=PRNr_D_IdentNr
- ;w $zr,!
- If $L(GenTyp),$L(HDosNr) Set ^KPR3(GenTyp,HDosNr)=PRNr
- If $L(RecJ) Do
- .Set LevNr=$P(RecJ,D)_" "
- .Set LevRef=$P(RecJ,D,3)_" "
- .Set Merk=$P(RecJ,D,2)_" " If $L(Merk)=1 Set Merk=" "
- .Set ^KPL(LevNr,Merk,LevRef,KKortT)=PRNr
- . ;w $zr,!
- If $L(RecI) Do
- .Set KHS=$P(RecI,D)
- .Set KGS=$P(RecI,D,2)
- .Set KSS=$P(RecI,D,3)
- .Set Merk=$P(RecJ,D,2)_" " If $L(Merk)=1 Set Merk=" "
- .Set:$L(KHS) ^KPH(KHS,KGS,KSS,Merk,KKortT)=PRNr ;w $zr,!
- .Set:$L(KHS) ^KPM(Merk,KHS,KGS,KSS,KKortT)=PRNr ;w $zr,!
- ;Do UPDATE^LOG("PR",PRNr) ; Om zeker te zijn dat de VTW's de update krijgen
- Quit
- ;
REBLDIND(PRNr,KortT,IdentNr,RecI,RecJ) ; Heropbouw indexen
Do DELIND(PRNr,.KortT,.IdentNr,.RecI,.RecJ)
Do BLDIND(PRNr,.KortT,.IdentNr,.RecI,.RecJ)
@@ -361,7 +298,13 @@
For Set IDNr=$$ASK^vhINP(Prompt,11,OldIDNr,"","","","","","U") Quit:".-"[IDNr Quit:$$CHECKID(IDNr)
Quit IDNr
- ; Nakijken of een identnummer geldig is
+ ; Controleren dat een identnr een geldig formaat heeft
+IsValidIdentNr(String) ; [IDENT] Added by WimV on 15/02/2011
+ New IsValidFormat
+ Set IsValidFormat=(String?1UN1"."3N1"."3N1"."1N)
+ Quit IsValidFormat
+
+ ; Nakijken of een identnummer geldig is (Dit is een oude controle, waarschijnlijk niet meer gebruikt CW 15.02.11)
; Return : 1 = Geldig, 0 = Niet
CHECKID(IDNr)
New K,Value,Check,ExistId
Index: PRA_Aventosbak.prj.xml
===================================================================
diff -u
--- PRA_Aventosbak.prj.xml (revision 0)
+++ PRA_Aventosbak.prj.xml (revision 918)
@@ -0,0 +1,14 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Index: PRODUKT6.mac.rou
===================================================================
diff -u -r734 -r918
--- PRODUKT6.mac.rou (.../PRODUKT6.mac.rou) (revision 734)
+++ PRODUKT6.mac.rou (.../PRODUKT6.mac.rou) (revision 918)
@@ -282,7 +282,7 @@
Do InitCriteria
Set IdentNr=$P(^KPR(PRNr,2),D,25)
Set pxCriteria.At="I"
- Set CompresKey=$TR(IdentNr,".","")_" "
+ Set CompresKey=$$UPTRIMAN^vhRtn1(IdentNr)_" "
Set IndexContent=^Prod.SearchIndexD(pxCriteria.At,CompresKey,PRNr)
Do blSearch.SetDefault(pxCriteria)
If 'blSearch.QuickCheckCriteria(PRNr,pxCriteria,IndexContent) Quit 0
Index: PRA_TBX_halffab_kenmerken.prj.xml
===================================================================
diff -u
--- PRA_TBX_halffab_kenmerken.prj.xml (revision 0)
+++ PRA_TBX_halffab_kenmerken.prj.xml (revision 918)
@@ -0,0 +1,17 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Index: SGREEP.mac.rou
===================================================================
diff -u -r734 -r918
--- SGREEP.mac.rou (.../SGREEP.mac.rou) (revision 734)
+++ SGREEP.mac.rou (.../SGREEP.mac.rou) (revision 918)
@@ -219,33 +219,35 @@
KSTPRIJS(Param)
New KstPrijs,ItemID,SGKstV,SGKstL,Lengte
- w "Params ",Param,!
+ ;w "Params ",Param,!
Set Lengte=$P(Param,D,3)
Set ItemID=$P(Param,D,2)
+ Quit:'$D(^RES(Tabel,"PI","STANG","D",ItemID)) ""
Set StdVoetLengte=$P(^RES(Tabel,"PI","STANG","D",ItemID),"`",8)
Set VoetLengte=$P(Param,D,9)
Set SGKstV=^RES(Tabel,"PI","STANG","K",ItemID,"V") ; vaste kost incl. 2 voetjes
Set SGKstL=^RES(Tabel,"PI","STANG","K",ItemID,"L") ; lengte afhankelijke kost
Set SGKstT=$G(^RES(Tabel,"PI","STANG","K",ItemID,"T")) ; Toeslag indien lengte > 1500
Set KstPrijs=SGKstV+(SGKstL*Lengte)
- w "KstPrijs stang ",KstPrijs,!
+ ;w "KstPrijs stang ",KstPrijs,!
If Lengte>1500 set KstPrijs=KstPrijs+SGKstT
- w "KstPrijs stang extra lengte ",KstPrijs,!
+ ;w "KstPrijs stang extra lengte ",KstPrijs,!
Set SGroep=$P(^RES(Tabel,"PI","STANG","D",ItemID),"`",3)
If (SGroep'["SIGMA") Do
. New VKstV,Qty,VoetID,VKstT
. Set VoetID=$P(Param,D,8)
. Set:VoetID="" VoetID=$P(^RES(Tabel,"PI","STANG","D",ItemID),"`",7)
- . w VoetID
+ . ;w VoetID
. Quit:VoetID=""
. Set VKstV=$G(^RES(Tabel,"PI","VOET","K",VoetID,"V")) ; vaste kost van 1 voetje vertrekkend van het derde voetje
. Set VKstT=$G(^RES(Tabel,"PI","VOET","K",VoetID,"T")) ; toeslag indien voetlengte afwijkende van standaard maat
. Set Qty=$P(Param,D,10)
+ . Set:Qty<2 Qty=1 ; normaal minstens 2 boringen of voetjes, soms wordt er echter geen gekozen, dan wordt er 1 voetje afgetrokken geen twee
. Set KstPrijs=KstPrijs+(VKstV*(Qty-2))
- . w "KstPrijs extra voetje ",KstPrijs,!
+ . ;w "KstPrijs extra voetje ",KstPrijs,!
. Set:StdVoetLengte'=VoetLengte KstPrijs=KstPrijs+(VKstT*Qty)
- . w "KstPrijs extra lengte voetje ",KstPrijs,!
+ . ;w "KstPrijs extra lengte voetje ",KstPrijs,!
Quit $J(KstPrijs,0,2)
Index: PV_TBX_Zaag.prj.xml
===================================================================
diff -u
--- PV_TBX_Zaag.prj.xml (revision 0)
+++ PV_TBX_Zaag.prj.xml (revision 918)
@@ -0,0 +1,42 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Index: PRA_Oude_kenmerken.prj.xml
===================================================================
diff -u
--- PRA_Oude_kenmerken.prj.xml (revision 0)
+++ PRA_Oude_kenmerken.prj.xml (revision 918)
@@ -0,0 +1,13 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
Index: PRDUPLI.mac.rou
===================================================================
diff -u -r734 -r918
--- PRDUPLI.mac.rou (.../PRDUPLI.mac.rou) (revision 734)
+++ PRDUPLI.mac.rou (.../PRDUPLI.mac.rou) (revision 918)
@@ -31,8 +31,8 @@
.Set IdentNr=$$ASK^vhINP("Ingave nieuw identnummer : ",11,IdentNr,,,,,,"E")
.If ".-"[IdentNr Set Stop=1 Quit
.Set:IdentNr?8N IdentNr=$E(IdentNr)_"."_$E(IdentNr,2,4)_"."_$E(IdentNr,5,7)_"."_$E(IdentNr,8)
- .If IdentNr'?1N1"."3N1"."3N1"."1N Do TXT^vhINP("Identnummer heeft foutief formaat") Quit
- .If "0,1,2,3,5,4,6,7,8"'[$E(IdentNr)!(IdentNr="") Do TXT^vhINP("Foutief beginnummer voor een identnummer") Quit
+ .If '$$IsValidIdentNr^PRODUKT2(IdentNr) Do TXT^vhINP("Identnummer heeft foutief formaat") Quit ;[IDENT] CW
+ .;If "0,1,2,3,5,4,6,7,8"'[$E(IdentNr)!(IdentNr="") Do TXT^vhINP("Foutief beginnummer voor een identnummer") Quit ;[IDENT] CW
.Set Som=$E(IdentNr,3)*6+($E(IdentNr,4)*5)+($E(IdentNr,5)*4)+($E(IdentNr,7)*3)+($E(IdentNr,8)*2)#11
.Set CheckD=$S(Som=0:1,Som=1:0,1:11-Som)
.; Index kan op raad van BLUM verhoogd worden
@@ -46,7 +46,7 @@
...Do TXT^vhINP("IdentNummer met mogelijk foutieve checkdigit") Quit
..Else Do ; Controle tweede wijze
...Do TXT^vhINP("IdentNummer OK, dit voor onderdelen, promotieartikelen en katalogen") Quit
- .If $D(^KPR2($$TRIMN^vhRtn1(IdentNr)_" ")) Do TXT^vhINP("IdentNr bestaat reeds") Quit
+ .If $D(^KPR2($$TRIMIDENT^vhRtn1(IdentNr)_" ")) Do TXT^vhINP("IdentNr bestaat reeds") Quit ;[IDENT] CW
.Set Stop=2
If LevNr'=5005 For Do Quit:Stop
.Set Stop=0
Index: RPLPR3.mac.rou
===================================================================
diff -u -r734 -r918
--- RPLPR3.mac.rou (.../RPLPR3.mac.rou) (revision 734)
+++ RPLPR3.mac.rou (.../RPLPR3.mac.rou) (revision 918)
@@ -3,10 +3,22 @@
;
T1 ;"0;C;L;1;;\1;C;L;7;; |\2;N;R;14;;|\3;N;R;14;"_$$MUNT^vhRtn1(,4)_";|\4;N;R;14;;|\5;N;R;14;"_$$MUNT^vhRtn1(,4)_";"
T2 ; Week | Stock aantal | Stock omzet | Kom aantal | Kom omzet
+ ;
+ ;/*
T3 ;"0;C;L;1;;\3;C;L;18;;|\4;N;R;8;;|\5;N+;R;3;;|\6;C;L;8;;|\8;N;R;11;2;\9;C;R;3;;\13;C;R;1;;|;;$S(X=""H"":""%"",1:"""")\$S($J($P(FL(3),D,10),0,2)=$J($P(FL(3),D,8),0,2):0,1:$P(FL(3),D,10));N;R;11;2;|\12;N;R;10;0;"
T32 ;"0;C;L;1;;\3;C;L;25;;|\4;N;R;8;;|\"""";C;L;33;;|\12;N;R;10;0;"
T4 ; Klant | Stuks |#LN|Dat L Pr| Lst prijs | Hdg prijs |Omzet EUR`-2
T42 ; Kindprodukt | Stuks | |Omzet EUR`
+ ;*/
+ ;
+ /*
+ ; Maskeren prijzen voor bezoek Blum (vorige lijnen T3 tem T42 deactiveren en volende activeren)
+T3 ;"0;C;L;1;;\3;C;L;18;;|\4;N;R;8;;|\5;N+;R;3;;|\6;C;L;8;;|\99;N;R;11;2;\99;C;R;3;;\99;C;R;1;;|;;$S(X=""H"":""%"",1:"""")\$S($J($P(FL(3),D,10),0,2)=$J($P(FL(3),D,8),0,2):0,1:0);N;R;11;2;|\99;N;R;10;0;"
+T32 ;"0;C;L;1;;\3;C;L;25;;|\4;N;R;8;;|\"""";C;L;33;;|\99;N;R;10;0;"
+T4 ; Klant | Stuks |#LN|Dat L Pr| | | `-2
+T42 ; Kindprodukt | Stuks | | `
+ */
+ ;
T5 ;1;C;R;6;; |\2;N;R;11;;|\3;N;R;11;;\7;C;L;1;;|\4;N;R;11;;\8;C;L;1;;| \5;C;L;1;; |\6;N;R;11;;|\9;N;R;11;;
T6 ; LevWk | Termijnst | Orderport | Besteld | T | Suggestie | LogSteuer
T7 ;"0;C;L;1;;\1;C;L;7;; |\2;N;R;12;;|\3;N;R;12;;|\4;N;R;12;"_$$MUNT^vhRtn1(,4)_";"
Index: RPLMBON.mac.rou
===================================================================
diff -u -r734 -r918
--- RPLMBON.mac.rou (.../RPLMBON.mac.rou) (revision 734)
+++ RPLMBON.mac.rou (.../RPLMBON.mac.rou) (revision 918)
@@ -246,7 +246,7 @@
For Do Quit:X'?.N Quit:$$CHKAANT^FLOW(KC,PRNr,X)
.Set X=$P(^KPR(PRNr,0),D,23)
- .If X="K" Set X=$P(^KPR(PRNr,0),D),X=$$^vhTXTPOP("FLOWORD","VERKKIND","",X) If 'X Set X="-" Quit
+ .If X="K",KC'=$$$KlantHalux Set X=$P(^KPR(PRNr,0),D),X=$$^vhTXTPOP("FLOWORD","VERKKIND","",X) If 'X Set X="-" Quit
.If $E(X)="H",KC'=$$$KlantHalux Set X=$P(^KPR(PRNr,0),D),X=$$^vhTXTPOP("FLOWORD","VERKHALFFABR","",X) If 'X Set X="-" Quit
.Set %R=24,%C=1,prompt="Aantal stuks : ",ln=6
.Set X=$P($G(^MBLOG("D",$$IO^cQ5,KC,PRNr)),D)
Index: PV_Klantbeoordeling.prj.xml
===================================================================
diff -u
--- PV_Klantbeoordeling.prj.xml (revision 0)
+++ PV_Klantbeoordeling.prj.xml (revision 918)
@@ -0,0 +1,37 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Index: PRODUKT.mac.rou
===================================================================
diff -u -r734 -r918
--- PRODUKT.mac.rou (.../PRODUKT.mac.rou) (revision 734)
+++ PRODUKT.mac.rou (.../PRODUKT.mac.rou) (revision 918)
@@ -63,7 +63,7 @@
.Set %SelProd("PRNr")=PRNr
If Via="I" Do Quit PRNr
.For Do Quit:'PRNr If $P(^KPR(PRNr,1),D,25)'=1 Quit:$$CHECK(PRNr)
- ..Set PRId=$P(^KPR(PRNr,2),D,25),PRCId=$$TRIMN^vhRtn1(PRId)
+ ..Set PRId=$P(^KPR(PRNr,2),D,25),PRCId=$$TRIMIDENT^vhRtn1(PRId) ;[IDENT] CW
..Set PRCId=$O(^KPR2(PRCId),Dir)
..Set PRNr=$S($L(PRCId):$P(^KPR2(PRCId),D),1:"")
.Set %SelProd("PRNr")=PRNr
@@ -85,7 +85,6 @@
.Set %SelProd("PRNr")=PRNr
Quit ""
;
- ;
CHECK(PRNr)
Set IdentNr=$P(^KPR(PRNr,2),D,25)
Set pxCriteria.At="I"
@@ -316,7 +315,7 @@
Quit $LB($P(BLRec,D,23),$P(BLRec,D,24),$P(BLRec,D,25),$P(BLRec,D,22), GVP) ; H, B, D, Faktor, GVP
;
PRODGRP(PRNr,CheckOldProducts)
- New Groep,GenTyp,Key
+ New Groep,GenTyp,Key,LevNr
Set LevNr=$E($O(^KPR(PRNr,"J")),2,5)
Set:LevNr=""&&$G(CheckOldProducts) LevNr=$E($O(^KPRO(PRNr,"J")),2,5) ; Old
If LevNr=5005 Quit "BLUM"
Index: SyncTool.prj.xml
===================================================================
diff -u
--- SyncTool.prj.xml (revision 0)
+++ SyncTool.prj.xml (revision 918)
@@ -0,0 +1,27 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Index: PRBS.mac.rou
===================================================================
diff -u -r734 -r918
--- PRBS.mac.rou (.../PRBS.mac.rou) (revision 734)
+++ PRBS.mac.rou (.../PRBS.mac.rou) (revision 918)
@@ -226,6 +226,10 @@
If VolgNr>1,$L(BSPopNm),$P($G(^RES(BSPopGrp,"PI",BSPopNm,"D",$P(BSKey,"."))),"`",4) Quit "" ; Uniek: mag maar 1 maal voorkomen
Quit $P(BSCode,".")_"."_$TR($J(VolgNr,3)," ","0")
+SCRNTYPVia(Ref) ; SCRNTYP voor transfert
+ If Ref'["^HULP" Quit ""
+ Quit ";"_$$SCRNTYP($P(@Ref,D,20))
+
SCRNTYP(BSKey) ; Welk detail scherm er gebruikt moet worden
Set BSTyp=$P($G(^HULP(%J,"C",BSKey)),D,3)
Set:BSTyp="" BSTyp=$P(^RES(BSPopGrp,"PI",BSPopNm,"D",$P(BSKey,".")),"`",3)
@@ -249,7 +253,6 @@
If $D(^HULP(%J,"C")),'$D(^PRBS(BSNode,PRNr)) Do ;Alleen links
. Set ^HULP(%J,"C")="M\KP"
Do GETPOP
- ;zw ^HULP(%J,"C") r k
Quit
FETCHLNK(PRNr)
@@ -306,7 +309,24 @@
UNLOCK(PRNr)
Lock -^PRBS("BS",PRNr),-^PRBS("BSS",PRNr)
Quit
+
+ ; Extra parameterkolom (Filler) voor kindproduct
+Filler(sRec)
+ New Filler
+ Set Filler=$P(sRec,D,12)
+ Set:$L($P(sRec,D,23)) Filler=Filler_" Inkort:"_$S($P(sRec,D,23):"ja",1:"neen")
+ Set:$L($P(sRec,D,24)) Filler=Filler_" (#:"_$P(sRec,D,24)_")"
+ Quit Filler
+ ; Extra parameterkolom (Supplement) voor kost
+Supplement(sRec)
+ New X,Supplement
+ Set X=$P(sRec,D,4)
+ If 'X Set Supplement="faktor:"_$TR($J($P(sRec,D,5),0,3),".",",")_$C(59)_$S($P(sRec,D,6)="":"gans",1:$P(sRec,D,6))
+ Else If $L($P(sRec,D,9)) Set Supplement="Mat:"_$TR($J(X,0,2),".",",")_$C(59)_$P(sRec,D,9)
+ Else Set Supplement="suppl:"_$TR($J(X,0,3),".",",")
+ Quit Supplement
+
SwitchNoSa(WithData)
;zw ^HULP(%J,"C") r k
; Opslaan huidige data voor switch
@@ -575,16 +595,16 @@
Quit
-PRINT q ;niet gebruikt PV 29/11/2003
- New PList,PRLink
- If $D(sMod("N")) Quit:'$$SAVE(0) Do
- .Kill ^HULP(%J),sMod
- .Do FETCH()
- .;Set PRLink=$$CHKLINK(PRNr) Set:PRLink="" PRLink="M"
- .Do INIT^vhLIST("PRLINK","PRLINK"_PRLink,.List),WRITE^vhLIST(.List)
- Do MFETCHE^PRLINKL(PRNr)
+PRINT(Output)
+ Do
+ . New List,Print
+ . Do INIT^vhLISTO("PRBS","LIJST",.List)
+ . Set List(10)="SCRNTYPVia^PRBS"
+ . Set List(8)="Groep|Code|Type|Meerwaarde|Product/omschrijving|Aantal|Extra par.|Extra par.|Kost"
+ . Do PRINT^OUTPUT(.List,Output,,"Bouwstenen "_MPRNr_".TXT")
+ Do WRITE^vhLIST(.List)
Quit
- ;
+
REFRESH
;Do SYNCPR^HADWIZ(MPRNr) ; Syncronisatie van de tree
Write @F11,@F1
@@ -1010,7 +1030,7 @@
For Set VolgNr=$O(Result(VolgNr)) Quit:VolgNr="" Do
. Set Oms=$LG(Result(VolgNr),1)
. Set HFPRNr=$LG(Result(VolgNr),2)
- . Set Aantal=$LG(Result(VolgNr),3)
+ . Set Aantal=$LG(Result(VolgNr),3)/$$GroepAantal(PRNr)
. Set Lengte=$LG(Result(VolgNr),4)
. Set Breedte=$LG(Result(VolgNr),5)
. Set HistID=$LG(Result(VolgNr),6)
@@ -1049,6 +1069,15 @@
Do UPDATE^PRBS
Quit
+GroepAantal(PRNr)
+ Quit $S($$IsAntiSlipMat(PRNr):4,1:1)
+
+IsAntiSlipMat(PRNr)
+ {
+ Set KortTekst=$$$PRGet($$$KortTekst)
+ Quit ($E(KortTekst,1,5)="OL.AR") || ($E(KortTekst,1,5)="OL.AO") || ($E(KortTekst,1,5)="OL.AY")
+ }
+
; verkorte ingave van de orgalux inpak
; vertrekt van de bestaande gegevens indien ingevuld of probeert afhankelijk van de verpakking nieuwe te definieren.
AutoOrgalux(PRNr)