Index: PV.mac.rou =================================================================== diff -u -r70681 -r73192 --- PV.mac.rou (.../PV.mac.rou) (revision 70681) +++ PV.mac.rou (.../PV.mac.rou) (revision 73192) @@ -7,6 +7,7 @@ HFL Read "Klant:",HflKlant + Set HflKlant=$$TrimBeginOfText^vhLib($$TrimEndOfText^vhLib(HflKlant)) Do NL(HflKlant) Do BE(HflKlant) Quit @@ -20,6 +21,25 @@ do ##class(zTryout.JWI.Haefele.UrlGenerator).%New().GenereerEen(7,"k0uGXfFcFjZZFa7InVf7aw--",Klant) Quit +CORRVOORRAAD + ;Correctie voorraad indien verschil KPR <-> PRSTOCK + Set ObjtFase=##class(OBJTimpl.CheckObjectiveFase).%New() + set Device=$$OPEN^vhDEV(,"Voorraad zonder orders.txt","W","T") + Use Device + Write "PRNr Korttekst Voorraad Direct=1",! + Set PRNr=0 + For Set PRNr=$O(^PRSTOCK("D",PRNr)) Quit:PRNr="" Do + . Quit:'$D(^KPR(PRNr)) + . Quit:(+$P(^PRSTOCK("D",PRNr),"\"))=0 + . Quit:ObjtFase.VoorraadSync(PRNr,"VHBE")=1 + . Quit:$D(^ORD("IP",PRNr))>0 + . Set MPRNr=0 + . For Set MPRNr=$O(^PRBS("IP",PRNr,MPRNr)) Quit:MPRNr="" Quit:$D(^ORD("IP",MPRNr))>0 + . Quit:MPRNr'="" + . Write PRNr,*9,$$$PRGet($$$KortTekst),*9,$P(^PRSTOCK("D",PRNr),"\"),*9,MPRNr="",! + D CLOSE^vhDEV(Device) + q + HISTTAB(Jaar) Set Jaar=$G(Jaar,2022) Set Device=$$OPEN^vhDEV(,"TAB productie.txt","W","T") @@ -56,22 +76,69 @@ Do CLOSE^vhDEV(Device) Write Cnt Quit - -HISTEXPORT() - Set Device=$$OPEN^vhDEV(,"HIST export.txt","W","T") +HISTKarton + ;Set Jaar=$G(Jaar,$$EXTDATE^vhLib.DataTypes($H,"J4")) + Set Vanaf=$$CALCDATE^vhLib.DataTypes($H,"BJ","FD",-4) + Set Tot=$$CALCDATE^vhLib.DataTypes($H,"BJ","LD",-4) + Write $zd(Vanaf,8)," - ",$zd(Tot,8),! + Set Device=$$OPEN^vhDEV(,"Karton hist "_$$EXTDATE^vhLib.DataTypes($P(Tot,","),"BJ")_".txt","W","T") Use Device + Write "PRNr Identnummer Korttekst Actie Magazijn Aantal Waarde Tijdstip" + Write *9,"LevNr",*9,"LevNm",! + Set Cnt=0 + Set PRNr="" + For Set PRNr=$O(^PRHIST(PRNr)) Quit:PRNr="" Do:($D(^KPR(PRNr,"J6317"))||$D(^KPR(PRNr,"J8910"))||$D(^KPR(PRNr,"J7631"))||$D(^KPR(PRNr,"J7012"))) + . Set Key="" + . Set LevNr=$$$PRGet($$$LeveranciersNr) + . Set LevNm=$P(^KLE(^KL1(LevNr),0),"\",2) + . For Set Key=$O(^PRHIST(PRNr,Key)) Quit:Key="" Do + .. Set Rec=^PRHIST(PRNr,Key) + .. Set Tijdstip=$P(Rec,"\") + .. Quit:+TijdstipTot + .. Set Magazijn=$P(Rec,"\",5) + .. Quit:Magazijn'="W" + .. Set Qty=$P(Rec,"\",2) + .. Set Ref=$P(Rec,"\",7) + .. Set DerdeNr=$P(Rec,"\",6) + .. Set Actie=$P(Rec,"\",4) + .. Set AxConfigId=$P(Rec,"\",20) + .. Set AxInventTransId=$P(Rec,"\",19) + .. Set AxItemId=$P(Rec,"\",21) + .. Set FSCClaim=$P(Rec,"\",17) + .. Set FaktRcpNr=$P(Rec,"\",10) + .. Set Waarde=$P(Rec,"\",12) + .. Set MoederFSCClaim=$P(Rec,"\",18) + .. Set MoederPRNr=$P(Rec,"\",15) + .. Set Omschrijving=$P(Rec,"\",11) + .. Set UitToeLevDatum=$P(Rec,"\",9) + .. Set UitToeLevNr=$P(Rec,"\",7) + .. Write PRNr,*9,$$$PRGet($$$IdentNummer),*9,$$$PRGet($$$KortTekst) + .. Write *9,Actie,*9,Magazijn,*9,$$$ExcelNum(Qty),*9,$$$ExcelNum(Waarde) + .. Write *9,$$$ExcelDat($P(Tijdstip,",")),*9,LevNr,*9,LevNm,*9,$$EXTDATE^vhLib.DataTypes($P(Tijdstip,","),"BJ") + .. Write ! + Do CLOSE^vhDEV(Device) + Write Cnt + Quit +HISTEXPORT(Jaar) + Set Jaar=$G(Jaar,$$EXTDATE^vhLib.DataTypes($H,"J4")) + Set Vanaf=$$CALCDATE^vhDTyp($H,"BJ","FD",-4) + Set Tot=$$CALCDATE^vhDTyp($H,"BJ","LD",-1) + Write $zdh(Vanaf,8)," - ",$zdh(Tot,8),! + Set Device=$$OPEN^vhDEV(,"Karton hist.txt","W","T") + Use Device Write "DerdeNr PRNr Identnummer Korttekst Actie Magazijn Aantal Tijdstip" Write *9,"AxConfigId",*9,"AxInventTransId",*9,"AxItemId",*9,"FSCClaim",*9,"FaktRcpNr",*9,"MoederFSCClaim" Write *9,"MoederPRNr",*9,"MoederKorttekst",*9,"Omschrijving",*9,"UitToeLevDatum",*9,"UitToeLevNr",! - Set Vanaf=$zdh(2018_"0701",8) Set Cnt=0 Set PRNr="" - For Set PRNr=$O(^PRHIST(PRNr)) Quit:PRNr="" Do + For Set PRNr=$O(^PRHIST(PRNr)) Quit:PRNr="" Do:($D(^KPR(PRNr,"J7631"))||$D(^KPR(PRNr,"J7012"))) . Set Key="" . For Set Key=$O(^PRHIST(PRNr,Key)) Quit:Key="" Do .. Set Rec=^PRHIST(PRNr,Key) .. Set Tijdstip=$P(Rec,"\") .. Quit:+TijdstipTot .. Set Magazijn=$P(Rec,"\",5) .. Quit:Magazijn="W" .. Set Qty=$P(Rec,"\",2) @@ -95,7 +162,6 @@ .. Write *9,MoederPRNr,*9,$S(MoederPRNr?4.10N&&($D(^KPR(MoederPRNr,0))):$$$ProductGet(MoederPRNr,$$$KortTekst),1:"") .. Write *9,Omschrijving,*9,$$$ExcelDat(UitToeLevDatum),*9,UitToeLevNr .. Write ! - Do CLOSE^vhDEV(Device) Write Cnt Quit @@ -208,9 +274,31 @@ . Write VerzendW,*9,$$$ExcelTime($p(Rec,"`",4)),*9,$$$ExcelTime($p(Rec,"`",13)),*9,$$$ExcelTime($p(Rec,"`",16)),*9,$TR(Rec,"`",$c(9)),! Do CLOSE^vhDEV(Device) q + +SubMag + Set PRNr="" + Set Cnt=0 + Kill Cache + Set Device=$$OPEN^vhDEV(,"SubMag Verzendwijze.txt","W","T") + Use Device + Write "PRNr IdentNr Korttekst SubMag Oms Verzendwijze #St 100d #L 100d HerbestelAfrCode HerbestelAfrAantal HerbestelSurplus",! + For Set PRNr=$O(^KPR(PRNr)) Quit:PRNr="" Do ;Quit:Cnt=100 + . Set Cnt=Cnt+1 + . Set BSKey="" + . ;Set ProdGrp=$$PRODGRP^PRODUKT(PRNr) + . Set SubMag=$$$PRGet($$$WerkvloerSubMag) + . Quit:SubMag="" + . Do HISTO^STAT(PRNr,$H-100,$H,"T","M",.Cumul,.Aantal) + . Quit:'Cumul + . Set VerzendWijze=$P($G(^RES("PRODUKT","PI","HFWVSUBMAG","D",SubMag)),"`",4) ; Vertaling naar een code voor HALUX TRANSFER verzendwijze + . Set SubMagOms=$P($G(^RES("PRODUKT","PI","HFWVSUBMAG","D",SubMag)),"`",2) ; Vertaling naar een code voor HALUX TRANSFER verzendwijze + . Set VerzendWijze=$S(VerzendWijze'="":"TH"_VerzendWijze,1:"HLX") + . Set WvAfrCode=$$$PRGet($$$WerkvloerHerbestelAfronding) + . Set WvAfrAantal=$$GETVPK^MRP(PRNr,WvAfrCode,1) + . Write PRNr,*9,$$$PRGet($$$IdentNummer),*9,$$$PRGet($$$KortTekst),*9,SubMag,*9,SubMagOms,*9,VerzendWijze,*9,-Cumul,*9,Aantal,*9,WvAfrCode,*9,WvAfrAantal,*9,$$$PRGet($$$WerkvloerHerbestelAantal),! + Do CLOSE^vhDEV(Device) + Quit - - KostenplaatsGebruik Set PRNr="" Set Cnt=0 @@ -3166,97 +3254,5 @@ . Write $$SORTKEY^PRODUKT(PRNr),*9,PRNr,*9,$P(^KPR(PRNr,0),"\"),*9,$TR(Norm,".",","),*9,$TR(Schaduw,".",","),! Close:Dev'=0 Dev Quit -CtrlProdDeBetho - Set Dev=0 - Set Dev=$$OPEN^vhDEV(,"PrijsvglDeBetho.txt","W") - Use Dev - - S PRNr="" - For Set PRNr=$O(^KPR(PRNr)) Quit:PRNr="" Do - . Set Qty=$$PROD^STAT(PRNr,0,"2007.08 ","2008.08 ",1) - . ;Quit:Qty<1 - . Quit:$$$PRGet($$$NONAktief)=1 - . Quit:'$D(^KPR(PRNr,"J5529")) - . Set Schaduw=$$$PRGet($$$SchaduwPPL) - . Set Norm=$$$PRGet($$$PPLMTL) - . Write $$SORTKEY^PRODUKT(PRNr),*9,$P(^KPR(PRNr,2),"\",25),*9,PRNr,*9,$P(^KPR(PRNr,0),"\"),*9,$TR(Norm,".",","),*9,$TR(Schaduw,".",","),! - Close:Dev'=0 Dev - Quit - -Ninka - Set Dev=0 - - S PRNr="" - For Set PRNr=$O(^KPR(PRNr)) Quit:PRNr="" Do - . Quit:$$$PRGet($$$NONAktief)=1 - . Quit:'$D(^KPR(PRNr,"J6118")) - . Set KortT=$P(^KPR(PRNr,0),"\") - . Set Opslag=$S($E(KortT,1,3)="AFV":2.5,1:4) - . Set Prijs=$$$PRGet($$$SchaduwPPL) - . Set:Prijs="" Prijs=$$$PRGet($$$PPLMTL) - . Set SPrijs=+$J(Prijs*(1+(Opslag/100)),0,2) - . Write PRNr," ",$P(^KPR(PRNr,0),"\")," ",$$$PRGet($$$PPLMTL),"->",Prijs," + ",Opslag,"% = ",SPrijs,! - . Do $$$PRSet($$$SchaduwPPL,SPrijs) - Quit - -Prijs(KlantProdID) - d MASTER^cQ5 - S Q="K" - s D="\",U=";" - S QU="PV",QU(1)=17,QU(2)="Paul Verhulst" - s DT="26.09.08" - Set KLNr=$P(KlantProdID,"\") - Set ProdID=$P(KlantProdID,"\",2) - q "OK:"_IDNr_";"_SchaduwPPL - -SchadDB(String) - S Q="K" - s D="\",U=";" - S QU="PV",QU(1)=17,QU(2)="Paul Verhulst" - s DT="01.09.08" - Set IDNr=$$TRIMN^vhRtn1($P(String,"$")) - Set Schaduw=$P(String,"$",2) - Set PRNr=$P($G(^KPR2($TR(IDNr,". ","")_" ")),"\") - Quit:'SchaduwDB "NO DB"_IDNr_";"_$G(SchaduwDB) - Quit:PRNr="" "NOT FOUND:"_IDNr_";"_$G(SchaduwDB) - ;d WLIP^vhDBG(15,IDNr_" "_SchaduwDB) - Do $$$PRSet($$$SchaduwDBPerc,SchaduwDB) - q "OK:"_IDNr_";"_SchaduwDB - -SchadPPL(String) - S Q="K" - s D="\",U=";" - S QU="PV",QU(1)=17,QU(2)="Paul Verhulst" - s DT="01.09.08" - Set IDNr=$$TRIMN^vhRtn1($P(String,"$")) - Set SchaduwPPL=$P(String,"$",2) - Quit:'SchaduwPPL "NO DB"_IDNr_";"_$G(SchaduwPPL) - Set PRNr=$P($G(^KPR2($TR(IDNr,".","")_" ")),"\") - Quit:PRNr="" "NOT FOUND:"_IDNr_";"_$G(SchaduwPPL) - ;d WLIP^vhDBG(15,IDNr_" "_SchaduwPPL) - Do $$$PRSet($$$SchaduwPPL,SchaduwPPL) - q "OK:"_IDNr_";"_SchaduwPPL - -Kaderdeur - Set MPRNr="" - For Set MPRNr=$O(^PRBS("BS",MPRNr)) Quit:MPRNr="" Do - . Quit:$P($G(^PRBS("BS",MPRNr)),"\",2)'="KAD" - . Quit:'$$PROD^STAT(MPRNr,0,"2007.08 ","2008.07 ",1) - . Set BSKey="" - . Set Found=0 - . For Set BSKey=$O(^PRBS("BS",MPRNr,BSKey)) Quit:BSKey="" Do - . . Set BSRec=^PRBS("BS",MPRNr,BSKey) - . . Set Oms=$zcvt($P(BSRec,D,13),"U") - . . If Oms="VULLING ENERGIETOESLAG" Do - . . . Set:$P(BSRec,"\",9)="" Found=1 - . . If Oms="VULLING" Do - . . . Set:$P(BSRec,"\",9)="" Found=1 - . Quit:'Found - . Write MPRNr,*9,$P(^KPR(MPRNr,0),"\"),! - Quit - - - - - +