Dato for sidste salg af et varenummer

Der findes ikke noget standard index som giver dig mulighed for at gøre det på et direkte opslag. I stedet kan du lave:

#MacroLoad(Generelt)
#MacroLoad(FUNKTIONER)

DATE &MaxDato

SEARCH LagPost USING VareLokIdx WHERE Varenummer == LagKart.Varenummer
                                AND  Budgetkode == 0
                                AND  (Modul      == #MdlOrdre OR Modul == #MdlProjekt)
    SET &MaxDato = #Max(LagPost.Dato,&MaxDato)
END

&MaxDato vil nu indeholde sidste salgsdato

Der er desværre ikke noget godt index til af finde sidste salgsdato, så en løsning kunne se sådan ud:

SEARCH LagPost USING VarLokIdx ORDER Dato DESCEND
  WHERE Varenummer == <Varenummer>
    AND Budgetkode == 0  //Realiseret
    AND Lokation  == <Lokation>
    AND Modul      == 5 //Ordre
    AND Antal      < 0 //Afgang (salg)

  SET &SidsteSalgsdato = LagPost.Dato
  BREAK
END

Tak for hjæpen, jeg kan ikke lige gennemskue hvilket forslag der vil køre hurtigst, men dma kom først og den SEARCH kører relativt hurtigt, så han får altså pointene.

/Kare