Jag har ett problem, i en SQL sats som tar fram priser beroende på kundens inställningar, han kan ha fått special pris enligt en annan prislista, satsen fungerar bra nu men, det är en sak, i vissa kunders fall så gäller specialpriserna bara mellan eller efter ett datum, ibland står det inget i datumfälten(fromdatum, todatum) vilket betyder att special priset gäller hela tiden.
Här är en bit av koden:
Do While Not RS_Prod.EOF
ordpris = Empty
pris = RS_Prod("aPris")
SQL= "SELECT Kundpris.KundNr, KundPris.ArtikelNr, Art.Artikelnr, KundPris.aPris FROM Art, ArtPris, Kund, Kundpris " &_
"WHERE ('" & Session("user") & "'= kundpris.KundNr) AND " &_
"(Art.ArtikelNr = KundPris.ArtikelNr) AND " &_
"(Art.ArtikelNr = ArtPris.ArtikelNr) AND " &_
"(Art.ArtikelNr = '" & RS_Prod("ArtikelNr") &_
"') AND (Art.Extra_7 LIKE 'J') ORDER BY Art.Extra_9 "
Set RS_slist = Conn.Execute(SQL)
if NOT RS_slist.EOF Then
pris = RS_slist("aPris")
else
' If different price lists are used for different customers
SQL= "SELECT Art.Extra_8, Art.Benämning_10, Art.Övrigt, Art.Artikelnr, ArtPris.aPris FROM Art, ArtPris " &_
"WHERE (Art.ArtikelNr = ArtPris.ArtikelNr) AND " &_
"(Art.ArtikelNr = '" & RS_Prod("ArtikelNr") &_
"') AND (Art.Extra_7 LIKE 'J') AND " &_
"(ArtPris.PrisLista = " & prislista & ") ORDER BY Art.Extra_9"
Set RS_plist = Conn.Execute(SQL)
if NOT RS_plist.EOF Then
pris = RS_plist("aPris")
else
' If special offer (can not be used together with price lists)
SQL= "SELECT Art.aPris AS pris1, ArtPris.aPris AS pris2, KundPris.aPris AS pris3 FROM KundPris, Art, ArtPris " &_
"WHERE Art.ArtikelNr = ArtPris.Artikelnr AND " &_
"(Art.ArtikelNr = '" & RS_Prod("ArtikelNr") &_
"') AND (Art.Extra_7 LIKE 'J') AND " &_
"(ArtPris.PrisLista = 1) ORDER BY Art.Extra_9"
Set RS_offer = Conn.Execute(SQL)
if NOT RS_offer.EOF then
ordpris = RS_offer("pris1")
pris = RS_offer("pris2")
specialpris = RS_offer("pris3")
end if
end if
end if
------------------
Programming today is a race between software engineers striving to build bigger and better idiot-proof programs, and the Universe trying to produce bigger and better idiots.
So far, the Universe is winning.