Problema con aggiornamento quantità

[Vitacillina]

Ciao a tutti.

La mia situazione è la seguente:

Codice_P = A120 ===> Quantità = 9
Codice_P = A120 ===> Quantità = 9
Codice_P = A120 ===> Quantità = 9

Codice_P = A121 ===> Quantità = 15
Codice_P = A121 ===> Quantità = 15
Codice_P = A121 ===> Quantità = 15

Devo scaricare per Codice_P 3 unità sia per A120 che per A121.

Non mi riesce, perchè:

Codice_P = A120 ===> Quantità_tot = 27 - 3 = 24 invece la query riporta 18 ( 6 in meno );
Codice_P = A121 ===> Quantità_tot = 45 - 3 = 42 invece la query riporta 36 ( 6 in meno );

Che sto sbagliando?
Grazie

[optime]

Originariamente inviato da Vitacillina
Ciao a tutti.

La mia situazione è la seguente:

Codice_P = A120 ===> Quantità = 9
Codice_P = A120 ===> Quantità = 9
Codice_P = A120 ===> Quantità = 9

Codice_P = A121 ===> Quantità = 15
Codice_P = A121 ===> Quantità = 15
Codice_P = A121 ===> Quantità = 15

Devo scaricare per Codice_P 3 unità sia per A120 che per A121.

Non mi riesce, perchè:

Codice_P = A120 ===> Quantità_tot = 27 - 3 = 24 invece la query riporta 18 ( 6 in meno );
Codice_P = A121 ===> Quantità_tot = 45 - 3 = 42 invece la query riporta 36 ( 6 in meno );

Che sto sbagliando?
Grazie

e chi lo sa? solo tu sai quello che stai facendo! solo tu vedi il codice che hai scritto... quindi sai già cosa devi fare

[Vitacillina]

Originariamente inviato da optime
e chi lo sa? solo tu sai quello che stai facendo! solo tu vedi il codice che hai scritto... quindi sai già cosa devi fare

No veramente non lo so quello che devo fare x questo ho postato:

SQL = " SELECT " 
SQL = SQL & " C.*, " 
SQL = SQL & " S.* "
SQL = SQL & " FROM " 
SQL = SQL & " TABELLA_P AS C "
SQL = SQL & " INNER JOIN " 
SQL = SQL & " MAGAZZINO AS S " 
SQL = SQL & " ON S.CODICE_P = C.CODICE_P " 
SQL = SQL & " WHERE "
SQL = SQL & " C.CODICE_P = " & strCODICE_P & " "
SQL = SQL & " GROUP BY S.CODICE_P "

Set Rs = server.CreateObject("ADODB.Recordset") 
Rs.Open SQL, objconn

If Not Rs.EOF Then
Rs.MoveFirst 
Do While Not Rs.Eof

response.write "Quantità iniziale ===> " & Rs("Q") & "
"
response.write "Quantità da scaricare ===> 3 
"

strDifferenza = (cDbl(Rs("Q")) - 3 )

   strSQL = " UPDATE "
   strSQL = strSQL & " MAGAZZINO "
   strSQL = strSQL & " SET "
   strSQL = strSQL & " Q = " & replace(strDifferenza, ",", ".") & " "
   strSQL = strSQL & " WHERE "
   strSQL = strSQL & " CODICE_P = '" & Rs("CODICE_P") & "' "
   objconn.Execute(strSQL)

Rs.MoveNext 
Loop
end if

Rs.Close()
Set Rs = Nothing

objconn.Close()
Set objconn = Nothing

[optime]

ma son sempre 3 i pezzi da togliere?

[Vitacillina]

Originariamente inviato da optime
ma son sempre 3 i pezzi da togliere?

In questo caso si, ho messo 3 x semplificare ma i pezzi da togliere sono variabili.

[optime]

ah viti viti, sarà dura... da dove vedi QUANTI pezzi?

[Vitacillina]

Originariamente inviato da optime
ah viti viti, sarà dura... da dove vedi QUANTI pezzi?

Quanti pezzi ( quelli da scaricare dici ? ) è estratto da un file CSV che scorro in lettura:

response.write "QUANTITA' DA FILE CSV = " & adoRs(11) &"

"

[optime]

ok. dallo stesso file (immagino, perché tu non dici niente...) leggerai anche il codice dell'articolo.

quindi

myCode = .... codice, sai tu come fare
myQty = ... quantità, sai tu come fare

SQL="UPDATE tabella SET campo_quantita=campo_quantita - " & myQty & " WHERE campo_codice = '" & myCode & "'"   '''' se codice numerico togli gli apici

conn.execute (SQL)

adattalo - e sii un po' più prolisso le prossime volte

[Vitacillina]

Originariamente inviato da optime
ok. dallo stesso file (immagino, perché tu non dici niente...) leggerai anche il codice dell'articolo.

quindi

myCode = .... codice, sai tu come fare
myQty = ... quantità, sai tu come fare

SQL="UPDATE tabella SET campo_quantita=campo_quantita - " & myQty & " WHERE campo_codice = '" & myCode & "'"   '''' se codice numerico togli gli apici

conn.execute (SQL)

adattalo - e sii un po' più prolisso le prossime volte

Si scusa ma ho paura d'essere troppo prolisso e di non spiegarmi bene ... ho capito il sistema.... ma non funziona mi aggiorna tutti i Codice_P a 1...

SQL = " SELECT " 
SQL = SQL & " C.*, " 
SQL = SQL & " S.* "
SQL = SQL & " FROM " 
SQL = SQL & " TABELLA_P AS C "
SQL = SQL & " INNER JOIN " 
SQL = SQL & " MAGAZZINO AS S " 
SQL = SQL & " ON S.CODICE_P = C.CODICE_P " 
SQL = SQL & " WHERE "
SQL = SQL & " C.CODICE_P = " & strCODICE_P & " "
SQL = SQL & " GROUP BY S.CODICE_P "

Set Rs = server.CreateObject("ADODB.Recordset") 
Rs.Open SQL, objconn

If Not Rs.EOF Then
Rs.MoveFirst 
Do While Not Rs.Eof

response.write "Quantità iniziale ===> " & Rs("Q") & "
"
response.write "Quantità da scaricare ===> " & adoRs(11) & " 
"

strDifferenza = cDbl(Rs("Q")) - cDbl(adoRs(11))

   strSQL = " UPDATE "
   strSQL = strSQL & " MAGAZZINO "
   strSQL = strSQL & " SET "
   strSQL = strSQL & " Q = Q - " & replace(strDifferenza, ",", ".") & " "
   strSQL = strSQL & " WHERE "
   strSQL = strSQL & " CODICE_P = '" & Rs("CODICE_P") & "' "
   objconn.Execute(strSQL)

Rs.MoveNext 
Loop
end if

Rs.Close()
Set Rs = Nothing

objconn.Close()
Set objconn = Nothing

[optime]

nel mio esempio la variabile myQty contiene la quantità da scaricare, e non la differenza tra la quantità attuale e la quantità da scaricare.