Lijst met de GeoMobile data van 1 dag 1 TCHUI.TForm TCHUI.TKader TCHUI.TLabel TCHUI.TLabel TCHUI.TLabel TCHUI.TLabel TCHUI.TLabel TCHUI.TLijst TCHUI.TDataSetList TCHUI.TButton TCHUI.TAction %Date BL.Derde.Agenda.Agenda %Integer 1 %Integer 2 %Integer 3 %Integer 4 %Integer 5 %Integer 6 1 pBLAgenda,CurrentDate In te vullen door de GUI applicatie 0 BLAgenda,CurrentDate Sender,LijstRow Code,Gemeente,Straat,PrecisionError,Type,AgendaSubID INTO :Tijd,:ContactOn,:LandCode,:Gemeente,:Straat,:PrecisionError,:MsgType,:AgendaSubID FROM Derde_Agenda.GeoMobile WHERE Gebruiker=:UserID AND Datum=:Datum and Type<>'INVALID' ORDER BY Tijd,SubId) &sql(OPEN GeoData) Set Cnt=0,TijdVorig="",ContactOnVorig="" For &sql(FETCH GeoData) Quit:SQLCODE Do . 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:"") . Do Sender.Append($LB(","_Tijd,","_TijdVorig,$S(ContactOn:"R",1:""),Locatie,Error,$S(AgendaSubID:"+",1:" ")_MsgType)) . Set TijdVorig=Tijd,ContactOnVorig=ContactOn &sql(CLOSE GeoData) ]]> Sender:TCHUI.TControlBasis