Prod.Product TECH.RegisteredObject,WS.OngeauthenticeerdeWebService ZotteKarakterService http://www.vanhoecke.be/AX/DocGen/ZotteKarakterService 1 1 pFile 0 { Write "Set "_node_ "="""_$get(@node)_"""",! } Set node = $Query(@node) } close filename ]]> KlantId:DOM.common.PartijID 65014 { w !,Rit.GeefOphaalTimeStamp()_";"_Levering.GeefRitID()_";"_Levering.GeefGeleverdAanKlantID()_";"_Rit.GeefGewichtInGram()_";"_Levering.GeefAantalColli()_";"_Levering.GeefAantalEuroPalletten()_";"_Levering.GeefAantalHalveEuroPalletten()_";"_Levering.GeefAantalLanggoed()_";" } } } } Quit "" ]]> 1 1 1 1 1 1 '2018-06-25-10.01.24' " _"and (h.loc_m < 5 " _"and action = 'ADD') " _") " _"group by i.product " _"having sum(qty_pcs)>0 " _"order by i.product " Set res=##class(TECH.ResultSet).%New("%DynamicQueryGW:SQLGW") Set sc=res.Prepare(Statement,,WMSConnectie) Do ##class(TECH.Exceptions.StatusException).ThrowIndienNietOK(sc) Set sc=res.Execute() Do ##class(TECH.Exceptions.StatusException).ThrowIndienNietOK(sc) While res.Next() { Set PRNr = $$$Trim(res.GetDataByName("p")) Set Product = ##class(DOM.DomeinContext).Instance().GeefProductRolAPI().GeefAdministratiefProduct(PRNr) If $Data(^KPR(PRNr,"J6332")) { Set Delta = res.GetDataByName("s") - $piece($Get(^PRSTOCK("D",PRNr)), "\", 1) Set ORDNr = $Order(^ORD("IP",PRNr,"")) If ORDNr { Set OLUNr = $Order(^ORD("IP",PRNr,ORDNr,"")) If OLUNr { Set OLNr = ^ORD("IP",PRNr,ORDNr,OLUNr) If Delta > 0 { w !,PRNr_$c(9)_+res.GetDataByName("s")_$C(9)_Product.GeefKorttekst()_$C(9)_+$piece($Get(^PRSTOCK("D",PRNr)), "\", 1)_$C(9)_Delta_$C(9)_ORDNr Do STORE^PRSTOCK("F","I",PRNr,Delta,"Cor") } } } } } ]]> 1 =(+$H-4))) { Set ^TVESTOCK(+$Piece(Data,"\",7),+$Piece(Data,"\",8),+$Piece(Data,"\",15),PRNr,Sub,+$Piece(Data,"\",2))=$Piece(Data,"\",1) } } } k ^TVESTOCKMOEDER for { Set PRNr = $Order(^PRHIST(PRNr)) Quit:PRNr="" Set Sub = "" for { Set Sub = $Order(^PRHIST(PRNr,Sub)) Quit:Sub="" Set Data = $Get(^PRHIST(PRNr,Sub)) Quit:$$$Not($Data(^KPR(PRNr,"J6332"))) Quit:$$$Not($Piece(Data,"\",4)="N")&&$$$Not($Piece(Data,"\",4)="A")&&$$$Not($Piece(Data,"\",4)="I") Quit:$Piece(Data,"\",2)<0 If (($Piece(Data,"\",1)>=(+$H-4))) { Set bon = +$Piece(Data,"\",7) Set lijnnummer = +$Piece(Data,"\",8) Set delta = +$Piece(Data,"\",2) Set ^TVESTOCKMOEDER(bon,lijnnummer,"ismoeder",PRNr,Sub,delta)=$Piece(Data,"\",1)_"\"_$Piece(Data,"\",4) } } } ]]> 1 beide tijden buitenschrijven ipv controle set eenKindboekingGevonden = 1 } Quit:eenKindboekingGevonden } Quit:eenKindboekingGevonden } W:$$$Not(eenKindboekingGevonden) "Deze moeder heeft te verwerken kinderen", prnr, "$$$$" , bonnr, ! set:$$$Not(eenKindboekingGevonden) AantalTeVerwerkenMoederBoekingen= AantalTeVerwerkenMoederBoekingen+1 If $$$Not(eenKindboekingGevonden) { Do ..HADPRLog(bonnr,lijnnummer,prnr,aantal,$P(^TVESTOCKMOEDER(bonnr,lijnnummer,"ismoeder",prnr,sublijn,aantal),"\"),$P(^TVESTOCKMOEDER(bonnr,lijnnummer,"ismoeder",prnr,sublijn,aantal),"\",2)) } //continue:$Data(^TVESTOCK(bonnr,lijnnummer,prnr)) //w:prnr="1958622" !,$Get(^TVESTOCKMOEDER(bonnr,lijnnummer,"ismoeder",prnr,sublijn,aantal)) } } } } } Write !, "AantalTeVerwerkenMoederBoekingen = ", AantalTeVerwerkenMoederBoekingen, ! ]]> 1 TOENr,TLUNr,PRNr,AantWMS,RCPODate,code wijzigen NO . . Set:((##class(TECH.DateTime).HorologIsGroterDan(RCPODate,##class(TECH.DateTime).TimeStampToHorolog("2018-06-23 00:00:00")))&&$$$Not(##class(TECH.DateTime).HorologIsGroterDan(RCPODate,##class(TECH.DateTime).TimeStampToHorolog("2018-06-23 01:00:00")))&&($D(^TVETELLINGVRIJDAG(HalffabricaatProduct.GeefKorttekst()))=1)&&(code="N")) MoetWijzigen = "Nee" . . //Set:((RCPODate > ##class(TECH.DateTime).TimeStampToHorolog("2018-06-23 00:00:00"))&&(RCPODate < ##class(TECH.DateTime).TimeStampToHorolog("2018-06-23 01:00:00"))&&($D(^TVETELLINGVRIJDAG($$$PRGet($$$KortTekst)))=1)&&(code="N")) MoetWijzigen = "Nee" . . //If ((RCPDate > 23/6 0.00 en < 23/6 1.00) en (prnr in lijst nbo) en (code = 'N') -> wijzigen NO . . Set ^TVEVoorraadTeWijzigen(VolgendeIndex) = MoetWijzigen _ "\" _HFPRNr _ "\" _ -QtyWVRes _ "\" _ TOENr _ "\" _ TLUNr _ "\" _ PRNr _ "\" _ AantWMS _ "\" _ ##class(TECH.DateTime).HorologToTimeStamp(RCPODate) _ "\" _ HalffabricaatProduct.GeefKorttekst() . Else Do ; Nog niet op halffabrikaat dus volledige verwerking . . Set R=^PRBS("BS",PRNr,HFCode),HFPRNr=$P(R,"\"),Aantal=$P(R,"\",2) . . Quit:'$D(^KPR(HFPRNr)) . . Quit:$P(^KPR(HFPRNr,0),"\",23)?1(1"HZ",1"HHZ") ; Niet voor halffabrikaten ZONDER stock verwerking, zie tabel PRLINK;LINKTYPE . . Set DimUitV=$P($G(^PRBS("BS",PRNr,HFCode,"D")),"\",3) . . ;Set WVAantal=$$CV2WV^MRP(HFPRNr,0,AantWMS*Aantal,DimUitV) . . ;Do Log("STAT",HFPRNr,WVAantal) . . ;Do STAT(TOENr,TLUNr,KLNr,PRNr,HFPRNr,WVAantal,RCPODate) . . ;Do HIST(TOENr,TLUNr,KLNr,PRNr,HFPRNr,WVAantal,RCPODate) ;Do DELONE^MRPRES(TOENr_";"_TLUNr,PRNr,,,AantWMS) ; WVAantal -> AantWMS : aangepast op PV 10/10/2011 ]]> 1 aInput WS.Halux.AAP.GeneriekeResponse 1