BL.Sys.FOP.Common 1 %RegisteredObject %Date %Date Naam van de cache waarde lijst van uitgaande faxen wordt opgeslagen ID_"\"_FactNrLev_"\"_FactNrVH_"\"_FactDatum_"\"_VervoersID_"\"_Type_"\"_Status_"\"_CreatieTijdStip %String Indien leeg dan geen beperking %String 5005 %List %Float %String %String %String 1 %Integer -20 Boekhouding KyoceraFS4000"; BLUMFACT BLUMFACT BLUMFACT BLUMFACT DTL 1 2 3 4 5 6 7 8 9 10 11 Tonen van de lijst met uitgaande faxen alleen beperkt op leverancier do ##class(CHUI.Blum.Facturen).RaadpleegLeverancier(5005) 1 LEVNr,LimitVervoerBlum=0 0 0 Geef een overzicht van de ingekomen faxen StartWithSelect 0 ..ToDate ..FromDate=..ToDate . Do DISPLAY^vhScherm(..#SchermHoofding) Else Do . Set:'..FromDate ..FromDate=$H . Set:'..ToDate ..ToDate=$H . Do NIEUW^vhScherm(..#SchermHoofding) 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" CALL^vhMenu(..#Menu) . . ;w "*",Input,"*" r k . . Do EXEC^vhMenu(..#Menu,.Input) ]]> Opvragen van het selectiecriteria (Van - Tot) Ophalen van de data SelectID 0 =:FromDate and FactuurDatum<=:ToDate and IsDO<>1 ORDER BY FactuurDatum desc ) Set BeperkType=$LG(..Beperk) Set BeperkValue=$LG(..Beperk,2) Set:BeperkType="E" WorkDayOld=$$CALCDATE^vhLib.DataTypes($H,"A",..#ErrorWorkDayOld) &sql(OPEN FDATA) Set Totaal=0 For &sql(FETCH FDATA) Quit:SQLCODE Do . If BeperkType="V",BeperkValue'=VervoersID Quit . If BeperkType="K",BeperkValue'=BlumKlant Quit . If BeperkType="C",Type="F" Quit . ;If BeperkType="E" Write ID," ",FactuurNrLev," ",Status," ",FactuurDatum," ", WorkDayOld,! . If BeperkType="E",'((Status?1(1"P",1"V"))||((FactuurDatum Beperking instellen van de lijst en daarna de data terugophalen en het scherm refreshen V = ververslijst, K = Blumklant, P = Proforma, D = Datum, E = Errors Type Beperking omvormen naar een displaybare string 0 Hertekenen van een scherm Toon het detail van de fax via een VBA:\\ oproep naar Reflection die dan het bestand opent 0 Zoeken van een waarde in de lijst Veld 0 VervoersID 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 0