BL.Sys.FOP.Common 1 %RegisteredObject %Date %Date Naam van de cache waarde lijst van uitgaande faxen wordt opgeslagen ID_"\"_TSID_"\"_Datum_"\"_Tijd_"\"_Pages_"\"_ObjType_"\"_ObjRef_"\"_ObjNaam_"\"_Betreft_"\"_DocumentType_"\"_DocumentNummer_"\"_FromUserId_"\"_VerzendStatus_"\"_TAV_"\"_VerzendStatusLog %String K= Klant, L = Leverancier, F= FaxIDs, O = Onbekend Indien leeg dan geen beperking %String als BeperkType=F (=FaxIDs) dan kunnen er meerdere ID's nl. zijn TSID in een $LB %String %String %String 1 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 Tonen van de lijst met uitgaande faxen alleen beperkt op datum 1 0 Tonen van de lijst met uitgaande faxen alleen beperkt op klant 1 KLNr 0 Tonen van de lijst met uitgaande faxen alleen beperkt op leverancier 1 LevNr 0 Geef een overzicht van de ingekomen faxen StartWithSelect 0 ..ToDate ..FromDate=..ToDate . Do DISPLAY^vhScherm("UTGFAXOVZ") Else Do . Set:'..FromDate ..FromDate=$H . Set:'..ToDate ..ToDate=$H . Do NIEUW^vhScherm("UTGFAXOVZ") Do:%SC . Set ..FromDate=+..FromDate,..ToDate=+..ToDate . Do ..Refresh() . For Set Input=..LijstScroll() Do Quit:Input="CANC" . . If Input="",..FromDate=..ToDate Set Input="R" . . Set:Input="-" Input="CANC" . . Do:Input="COM" . . . Do CALL^vhMenu("UTGFAXOVZ") . . Do EXEC^vhMenu("UTGFAXOVZ",.Input) ]]> Opvragen van het selectiecriteria (Van - Tot) Ophalen van de data SelectFaxID 0 Naam,Leverancier,Leverancier->Naam,Betreft,DocumentType,DocumentNummer,FromUserId,VerzendStatus,TAV,VerzendStatusLog INTO :ID,:Datum,:Tijd,:Pages,:TSID,:KLNr,:KlantNaam,:LevNr,:LevNaam,:Betreft,:DocumentType,:DocumentNummer,:FromUserId,:VerzendStatus,:TAV,:VerzendStatusLog FROM Derde_Fax.UitgaandeFaxen WHERE Datum>=:FromDate and Datum<=:ToDate ORDER BY Datum desc ,Tijd desc) Set BepType=..BeperkType Set BepVal=..BeperkValue If BepType="F" Do . Set BepTSID=$LG(..BeperkValue,1) &sql(OPEN FDATA) For &sql(FETCH FDATA) Quit:SQLCODE Do . ; Beperking controleren . If BepType="F",((TSID'=BepTSID)||(BepTSID="")) Quit . If BepType="K",BepVal'=KLNr Quit . If BepType="L",BepVal'=LevNr Quit . If BepType="O",(KLNr'="")||(LevNr'="") Quit . If BepType="G",BepVal'=FromUserId Quit . If BepType="E",$L(VerzendStatus),$P($G(^RES("CHUI.DERDE.FAX.UITGAANDEFAXEN","PI","RAADPLEEGLIJST","D",VerzendStatus)),"`",3)'="E" Quit . ; Record voor lijst opbouwen . Set Rec="" . Set $P(Rec,D,..#FaxID)=ID . Set $P(Rec,D,..#TSID)=TSID . Set $P(Rec,D,..#Datum)=Datum . Set $P(Rec,D,..#Tijd)=Tijd . Set $P(Rec,D,..#Pages)=Pages . Set $P(Rec,D,..#Betreft)=Betreft . Set $P(Rec,D,..#DocumentType)=DocumentType . Set $P(Rec,D,..#DocumentNummer)=DocumentNummer . Set $P(Rec,D,..#FromUserId)=FromUserId . Set $P(Rec,D,..#VerzendStatus)=VerzendStatus . Set $P(Rec,D,..#TAV)=TAV . Set $P(Rec,D,..#VerzendStatusLog)=VerzendStatusLog . If KlantNaam'="" Do . . Set $P(Rec,D,..#ObjType)="K" . . Set $P(Rec,D,..#ObjRef)=KLNr . . Set $P(Rec,D,..#ObjNaam)=KlantNaam . If LevNaam'="" Do . . Set $P(Rec,D,..#ObjType)="L" . . Set $P(Rec,D,..#ObjRef)=LevNr . . Set $P(Rec,D,..#ObjNaam)=LevNaam . Set @..CacheRef@($I(@..CacheRef))=Rec . Set:$G(SelectFaxID)&&(SelectFaxID=ID) ..LijstDef("SELECT")=@..CacheRef &sql(CLOSE FDATA) Set ..LijstDef("MAX")=$O(@..CacheRef@(""),-1) ]]> Hertekenen van een scherm Beperking instellen van de lijst en daarna de data terugophalen en het scherm refreshen Type Beperking omvormen naar een displaybare string 0 Toon het detail van de fax via een VBA:\\ oproep naar Reflection die dan het bestand opent 0 Een fax herzenden, vertrekkende van het huidig FaxLog-object 0 De status van een fax terug invullen De status van een fax wijzigen NewStatus 0 "_$P($G(^RES("CHUI.DERDE.FAX.UITGAANDEFAXEN","PI","RAADPLEEGLIJST","D",NewStatus)),"`",2),1:"") ,$S($$IsGroep^vhUSER(,"ICT"):"ID:"_FaxID,1:""),,"Wijzig status&1"_$S(FromUserId=$$USERID^vhUSER():"*",1:"")) Do:Modify . Set ID=..SelectedFaxID() . Set uitgaandeFax=##class(Derde.Fax.UitgaandeFaxen).%OpenId(ID) . Set sc=uitgaandeFax.AddToVerzendStatusLog(%chuiUitgaandeFax.SelectedRec(13)) . Set uitgaandeFax.VerzendStatus=NewStatus . Set sc=uitgaandeFax.%Save() . Do ..Refresh() ]]> De status van een fax wijzigen naar vorige status 0 "_$P($G(^RES("CHUI.DERDE.FAX.UITGAANDEFAXEN","PI","RAADPLEEGLIJST","D",PrevStatus)),"`",2),1:"") ,$S($$IsGroep^vhUSER(,"ICT"):"ID:"_FaxID,1:""),,"Herzet status&1"_$S(FromUserId=$$USERID^vhUSER():"*",1:"")) Do:Modify . Set ID=..SelectedFaxID() . Set uitgaandeFax=##class(Derde.Fax.UitgaandeFaxen).%OpenId(ID) . Set sc=uitgaandeFax.ResetVerzendStatus() . Set sc=uitgaandeFax.%Save() . Do ..Refresh() ]]> De prompt van een menuitem bepalen 1 Menu vorige (" . Set PrevStatus=$LI($LI(%chuiUitgaandeFax.SelectedRec(15)),2) . Set PrevStatus=$P(^RES("CHUI.DERDE.FAX.UITGAANDEFAXEN","PI","RAADPLEEGLIJST","D",PrevStatus),"`",2) . Set Prompt=Prompt_PrevStatus_")" Else Set Prompt=Menu Quit Prompt ]]> Zoeken van een waarde in de lijst 0 1 MemPos = $Lb(Sleutel, Select, Offset, Max) MemPos = $Lb(Sleutel, Select, Offset, Max) MemPos,Optie="KEY;LIJN" +$LG(MemPos,3),Lijn'>($LG(MemPos,3)+Lengte) Set ..LijstDef("OFFSET")=$LG(MemPos,3) Else Set ..LijstDef("OFFSET")="" ]]> 0 0 Groep,Lijst 0 Piece Betreft omvormen naar een displaybare string Rec Bepalen interne gebruiker 1 Prompt 0