Lille script til felt

Jeg går ud fra at det er timerne du vil filtrere ud, ikke sandt? Men din eksperimentalkode prøver at filtrere kroner ud, ikke?
Lad os se om vi kan lave begge ting samtidig. Jeg har ikke testet koden, skiver blot frit fra fingrene


'Midlertidigt array til hver type data
Redim hours(0) as Long
Redim nohours(0) as Long
'Tællere til hvert array
hcount=0
nhcount=0

For k=Lbound(Source.BBudget) To Ubound(Source.BBudget)
If (Source.BTypeShort(k) = "Kr") Then
Redim nohours(nhcount)
nohours(nhcount) = Source.BBudget(k)
'Opdater tælleren , så næste redim skaber plads til det nhcounte element
nhcount=nhcount+1
elseif (Source.BTypeShort(k) = "Timer") Then
Redim hours(hcount)
hours(hcount) = Source.BBudget(k)
'Opdater tælleren , så næste redim skaber plads til det hcounte element
hcount=hcount+1
else
nothing
End If
Next
'Tildel array-data til de pågældende felter
Source.BBudgetNoHours = nohours
Source.BBudgetHours = hours

Grunden til at du skal oprette REDIM-arrays er at du ikke på forhånd ved hvor mange elementer der skal være.

Det kan være at det faktisk er nemmere at lave dette her i @Formula. Hvilken version af Notes anvender du? @For kom med N6.

Jeg vil anbefale dig, at lægge din kode i QueryClose på formen, ellers bliver den beregenet hver gang du gemmer SELV om querySave måske ikke fuldføres.
Din kode indikerer iøvrigt at BBudget er et mulivalue felt, men du får ikke summeret værdierne i BBudgetNoHours - kun tildelt sidste værdi der opfylder betingelsen i IF særtningen.
Med summering så blive det noget i stil med dette:

dim dos as notesdocumet
set doc = source.document
dim CounterSum as integer
CounterSum=0
with doc ´så slipper du for at skrive "doc" hele tiden !
for k=0 to Ubound( .BBudget(0))
if .BtypeShort(k)="Kr" then
CounterSum=CounterSum + .BBudget(k) ' her summeres BBudget værdierne
end if
next
.BBudgetNoHours=CounterSum 'tildeling af sum til feltet
call .save(true,false) ´husk at gemme!
end with

Godt sSå - med 14 sec's interval...
jogii, vi må se at få et liv :-))))

Frokost, Christian, frokost  :-)

Har prøvet med denne her:

Sub Queryclose(Source As Notesuidocument, Continue As Variant)
Dim k As Variant
Dim dos As notesdocumet
Set doc = source.document
Dim CounterSum As Integer
CounterSum=0
With doc 'så slipper du for at skrive "doc" hele tiden !
For k=0 To Ubound(.BBudget(0))
If .BtypeShort(k)="Kr" Then
CounterSum=CounterSum + .BBudget(k) ' her summeres BBudget værdierne
End If
Next
.BBudgetNoHours=CounterSum 'tildeling af sum til feltet
Call .save(True,False) 'husk at gemme!
End With
End Sub

Men får en fejl: Variable DOC not declared
og disse to linier er røde:
Dim dos As notesdocumet
Set doc = source.document


Jeg bruger i øvrigt 6.5.3!

Stavefejl !
Dim dos As notesdocumet
Dim dos As notesdocumeNt

Dim doC As notesdocumeNt

Ok - den burde jeg nok have set - men dagen startede med at jeg gik ind i væggen til bruseren... så ved man ligsom hvordan dagen bliver.....

Når jeg lukker/gemmer et dokument, får jeg en type mismatch. De to felter er sat some typen: Text

Du får problemer med at lægge værdierne sammen så.. ;-)
Brug i stedet:
CounterSum=CounterSum + Cint(.BBudget(k)

)

Så kan vi da prøve at hjælpe dig igennem dagen ;-)

Tak :-)

Den går kløjs i det efter Print "33333". BBudget er text og BBudgetNoHours er number!

Sub Queryclose(Source As Notesuidocument, Continue As Variant)
Dim k As Variant
Dim doc As notesdocument
Set doc = source.document
Dim CounterSum As Integer
Print "xxxx1"
CounterSum=0
With doc 'så slipper du for at skrive "doc" hele tiden !
Print "333333333"
For k=0 To Ubound(.BBudget(0))
Print "xxxx2"
If .BtypeShort(k)="Kr" Then
Print "xxx3"
CounterSum=CounterSum + Cint(.BBudget(k)) ' her summeres BBudget værdierne
End If
Next
Print "xxx3"
.BBudgetNoHours=CounterSum'tildeling af sum til feltet
Call .save(True,False) 'husk at gemme!
End With
End Sub

For k=0 To Ubound(.BBudget(0)) ændres til
For k=0 To Ubound(.BBudget)

For k=0 To Ubound(.BBudget)

uden (0)

Det har jeg lige prøvet, men så går den i overflow!

Er BBUdget et multivalue felt, eller er der altid kun en værdi i feltet?

det er et multivalue felt!

Hvis dokumentet er nyt, så kan det være at "Source.Budget" ikke er særlig veldefineret ... jeg tænker bare højt  ... har du prøvet at arbejde på et "gemt" dokument?

scriptet ligger i queryclose, så dokumentet er gemt...

fet er på et gemt dokument jeg prøver!

Kender du LotusScript debugger?  File -> Tools -> Debug LotusScript
Herefter vil du kunne følge kodens afvikling ved at trykke <F8>.
På de tilhørende faneblade kan du enten se dine print-sætningers udskrift eller se alle variable...
Tilføj evt. en print k linie, så du kan følge k's værdier.

Det var jo bare fordi tallet blev større end en integer.... Så nu virker det!

jogii - smid lige et svar også - så får i lidt point hver!

hi