Index: z/CW/CBL09.mac.rou =================================================================== diff -u --- z/CW/CBL09.mac.rou (revision 0) +++ z/CW/CBL09.mac.rou (revision 4156) @@ -0,0 +1,148 @@ + ; Cataloog Blum + Quit + +AllCust + New %J,R,Dev,Rec,KLNr,Next,Aantal,Count + ;Quit + Set %J=$$%J^vhRtn1() + Kill ^HULP(%J),^CBL09 + Set Dev=$$OPEN^vhDEV(,"cwCBL09.txt","R","M") + Do:0'[Dev + . Set Next=0 + . For Use Dev Read Rec Quit:Rec="" Do + . . Set KLNr=$$TRIMN^vhRtn1($P(Rec,$C(9))) + . . Quit:'KLNr + . . Set Next=Next+1 + . . Set Aantal=$P(Rec,$C(9),3),^HULP(%J,Next)=KLNr_D_Aantal + . Close Dev + . Set Next="",Count=0 + . For Set Next=$O(^HULP(%J,Next)) Quit:Next="" Do + . . Set R=^HULP(%J,Next),KLNr=$P(R,D),Aantal=$P(R,D,2) + . . Do OneCust(KLNr,Aantal) + . . Set Count=Count+1 + . Kill ^HULP(%J) + . Write !!,Count," orders aangemaakt.",! + Quit + +OneCust(KLNr,Aantal) + New L,R,Rec,PRNr,KlKey,OrdRef,FBProd,Taal + Set KlKey=^KK1(KLNr),Rec=^KKL(KlKey,0),Taal=$$Taal(KLNr) + Write !,$J(KLNr,5),?10,$P(Rec,D,2),?40,Aantal,?50,Taal + Set PRNr(1)=$$PRNr(KLNr)_D_Aantal_"\"_$$EXTDATE^vhDTyp(,"DW")_"\\Z" + Set OrdRef=$$OrdRef(KLNr) + Do BUILDOBJ^FLOWORD(KLNr,,OrdRef,.PRNr,,1,"PF","FBProd") + Set ORDNr=$P(FBProd($$PRNr(KLNr)),D,2),Rec=^KOD(KLNr,"F",ORDNr,1) + Set $P(Rec,D,7)="INT",$P(Rec,D,8)="1043#1107#"_$H,$P(Rec,D,24)="1043#"_$H_"#"_ORDNr + Set ^KOD(KLNr,"F",ORDNr,1)=Rec + Set R=^KKL(KlKey,0) + If $P(R,D,5)["POSTBUS" Set L=$O(^KKL(KlKey,"L")) If $E(L)="L" Set R=^KKL(KlKey,L),$P(R,D)=1,^KOD(KLNr,"F",ORDNr,3)=R + Set ^CBL09(KLNr,ORDNr)="" + Quit + +DelAll + New Rec,KLNr,ORDNr,Count + Set (KLNr,Count)=0 + For Set KLNr=$O(^KOD(KLNr)) Quit:KLNr="" Do + . Set ORDNr="" + . For Set ORDNr=$O(^KOD(KLNr,"F",ORDNr)) Quit:ORDNr="" Do + . . Set Rec=^KOD(KLNr,"F",ORDNr,1) + . . Quit:$P(Rec,D,3)'=$$OrdRef(KLNr) + . . Write !,$ZR,?40,"--> verwijderd" + . . Do DELOBJ^FLOWORD(ORDNr) + . . Set Count=Count+1 + Write !!,Count," orders verwijderd.",! + Quit + +OrdRef(KLNr) + New OrdRef + Set OrdRef="Update cataloog" + Quit OrdRef + +PRNr(KLNr) + New Taal,PRNr + Set Taal=$$Taal(KLNr) + Set PRNr=$S(Taal="F":420255,Taal="D":411543,1:409734) + Quit PRNr + +SendAllWMS + New Dev,Rec,KLNr,Next,Count,HULP + Set Dev=$$OPEN^vhDEV(,"cwCBL09.txt","R","M") + Do:0'[Dev + . Set Next=0 + . For Use Dev Read Rec Quit:Rec="" Do + . . Set KLNr=$$TRIMN^vhRtn1($P(Rec,$C(9))) + . . Quit:'KLNr + . . Set Next=Next+1 + . . Set HULP(Next)=KLNr + . Close Dev + . Set Count=0,Next="" + . For Set Next=$O(HULP(Next)) Quit:Next="" Do + . . Set KLNr=HULP(Next) + . . Do SendOneWMS(KLNr) + . . Set Count=Count+1 + . Write !!,Count," orders verzonden.",! + Quit + +SendOneWMS(KLNr) + New R,Rec,ORDNr,OLNr,PRNr,Aantal,OLUNr,LevWk,VerzW,DOutTime,VerzZ,LevAdr,CBLORDNr + Write !,$J(KLNr,5),?10,$P(^KKL(^KK1(KLNr),0),D,2) + Kill ^HULP($J) + Set (ORDNr,LevAdr)="" + For Set ORDNr=$O(^KOD(KLNr,"F",ORDNr)) Quit:ORDNr="" Do + . Set Rec=^KOD(KLNr,"F",ORDNr,1),CBL09ORDNr=ORDNr + . Quit:$P(Rec,D,3)'=$$OrdRef(KLNr) + . Set OLNr=100 + . For Set OLNr=$O(^KOD(KLNr,"F",ORDNr,OLNr)) Quit:OLNr="" Do + . . Set Rec=^KOD(KLNr,"F",ORDNr,OLNr),PRNr=$P(Rec,D,2) + . . Quit:'PRNr + . . Set Aantal=$P(Rec,D,3),OLUNr=$P(Rec,D,15),LevWk=$P(Rec,D,25) + . . Set ^HULP($J,KLNr,"M","A",ORDNr,OLUNr)=Aantal_D_D_LevWk + . If LevAdr="",$P(^KOD(KLNr,"F",ORDNr,3),D) Set LevAdr=^KOD(KLNr,"F",ORDNr,3) + Do:$D(^HULP($J)) + . Set VerzW="INT",R=^RES("KLANT","PI","VERZENDWIJZE","D",VerzW),DOutTime=$P(R,"`",4),VerzZ=$P(R,"`",6) + . Set CONSNr=$$GETNUM^FLOW("KUL","KU1") ; Tijdelijk + . Do BLDCONS^EWORDS2(KLNr,$NA(^HULP($J,KLNr,"M")),CONSNr,"INT",$H+1,+$H_","_DOutTime,VerzZ,LevAdr) + . Kill ^HULP($J) + . Kill ^CBL09(KLNr,CBL09ORDNr) + Quit + +FactBulkGroep + New R,KLNr,BONNr,CONSNr,ORDNr,PRNr,Count + Kill ^CBL09 + Set (KLNr,Count)=0 + For Set KLNr=$O(^KUL(KLNr)) Quit:KLNr="" Do + . Set BONNr="" + . For Set BONNr=$O(^KUL(KLNr,"F",BONNr)) Quit:BONNr="" Do + . . Set R=$G(^KUL(KLNr,"F",BONNr,101)) + . . Set:R[$$OrdRef(KLNr) $P(^KUL(KLNr,"F",BONNr,1),D,38)="UPCATALOOG",Count=Count+1 + Write !,Count + Quit + +ClearTest + New R,KLNr,BONNr,CONSNr,ORDNr,PRNr + Do:$ZU(5)="DEV-ADMIN1" + . Kill ^CBL09 + . Set KLNr=0 + . For Set KLNr=$O(^KUL(KLNr)) Quit:KLNr="" Do + . . Set BONNr="" + . . For Set BONNr=$O(^KUL(KLNr,"F",BONNr)) Quit:BONNr="" Do + . . . Set R=$G(^KUL(KLNr,"F",BONNr,101)) + . . . Do:R[$$OrdRef(KLNr) DELOBJ^FLOWBON(BONNr) + . Set CONSNr="" + . For Set CONSNr=$O(^ORDW("D",CONSNr)) Quit:CONSNr="" Do + . . Set ORDNr=$O(^ORDW("D",CONSNr,"D","")),PRNr=$P($G(^ORDW("D",CONSNr,"D",ORDNr,100)),D) + . . Set KLNr=$P(^ORDW("D",CONSNr),D) + . . If PRNr=$$PRNr(KLNr) Kill ^ORDW("D",CONSNr),^ORDW("IK",KLNr,CONSNr) + Quit + +ClearHULP(J) + New I + Set J=$G(J,$J) + For I=1:1:999 Kill ^HULP(J*100000+I) + Quit + +Taal(KLNr) + New KlKey,Rec,Taal + Set KlKey=^KK1(KLNr),Rec=^KKL(KlKey,0),Taal=$P(Rec,D,9) Set:Taal="" Taal="N" + ;Set Taal="N" + Quit Taal \ No newline at end of file Index: z/CW/CVH10.mac.rou =================================================================== diff -u --- z/CW/CVH10.mac.rou (revision 0) +++ z/CW/CVH10.mac.rou (revision 4156) @@ -0,0 +1,148 @@ + ; Cataloog Van Hoecke + Quit + +AllCust + New %J,R,Dev,Rec,KLNr,Next,Aantal,Count + ;Quit + Set %J=$$%J^vhRtn1() + Kill ^HULP(%J),^CVH10 + Set Dev=$$OPEN^vhDEV(,"cwCVH10.txt","R","M") + Do:0'[Dev + . Set Next=0 + . For Use Dev Read Rec Quit:Rec="" Do + . . Set KLNr=$$TRIMN^vhRtn1($P(Rec,$C(9))) + . . Quit:'KLNr + . . Set Next=Next+1 + . . Set Aantal=$P(Rec,$C(9),3),^HULP(%J,Next)=KLNr_D_Aantal + . Close Dev + . Set Next="",Count=0 + . For Set Next=$O(^HULP(%J,Next)) Quit:Next="" Do + . . Set R=^HULP(%J,Next),KLNr=$P(R,D),Aantal=$P(R,D,2) + . . Do OneCust(KLNr,Aantal) + . . Set Count=Count+1 + . Kill ^HULP(%J) + . Write !!,Count," orders aangemaakt.",! + Quit + +OneCust(KLNr,Aantal) + New L,R,Rec,PRNr,KlKey,OrdRef,FBProd,Taal + Set KlKey=^KK1(KLNr),Rec=^KKL(KlKey,0),Taal=$$Taal(KLNr) + Write !,$J(KLNr,5),?10,$P(Rec,D,2),?40,Aantal,?50,Taal + Set PRNr(1)=$$PRNr(KLNr)_D_Aantal_"\"_$$EXTDATE^vhDTyp(,"DW")_"\\Z" + Set OrdRef=$$OrdRef(KLNr) + Do BUILDOBJ^FLOWORD(KLNr,,OrdRef,.PRNr,,1,"PF","FBProd") + Set ORDNr=$P(FBProd($$PRNr(KLNr)),D,2),Rec=^KOD(KLNr,"F",ORDNr,1) + Set $P(Rec,D,7)="INT",$P(Rec,D,8)="1043#1107#"_$H,$P(Rec,D,24)="1043#"_$H_"#"_ORDNr + Set ^KOD(KLNr,"F",ORDNr,1)=Rec + Set R=^KKL(KlKey,0) + If $P(R,D,5)["POSTBUS" Set L=$O(^KKL(KlKey,"L")) If $E(L)="L" Set R=^KKL(KlKey,L),$P(R,D)=1,^KOD(KLNr,"F",ORDNr,3)=R + Set ^CVH10(KLNr,ORDNr)="" + Quit + +DelAll + New Rec,KLNr,ORDNr,Count + Set (KLNr,Count)=0 + For Set KLNr=$O(^KOD(KLNr)) Quit:KLNr="" Do + . Set ORDNr="" + . For Set ORDNr=$O(^KOD(KLNr,"F",ORDNr)) Quit:ORDNr="" Do + . . Set Rec=^KOD(KLNr,"F",ORDNr,1) + . . Quit:$P(Rec,D,3)'=$$OrdRef(KLNr) + . . Write !,$ZR,?40,"--> verwijderd" + . . Do DELOBJ^FLOWORD(ORDNr) + . . Set Count=Count+1 + Write !!,Count," orders verwijderd.",! + Quit + +OrdRef(KLNr) + New OrdRef + Set OrdRef="Van Hoecke cataloog 2010" + Quit OrdRef + +PRNr(KLNr) + New Taal,PRNr + Set Taal=$$Taal(KLNr) + Set PRNr=$S(Taal="F":507413,Taal="D":507402,1:507402) + Quit PRNr + +SendAllWMS + New Dev,Rec,KLNr,Next,Count,HULP + Set Dev=$$OPEN^vhDEV(,"cwCVH10.txt","R","M") + Do:0'[Dev + . Set Next=0 + . For Use Dev Read Rec Quit:Rec="" Do + . . Set KLNr=$$TRIMN^vhRtn1($P(Rec,$C(9))) + . . Quit:'KLNr + . . Set Next=Next+1 + . . Set HULP(Next)=KLNr + . Close Dev + . Set Count=0,Next="" + . For Set Next=$O(HULP(Next)) Quit:Next="" Do + . . Set KLNr=HULP(Next) + . . Do SendOneWMS(KLNr) + . . Set Count=Count+1 + . Write !!,Count," orders verzonden.",! + Quit + +SendOneWMS(KLNr) + New R,Rec,ORDNr,OLNr,PRNr,Aantal,OLUNr,LevWk,VerzW,DOutTime,VerzZ,LevAdr,CBLORDNr + Write !,$J(KLNr,5),?10,$P(^KKL(^KK1(KLNr),0),D,2) + Kill ^HULP($J) + Set (ORDNr,LevAdr)="" + For Set ORDNr=$O(^KOD(KLNr,"F",ORDNr)) Quit:ORDNr="" Do + . Set Rec=^KOD(KLNr,"F",ORDNr,1),CVH10ORDNr=ORDNr + . Quit:$P(Rec,D,3)'=$$OrdRef(KLNr) + . Set OLNr=100 + . For Set OLNr=$O(^KOD(KLNr,"F",ORDNr,OLNr)) Quit:OLNr="" Do + . . Set Rec=^KOD(KLNr,"F",ORDNr,OLNr),PRNr=$P(Rec,D,2) + . . Quit:'PRNr + . . Set Aantal=$P(Rec,D,3),OLUNr=$P(Rec,D,15),LevWk=$P(Rec,D,25) + . . Set ^HULP($J,KLNr,"M","A",ORDNr,OLUNr)=Aantal_D_D_LevWk + . If LevAdr="",$P(^KOD(KLNr,"F",ORDNr,3),D) Set LevAdr=^KOD(KLNr,"F",ORDNr,3) + Do:$D(^HULP($J)) + . Set VerzW="INT",R=^RES("KLANT","PI","VERZENDWIJZE","D",VerzW),DOutTime=$P(R,"`",4),VerzZ=$P(R,"`",6) + . Set CONSNr=$$GETNUM^FLOW("KUL","KU1") ; Tijdelijk + . Do BLDCONS^EWORDS2(KLNr,$NA(^HULP($J,KLNr,"M")),CONSNr,"INT",$H+1,+$H_","_DOutTime,VerzZ,LevAdr) + . Kill ^HULP($J) + . Kill ^CVH10(KLNr,CVH10ORDNr) + Quit + +FactBulkGroep + New R,KLNr,BONNr,CONSNr,ORDNr,PRNr,Count + Kill ^CVH10 + Set (KLNr,Count)=0 + For Set KLNr=$O(^KUL(KLNr)) Quit:KLNr="" Do + . Set BONNr="" + . For Set BONNr=$O(^KUL(KLNr,"F",BONNr)) Quit:BONNr="" Do + . . Set R=$G(^KUL(KLNr,"F",BONNr,101)) + . . Set:R[$$OrdRef(KLNr) $P(^KUL(KLNr,"F",BONNr,1),D,38)="CATALOOGVH",Count=Count+1 + Write !,Count + Quit + +ClearTest + New R,KLNr,BONNr,CONSNr,ORDNr,PRNr + Do:$ZU(5)="DEV-ADMIN1" + . Kill ^CVH10 + . Set KLNr=0 + . For Set KLNr=$O(^KUL(KLNr)) Quit:KLNr="" Do + . . Set BONNr="" + . . For Set BONNr=$O(^KUL(KLNr,"F",BONNr)) Quit:BONNr="" Do + . . . Set R=$G(^KUL(KLNr,"F",BONNr,101)) + . . . Do:R[$$OrdRef(KLNr) DELOBJ^FLOWBON(BONNr) + . Set CONSNr="" + . For Set CONSNr=$O(^ORDW("D",CONSNr)) Quit:CONSNr="" Do + . . Set ORDNr=$O(^ORDW("D",CONSNr,"D","")),PRNr=$P($G(^ORDW("D",CONSNr,"D",ORDNr,100)),D) + . . Set KLNr=$P(^ORDW("D",CONSNr),D) + . . If PRNr=$$PRNr(KLNr) Kill ^ORDW("D",CONSNr),^ORDW("IK",KLNr,CONSNr) + Quit + +ClearHULP(J) + New I + Set J=$G(J,$J) + For I=1:1:999 Kill ^HULP(J*100000+I) + Quit + +Taal(KLNr) + New KlKey,Rec,Taal + Set KlKey=^KK1(KLNr),Rec=^KKL(KlKey,0),Taal=$P(Rec,D,9) Set:Taal="" Taal="N" + ;Set Taal="N" + Quit Taal \ No newline at end of file Index: z/CW/USR/AON.mac.rou =================================================================== diff -u --- z/CW/USR/AON.mac.rou (revision 0) +++ z/CW/USR/AON.mac.rou (revision 4156) @@ -0,0 +1,53 @@ + ; Routines speciaal An Onraedt + Quit + ; +Translate(Value) + Quit $TR(Value,".",",") + ; +Dev(FileName,User) + Quit "\\Notes01\Shared\"_$P(^vhUSER("D",$$USERID^vhUSER($G(User,QU(1)))),D,6)_D_FileName + ; + +HARembours + Set (KlKey,Count)=0,Dev=$$Dev("HARembours2.Txt") + Open Dev:"NW" + Use Dev + Kill ^HULP($J+100) + Set CheckDate=$$CALCDATE^vhDTyp(,"J",-2),BGPeriode=$$EXTDATE^vhDTyp($$CALCDATE^vhDTyp(,"J",-2),"DM4") + Set BEenJaar=$$EXTDATE^vhDTyp($$CALCDATE^vhDTyp(,"J",-1),"DM4"),BTweeJaar=$$EXTDATE^vhDTyp($$CALCDATE^vhDTyp(,"J",-2),"DM4"),EPeriode=$$EXTDATE^vhDTyp(,"DM4") + Write "Lijn",$C(9),"Klant",$C(9),"Naam",$C(9),"Rembours",$C(9),"VooruitBetaling",$C(9),"KredietLimiet",$C(9),"MaxDagen",$C(9) + Write "Omzet -1 jaar",$C(9),"Omzet -2 jaar",$C(13) + For Set KlKey=$O(^KKL(KlKey)) Quit:KlKey="" Do + . Set R=^KKL(KlKey,3),Rembours=$P(R,D),VooruitBetaling=$P(R,D,2) + . If ' Rembours,'VooruitBetaling Quit + . Set R=^KKL(KlKey,2),KredietLimiet=$P(R,D,7),CommAktief='$P(R,D,10) + . Quit:+KredietLimiet=.001 Quit:'CommAktief + . Set R=^KKL(KlKey,0),KLNr=$P(R,D),KlNaam=$P(R,D,2),LastFactDate=-$O(^KFA1("F",KLNr,"")) + . Quit:'LastFactDate Quit:LastFactDate'>CheckDate + . Kill ^HULP($J+100) + . Set BetalingGedrag=$$KLANT^KKBG2(KLNr,BGPeriode),MaxDagen=$P(BetalingGedrag,D,9) + . Quit:MaxDagen>60 ; Maximum dagen vervallen is meer dan 60 + . Set Count=Count+1 + . Write Count,$C(9),KLNr,$C(9),KlNaam,$C(9),Rembours,$C(9),VooruitBetaling,$C(9),KredietLimiet,$C(9),MaxDagen,$C(9) + . Write $$Translate($$KLANT^STAT(KLNr,,BEenJaar,EPeriode,3)),$C(9),$$Translate($$KLANT^STAT(KLNr,,BTweeJaar,EPeriode,3)),$C(13) + Close Dev + Kill ^HULP($J+100) + Quit + ; +Scholen + Set (KlKey,Count)=0,Dev=$$Dev("AONScholen.Txt") + Open Dev:"NW" + Use Dev + Write "Klant",$C(9),"Naam",$C(9),"Toenaam",$C(9),"Adres",$C(9),"Postnummer",$C(9),"Woonplaats",$C(9),"Land",$C(13) + For Set KlKey=$O(^KKL(KlKey)) Quit:KlKey="" Do + . Set R=^KKL(KlKey,1),Activiteit=$P(R,D,11) + . Quit:Activiteit'="Scholen" + . Set R=^KKL(KlKey,0),KLNr=$P(R,D),KlNaam=$P(R,D,2),KlToeNaam=$P(R,D,3),KlAdres=$P(R,D,5),KlPostnummer=$P(R,D,6),KlWoonplaats=$P(R,D,7),KlLand=$P(R,D,8) + . Set R=^KKL(KlKey,2),CommAktief='$P(R,D,10) + . Quit:'CommAktief + . Write KLNr,$C(9),KlNaam,$C(9),KlToeNaam,$C(9),KlAdres,$C(9),KlPostnummer,$C(9),KlWoonplaats,$C(9),$$LAND^vhRtn1(KlLand,2),$C(13) + Close Dev + Quit + ; + + \ No newline at end of file Index: z/CW/USR/DSM.mac.rou =================================================================== diff -u --- z/CW/USR/DSM.mac.rou (revision 0) +++ z/CW/USR/DSM.mac.rou (revision 4156) @@ -0,0 +1,19 @@ + ; Routines speciaal Danielle De Smet + Quit + +DelOfferte + New Rec,KLNr,OFFNr,Count + Set (KLNr,Count)=0 + For Set KLNr=$O(^KOFKL(KLNr)) Quit:KLNr="" Do + . Set OFFNr="" + . For Set OFFNr=$O(^KOFKL(KLNr,"F",OFFNr)) Quit:OFFNr="" Do + . . Quit:OFFNr=584186 + . . Set Rec=^KOFKL(KLNr,"F",OFFNr,1) + . . Quit:$P(Rec,D,2)'="14.11.11" + . . Quit:$P(Rec,D,3)'="14.11.11 LIJST SLE/DSM" + . . Quit:$E($P(Rec,D,8),1,19)'="1093#1158#62409,479" + . . Set Count=Count+1 + . . Write !,$ZR + . . Do DELOBJ^FLOWOFF(OFFNr) + Write !!,Count + Quit \ No newline at end of file Index: z/CW/USR/JDR.mac.rou =================================================================== diff -u --- z/CW/USR/JDR.mac.rou (revision 0) +++ z/CW/USR/JDR.mac.rou (revision 4156) @@ -0,0 +1,34 @@ + ; Routines speciaal Jurgen Van Driessche + Quit + ; +HetalAllNonAkt + New R,LEVNr,LevRef,KortTxt,Go + Write @F11,@F1 + Set LEVNr=6054,LevRef="" + For Set LevRef=$O(^KPL(LEVNr_" "," ",LevRef)) Quit:LevRef="" Do + . Set KortTxt="" + . For Set KortTxt=$O(^KPL(LEVNr_" "," ",LevRef,KortTxt)) Quit:KortTxt="" Do + . . Set PRNr=^KPL(LEVNr_" "," ",LevRef,KortTxt) + . . Do HetalOneNonAkt(PRNr) + . . If $G(Go)'="Go" Set FP=2303 Write @F,@F1 Read "Go? ",Go + Quit + +HetalOneNonAkt(PRNr) + New R,ES,EO,ET + Set FP=1503 + Write @F,@F1,"Product :",$P(^KPR(PRNr,0),D) + Set ES=$$CHECKDEL^PRODUKT2(PRNr,"S") + Set EO=$$CHECKDEL^PRODUKT2(PRNr,"O") + Set ET=$$CHECKDEL^PRODUKT2(PRNr,"T") + If $L(ES)!$L(EO)!$L(ET)!$D(@("^"_Q_"PR(PRNr,""W"")")) Do Quit + . If $L(ES) Set FP=1803 Write @F,@F1,ES + . If $L(EO) Set FP=1903 Write @F,@F1,EO + . If $L(ET) Set FP=2003 Write @F,@F1,ET + . If $D(@("^"_Q_"PR(PRNr,""W"")")) Set FP=2103 Write @F,@F1,"Er is nog geboekt op dit product" + . Set FP=2303 + . Write @F + . Read R + Else Do + . Set FP=2303 Write @F,"Comm Non-akt " + . Do MODFIELD^PRODUKT(PRNr,225,1) + Quit \ No newline at end of file Index: z/CW/CVHPB.mac.rou =================================================================== diff -u --- z/CW/CVHPB.mac.rou (revision 0) +++ z/CW/CVHPB.mac.rou (revision 4156) @@ -0,0 +1,148 @@ + ; Programmaboek Van Hoecke + Quit + +AllCust + New %J,R,Dev,Rec,KLNr,Next,Aantal,Count + ;Quit + Set %J=$$%J^vhRtn1() + Kill ^HULP(%J),^CVHPB + Set Dev=$$OPEN^vhDEV(,"cwCVHPB.txt","R","M") + Do:0'[Dev + . Set Next=0 + . For Use Dev Read Rec Quit:Rec="" Do + . . Set KLNr=$$TRIMN^vhRtn1($P(Rec,$C(9))) + . . Quit:'KLNr + . . Set Next=Next+1 + . . Set Aantal=$P(Rec,$C(9),3),^HULP(%J,Next)=KLNr_D_Aantal + . Close Dev + . Set Next="",Count=0 + . For Set Next=$O(^HULP(%J,Next)) Quit:Next="" Do + . . Set R=^HULP(%J,Next),KLNr=$P(R,D),Aantal=$P(R,D,2) + . . Do OneCust(KLNr,Aantal) + . . Set Count=Count+1 + . Kill ^HULP(%J) + . Write !!,Count," orders aangemaakt.",! + Quit + +OneCust(KLNr,Aantal) + New L,R,Rec,PRNr,KlKey,OrdRef,FBProd,Taal + Set KlKey=^KK1(KLNr),Rec=^KKL(KlKey,0),Taal=$$Taal(KLNr) + Write !,$J(KLNr,5),?10,$P(Rec,D,2),?40,Aantal,?50,Taal + Set PRNr(1)=$$PRNr(KLNr)_D_Aantal_"\"_$$EXTDATE^vhDTyp(,"DW")_"\\Z" + Set OrdRef=$$OrdRef(KLNr) + Do BUILDOBJ^FLOWORD(KLNr,,OrdRef,.PRNr,,1,"PF","FBProd") + Set ORDNr=$P(FBProd($$PRNr(KLNr)),D,2),Rec=^KOD(KLNr,"F",ORDNr,1) + Set $P(Rec,D,7)="INT",$P(Rec,D,8)="1043#1107#"_$H,$P(Rec,D,24)="1043#"_$H_"#"_ORDNr + Set ^KOD(KLNr,"F",ORDNr,1)=Rec + Set R=^KKL(KlKey,0) + If $P(R,D,5)["POSTBUS" Set L=$O(^KKL(KlKey,"L")) If $E(L)="L" Set R=^KKL(KlKey,L),$P(R,D)=1,^KOD(KLNr,"F",ORDNr,3)=R + Set ^CVHPB(KLNr,ORDNr)="" + Quit + +DelAll + New Rec,KLNr,ORDNr,Count + Set (KLNr,Count)=0 + For Set KLNr=$O(^KOD(KLNr)) Quit:KLNr="" Do + . Set ORDNr="" + . For Set ORDNr=$O(^KOD(KLNr,"F",ORDNr)) Quit:ORDNr="" Do + . . Set Rec=^KOD(KLNr,"F",ORDNr,1) + . . Quit:$P(Rec,D,3)'=$$OrdRef(KLNr) + . . Write !,$ZR,?40,"--> verwijderd" + . . Do DELOBJ^FLOWORD(ORDNr) + . . Set Count=Count+1 + Write !!,Count," orders verwijderd.",! + Quit + +OrdRef(KLNr) + New OrdRef + Set OrdRef="Programmaboek 2010" + Quit OrdRef + +PRNr(KLNr) + New Taal,PRNr + Set Taal=$$Taal(KLNr) + Set PRNr=$S(Taal="F":507419,Taal="D":507415,1:507415) + Quit PRNr + +SendAllWMS + New Dev,Rec,KLNr,Next,Count,HULP + Set Dev=$$OPEN^vhDEV(,"cwCVHPB.txt","R","M") + Do:0'[Dev + . Set Next=0 + . For Use Dev Read Rec Quit:Rec="" Do + . . Set KLNr=$$TRIMN^vhRtn1($P(Rec,$C(9))) + . . Quit:'KLNr + . . Set Next=Next+1 + . . Set HULP(Next)=KLNr + . Close Dev + . Set Count=0,Next="" + . For Set Next=$O(HULP(Next)) Quit:Next="" Do + . . Set KLNr=HULP(Next) + . . Do SendOneWMS(KLNr) + . . Set Count=Count+1 + . Write !!,Count," orders verzonden.",! + Quit + +SendOneWMS(KLNr) + New R,Rec,ORDNr,OLNr,PRNr,Aantal,OLUNr,LevWk,VerzW,DOutTime,VerzZ,LevAdr,CBLORDNr + Write !,$J(KLNr,5),?10,$P(^KKL(^KK1(KLNr),0),D,2) + Kill ^HULP($J) + Set (ORDNr,LevAdr)="" + For Set ORDNr=$O(^KOD(KLNr,"F",ORDNr)) Quit:ORDNr="" Do + . Set Rec=^KOD(KLNr,"F",ORDNr,1),CVHPBORDNr=ORDNr + . Quit:$P(Rec,D,3)'=$$OrdRef(KLNr) + . Set OLNr=100 + . For Set OLNr=$O(^KOD(KLNr,"F",ORDNr,OLNr)) Quit:OLNr="" Do + . . Set Rec=^KOD(KLNr,"F",ORDNr,OLNr),PRNr=$P(Rec,D,2) + . . Quit:'PRNr + . . Set Aantal=$P(Rec,D,3),OLUNr=$P(Rec,D,15),LevWk=$P(Rec,D,25) + . . Set ^HULP($J,KLNr,"M","A",ORDNr,OLUNr)=Aantal_D_D_LevWk + . If LevAdr="",$P(^KOD(KLNr,"F",ORDNr,3),D) Set LevAdr=^KOD(KLNr,"F",ORDNr,3) + Do:$D(^HULP($J)) + . Set VerzW="INT",R=^RES("KLANT","PI","VERZENDWIJZE","D",VerzW),DOutTime=$P(R,"`",4),VerzZ=$P(R,"`",6) + . Set CONSNr=$$GETNUM^FLOW("KUL","KU1") ; Tijdelijk + . Do BLDCONS^EWORDS2(KLNr,$NA(^HULP($J,KLNr,"M")),CONSNr,"INT",$H+1,+$H_","_DOutTime,VerzZ,LevAdr) + . Kill ^HULP($J) + . Kill ^CVHPB(KLNr,CVHPBORDNr) + Quit + +FactBulkGroep + New R,KLNr,BONNr,CONSNr,ORDNr,PRNr,Count + Kill ^CVHPB + Set (KLNr,Count)=0 + For Set KLNr=$O(^KUL(KLNr)) Quit:KLNr="" Do + . Set BONNr="" + . For Set BONNr=$O(^KUL(KLNr,"F",BONNr)) Quit:BONNr="" Do + . . Set R=$G(^KUL(KLNr,"F",BONNr,101)) + . . Set:R[$$OrdRef(KLNr) $P(^KUL(KLNr,"F",BONNr,1),D,38)="PROGRAMMABK",Count=Count+1 + Write !,Count + Quit + +ClearTest + New R,KLNr,BONNr,CONSNr,ORDNr,PRNr + Do:$ZU(5)="DEV-ADMIN1" + . Kill ^CVHPB + . Set KLNr=0 + . For Set KLNr=$O(^KUL(KLNr)) Quit:KLNr="" Do + . . Set BONNr="" + . . For Set BONNr=$O(^KUL(KLNr,"F",BONNr)) Quit:BONNr="" Do + . . . Set R=$G(^KUL(KLNr,"F",BONNr,101)) + . . . Do:R[$$OrdRef(KLNr) DELOBJ^FLOWBON(BONNr) + . Set CONSNr="" + . For Set CONSNr=$O(^ORDW("D",CONSNr)) Quit:CONSNr="" Do + . . Set ORDNr=$O(^ORDW("D",CONSNr,"D","")),PRNr=$P($G(^ORDW("D",CONSNr,"D",ORDNr,100)),D) + . . Set KLNr=$P(^ORDW("D",CONSNr),D) + . . If PRNr=$$PRNr(KLNr) Kill ^ORDW("D",CONSNr),^ORDW("IK",KLNr,CONSNr) + Quit + +ClearHULP(J) + New I + Set J=$G(J,$J) + For I=1:1:999 Kill ^HULP(J*100000+I) + Quit + +Taal(KLNr) + New KlKey,Rec,Taal + Set KlKey=^KK1(KLNr),Rec=^KKL(KlKey,0),Taal=$P(Rec,D,9) Set:Taal="" Taal="N" + ;Set Taal="N" + Quit Taal \ No newline at end of file Index: z/CW/SFS.mac.rou =================================================================== diff -u --- z/CW/SFS.mac.rou (revision 0) +++ z/CW/SFS.mac.rou (revision 4156) @@ -0,0 +1,66 @@ + ; Import pakketen voor SFS + + ; =ceRoutine("$$PakketKlant^CWSFS";"12486\"&D2&"\"&A2) + ; =ceRoutine("$$PakketKlant^CWSFS";"1000\"&D2&"\"&A2) +PakketKlant(Ref) + New KLNr,Prod,PakRef,PRNr + Set D="\",Q="K",U=";" + Kill Pakket,Products + Set KLNr=$P(Ref,"\",1) + Quit:'$D(^KK1(KLNr)) "#no cust" + Set Prod=$P(Ref,"\",2),PakRef=$P(Ref,"\",3) + Quit:$D(^PAKKET("IK",KLNr,PakRef)) "#exist" + Set PRNr=$$GetPRNr(Prod) + Quit:PRNr="" "#no prod" + Quit:'PRNr PRNr + Set Pakket(PakRef)="" + Set Products(PRNr)=1 + ;Quit "-> ok" + Do LIMPORT^PAKKET(KLNr,.Pakket,.Products,1) + Quit "ok" + +GetPRNr(Prod) + New PRNr,IDNr + If Prod?1N1"."3N1"."3N1"."1N Set IDNr=$$UPTRIMAN^vhRtn1(Prod)_" ",PRNr=$P($G(^KPR2(IDNr)),"\") + Else Set PRNr="" + Quit PRNr + +GetPRNrX(Prod) + New PRNr + + Quit:Prod?4.7N Prod + Set PRNr="" + If $E(Prod,1,2)="OL" Do + . Set KT=$$UPTRIMAN^vhRtn1(Prod) + . Set KT2=$E(KT,1,3) + . Set KT=KT2_" " + . For Set KT=$O(^KPR1(KT)) Quit:KT=""||($E(KT,1,3)'=KT2) Do Quit:PRNr + . . Set:Prod=$P(^KPR1(KT),"\",2) PRNr=$P($G(^KPR1(KT)),"\") + Quit:$G(PRNr)?4.7N PRNr + If $E(Prod,1,2)="TB" Do + . Set DosNr=$E(Prod,8,11) + . Set PRNr=$G(^KPR3("T",DosNr)) + Quit:$G(PRNr)?4.7N PRNr + If Prod?4A,PRNr="" Do Quit PRNr + . Set PRNr=$G(^KPR3("T",Prod)) + Quit "" + +GetPRNrOL(Prod) + New Criteria,ProductService,ProductenLijst,PRNr + Set Criteria=##class(APPS.PM.dto.ZoekCriteria).%New() + Set Criteria.SoortProductID=##class(APPS.PM.enu.SoortProductID).Korttekst() + Set Criteria.ProductID = "*"_Prod_"*" + Set Criteria.ExacteKorttekst = 0 + Set Criteria.CommercieelActief = ##class(APPS.PM.enu.CommercieelActiefType).Actief() + Set ProductService = ##class(APPS.PM.ProductService).%New() + Set ProductenLijst = ProductService.ZoekProducten(Criteria).HerkendeProducten + If (ProductenLijst.Count() = 1) + { + Set PRNr = ProductenLijst.GetAt(1).PRNr + } + Else + { + Set PRNr = "#"_ProductenLijst.Count()_" prod" + } + Quit PRNr + \ No newline at end of file Index: z/CW/USR/ILU.mac.rou =================================================================== diff -u --- z/CW/USR/ILU.mac.rou (revision 0) +++ z/CW/USR/ILU.mac.rou (revision 4156) @@ -0,0 +1,93 @@ + ; Routines speciaal Ilse Lutz + Quit + ; +KlantenILU + New R,KlKey,KLNr,Regio + Quit + Set KlKey=0 + For Set KlKey=$O(^KKL(KlKey)) Quit:KlKey="" Do + . Set KLNr=$P(KlKey," ",2),R=^KKL(KlKey,0),KlNaam=$P(R,D,2),Regio=$P(R,D,20) + . Quit:Regio'=8 + . Do EenKlantILU(KLNr) + . Write !,KLNr,?10,KlNaam + Quit + ; +EenKlantILU(KLNr) + New R,KlKey,Regio + Set KlKey=^KK1(KLNr) + Set R=^KKL(KlKey,0),Regio=$P(R,D,20) + If Regio=8 Do MODFIELD^KLANT(KLNr,120,30) + Quit + ; +RoyalCrown + New R,RCR,KlKey,RoyalCrown,KLNr,LogDate,LogRec,User,Van,Naar,Opening,RCROn,RCROff,File + Set KlKey=0 + For Set KlKey=$O(^KKL(KlKey)) Quit:KlKey="" Do + . Set R=^KKL(KlKey,1) + . Quit:$P(R,D,13)'=8197 + . Set (R,RCR)=$P(^KKL(KlKey,0),D,1,2),KLNr=$P(R,D) + . Set RoyalCrown("K",KlKey)=RCR,RoyalCrown("N",KLNr)=KlKey + Set KLNr=0 + For Set KLNr=$O(^DLOG("K","KL",KLNr)) Quit:KLNr="" Do + . Quit:'$D(^KK1(KLNr)) + . Set LogDate="",KlKey=$G(RoyalCrown("N",KLNr)) + . Set:KlKey="" KlKey=^KK1(KLNr) + . Set RCR=$G(RoyalCrown("K",KlKey)) + . If RCR="" Set (R,RCR)=$P(^KKL(KlKey,0),D,1,2) + . For Set LogDate=$O(^DLOG("K","KL",KLNr,LogDate)) Quit:LogDate="" Do + . . Set LogRec=^DLOG("K","KL",KLNr,LogDate) + . . If $O(^DLOG("K","KL",KLNr,LogDate),-1)="" Do + . . . Set Opening=$P(LogRec,D,5),($P(RCR,D,3),$P(RCR,D,4))=Opening + . . . Set:$D(RoyalCrown("K",KlKey)) RoyalCrown("K",KlKey)=RCR + . . Quit:LogRec'["8197 ROYAL CROWN" Quit:$P(LogRec,D,2)'=213 + . . Set Datum=$P(LogRec,D,5),User=$P(LogRec,D,7),Van=$P(LogRec,D,9),Naar=$P(LogRec,D,10) + . . Quit:Naar=Van + . . Set:Naar["8197 ROYAL CROWN" $P(RCR,D,4)=Datum + . . Set:Van["8197 ROYAL CROWN" $P(RCR,D,5)=Datum + . . Set RoyalCrown("K",KlKey)=RCR,RoyalCrown("N",KLNr)=KlKey + Set File=$$OPEN^vhDEV(,"RoyalCrown.Txt","NW") + Do:0'[File + . Use File + . Write "KlantNr",$C(9),"Naam",$C(9),"Opening",$C(9),"RC aan",$C(9),"RC af",$C(10) + . Set KlKey="" + . For Set KlKey=$O(RoyalCrown("K",KlKey)) Quit:KlKey="" Do + . . Set RCR=RoyalCrown("K",KlKey),KLNr=$P(RCR,D),KlNaam=$P(RCR,D,2),Opening=$P(RCR,D,3),RCROn=$P(RCR,D,4),RCROff=$P(RCR,D,5) + . . ;Write !,KLNr,?10,KlNaam,?40,Opening,?52,RCROn,?64,RCROff + . . Write KLNr,$C(9),KlNaam,$C(9),Opening,$C(9),RCROn,$C(9),RCROff,$C(10) + . Close File + Quit + + ; Regio 30 op BTW aanrekenen +CheckR30 + New R,KlKey,KLNr,KlNaam,Regio,BTWNr,BTWRegime,File + Set File=$$OPEN^vhDEV(,"CheckRegio30.Txt","NW") + Do:0'[File + . Use File + . ;Close File + . Write "Klant",$C(9),"Naam",$C(9),"BTW nummer",$C(9),"BTW regime",$C(9),"Facturen",$C(10) + . Set KlKey=0 + . For Set KlKey=$O(^KKL(KlKey)) Quit:KlKey="" Do + . . Set R=^KKL(KlKey,0),KLNr=$P(R,D),KlNaam=$P(R,D,2),Regio=$P(R,D,20),BTWRegime=$P(R,D,15),BTWNr=$P(R,D,16) + . . Quit:Regio'=30 ; Niet regio 30 + . . Quit:$$LAND^vhRtn1(KLNr,"K")'="BE" + . . ;Quit:$$UPCASE^vhRtn1(BTWNr)'="GEEN" + . . ;Quit:'$D(^KFA1("F",KLNr)) + . . ;Quit:BTWRegime + . . ;If $L(BTWNr),$E(BTWNr,1,2)'="BE" Quit + . . Quit:$L($TR(BTWNr,"BENL0GEEN","")) ; Geldig BTWNr + . . ;Write !,KlKey,?40,BTWNr,?60,$D(^KFA1("F",KLNr)) + . . Write KLNr,$C(9),KlNaam,$C(9),BTWNr,$C(9),$S(BTWRegime:"Aanrekenen",1:""),$C(9),$S($D(^KFA1("F",KLNr)):"Ja",1:""),$C(10) + . . ;Write !,KLNr,?10,KlNaam,?40,BTWNr ;,?60,$S(BTWRegime:"Aanrekenen",1:"") + . . ;Read ?50,R + . . ;Quit:R'="+" + . . ;Do EenKlantRegio30ILU(KLNr) + . Close File + Quit + +EenKlantRegio30ILU(KLNr) + New R,KlKey,Regio + Set KlKey=^KK1(KLNr) + Set R=^KKL(KlKey,0),Regio=$P(R,D,20) + ;If Regio=30 Do MODFIELD^KLANT(KLNr,115,1) + Quit + \ No newline at end of file Index: z/CW/S.mac.rou =================================================================== diff -u --- z/CW/S.mac.rou (revision 0) +++ z/CW/S.mac.rou (revision 4156) @@ -0,0 +1,317 @@ + ;LVH SYSTEM UTILITY; [ 06/16/2003 4:57 PM ] + Quit + ; +USERJOBS(User) + New I,Devs,Jobs + Set Devs=$$USERDEVS($G(User)),Jobs="" + If $L(Devs) For I=1:1:$L(Devs,",") Set $P(Jobs,",",I)=$$JOB($P(Devs,",",I)) + Quit Jobs + ; +USERDEVS(User) + New UserId,UserDev,UserDevs,Device + If $L($G(User)) Do + .Set (Device,UserDev)="" + .For Set Device=$O(^cLOG("ADM","DDB",0,Device)) Quit:Device="" Do + ..Set R=^cLOG("ADM","DDB",0,Device) + ..Set:$P(R,"\")=User UserDev=UserDev_";"_Device + .Set $E(UserDev)="" + .Quit:$L(UserDev) + .Set UserId=$$USERID^vhUSER(User) + .If 'UserId Set UserDev="" Quit + .Set UserDev=$$USERDEV^vhUSER(UserId) + Else Set UserDev=$$IO^cQ5 + For I=1:1:$L(UserDev,";") Set:$L($P(UserDev,";",I)) $P(UserDev,";",I)=$$DDB($P(UserDev,";",I)) + Set UserDevs="" + For I=1:1:$L(UserDev,";") Set:$L($P(UserDev,";",I)) UserDevs=UserDevs_","_$P(UserDev,";",I) + Set $E(UserDevs)="" + Quit UserDevs + ; +DDB(%Q5) + New I,Device,InUse + Set:'$G(%Q5) %Q5=$$IO^cQ5 + Set Device="",InUse=$$INUSE() + For I=$L(InUse,","):-1:1 If $P($P(InUse,",",I),"|",2)'="TNT" Set $P(InUse,",",I,I+999)=$P(InUse,",",I+1,I+999) + If $L(InUse) Do + .For Do Quit:InUse="" + ..Set:$$IO^cQ5($P(InUse,","))=%Q5 Device=Device_","_$P(InUse,",") + ..Set InUse=$P(InUse,",",2,999) + Set $E(Device)="" + Quit Device + ; +JOB(Devices) + New I,Device,Job,Jobs + Set:$G(Devices)="" Devices=$I + For I=1:1:$L(Devices,",") Set Device=$P(Devices,",",I),Job=$P(Device,"|",$L(Device,"|")),$P(Jobs,",",I)=Job + Quit Jobs + ; +DEVICE(Jobs) + New I,Job,Device,Devices + Set:'$G(Jobs) Jobs=$J + For I=1:1:$L(Jobs,",") Do + . Set Job=$P(Jobs,",",I) + . Xecute "Set Device=$ZUTIL(67,7,Job)" + . Do:$L(Device)=32 + . . Set:$E(Device,1,2)="T|" Device="|TNT|"_$E(Device,3,99) + . . Set:$E(Device,1,3)="NT|" Device="|TNT|"_$E(Device,4,99) + . . Set:$E(Device,1,4)="TNT|" Device="|TNT|"_$E(Device,5,99) + . Set $P(Devices,",",I)=Device + Quit Devices + ; +IOcQ5(I) + Set I=$$JOB($G(I)) + Set:I="" I=$$JOB() + Set I="|TNT|"_I + Quit $$IO^cQ5(I) + ; +UCI(Job,Device) + New Uci + Set Job=$G(Job),Device=$G(Device) + If 'Job Set:Device="" Device=$I Set Job=$$JOB(Device) + If Job Xecute "Set Uci=$ZUTIL(67,6,Job)" + Quit $G(Uci) + ; +PRIORITY(Job,Device) + New Priority + Set Job=$G(Job),Device=$G(Device) + If 'Job Set:Device="" Device=$I Set Job=$$JOB(Device) + If Job Do + .Set Priority=$V(20,Job,2) + Quit $G(Priority) + ; +ROUTINE(Job,Device,Routine) + ; Job : geeft de routine voor die job + ; Device : geeft de routine voor dat device + ; Routine : geeft de devices die deze routine verwerken + New I,Jobs,InUse + Set Job=$G(Job),Device=$G(Device),Routine=$G(Routine) + If $L(Routine) Do Quit Device + .If 'Job Do + ..Set InUse=$$INUSE() + ..Set Jobs="" Set:Device Job=$$JOB(Device) + ..Quit:Job + ..For I=1:1:$L(InUse,",") If $$ROUTINE(,$P(InUse,",",I))=Routine Set Jobs=Jobs_","_$$JOB($P(InUse,",",I)) + ..Set $E(Jobs)="",Job=Jobs + .Set Device="" + .If $L(Job) For I=1:1:$L(Job,",") Set $P(Device,",",I)=$$DEVICE($P(Job,",",I)) + If 'Job Set:Device="" Device=$I Set Job=$$JOB(Device) + If Job Do + .Xecute "Set Routine=$ZUTIL(67,5,Job)" + Quit $G(Routine) + ; +routine(Job,Device,Routine) + ; Job : geeft de routine voor die job + ; Device : geeft de routine voor dat device + ; Routine : geeft de devices die deze routine verwerken + New I,Jobs,InUse + Set Job=$G(Job),Device=$G(Device),Routine=$G(Routine) + If $L(Routine) Do Quit Device + .If 'Job Do + ..Set InUse=$$INUSE(,,"J") + ..Set Jobs="" Set:Device Job=$$JOB(Device) + ..Quit:Job + ..For I=1:1:$L(InUse,",") If $$ROUTINE($P(InUse,",",I))=Routine Set Jobs=Jobs_","_$$JOB($P(InUse,",",I)) + ..Set $E(Jobs)="",Job=Jobs + .Set Device="" + .If $L(Job) For I=1:1:$L(Job,",") Set $P(Device,",",I)=$$DEVICE($P(Job,",",I)) + If 'Job Set:Device="" Device=$I Set Job=$$JOB(Device) + If Job Do + .Xecute "Set Routine=$ZUTIL(67,5,Job)" + Quit $G(Routine) + ; +PARTSIZE(Job,Device,Type) + ; Type = 0 current + ; = 1 maximum + ; = 2 current/maximum + New PartSize + Set Job=$G(Job),Device=$G(Device) + If 'Job Set:Device="" Device=$I Set Job=$$JOB(Device) + If Job Do + .Set Type=$G(Type) Set:Type>2 Type=2 + .Set:Type'=1 PartSize=$J($V(104,Job,4)/1024,0,1) Set:Type=2 PartSize=PartSize_"/" + .Set:Type PartSize=$G(PartSize)_($V(108,Job,4)\1024) + Quit $G(PartSize) + ; +STATUS(Job,Device) + New Status + Set Job=$G(Job),Device=$G(Device) + If 'Job Set:Device="" Device=$I Set Job=$$JOB(Device) + If Job Do + .Set Status=$V(58,Job,1) + .Set Status=$P($T(@Status),";",2) + .Set:Status="" Status="Queue-"_$V(58,Job,1) + .If Status="TermO" Set Status=Status_"-"_$$IO($V(152,Job,0)-58) + .If Status="TermI" Set Status=Status_"-"_$$IO($V(152,Job,0)-66) + .If Status="TermOpn" Set Status=Status_"-"_$$IO($V(152,Job,0)-66) + .If Status="TermUse" Set Status=Status_"-"_$$IO($V(152,Job,0)-66) + .If Status="TermCls" Set Status=Status_"-"_$$IO($V(152,Job,0)-66) + .If Status="HostCmd" Set Status=Status_"-"_$$IO($V(152,Job,0)-66) + .If Status="IjcI" Set Status=Status_"-"_$$IO($V(152,Job,0)-20) + .If Status="IjcO" Set Status=Status_"-"_$$IO($V(152,Job,0)-24)+1 + .If Status="Device" Set Status=Status_"-"_$V(112,Job,4) + Quit $G(Status) + ; +COMMANDS(Job,Device,Type) + ; Type = 0 total + ; = 1 incr + ; = 2 total/incr + New Commands + Set Job=$G(Job),Device=$G(Device) + If 'Job Set:Device="" Device=$I Set Job=$$JOB(Device) + If Job Do + .Set Type=$G(Type) Set:Type>2 Type=2 + .Set:Type'=1 Commands=$V(96,Job,4) Set:Type=2 Commands=Commands_"/" + .Set:Type Commands=$G(Commands)_$V(100,Job,4) + Quit $G(Commands) + ; +IO(DDB) ; + New DDBN,DDBT,DDBX,IX,OSYS + Set OSYS=$ZB($V(0,-4,2),15,1) + If 'OSYS!($V(0,-4,2)#16=8) Quit $V(DDB,-3,4) + Set DDBT=$V(7,-5)+4,DDBN=$V($V(5,-5),-3,2) + View 112:$J:DDB:4 + Set DDBX=$V(112,$J,4,1) + Set IX=$F($V(DDBT,-3,DDBN*4,1),DDBX) + Quit:IX=0 0 + Set IX=IX-1 + Quit:IX/4=(IX\4) IX/4 + For IX=1,3:1:19,64:1:199,224:1:DDBN Quit:DDB=$V(4*IX+$V(7,-5),-3,0) + Quit IX + ; +INUSE(Job,Device,DevicesJobs) + ; Not Device = all in use + ; Device = in use (1) or not in use (0) + ; DevicesJobs = "D" geeft de divices terug (default) + ; = "J" geeft de jobnummers terug + New B,I,J,K,DEV,JOB,maxpid,pid + Set Job=$G(Job),Device=$G(Device),DevicesJobs=$G(DevicesJobs,"G") + If Job Do + .Set Device=$$DEVICE(Job),DEV=Device'="" + Else Do + .Set J="" + .For Set J=$O(^$JOB(J)) Quit:J="" Set K=$$DEVICE(J) Set:$L(K) DEV(K)=J + .Set (K,DEV)="" + .For Set K=$O(DEV(K)) Quit:K="" Set DEV=DEV_","_K + .Set $E(DEV)="" Set:$L(Device) DEV=(","_DEV_",")[(","_Device_",") + If DevicesJobs="J" For I=1:1:$L(DEV,",") Do + .Set J=$G(DEV($P(DEV,",",I))) + .Set:'J J=$$JOB($P(DEV,",",I)) + .Set $P(DEV,",",I)=J + Quit DEV + ; +VAR(Job,Device) + Set Job=$G(Job),Device=$G(Device) + If 'Job Set:Device="" Device=$I Set Job=$$JOB(Device) + Quit:'Job Quit:Job=$J + Kill (Job,Device) + Set Device=$$DEVICE(Job) + If $L(Device),$$INUSE(,Device) Set Job=$$JOB(Device) Do EXEC^vhSW("Do VAR^JOBEXAM(Job)") + Quit + ; +MAXPART + New R,SMaxPart,CInUse,UInUse,Devs,UMaxPart + If '$D(Q) New Do INIT^vhTERMINA + If '$D(CUserId) New CUserId Set CUserId=$$DEVUSER^vhUSER($$IO^cQ5) + If $ZV["MSM",CUserId Do + .Set SMaxPart=$V($V(3,-5),-3,0),CInUse=$V(168,-4,2),UInUse=$L($$INUSE(),",") + .Set Devs=$L($$USERDEVS(),","),UMaxPart=$P($G(^vhUSER("D",CUserId)),D,7) Set:'UMaxPart UMaxPart=2 + .If UInUse>40,Devs>UMaxPart Do + ..Write @F11,@F1,!,"No partitions available" + ..If $L(CUserId,";")=1 Do + ...Set R=$G(^LOGPART(CUserId,+$H)) + ...Set:R="" $P(R,D,2)=Devs-1,$P(R,D,Devs+1)=$P($H,",",2) + ...Set:'$P(R,D) $P(R,D)=$P($H,",",2),^LOGPART(CUserId,+$H)=R + ..Hang 2 + ..Halt + .If $L(CUserId,";")=1 Do + ..Set R=$G(^LOGPART(CUserId,+$H)) + ..Set:Devs>$P(R,D,2) $P(R,D,2)=Devs,$P(R,D,Devs+2)=$P($H,",",2),^LOGPART(CUserId,+$H)=R + Quit + ; +LISTPART + New + Do INIT^vhTERMINA + Write !,"Naam Jobs Devices" + Write !,"-------------------------------------------------------------" + Set InUse=$$INUSE,AantIU=$L(InUse,",") + For Set Device=$P(InUse,","),InUse=$P(InUse,",",2,999) Quit:Device="" Do + .Set Device=$$IO^cQ5(Device) + .Quit:Device="" + .Set User=$P(^cLOG("ADM","DDB",0,Device),"\") + .Set:User'="" Users(User)="" + Set User="" + For Set User=$O(Users(User)) Quit:User="" Do + .Set UserJobs=$$USERJOBS(User) + .Set UserDevs=$$USERDEVS(User) + .Quit:UserDevs="" + .Write !,$E(User,1,20),?25,"(",$$IO^cQ5($P(UserDevs,",")),")",?35,UserJobs,?50,UserDevs + Write !,"-------------------------------------------------------------" + Write !,"Totaal aantal",?25,AantIU + Quit + ; +0 ;Running +1 ;RunQue +2 ;WaitQ1 +3 ;WaitQ1a +4 ;WaitQ2 +5 ;WaitQ2a +6 ;WaitQ3 +7 ;WaitQ3a +8 ;Qavail +9 ;Qpart +10 ;Buff +11 ;Lock +12 ;Device +13 ;Hang +14 ;Qspecial +15 ;DDP +16 ;ServerQ +17 ;Qlat_sol +18 ;Qlat_cmd +19 ;Qlat_si +20 ;Latsvbuf +21 ;CIRsuspend +23 ;DeadQ +24 ;MemoryQ +25 ;LckTbFull +30 ;BufInUse +31 ;DDPbuff +32 ;Muserver +33 ;Journal +34 ;ShrdBuf +35 ;ApiFunc +36 ;ApiIn +37 ;ApiOut +40 ;TermI +41 ;TermO +42 ;FastPath +43 ;TapeIO +44 ;AsciiObf +45 ;AsciiIbf +46 ;IjcI +47 ;IjcO +48 ;TermOpn +49 ;TermUse +50 ;DiskIO +51 ;TermCls +52 ;HostCmd +53 ;HFS_IO +54 ;Jrnl_In +55 ;Jrnl_Out +56 ;DDPreq +57 ;DDPcredit +58 ;VGPfetch +59 ;VGPupdate +70 ;Sleep +71 ;Fork +72 ;DTR +73 ;TsetSpin +74 ;MPLock +75 ;Jrnl_out +76 ;Jrnl_Dmn +77 ;GenChng +78 ;Bij_Buff +79 ;Bij_Full +80 ;BIJ_IO +81 ;BIJ_IObp +99 ;MSM-GUI +100 ;VXD_get \ No newline at end of file Index: z/CW/USR/PV.mac.rou =================================================================== diff -u --- z/CW/USR/PV.mac.rou (revision 0) +++ z/CW/USR/PV.mac.rou (revision 4156) @@ -0,0 +1,49 @@ + ; Routines speciaal Paul Verhulst + Quit + ; +Intivo + New I,R,Dev,PRNr,KortTxt,IdentNr,LangTxt1,LangTxt2 + Set Dev=$$OPEN^vhDEV(,"IntivoPV.TXT","W","A") + Do:0'[Dev + . Use Dev + . Write "Identnummer",$C(9),"Korttekst",$C(9),"Langtekst",$C(10) + . Set PRNr=0 + . For Set PRNr=$O(^KPR(PRNr)) Quit:PRNr="" Do + . . Set I=$O(^KPR(PRNr,"I")) + . . Quit:$E(I)'="I" + . . Set R=^KPR(PRNr,I) + . . Quit:$P(R,D,4)'=1116 + . . Set R=^KPR(PRNr,0),KortTxt=$P(R,D) + . . Set R=^KPR(PRNr,2),IdentNr=$P(R,D,25) + . . Set R=$$GETOMSCH^PRODUKT2(PRNr,"N"),LangTxt1=$P(R,D),LangTxt2=$P(R,D,2) + . . Write IdentNr,$C(9),KortTxt,$C(9),LangTxt1,$C(9),LangTxt2,$C(10) + . Close Dev + Quit + ; +DynaPlugProd + New I,R,Dev,PRNr,KortTxt,IdentNr,HoofdGr,Groep,SubGroep,CompKort + Set Dev=$$OPEN^vhDEV(,"DynaPlugProd.TXT","NW","T") + Do + . Use Dev + . Write "SortKey PRNr IdentNr KortTekst Alias",$C(10) + . Set HoofdGr="" + . For Set HoofdGr=$O(^KPH(HoofdGr)) Quit:HoofdGr="" Do + . . Set Groep="" + . . For Set Groep=$O(^KPH(HoofdGr,Groep)) Quit:Groep="" Do + . . . Set SubGroep="" + . . . For Set SubGroep=$O(^KPH(HoofdGr,Groep,SubGroep)) Quit:SubGroep="" Do + . . . . Set CompKort="" + . . . . For Set CompKort=$O(^KPH(HoofdGr,Groep,SubGroep," ",CompKort)) Quit:CompKort="" Do + . . . . . Set PRNr=^KPH(HoofdGr,Groep,SubGroep," ",CompKort) + . . . . . + . . . . . Set KortTxt=$P(^KPR(PRNr,0),D),IdentNr=$P(^KPR(PRNr,2),D,25) + . . . . . Set SortKey=$$SORTKEY^PRODUKT(PRNr) + . . . . . Set lbAliasI=##class(Prod.Kenmerk.DataDefinitie).Get("OEI",PRNr,"AliasI") + . . . . . Set lbAliasK=##class(Prod.Kenmerk.DataDefinitie).Get("OEI",PRNr,"AliasK") + . . . . . If $$ISBLUM^PRODUKT2(PRNr)||($LL(lbAliasI))||($LL(lbAliasK)) Do + . . . . . . Write SortKey,*9,PRNr,$C(9),IdentNr,$C(9),KortTxt,$C(10) + . . . . . . For I=1:1:$LL(lbAliasI) Write SortKey,$C(9),$LI(lbAliasI,I),*9,PRNr,$C(9),KortTxt,*9,"AI",$C(10) + . . . . . . For I=1:1:$LL(lbAliasK) Write SortKey,*9,PRNr,$C(9),IdentNr,$C(9),$LI(lbAliasK,I),*9,"AK",$C(10) + Do CLOSE^vhDEV(Dev) + Quit + \ No newline at end of file Index: z/CW/USR/HA.mac.rou =================================================================== diff -u --- z/CW/USR/HA.mac.rou (revision 0) +++ z/CW/USR/HA.mac.rou (revision 4156) @@ -0,0 +1,197 @@ + ; Routines speciaal Hendrik Audenaert + Quit + ; +Translate(Value) + Quit $TR(Value,".",",") + ; +Dev(FileName,User) + Quit "\\Notes01\Shared\"_$P(^vhUSER("D",$$USERID^vhUSER($G(User,QU(1)))),D,6)_D_FileName + ; +KredLim12500To13000 + New R,KlKey,KLNr,KlNaam,KredietLimiet + Set KlKey=0 + For Set KlKey=$O(^KKL(KlKey)) Quit:KlKey="" Do + . ;w !,KlKey + . Set KLNr=$P(KlKey," ",2),R=^KKL(KlKey,0),KlNaam=$P(R,D,2) + . Set R=^KKL(KlKey,2),KredietLimiet=$P(R,D,7) + . Quit:KredietLimiet'=12.5 + . Do EenKlant12500To13000(KLNr) + . Write !,KLNr,?10,KlNaam + Quit + ; +EenKlant12500To13000(KLNr) + New R,KlKey,KredietLimiet + Set KlKey=^KK1(KLNr) + Set R=^KKL(KlKey,2),KredietLimiet=$P(R,D,7) + If KredietLimiet=12.5 Do MODFIELD^KLANT(KLNr,307,13) + Quit + ; + ; Niet gesaldeerde klanten +NgsKlanten + New R,KlKey,KLNr,OpenstSaldo,Count + Do INIT^vhPRINTER() + Do:$D(Print) + . Set (KlKey,Count)=0 + . Write !!!!! + . For Set KlKey=$O(^KKL(KlKey)) Quit:KlKey="" Do + . . Set R=^KKL(KlKey,0),KLNr=$P(R,D),KlNaam=$P(R,D,2),WoonPl=$P(R,D,7),OpenstSaldo=$$NgsKlant(KLNr) + . . Quit:OpenstSaldo'<0 + . . Set Count=Count+1 + . . If Count>55 Write # Write !!!!! Set Count=1 + . . Write !,?4,$J(KLNr,5),?12,KlNaam,?40,WoonPl,?65,$$EXTNUM^vhDTyp(OpenstSaldo,10,".T",2) + . Write # + . Do CLOSE^vhPRINTER + Quit + ; +NgsKlant(KLNr) + New R,KlKey,OpenstSaldo + Set KlKey=^KK1(KLNr),OpenstSaldo=0,FANr=9999 + For Set FANr=$O(^KKL(KlKey,FANr)) Quit:FANr'?5N.N!(FANr>999999) Do + . Set R=^KKL(KlKey,FANr) + . Quit:'$L($P(R,D,5)) + . Set:$P(R,D,1)="C" $P(R,D,10)=-$P(R,D,10) + . Set OpenstSaldo=OpenstSaldo+$P(R,D,10) + Quit OpenstSaldo + ; +HARembours + Set (KlKey,Count)=0,Dev=$$Dev("HARembours2.Txt") + Open Dev:"NW" + Use Dev + Kill ^HULP($J+100) + Set CheckDate=$$CALCDATE^vhDTyp(,"J",-2),BGPeriode=$$EXTDATE^vhDTyp($$CALCDATE^vhDTyp(,"J",-2),"DM4") + Set BEenJaar=$$EXTDATE^vhDTyp($$CALCDATE^vhDTyp(,"J",-1),"DM4"),BTweeJaar=$$EXTDATE^vhDTyp($$CALCDATE^vhDTyp(,"J",-2),"DM4"),EPeriode=$$EXTDATE^vhDTyp(,"DM4") + Write "Lijn",$C(9),"Klant",$C(9),"Naam",$C(9),"Rembours",$C(9),"VooruitBetaling",$C(9),"KredietLimiet",$C(9),"MaxDagen",$C(9) + Write "Omzet -1 jaar",$C(9),"Omzet -2 jaar",$C(13) + For Set KlKey=$O(^KKL(KlKey)) Quit:KlKey="" Do + . Set R=^KKL(KlKey,3),Rembours=$P(R,D),VooruitBetaling=$P(R,D,2) + . If ' Rembours,'VooruitBetaling Quit + . Set R=^KKL(KlKey,2),KredietLimiet=$P(R,D,7),CommAktief='$P(R,D,10) + . Quit:+KredietLimiet=.001 Quit:'CommAktief + . Set R=^KKL(KlKey,0),KLNr=$P(R,D),KlNaam=$P(R,D,2),LastFactDate=-$O(^KFA1("F",KLNr,"")) + . Quit:'LastFactDate Quit:LastFactDate'>CheckDate + . Kill ^HULP($J+100) + . Set BetalingGedrag=$$KLANT^KKBG2(KLNr,BGPeriode),MaxDagen=$P(BetalingGedrag,D,9) + . Quit:MaxDagen>60 ; Maximum dagen vervallen is meer dan 60 + . Set Count=Count+1 + . Write Count,$C(9),KLNr,$C(9),KlNaam,$C(9),Rembours,$C(9),VooruitBetaling,$C(9),KredietLimiet,$C(9),MaxDagen,$C(9) + . Write $$Translate($$KLANT^STAT(KLNr,,BEenJaar,EPeriode,3)),$C(9),$$Translate($$KLANT^STAT(KLNr,,BTweeJaar,EPeriode,3)),$C(13) + Close Dev + Kill ^HULP($J+100) + Quit + ; +HADubieus + Set (KlKey,Count)=0,Dev=$$Dev("HADubieus.Txt") + Open Dev:"NW" + Use Dev + For Set KlKey=$O(^KKL(KlKey)) Quit:KlKey="" Do + . Set R=^KKL(KlKey,3),Dubieus=$P(R,D,8) + . Quit:'Dubieus + . Set R=^KKL(KlKey,0),KLNr=$P(R,D),KlNaam=$P(R,D,2) + . Set R=^KKL(KlKey,2),KredietLimiet=$P(R,D,7) + . Set Count=Count+1 + . Write Count,$C(9),KLNr,$C(9),KlNaam,$C(9),Dubieus,$C(9),KredietLimiet*1000,$C(13) + Close Dev + Quit + ; +KFA(FromJaar,ToJaar) + New R,FileName,Dev,From,To,KLNr,Naam,Land,IsComAct,BTWNr,BTWRegime,EvVrijBTW,Next,FANr,FactCode,FactDate,Goederen,Belastbaar,BTW,KontKort,BTWNrGew + Set FromJaar=$G(FromJaar),ToJaar=$G(ToJaar,FromJaar) + Set FileName="HABTWList"_FromJaar_".Txt",Dev=$$Dev(FileName) + Open Dev:"NW" + Use Dev + Set From="",To=99999 + Set:$G(FromJaar) From=$$CALCDATE^vhDTyp($$INTDATE^vhDTyp(FromJaar),"J","FD") + Set:$G(ToJaar) To=$$CALCDATE^vhDTyp($$INTDATE^vhDTyp(ToJaar),"J","LD") + Write "Jaar",$C(9),"KLNr",$C(9),"Naam",$C(9),"Land",$C(9),"Comm. akt.",$C(9),"BTW-nummer",$C(9),"BTW regime",$C(9),"Ev. vrij BTW",$C(9) + Write "Factuur",$C(9),"Goederen",$C(9),"Belastbaar",$C(9),"BTW",$C(9),"Kontantkorting",$C(9),"BTW gewijzigd",$C(13) + Set From=-From,To=-To,KLNr="" + ;Set KLNr=1009 + For Set KLNr=$O(^KFA1("F",KLNr)) Quit:KLNr="" Do ;Quit + . Set R=^KKL(^KK1(KLNr),0),BTWRegime=+$P(R,D,15),BTWNr=$P(R,D,16),Land=$$LAND^vhRtn1(KLNr,"K") + . Set BTWNrGew="" If FromJaar=ToJaar,FromJaar>2005 Set BTWNrGew=$$BTWNrGew(KLNr) + . Set R=^KKL(^KK1(KLNr),2),EvVrijBTW=+$P(R,D,9),IsComAct=+$P(R,D,10) + . Set Naam=$P(^KKL(^KK1(KLNr),0),D,2),BTWRegime=+$P(^KKL(^KK1(KLNr),0),D,15),BTWNr=$P(^KKL(^KK1(KLNr),0),D,16),Land=$$LAND^vhRtn1(KLNr,"K"),IsComAct=+$P(^KKL(^KK1(KLNr),2),D,10) + . Set Next=From+1 + . For Set Next=$O(^KFA1("F",KLNr,Next),-1) Quit:Next="" Quit:Next