Index: PV.mac.rou =================================================================== diff -u -r62525 -r66203 --- PV.mac.rou (.../PV.mac.rou) (revision 62525) +++ PV.mac.rou (.../PV.mac.rou) (revision 66203) @@ -2,46 +2,352 @@ #include Prod.Product #include BL.Derde.KlantSpecifiek #include BL.Derde.LevSpecifiek +q +ControleORDW + ;Set Device=$$OPEN^vhDEV(,"ORDW.txt","W","T") + ;Use Device + ;Write "CONSNr Datum Status KLNr ORDNR",! + Set CONSNr=0 + For Set CONSNr=$O(^ORDW("D",CONSNr)) Quit:CONSNr="" Do + .Set Rec=^ORDW("D",CONSNr) + .Quit:$P(Rec,"\",5)'=66066 + . W CONSNr," ",Rec,! + . Set $P(Rec,"\",5)=66058 + . Set Datum=$p(Rec,"\",3) + . Set $P(Datum,",")=66057 + . Set $P(Rec,"\",3)=Datum + . ;Set Datum=$p(Rec,"\",19) + . ;Set $P(Datum,",")=66057 + . ;Set $P(Rec,"\",19)=Datum + . ;Set ^ORDW("D",CONSNr)=Rec + . W " ",Rec,! + ;Do CLOSE^vhDEV(Device) + Quit + +VHLOG + Set Device=$$OPEN^vhDEV(,"VHLOG Voorraad.txt","W","T") + Use Device + Write "Klassificatie Leverancier IdentNr BlumID Korttekst ABC StockNietStock Opslagzone Grootverpakking Kleinverpakking PalletAantal Gemiddeldevoorraad Voorraad #L Out #L Transfer #L In #L OutGVP #L Out KVP #StuksG #StuksK #StuksT SubMag Onderdeel",! + Set PRNr=0 + Set cnt=0 + Set TransProd=##class(AX.Uitgaand.MAG.impl.ExportProductie).%New() + For Set PRNr=$O(^KPR(PRNr)) Quit:PRNr="" Do ;quit:cnt=100 + . Quit:$$$PRGet($$$LeveranciersNr)=$$$LevHalux + . Quit:$$$PRGet($$$LinkType)="S" ; stock overkinderen + . Quit:$$$PRGet($$$LinkType)["HH" ; Halux + . Quit:$$$PRGet($$$LeveranciersNr)'=5005 + . Quit:$D(^PRBS("BS",PRNr)) ; heeft kinderen of componenten + . Write $$$PRGet($$$Groep),*9,$$$PRGet($$$LeveranciersNr),*9,$$$PRGet($$$IdentNummer),*9,$$GetBlumID^BLPROD(PRNr),*9,$$$PRGet($$$KortTekst),*9,$P($$$PRGet($$$ABCKlassificatie),"#") + . Write *9,$S('$$$PRGet($$$StockType):"Niet",1:"Stock"),*9,$$$PRGet($$$OpslagZone),*9,$$$PRGet($$$GrootVerpakking),*9,$$$PRGet($$$KleinVerpakking),*9,$$$PRGet($$$PalletQty) + . WRite *9,$P($$$PRGet($$$Rotatie),"#",2),*9,$$$PRGet($$$Voorraad) + . Do HISTVHLOG(PRNr,.AantalU,.AantalT,.AantalI,.AantalUK,.AantalUG,.StuksK,.StuksG,.StuksT) + . Write *9,$$$ExcelNum(AantalU),*9,$$$ExcelNum(AantalT),*9,$$$ExcelNum(AantalI),*9,$$$ExcelNum(AantalUG),*9,$$$ExcelNum(AantalUK),*9,$$$ExcelNum(StuksG),*9,$$$ExcelNum(StuksK),*9,$$$ExcelNum(StuksT) + . Write *9,$$$PRGet($$$WerkvloerSubMag),*9,$S($$$PRGet($$$WerkvloerSubMag)'="":$P(TransProd.ConversieSubMag(PRNr),"`"),1:"") + . Do:($$$PRGet($$$LeveranciersNr)=5005)&&(AantalT>10) HISTINCOMING(PRNr) + . Write ! + . set cnt=cnt+1 + Do CLOSE^vhDEV(Device) + Quit + +HISTVHLOG(PRNr,AantalU,AantalT,AantalI,AantalUK,AantalUG,StuksK,StuksG,StuksT) + ;Begin,Einde : $H formaat + ;Actie : Zie RES(PRHIST,PI,BEPERK) + ;Magazijn : M = Magazijn, W = Werkvloer, K = Stock over kind, Z = Zonderstock + ;Cumul, Aantal oproep via .Local (byRef) + Set Key="" + Set GVP=$$$PRGet($$$GrootVerpakking) + Set:'GVP GVP=$$$PRGet($$$NormaleVerpakking) + Set:'GVP GVP=$$$PRGet($$$KleinVerpakking) + Set:'GVP GVP=1 + Set (AantalI,AantalT,AantalU,AantalUK,AantalUG,StuksK,StuksG,StuksT)="" + For Set Key=$O(^PRHIST(PRNr,Key)) Quit:Key="" Do + . Set Rec=^PRHIST(PRNr,Key) + . Quit:+$P(Rec,"\")<($H-365) + . Quit:$P(Rec,"\",5)'="M" + . Set Qty=-$P(Rec,"\",2) + . Set:$P(Rec,"\",4)="I" AantalI=AantalI+1 + . Set:$P(Rec,"\",4)="T" AantalT=AantalT+1,StuksT=StuksT+(Qty) + . Set:$P(Rec,"\",4)="U" AantalU=AantalU+1 + . Set:($P(Rec,"\",4)="U")&&((Qty#GVP)||(GVP=1)) AantalUK=AantalUK+1, StuksK=StuksK+(Qty#GVP) + . Set:($P(Rec,"\",4)="U")&&(Qty>GVP)&&(GVP'=1) AantalUG=AantalUG+1,StuksG=StuksG+Qty-(Qty#GVP) + Quit + + +HISTINCOMING(PRNr) + ;Begin,Einde : $H formaat + ;Actie : Zie RES(PRHIST,PI,BEPERK) + ;Magazijn : M = Magazijn, W = Werkvloer, K = Stock over kind, Z = Zonderstock + ;Cumul, Aantal oproep via .Local (byRef) + Set Key="" + Kill Temp + Set PaletQty=$$$PRGet($$$PalletQty) + Quit:PaletQty'>1 + For Set Key=$O(^PRHIST(PRNr,Key)) Quit:Key="" Do + . Set Rec=^PRHIST(PRNr,Key) + . Quit:+$P(Rec,"\")<($H-300) + . Quit:$P(Rec,"\",5)'="M" + . Quit:$P(Rec,"\",4)'="I" + . Set Qty=$P(Rec,"\",2) + . Set Ref=$P(Rec,"\",11) + . Set:$L(Ref) Temp(Ref)=$G(Temp(Ref))+Qty + Set Ref="" + ;w !,PRNr zw Temp + For Set Ref=$O(Temp(Ref)) Quit:Ref="" Do + . Set Qty=Temp(Ref) + . If PaletQty>Qty Write *9,$$$ExcelNum(Qty/PaletQty) + . If PaletQty'>Qty Write *9,$$$ExcelNum($J(Qty/PaletQty,0,0)) + Quit + + +KPImportSchaduw + k Cache + For Read KPenKost Quit:KPenKost="" Do + . Set KP=$P(KPenKost,$c(9),1) + . Set Kost=+$tr($P(KPenKost,$c(9),2),", ",".") + . Set oKostPlaats=##class(Prod.GAMeta.BT.KostPlaats).%OpenId(KP) + . If $isObject(oKostPlaats) Do + . . w KP," ",Kost,! + . . Set oKostPlaats.BasisKostSchaduw=Kost + . . ;Do DumpObject^%apiOBJ(oKostPlaats) + . . set sc= oKostPlaats.%Save() w sc + Quit +KP + k Cache + Set MPRNr=0 + For Set MPRNr=$O(^KSTPR(MPRNr)) Quit:MPRNr="" Do + . Quit:'$D(^PRBS("BS",MPRNr)) + . Set Rec=$$PROD^STAT(MPRNr,0,"2020.05 ","2021.04 ","1") + . Set Qty=$P(Rec,"\",1) + . Quit:+Qty<1 + . Set BSKey="" + . For Set BSKey=$O(^PRBS("BS",MPRNr,BSKey)) Quit:BSKey="" Do + . . Set BSRec=^PRBS("BS",MPRNr,BSKey) + . . Quit:$P(BSRec,"\",3)'="T" ;w ";" + . . Quit:$P(BSRec,"\",9)="" ; w "+" + . . Set $LI(Cache($P(BSRec,"\",9)),1)=$LG($G(Cache($P(BSRec,"\",9))),1)+1 + . . Set $LI(Cache($P(BSRec,"\",9)),2)=$LG($G(Cache($P(BSRec,"\",9))),2)+($P(BSRec,"\",7)*$P(BSRec,"\",2)*Qty) + + Set Dev=$$OPEN^vhDEV(,"Kostenplaats Export.txt","W","T") + Use Dev + W "KP Oms Kost GV KV Voorkomen Tijd",! + Set KP="" + For Set KP=$O(Cache(KP)) Quit:KP="" Do + . Set oKostPlaats=##class(Prod.GAMeta.BT.KostPlaats).%OpenId(KP) + . If $isObject(oKostPlaats) Do + . . Set KV=oKostPlaats.GetToeslagKleinVerlet() + . . Set GV=oKostPlaats.GetToeslagGrootVerlet() + . . Set Kost=oKostPlaats.GetBasisKost() + . . Write KP,*9,oKostPlaats.Omschrijving,*9,$$$ExcelNum(Kost),*9,$$$ExcelNum(GV),*9,$$$ExcelNum(KV),*9,$LI(Cache(KP),1),*9,$$$ExcelNum($LI(Cache(KP),2)),! + . Else Do + . . Write KP,*9,"NVT",*9,*9,*9,$LI(Cache(KP),1),*9,$$$ExcelNum($LI(Cache(KP),2)),! + Do CLOSE^vhDEV(Dev) + Quit + +HDEvooraf(DueOut) + Set KLNr=$$$KlantHaefeleNL ; Te veranderen in HaefeleDE + Set DueOut=$G(DueOut,$H+1) ; Moet morgen vertrekken + Set RefDate=$H ; Referentiedatum waarop de terugrekening moet gebeuren van de leveringstermijn + Set ORDNr="" + For Set ORDNr=$O(^KOD(KLNr,"F",ORDNr)) Quit:ORDNr="" Do + . Set OLNr=99 + . Set Verzendwijze=$P(^KOD(KLNr,"F",ORDNr,1),"\",7) + . Set blVerzendwijze=##class(APPS.VKP.VerzendWijze).%New(KLNr,Verzendwijze) + . Set blLevertermijn=##class(APPS.VKP.LeveringsTermijn).%New(RefDate,blVerzendwijze) + . Set MinStatus=99 + . For Set OLNr=$O(^KOD(KLNr,"F",ORDNr,OLNr)) Quit:OLNr="" Do:$P(^KOD(KLNr,"F",ORDNr,OLNr),"\",2) + . . Set OntvangstDatum=$P(^KOD(KLNr,"F",ORDNr,OLNr),"\",25) + . . Set LeverDatum=blLevertermijn.GetLaatstePicking(OntvangstDatum) + . . Set Status=99 + . . If LeverDatum=DueOut Do + . . . Set TOENr=$P(^KOD(KLNr,"F",ORDNr,OLNr),"\",27) + . . . Set TLNr=$P(^KOD(KLNr,"F",ORDNr,OLNr),"\",28) + . . . Set Status=0 + . . . If TLNr="KOM" Do + . . . . Set Status=1 ; reeds gerecepteerd + . . . Else Do + . . . . Set OLUNr=$P(^KOD(KLNr,"F",ORDNr,OLNr),"\",15) + . . . . Set FabKey=$$FABKEYO^HADOPV(KLNr, ORDNr, OLUNr) + . . . . Set:(FabKey'="")&&($P($G(^HADPR("F",FabKey,"K")),"\",3)="A") Status=2 + . . . Set:MinStatus>Status MinStatus=Status + . . Write " ",ORDNr,*9,OLNr,*9,$G(Status,"NVT"),*9,OntvangstDatum,*9,LeverDatum,*9,DueOut,! + . If (MinStatus>0) && (MinStatus<99) Do + . . Write ORDNr,*9,Verzendwijze, *9,MinStatus,! + Quit + + + +VRD + Set (CONSNr,ORDNr,OLUNr,SOLNr)="" + Set (Count1,Count2,Count3,Count4)=0 + kill Array + For Set CONSNr=$O(^ORDW("D",CONSNr)) Quit:CONSNr="" Do + . Set Rec=^ORDW("D",CONSNr) + . Set KLNr=$P(Rec,"\") + . Set Status=$P(Rec,"\",20) + . Quit:Status="" ; Staat W,P,A,B zijn toegelaten + . Set DueOut=+$P(Rec,"\",3) + . Quit:DueOut'=+$H ; niet voor vandaag + . Set Vzw=$P(Rec,"\",2) + . Quit:Vzw'="DI1" + . Set Count1=Count1+1 + . Quit:$$CheckOpTransport(KLNr,CONSNr) + . Set Count2=Count2+1 + . Do GetKenmerken(KLNr,CONSNr,.Gewicht,.AantalMaatwerk) + . Set AdresID=$P($G(^ORDW("D",CONSNr,"A")),"\",29) + . Set Array(AdresID_KLNr,CONSNr)=$LB(KLNr,AdresID,Gewicht, AantalMaatwerk) + ; kleine en geen maatwerk er uit gooien + Kill ArrayVRD + Set (Key, CONSNr)="" + For Set Key=$O(Array(Key)) Quit:Key="" Do + . Set KLNr="" + . Set Gewicht="" + . Set AantalMaatwerk="" + . For Set CONSNr=$O(Array(Key,CONSNr)) Quit:CONSNr="" Do + . . Set Gewicht=Gewicht+$LI(Array(Key,CONSNr),3) + . . Set AantalMaatwerk=AantalMaatwerk+$LI(Array(Key,CONSNr),4) + . . Set KLNr=$LI(Array(Key,CONSNr),1) + . . Set AdresID=$LI(Array(Key,CONSNr),2) + . . Set Adres=$G(^ORDW("D",CONSNr,"A")) + + . Quit:(Gewicht<20)&&('AantalMaatwerk) ; 20Kg en geen maatwerk + . Set ArrayVRD(AdresID)=$LB(KLNr,$P(Adres,"\",2,8),AdresID,Gewicht,AantalMaatwerk) + . Set Count4=Count4+1 + w ! + zw Count1,Count2,Count4,ArrayVRD + Quit + +CheckOpTransport(KLNr,CONSNr) + Quit $P($G(^KUL(KLNr,"F",CONSNr,1)),"\",8)'="" + +GetKenmerken(KLNr,COSNr,Gewicht, AantalMaatwerk) + Set (ORDNr,OLUNr,SOLNr)="" + Set (Gewicht,AantalMaatwerk)=0 + For Set ORDNr=$O(^ORDW("D",CONSNr,"D",ORDNr)) Quit:ORDNr="" Do + . For Set OLUNr=$O(^ORDW("D",CONSNr,"D",ORDNr,OLUNr)) Quit:OLUNr="" Do + .. Set Rec=^(OLUNr) + .. Set PRNr=$P(Rec,"\",1) + .. Set Qty=$P(Rec,"\",4) + .. Set ProdGrp=$$PRODGRP^PRODUKT(PRNr) + .. Set:",TBX,LBX,TA.B,KAD,"[(","_ProdGrp_",") AantalMaatwerk=AantalMaatwerk+Qty + .. Set Gewicht=Gewicht+($$$PRGet($$$Gewicht)*Qty/1000) + Quit + +RCP0 + Set RCP="" + Set Cnt=0 + For Set RCP=$O(^RCP("D",RCP)) Quit:RCP="" Do + . Set TOENr="" + . For Set TOENr=$O(^RCP("D",RCP,"D",TOENr)) Quit:TOENr="" Do + .. Set TULNr="" + .. ;Quit:TOENr'=270062 + .. For Set TULNr=$O(^RCP("D",RCP,"D",TOENr,TULNr)) Quit:TULNr="" Do + ... Set SULNr="" + ... Set TULRec=^RCP("D",RCP,"D",TOENr,TULNr) + ... For Set SULNr=$O(^RCP("D",RCP,"D",TOENr,TULNr,SULNr)) Quit:SULNr="" Do + .... Set SULRec=^RCP("D",RCP,"D",TOENr,TULNr,SULNr) + .... If ($P(SULRec,"\",5)="00000000") && ($P(TULRec,"\",2)="P") Do + ..... Set PRNr=$P(SULRec,"\") + ..... Set Cnt=Cnt+1 + ..... Write RCP," ",TOENr," ",TULNr," ",PRNr,! + ..... ;Set $p(^RCP("D",RCP,"D",TOENr,TULNr),"\",2)="W" + ..... ;Set $p(^RCP("D",RCP,"D",TOENr,TULNr,SULNr),"\",2)="W" + ..... ;Set $p(^RCP("D",RCP,"D",TOENr,TULNr,SULNr),"\",5)="" + ..... ;Set $p(^RCP("D",RCP,"D",TOENr,TULNr,SULNr),"\",7)="" + + W Cnt,! + Q + + s dto=##Class(APPS.Halux.PPS.TAORProductie.ZijkantTester.impl.OphalenData).%New("TZT1").OphalenData("ZFU55L96948") + w dto.BarcodeID, " ", dto.HoogteCode, " ", dto.Hoogte," ",dto.Diepte," ",dto.Kar,! + s dto=##Class(APPS.Halux.PPS.TAORProductie.ZijkantTester.impl.OphalenData).%New("TZT1").OphalenData("ZCV60L97903") + w dto.BarcodeID, " ", dto.HoogteCode, " ", dto.Hoogte," ",dto.Diepte," ",dto.Kar,! + s dto=##Class(APPS.Halux.PPS.TAORProductie.ZijkantTester.impl.OphalenData).%New("TZT1").OphalenData("ZKV60R97846") + w dto.BarcodeID, " ", dto.HoogteCode, " ", dto.Hoogte," ",dto.Diepte," ",dto.Kar,! + s dto=##Class(APPS.Halux.PPS.TAORProductie.ZijkantTester.impl.OphalenData).%New("TZT1").OphalenData("ZMV60L97841") + w dto.BarcodeID, " ", dto.HoogteCode, " ", dto.Hoogte," ",dto.Diepte," ",dto.Kar,! + s dto=##Class(APPS.Halux.PPS.TAORProductie.ZijkantTester.impl.OphalenData).%New("TZT1").OphalenData("ZNA40L97863") + w dto.BarcodeID, " ", dto.HoogteCode, " ", dto.Hoogte," ",dto.Diepte," ",dto.Kar,! + + + q s PRNr=20627 w $$$PRGet($$$NONAktief) w $P(^KPR(PRNr,1),"\",25) w $$KLANTPR^KPRIJS(4810,PRNr) BackFlush - Set Device=$$OPEN^vhDEV(,"BackFlush.txt","W","T") + Set Device=$$OPEN^vhDEV(,"RECEPTIE TAX.txt","W","T") Use Device - Write "ToeNr KPRNr KIdentNr KKorttekst HLX MPRNr MIdentNr MKorttekst Familie Datum Tijd Aantal Kost",! + Write "Actie PalletID KLLEVNr Regio Verzendwijze RefNr MPRNr MKorttekst Familie Datum Tijd Aantal",! Set %J=$$%J^vhRtn1() Kill ^HULP(%J) Set PRNr="" Set Cnt=0 - Set Vanaf=$$CALCDATE^vhLib.DataTypes($H,"A",-2) + Set Vanaf=$$CALCDATE^vhLib.DataTypes($H,"A",-230) Set Tot=$$CALCDATE^vhLib.DataTypes($H,"A",-0) - s PRNr=0 ;431818-1 + s PRNr=2617800 For Set PRNr=$O(^PRHIST(PRNr)) Quit:PRNr="" Do ;Quit:Cnt>1 . Quit:'$d(^KPR(PRNr)) + . Set ProdGrp=$$PRODGRP^PRODUKT(PRNr) + . Quit:";TBX;LBX;TA.B;"'[(";"_ProdGrp_";") . Set KeyHist="" + . use 0 W Cnt," " use Device . For Set KeyHist=$O(^PRHIST(PRNr,KeyHist)) Quit:KeyHist="" Do . . Set Rec=^PRHIST(PRNr,KeyHist) . . Set Datum=+$P(Rec,"\") . . Quit:DatumTot - . . Set MPRNr=$P(Rec,"\",15) - . . Quit:'MPRNr - . . Quit:$P(Rec,"\",2)>0 - . . Quit:$P(Rec,"\",4)'="H" - . . Quit:$P(Rec,"\",5)'="W" - . . Set Familie=$P($$GENTYP^HAD(MPRNr),"\") - - . . Write $P(Rec,"\",7),*9,PRNr,*9,$$$ProductGet(PRNr,$$$IdentNummer),*9,$$$ProductGet(PRNr,$$$KortTekst),*9,$S($E($$$ProductGet(PRNr,$$$LinkType),1,2)="HH":"hlx",1:"vhbe") - . . Write *9,MPRNr,*9,$$$ProductGet(MPRNr,$$$IdentNummer),*9,$$$ProductGet(MPRNr,$$$KortTekst),*9,Familie - . . Write *9,$$$ExcelDat(Datum),*9,$$$ExcelTime($P($P(Rec,"\"),",",2)),*9,$$$ExcelNum($P(Rec,"\",2)),*9,$$$ExcelNum($P(Rec,"\",2)*$$CifPPL^KPRIJS(PRNr)) - . . Write ! + . . Quit:($P(Rec,"\",4)'="I")&&($P(Rec,"\",4)'="U") + . . Quit:$P(Rec,"\",5)'="M" + . . S KLNr=$P(Rec,"\",6) + . . S DOCNr=$P(Rec,"\",7) + . . S Regio="",KlKey="" + . . S:($P(Rec,"\",4)="U")&&KLNr KlKey=$G(^KK1(KLNr)) + . . Set:KlKey'="" Regio=$P(^KKL(KlKey,0),"\",20) + . . If DOCNr&&KLNr&&($P(Rec,"\",4)="U") Do + . . . For Node="F","G" Quit:$D(^KUL(KLNr,Node,DOCNr)) + . . . Set Verzendwijze=$P($P($G(^KUL(KLNr,Node,DOCNr,1)),"\",7),"#") + . . S Cnt=Cnt+1 + . . Set KeyPal="" + . . For Set KeyPal=$O(^PRHIST(PRNr,KeyHist,KeyPal)) Quit:KeyPal="" Do + . . . Write $P(Rec,"\",4),*9,$P(^PRHIST(PRNr,KeyHist,KeyPal),"\",1),*9,KLNr,*9,Regio,*9,Verzendwijze,*9,DOCNr,*9,PRNr,*9,$$$ProductGet(PRNr,$$$KortTekst),*9,ProdGrp + . . . Write *9,$$$ExcelDat(Datum),*9,$$$ExcelTime($P($P(Rec,"\"),",",2)),*9,$$$ExcelNum($P(^PRHIST(PRNr,KeyHist,KeyPal),"\",2)) + . . . Write ! . Set Cnt=Cnt+1 Do CLOSE^vhDEV(Device) Quit +MWStat(Familie) + Set Device=$$OPEN^vhDEV(,"RECEPTIE TAX2.txt","W","T") + Use Device + Write "PRNr Familie Datum Aantal TOENr TLNr",! + + Set %J=$$%J^vhRtn1() + Kill ^HULP(%J) + Set PRNr="" + Set Cnt=0 + Set Vanaf=$$CALCDATE^vhLib.DataTypes($H,"M",-1,"FD") + Set Tot=$$CALCDATE^vhLib.DataTypes($H,"M",-1,"LD") + ;s PRNr=1856745-1 + For Set PRNr=$O(^PRHIST(PRNr)) Quit:PRNr="" Do ;Quit:Cnt>1 + . Quit:'$d(^KPR(PRNr)) + . Quit:$$$PRGet($$$LeveranciersNr)'=$$$LevHalux + . Quit:$$PRODGRP^PRODUKT(PRNr)'="TA.B" + . ;Quit:$P($$GENTYP^HAD(PRNr),"\")'=Familie + . Set KeyHist="" + . For Set KeyHist=$O(^PRHIST(PRNr,KeyHist)) Quit:KeyHist="" Do + . . Set Rec=^PRHIST(PRNr,KeyHist) + . . Set Datum=+$P(Rec,"\") + . . Quit:DatumTot + . . Quit:$P(Rec,"\",5)'="M" + . . Quit:$P(Rec,"\",4)'="I" + . . Write PRNr,*9,$P($$GENTYP^HAD(PRNr),"\",1,2),*9,$$$ExcelDat(Datum),*9,$$$ExcelNum($P(Rec,"\",2)),*9,$P(Rec,"\",7),*9,$P(Rec,"\",7)_";"_$P(Rec,"\",8) + . . Write ! + . . Set Cnt=Cnt+1 + Do CLOSE^vhDEV(Device) + Quit MWNacalcHist(Familie) Set %J=$$%J^vhRtn1() @@ -164,23 +470,23 @@ Do ##class(AXimpl.Admin.STAT.Invoice.Processor).%New(+$H).Process() q -COGS - Set Device=$$OPEN^vhDEV(,"COGS.txt","W","T") +COGSKAD + Set Device=$$OPEN^vhDEV(,"COGS KAD.txt","W","T") Use Device - Write "Grp PRNr Korttekst Maand Component Rest Aantal Omzet Marge",! + Write "Grp PRNr Korttekst Maand Component Vulling Rest Aantal Omzet Marge",! Set PRNr="" For Set PRNr=$O(^KSTPR(PRNr)) Quit:PRNr="" Do - . ;Quit:$P($$GENTYP^HAD(PRNr),"\")'="KAD" . Quit:'$d(^KPR(PRNr)) . Quit:$$$PRGet($$$LeveranciersNr)'=$$$LevHalux + . Quit:($P($$GENTYP^HAD(PRNr),"\")'="KAD")&&($P($$GENTYP^HAD(PRNr),"\")'="GLA") . Set Maand="" - . Set Maand="2017.06 " + . Set Maand="2020.06 " . For Set Maand=$O(^KSTPR(PRNr,0,Maand)) Quit:Maand="" Do . . Set Aantal=$P(^KSTPR(PRNr,0,Maand),"\") . . Set Omzet=$P(^KSTPR(PRNr,0,Maand),"\",3) . . Set Marge=$P(^KSTPR(PRNr,0,Maand),"\",4) . . Do SplitCOGS(PRNr,.Component, .Vulling, .Rest) - . . Write $P($$GENTYP^HAD(PRNr),"\"),*9,PRNr,*9,$$$PRGet($$$KortTekst),*9,Maand,*9,$$$ExcelNum(Component),*9,$$$ExcelNum(Rest),*9,Aantal,*9,$$$ExcelNum(Omzet),*9,$$$ExcelNum(Marge),! + . . Write $P($$GENTYP^HAD(PRNr),"\"),*9,PRNr,*9,$$$PRGet($$$KortTekst),*9,Maand,*9,$$$ExcelNum(Component),*9,$$$ExcelNum(Vulling),*9,$$$ExcelNum(Rest),*9,Aantal,*9,$$$ExcelNum(Omzet),*9,$$$ExcelNum(Marge),! Do CLOSE^vhDEV(Device) Quit @@ -199,7 +505,7 @@ . If $P(BSRec,"\",1)?4.10N Do . . Set Component=Component+ $P(BSKost,"\",1) . Else If $P(BSRec,"\",11)="KVUL" Do - . . Set Component=Component+ $P(BSKost,"\",1) + . . Set Vulling=Vulling+ $P(BSKost,"\",1) . Else Do . . Set Rest=Rest+ $P(BSKost,"\",1) q @@ -216,12 +522,13 @@ .. Write TOENr,*9, BatchId,*9,TijdStip,*9,ProdGrp,! Do CLOSE^vhDEV(Device) Quit - + + SFS Set Dev=$$OPEN^vhDEV(,"SFS MW TAX.txt","W","T") Use Dev Set MPRNr="" - Set KLNr=12486 + Set KLNr=2671 Set MPRNr="" Set %J=$$%J^vhRtn1() For Set MPRNr=$O(^KSTKL(KLNr,MPRNr)) Quit:MPRNr="" Do @@ -417,22 +724,6 @@ . . . . Write Ref,! . . . . Write $TR(Ref,$C(13,10,9)),! Quit -ControleORDW - Set Device=$$OPEN^vhDEV(,"ORDW.txt","W","T") - Use Device - Write "CONSNr Datum Status KLNr ORDNR",! - Set CONSNr=0 - For Set CONSNr=$O(^ORDW("D",CONSNr)) Quit:CONSNr="" Do - .Set Rec=^ORDW("D",CONSNr) - .Set Datum=$P(Rec,"\",18) - .Set:Datum="" Datum=$P(Rec,"\",19) - .Set:Datum="" Datum=$P(Rec,"\",3) - .Set:Datum="" Datum=$P(Rec,"\",5) - . For Set ORDNr=$O(^ORDW("D",CONSNr,"D",ORDNr)) Quit:ORDNr="" Do - . . Write CONSNr,*9,$$EXTDATE^vhLib.DataTypes(Datum,"DK") - . . Write *9,$P(^ORDW("D",CONSNr),"\",20),*9,$P(^ORDW("D",CONSNr),"\",1),*9,ORDNr,! - Do CLOSE^vhDEV(Device) - Quit NonAct6 Set PRNr=0 @@ -1276,11 +1567,12 @@ Vzw + Set Dev=$$OPEN^vhDEV(,"Verzendwijze.txt","W","T") + Use Dev Set Vzw="" For Set Vzw=$o(^RES("KLANT","PI","VERZENDWIJZE","D",Vzw)) Quit:Vzw="" Do - . Q:Vzw'?1"VT"1N - . Write Vzw," " - . S $P(^RES("KLANT","PI","VERZENDWIJZE","D",Vzw),"`",15)="LEVBON_ORGALUX" + . Write Vzw,*9,$P(^RES("KLANT","PI","VERZENDWIJZE","D",Vzw),"`",2),*9,$zt($P(^RES("KLANT","PI","VERZENDWIJZE","D",Vzw),"`",4)),*9,$zt($P(^RES("KLANT","PI","VERZENDWIJZE","D",Vzw),"`",10)),! + Do CLOSE^vhDEV(Dev) q H Set Dev=$$OPEN^vhDEV(,"Recepties Halux.txt","W","T")