persistent %Persistent 0 1 2 3 4 5 6 1 UserID Keuze te verwerken gebruiker UserID '') &sql(OPEN GeoUsers) For &sql(FETCH GeoUsers) Quit:SQLCODE Do . Set Users($O(Users(""),-1)+1)=ID_D_Naam &sql(CLOSE GeoUsers) Set R=$$WILD^vhPOPUP($P(RubrPos,D,2),"-O1","Gebruiker",.Users,UserID) Set:$G(zb)'="CANC" UserID=R Quit UserID ]]> Scherm vernieuwen %J,UserID,Datum,List 3 Do . If $G(%J),$G(^HULP(%J))'=(UserID_D_Datum) Do Rapport.FetchData(%J,UserID,Datum) . Do WRITE^vhLIST(.List) Do RESET^vhScherm ]]> Ophalen van de gegevens van een dag %J,UserID,Datum 'P' AND isnull(Type,'*') <> 'R' ORDER BY TijdVan ASC) &sql(OPEN RapportData) Set Cnt=0,TijdVorig="",ContactOnVorig="" For &sql(FETCH RapportData) Quit:SQLCODE Do . Set Agenda=##class(Derde.Agenda.Agenda).%OpenId(ID) . Set (Gesproken,Ref)="" . For Set GesprokenMet=Agenda.GesprokenMet.GetNext(.Ref) Quit:Ref="" Do Quit:Gesproken'="" . . If GesprokenMet.Gesproken,GesprokenMet.Naam'="" Set Gesproken=GesprokenMet.Naam . Set $P(R,D,..#RapportID)=ID . Set $P(R,D,..#DerdeType)=$S(Type="B":$S(Klant:"K",Leverancier:"L",1:"P"),1:"") . Set $P(R,D,..#DerdeID)=$S(Type="B":$S(Klant:Klant,Leverancier:Leverancier,1:Prospect),1:"") . Set $P(R,D,..#GesprokenMet)=Gesproken . Set $P(R,D,..#TekstKort)=Agenda.TekstKort . Set $P(R,D,..#RapportType)=Type . Set Count=Count+1,^HULP(%J,Count)=R &sql(CLOSE RapportData) Set ^HULP(%J)=UserID_D_Datum ]]> Zoek de vorige dag op %J,UserID,Datum Zoek de volgende dag op %J,UserID,Datum MaxDatum Do Quit:IsGeldigeDag . Set IsGeldigeDag=Rapport.IsGeldigeDag(UserID,Datum) . Quit:'IsGeldigeDag . Do Rapport.FetchData(%J,UserID,Datum) Set Datum=$P(^HULP(%J),D,2) Do:Datum'=OldDatum . Kill LD("OFFSET"),LD("MAX") . Set LD("SELECT")=0 . Do ADD^vhScherm(1,24) Quit Datum ]]> Wijzig selectiekriteria UserID,Datum Detail van een rapport AgendaID 0:"Prospect: "_Agenda.Prospect,1:$$DISPSTR^vhPOPUP("P","Derde.Agenda;TYPE",Type,"O")) . Set Body=BLAgenda.Format2Tekst(Agenda,,"TP") . Do GETWRAP^vhBIGEDIT($NA(Body),76,.sWrap,"O","~","") . Set Count=0 . For I=1:1:$O(sWrap(""),-1) Set Count=Count+1,DispLoc(Count)=$J("",$P(sWrap(I),"`",4))_$P(sWrap(I),"`",5) . Set Datum=Agenda.Datum . Do INIT^vhLIST("GeoRapport","DTL",.DTL) . For I=1:1 Quit:'$D(DTL("B",I)) Do ; Deactiveren van buttons . . If $P(DTL("B",I),"`",6)="PD",LD("SELECT")=1,Datum>MinDatum Set $P(DTL("B",I),"`",3)="" Quit . . If $P(DTL("B",I),"`",6)="NR",LD("SELECT")=LD("MAX") Set $P(DTL("B",I),"`",3)="HD" Quit . . If $P(DTL("B",I),"`",6)="PR",LD("SELECT")=1 Set $P(DTL("B",I),"`",3)="HD" Quit . . If $P(DTL("B",I),"`",6)="ND",LD("SELECT")=LD("MAX"),Datum Naar raadplegen klanten KLNr Naar raadplegen leverancier LEVNr Bevat een agendadag rapporten UserID,Datum Opzoeken van de meest recente raporteerdag UserID Opzoeken van de oudste raporteerdag UserID %Library.CacheStorage ^CHUI.Derde.Agenda.RapportD RapportDefaultData ^CHUI.Derde.Agenda.RapportD ^CHUI.Derde.Agenda.RapportI ^CHUI.Derde.Agenda.RapportS listnode %%CLASSNAME