Index: BL/Derde/Agenda/GeoDynamicsImport.cls.xml =================================================================== diff -u -r38470 -r38931 --- BL/Derde/Agenda/GeoDynamicsImport.cls.xml (.../GeoDynamicsImport.cls.xml) (revision 38470) +++ BL/Derde/Agenda/GeoDynamicsImport.cls.xml (.../GeoDynamicsImport.cls.xml) (revision 38931) @@ -151,6 +151,7 @@ For I=1:1:Trips.Count() { Do ..OpslaanTrip(Trips.GetAt(I)) + Do ..SkipVerwijderdeTrips(Trips.GetAt(I)) } ]]> @@ -172,9 +173,10 @@ Set GeoData.Straat=Trip.FromLocation.Address.Street_" "_Trip.FromLocation.Address.HouseNumber Set GeoMobile=##class(Derde.Agenda.GeoMobile).OpenExisting(GeoData) - If $isObject(GeoMobile) && (GeoMobile.Afstand'=Trip.MileageDriven) + If $isObject(GeoMobile) ;&& (GeoMobile.Afstand'=Trip.MileageDriven) { Set Distance=Trip.MileageDriven-GeoMobile.Afstand + Set GeoMobile.ContactOn=Rijden ; Kan blijkbaar achteraf aangepast worden daarom wijzigen Set GeoMobile.Afstand=Trip.MileageDriven Set sc=GeoMobile.%Save() @@ -187,6 +189,34 @@ ]]> + +Trip:WS.GeoDynamics.tns.TripEntity +:TijdVan AND Tijd<:TijdTot) + + &sql(OPEN OE) + For &sql(FETCH OE) Quit:SQLCODE Do + . Set GeoMobile=##class(Derde.Agenda.GeoMobile).%OpenId(GeoID) + . Set GeoMobile.Type="SKIP" + . Do GeoMobile.%Save() + &sql(CLOSE OE) +]]> + + + + +d ##class(BL.Derde.Agenda.GeoDynamicsImport).%New(17).TestLatLon() + + + 1 1 Index: EWORDSW.mac.rou =================================================================== diff -u -r38191 -r38931 --- EWORDSW.mac.rou (.../EWORDSW.mac.rou) (revision 38191) +++ EWORDSW.mac.rou (.../EWORDSW.mac.rou) (revision 38931) @@ -118,29 +118,30 @@ Quit ##class(BL.Legacy.EWORDSW).Bevat(CONSNr) AanpassenDueOut(CONSNr,lbBevat) - New Omz,OmzFakt,KLNr,DOut,SubMagazijnen,Verzendwijze + New Omz,OmzFakt,KLNr,DOut,SubMagazijnen,Verzendwijze,OldDOut ;Aanpassen van de DueOutTime volgens magazijn Set KLNr=$P(^ORDW("D",CONSNr),D) Set Omz=$P($G(^KKAAP(KLNr,0,0,0,0)),D) Set OmzFakt=$S(Omz>250000:100,Omz>25000:100,1:0) - Set DOut=$P(^ORDW("D",CONSNr),D,3) + Set (OldDOut,DOut)=$P(^ORDW("D",CONSNr),D,3) Set SubMagazijnen=$$BepaalSubMagazijnen(CONSNr) - Set Verzendwijze=$P(^ORDW("D",CONSNr),D,2) - If ($E(Verzendwijze,1,2)="OD") && (SubMagazijnen["E") + Set Verzendwijze=$P($P($P(^ORDW("D",CONSNr),D,2),"`"),";") + If (Verzendwijze?1"OD"1N)&&(SubMagazijnen["E") { - If $P($P(Verzendwijze,"`"),";")="OD1" Set $P(DOut,",",2)=21600 ; 6 uur - If $P($P(Verzendwijze,"`"),";")="OD2" Set $P(DOut,",",2)=25200 ; 7 uur - If $P($P(Verzendwijze,"`"),";")="OD3" Set $P(DOut,",",2)=28800 ; 8 uur - If $P($P(Verzendwijze,"`"),";")="OD4" Set $P(DOut,",",2)=32400 ; 9 uur - If $P($P(Verzendwijze,"`"),";")="OD5" Set $P(DOut,",",2)=36000 ; 10 uur + If Verzendwijze="OD1" Set $P(DOut,",",2)=21600 ; 6 uur + If Verzendwijze="OD2" Set $P(DOut,",",2)=25200 ; 7 uur + If Verzendwijze="OD3" Set $P(DOut,",",2)=28800 ; 8 uur + If Verzendwijze="OD4" Set $P(DOut,",",2)=32400 ; 9 uur + If Verzendwijze="OD5" Set $P(DOut,",",2)=36000 ; 10 uur } Set:OmzFakt>1 $P(DOut,",",2)=$P(DOut,",",2)-(4*60) ; Grote klanten worden voorgetrokken met 4 min. Set:$LF(lbBevat,"ORGALUX") $P(DOut,",",2)=$P(DOut,",",2)-(10*60) ; Orgalux orders voortrekken met 10 min. Set:$L(SubMagazijnen)=1 $P(DOut,",",2)=$P(DOut,",",2)-(5*60) ; picking uit slechts 1 submagazijn wordt voorgetrokken met 5 min + Do INFO^EWLOG($T(DUEOUT)) Set $P(^ORDW("D",CONSNr),D,3)=DOut ; sinds uglypicking actief is niet meer nodig Set:$P(DOut,",",2)<0 $P(^ORDW("D",CONSNr),D,3)=$P(DOut,",") ; PV 15-04-2011 - blijkbaar wordt soms de DueOut verlaagd met x min als deze dan op nul staat dan mag deze niet negatief gaan Quit - + BepaalSubMagazijnen(CONSNr) New ORDNr,OLUNr,SOLNr,Magazijnen,SOLRec,SoftV Set (ORDNr,OLUNr,SOLNr,Magazijnen)="" @@ -230,7 +231,9 @@ ...Set Key=$O(^KPR(PRNr,"I")) ...Set HG=$S($E(Key)="I":$P(^KPR(PRNr,Key),D,1),1:"*") ...Set SoftV=$P(SOLRec,D,13) - ...Set:SoftV'?1N SoftV=$$SOFTV(PRNr,KLNr,Aantal,lbBevat) ; Indien niet op voorhand gegroepeerd + ...If SoftV'?1N Do ; Indien niet op voorhand gegroepeerd voor WMS + .... Set SoftV=$$SOFTV(PRNr,KLNr,Aantal,lbBevat) + .... Set $P(^ORDW("D",CONSNr,"D",ORDNr,OLUNr,SOLNr),D,13)=SoftV ...Set SortT1(SoftV,HG)=$G(SortT1(SoftV,HG))+$S((SoftV="E")!(SoftV?1N):Gewicht*Aantal/1000,1:0) ; Alleen voor die van het automatisch mag. ...Set SortT1(SoftV,HG,$$SORTKEY^PRODUKT(PRNr),ORDNr,OLUNr)=PRNr @@ -498,6 +501,9 @@ NOPROD ;"Geen product gedefinieerd in :"_ORDNr_";"_OLUNr NOSEND ;"Order kan niet worden doorgestuurd omwille van status :"_ORDNr_";"_$P(^ORD(KLNr,"F",ORDNr,1),D,30) UITLEV ;"Volledige terugname niet geimplementeerd "_KLNr_"; "_ORDNr) +DUEOUT ;"Aanpassen DueOut "_$G(CONSNr)_"; "_$G(OldDOut)_"; "_$G(DOut)_"; "_$G(SubMagazijnen)_"; "_$G(Verzendwijze) + + Index: BL/Derde/Agenda/GeoMobile.cls.xml =================================================================== diff -u -r38470 -r38931 --- BL/Derde/Agenda/GeoMobile.cls.xml (.../GeoMobile.cls.xml) (revision 38470) +++ BL/Derde/Agenda/GeoMobile.cls.xml (.../GeoMobile.cls.xml) (revision 38931) @@ -524,7 +524,7 @@ Set:$G(GeoID) Vorig=##class(Derde.Agenda.GeoMobile).%OpenId(GeoID) Set:$isObject(Vorig) MaxTijd=Vorig.Datum_","_Vorig.Tijd ; De nog ongekoppelde records moeten in tijd groter of gelijk zijn aan deze MaxTijd Set:AgendaSubID Agenda=##class(Derde.Agenda.Agenda).%OpenId($P(GeoID,"||",1,2)_"||"_AgendaSubID),Count=99 - Set Nu=+$H_","_($P($H,",",2)+300) ; alleen data verwerken die min. 5 minuten oud is + Set Nu=+$H_","_($P($H,",",2)+360) ; alleen data verwerken die min. 6 minuten oud is &sql(DECLARE GD2A CURSOR FOR SELECT ID ,Type,InsertTijdStip Index: CHUI/Derde/Agenda/GeoDetail.cls.xml =================================================================== diff -u -r29059 -r38931 --- CHUI/Derde/Agenda/GeoDetail.cls.xml (.../GeoDetail.cls.xml) (revision 29059) +++ CHUI/Derde/Agenda/GeoDetail.cls.xml (.../GeoDetail.cls.xml) (revision 38931) @@ -285,7 +285,7 @@ . Set Locatie=$S("BE"[LandCode:Gemeente,1:LandCode_$S(Gemeente="":"",1:" "_Gemeente)) . Set:(Straat'="") Locatie=$S(Locatie="":Straat,1:Locatie_", "_Straat) . Set TeLang=TijdVorig&&(Tijd-TijdVorig>$S(ContactOnVorig:300,1:45*60)) - . Set Error=$S(TeLang&&PrecisionError:"GnB:"_$J(Tijd-TijdVorig/60,0,0)_"+GPS",TeLang:"GnBer:"_$J(Tijd-TijdVorig/60,0,0),PrecisionError:"GPS pos",1:"") + . Set Error="" ;$S(TeLang&&PrecisionError:"GnB:"_$J(Tijd-TijdVorig/60,0,0)_"+GPS",TeLang:"GnBer:"_$J(Tijd-TijdVorig/60,0,0),PrecisionError:"GPS pos",1:"") . Do Sender.Append($LB(","_Tijd,","_TijdVorig,$S(ContactOn:"R",1:""),Locatie,Error,$S(AgendaSubID:"+",1:" ")_MsgType)) . Set TijdVorig=Tijd,ContactOnVorig=ContactOn &sql(CLOSE GeoData) Index: PVTAORFakturatie.mac.rou =================================================================== diff -u -r37152 -r38931 --- PVTAORFakturatie.mac.rou (.../PVTAORFakturatie.mac.rou) (revision 37152) +++ PVTAORFakturatie.mac.rou (.../PVTAORFakturatie.mac.rou) (revision 38931) @@ -4,9 +4,9 @@ #include BL.Derde.LevSpecifiek Export - Set Device=$$OPEN^vhDEV(,"TAOR FakturatieAantallen2.txt","W","T") + Set Device=$$OPEN^vhDEV(,"TAOR FakturatieAantallen.txt","W","T") Use Device - Write "KLNr FAKNr Datum PRNr KortTekst Telbaar Aantal Omzet AankoopKost ZonderStock",! + Write "KLNr Regio FAKNr Datum PRNr KortTekst Telbaar Aantal Omzet Kost ZonderStock OmzetZndrGlijder KostZndrGlijder",! Do WriteFacturatie Do CLOSE^vhDEV(Device) Quit @@ -41,13 +41,24 @@ . . . . . Set Qty=$P(LRec,"\",3) . . . . . Set Omzet=$P(LRec,"\",34) . . . . . Set Kost=$P(LRec,"\",33) + . . . . . Set KostZndGlijder=Kost-(($$KostBS(PRNr,"PRGLIJD")+$S($E($$$PRGet($$$KortTekst),6)="Z":0,1:$$KostBS(PRNr,"PRKOP")))*Qty) + . . . . . Set OmzetZndGlijder=Omzet * KostZndGlijder / Kost . . . . . ;Quit:Qty<1 - . . . . . Write KLNr,*9,FAKNr,*9,$$$ExcelDat(-Datum) - . . . . . Write *9,PRNr,*9,$$$PRGet($$$KortTekst),*9,Telbaar,*9,$$$ExcelNum(Qty),*9,$$$ExcelNum(Omzet),*9,$$$ExcelNum(Kost),*9,ZonderStock + . . . . . Write KLNr,*9,Regio,*9,FAKNr,*9,$$$ExcelDat(-Datum) + . . . . . Write *9,PRNr,*9,$$$PRGet($$$KortTekst),*9,Telbaar,*9,$$$ExcelNum(Qty),*9,$$$ExcelNum(Omzet),*9,$$$ExcelNum(Kost),*9,ZonderStock,*9,$$$ExcelNum(OmzetZndGlijder),*9,$$$ExcelNum(KostZndGlijder) . . . . . Write ! Quit +KostBS(PRNr,BSKeyBasis) + New Kost,BSKey,HFPRNr + Set Kost=0 + Set BSKey=BSKeyBasis + For Set BSKey=$O(^PRBS("BS",PRNr,BSKey)) Quit:BSKey'[BSKeyBasis Do + . Quit:$P(^PRBS("BS",PRNr,BSKey),"\",3)'="H" + . Set HFPRNr=$P(^PRBS("BS",PRNr,BSKey),"\",1) + . Quit:HFPRNr'?4.9N + . Set Kost=Kost+$$CifPPL^KPRIJS(HFPRNr)*$P(^PRBS("BS",PRNr,BSKey),"\",2) + Quit Kost -