Index: vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Tandembox.Aansturing/Test007DeDeckerPallet/StartBatch/Productie_010_prn.txt =================================================================== diff -u -r60663 -r60883 --- vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Tandembox.Aansturing/Test007DeDeckerPallet/StartBatch/Productie_010_prn.txt (.../Productie_010_prn.txt) (revision 60663) +++ vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Tandembox.Aansturing/Test007DeDeckerPallet/StartBatch/Productie_010_prn.txt (.../Productie_010_prn.txt) (revision 60883) @@ -18,9 +18,9 @@ | | | | | Geleider, BLUMOTION | |576.5001B K RE V16 ZN | 1| | | | | | | +Reling |Zwart |ZRG.437RSICREL*LAE L TERS | 1| | | | | | | - | | | | | - | | | | | +Reling |Zwart |ZRG.437RSICREL*LAE R TERS | 1| | -------------------------|-----------|--------------------------|----|------| \ No newline at end of file Index: HADTBXPrep.mac.rou =================================================================== diff -u -r60668 -r60883 --- HADTBXPrep.mac.rou (.../HADTBXPrep.mac.rou) (revision 60668) +++ HADTBXPrep.mac.rou (.../HADTBXPrep.mac.rou) (revision 60883) @@ -159,7 +159,7 @@ . . Set KortTekst = $Piece(HalfFormat,"\",2) . . If ($Extract($Piece(EindFormat,"\",6),1,8) = "Geleider") { . . Set $Piece(HalfFormat,"\",2) = $Extract(KortTekst,1,8)_"�B"_$Extract(KortTekst,9,9)_"�b"_$Extract(KortTekst,10,*) ;Bij het aanpassen van deze Korttekst (voor een geleider) moet ook gecontroleerd worden of de methode 'PickGepasteGeleiders' nog steeds - . . } ;goed uitgevoerd wordt. Deze methode gebruikt namelijk deze aangepaste string. + . . } ;goed uitgevoerd wordt. Deze methode gebruikt namelijk deze aangepaste string. Ook methode ZetKorttekstVoorAndereSoortGeleider . . If ($Extract($Piece(EindFormat,"\",6),1,6) = "Reling") && ($Extract(KortTekst,10,10)="F") { . . Set $Piece(HalfFormat,"\",2) = $Extract(KortTekst,1,9)_"�B"_$Extract(KortTekst,10,10)_"�b"_$Extract(KortTekst,11,*) . . } @@ -181,7 +181,7 @@ PickGepasteGeleiders(Lijst, LengteLijst, Batch) #dim ProdGroep As APPS.Halux.common.enu.ProductieGroep = Batch.GeefProductieGroep() - #dim EenKorttekstWerdVervangen = $$$False + #dim IsEenKorttekstVervangen As %Boolean = $$$False New SamengesteldeLijst If $$$Not(ProdGroep = ##class(APPS.Halux.common.enu.ProductieGroep).Stuk()) { ; Bij niet Stuk verpakkingen moeten type 500 & 550 geleiders gepickt worden uit een V16 verpakking en niet EP7 @@ -190,10 +190,11 @@ If $$$Not(Lijst(ii) = "") { If ($Extract($Piece(Lijst(ii),"\",15),1,8) = "Geleider") { #dim Korttekst As %String = $Piece(Lijst(ii),"\",3) - If (##class(TECH.StringUtils).Contains(Korttekst,"EP7") && (##class(TECH.StringUtils).Contains(Korttekst,"576.500") ||##class(TECH.StringUtils).Contains(Korttekst,"576.550"))) { + If ((##class(TECH.StringUtils).Contains(Korttekst,"EP7") && (##class(TECH.StringUtils).Contains(Korttekst,"576.500") || ##class(TECH.StringUtils).Contains(Korttekst,"576.550")))) { Set $Piece(Lijst(ii),"\",3) = $Extract(Korttekst,1,22)_"V16"_$Extract(Korttekst,26,*) - Set EenKorttekstWerdVervangen = $$$True + Set IsEenKorttekstVervangen = $$$True } + Do ZetKorttekstVoorAndereSoortGeleider(.Lijst,ii) } } @@ -203,33 +204,40 @@ { If $$$Not(Lijst(ii) = "") { If ($Extract($Piece(Lijst(ii),"\",15),1,8) = "Geleider") { - #dim Korttekst As %String = $Piece(Lijst(ii),"\",3) - - If (##class(TECH.StringUtils).Contains(Korttekst,"V16") && (##class(TECH.StringUtils).Contains(Korttekst,"576.500") ||##class(TECH.StringUtils).Contains(Korttekst,"576.550"))) { + #dim Korttekst As %String = $Piece(Lijst(ii),"\",3) + If ((##class(TECH.StringUtils).Contains(Korttekst,"V16") && (##class(TECH.StringUtils).Contains(Korttekst,"576.500") || ##class(TECH.StringUtils).Contains(Korttekst,"576.550")))) { Set $Piece(Lijst(ii),"\",3) = $Extract(Korttekst,1,22)_"EP7"_$Extract(Korttekst,26,*) - Set EenKorttekstWerdVervangen = $$$True + Set IsEenKorttekstVervangen = $$$True } + Do ZetKorttekstVoorAndereSoortGeleider(.Lijst,ii) } } } } - If EenKorttekstWerdVervangen { - Do NeemAantallenZelfdeGeleidersSamen(.Lijst, Cnt) - Do VerwijderGewijzigdeLegeRegels(.Lijst, Cnt, .SamengesteldeLijst) + + If IsEenKorttekstVervangen { + #dim AantalGeleiderSamengenomen As %Integer = 0 - For ii = 1:1:LengteLijst*2-4 - { - Set Lijst(ii) = SamengesteldeLijst(ii) ; Set Lijst = SamengesteldeLijst werkt niet + Do NeemAantallenZelfdeGeleidersSamen(.Lijst, Cnt, .AantalGeleiderSamengenomen) + If AantalGeleiderSamengenomen > 0 { + Do VerwijderGewijzigdeLegeRegels(.Lijst, Cnt, .SamengesteldeLijst) + + For ii = 1:1:(LengteLijst*2)-(2*AantalGeleiderSamengenomen) + { + Set Lijst(ii) = SamengesteldeLijst(ii) ; Set Lijst = SamengesteldeLijst werkt niet + + } + + For yy = 0:1:(2*AantalGeleiderSamengenomen)-1 + { + Set Lijst((LengteLijst*2)-(yy)) = "" + } } - Set Lijst(LengteLijst*2-3) = "" - Set Lijst(LengteLijst*2-2) = "" - Set Lijst(LengteLijst*2-1) = "" - Set Lijst(LengteLijst*2) = "" } Quit -NeemAantallenZelfdeGeleidersSamen(Lijst, LengteLijst) +NeemAantallenZelfdeGeleidersSamen(Lijst, LengteLijst, IsEenGeleiderSamengenomen) For ii = 1:1:LengteLijst*2 { If $$$Not(Lijst(ii) = "") { @@ -244,7 +252,7 @@ If (Korttekst = Korttekst2) { Set $Piece(Lijst(ii),"\",4) = $Piece(Lijst(ii),"\",4) + $Piece(Lijst(yy),"\",4) ;Aantallen optellen Set Lijst(yy) = "" - + Set AantalGeleiderSamengenomen = AantalGeleiderSamengenomen + 1 } } @@ -254,8 +262,7 @@ } } -VerwijderGewijzigdeLegeRegels(Lijst, LengteLijst, NieuweLijst) - +VerwijderGewijzigdeLegeRegels(Lijst, LengteLijst, NieuweLijst) Set NieuweLijst($Increment(NieuweLijst)) = Lijst(1) ;Tekst: ***Losse onderdelen BULK*** For ii = 2:2:LengteLijst*2 { @@ -266,6 +273,14 @@ } Quit +ZetKorttekstVoorAndereSoortGeleider(Lijst, Index) + #dim Korttekst As %String = $Piece(Lijst(Index),"\",3) + Do ##class(Tools.Wlip).%New(110).String(Korttekst) + If ((##class(TECH.StringUtils).Contains(Korttekst,"41K R+L EP6") && (##class(TECH.StringUtils).Contains(Korttekst,"578.5001")))) { //Korttekst aanpassen voor Product met korttekst 578.5001B41K R+L V20 ZN + Set $Piece(Lijst(Index),"\",3) = $Extract(Korttekst,1,22)_"V20"_$Extract(Korttekst,26,*) + } + + HalfFormat(List) New PRNr,Qty,NettoDim,IsWerkVloer,IdentNr,KortTekst Set PRNr=$LI(List,2) Index: vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Tandembox.Aansturing/Test007DeDeckerPallet/StartBatch/Productie_009_prn.txt =================================================================== diff -u -r60663 -r60883 --- vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Tandembox.Aansturing/Test007DeDeckerPallet/StartBatch/Productie_009_prn.txt (.../Productie_009_prn.txt) (revision 60663) +++ vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Tandembox.Aansturing/Test007DeDeckerPallet/StartBatch/Productie_009_prn.txt (.../Productie_009_prn.txt) (revision 60883) @@ -20,7 +20,7 @@ | | | | | Geleider, BLUMOTION | |576.5001B K RE V16 ZN | 3| | | | | | | -Geleider, BLUMOTION | |578.5001B41K R+L EP6 ZN | 1| | +Geleider, BLUMOTION | |578.5001B41K R+L V20 ZN | 1| | | | | | | Reling |Zwart |ZRG.437RSICREL*LAE L TERS | 2| | | | | | | Index: vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Tandembox.Aansturing/Test007DeDeckerPallet/StartBatch/Productie_008_prn.txt =================================================================== diff -u -r60307 -r60883 --- vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Tandembox.Aansturing/Test007DeDeckerPallet/StartBatch/Productie_008_prn.txt (.../Productie_008_prn.txt) (revision 60307) +++ vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Tandembox.Aansturing/Test007DeDeckerPallet/StartBatch/Productie_008_prn.txt (.../Productie_008_prn.txt) (revision 60883) @@ -18,7 +18,7 @@ | | | | | Geleider, BLUMOTION | |576.4501B K RE V16 ZN | 1| | | | | | | -Geleider, BLUMOTION | |578.5001B41K R+L EP6 ZN | 1| | +Geleider, BLUMOTION | |578.5001B41K R+L V20 ZN | 1| | | | | | | Reling |Grijs |ZRG.387RSICREL*LAE L R906 | 1| | | | | | |