ESEMPIO di AGGIORNAMENTO DATI IN RECORDSET
Riduci
Di più
- Messaggi: 135
- Ringraziamenti ricevuti 0
10 Mesi 1 Settimana fa #697
da fabioM1
fabioM1 ha creato la discussione ESEMPIO di AGGIORNAMENTO DATI IN RECORDSET
Public Sub RicalcolaScheda(idscheda As Integer)
Dim strselect As String
Dim DBCorrente As DAO.Database
Dim RS As DAO.Recordset
Dim prezzotot0 As Variant
Dim prezzotot1 As Variant
strselect = "SELECT * FROM schede WHERE ID_ARTICOLO =" & idscheda
Set DBCorrente = CurrentDb
Set RS = DBCorrente.OpenRecordset(strselect, dbOpenDynaset)
RS.Edit
Call RicalcolaLavDX(idscheda, 0, 0, RS!COSTO_H_LAV, RS!COSTO_H_LAV_ISOLA, RS!COSTO_H_LAV_COMB, RS!COSTO_H_SABB)
prezzotot0 = PRICETOT
RS!prezzotot = PRICETOT
RS!tot_mm_lav = MMPROD
RS!tot_ss_lav = SSPROD
Call RicalcolaLavDX(idscheda, 1, 1, RS!COSTO_H_LAV, RS!COSTO_H_LAV_ISOLA, RS!COSTO_H_LAV_COMB, RS!COSTO_H_SABB)
prezzotot1 = PRICETOT
RS!prezzotot_prod = PRICETOT
RS!tot_mm_prod = MMPROD
RS!tot_ss_prod = SSPROD
RS!LAVMEC = prezzotot0 + RS!VAL_INSERTO_1 + RS!VAL_INSERTO_2 + RS!VAL_INSERTO_3 + RS!VAL_INSERTO_4 + RS!VAL_INSERTO_5 'ok
RS!LAVMEC_PROD = prezzotot1
RS!PESO_TOTALE_KG = RS!PESO_KG + (RS!PESO_KG * RS!CALO_PERCENTUALE) / 100
RS!COSTO_TOT_KG = RS!COSTO_ACQUISTO + (RS!COSTO_ACQUISTO / 100) * RS!ONERI_FINANZIARI
RS!COSTO_TOT_ALLUMINIO = Round(RS!PESO_TOTALE_KG * RS!COSTO_TOT_KG, 4)
RS!TRASFORMAZIONE = RS!COSTO_TOT_LAV - RS!LAVMEC - RS!TRASPORTO
RS!RICAVO_ORARIO = RS!TRASFORMAZIONE * RS!COLPI_ORARI * RS!NUMERO_FIGURE
RS!PREZZO_VENDITA = RS!COSTO_TOT_ALLUMINIO + RS!COSTO_TOT_LAV
RS!fl_ricalcola = 0
RS!fl1 = RS!fl1 + 1
RS.Update
RS.Close
DBCorrente.Close
End Sub
Dim strselect As String
Dim DBCorrente As DAO.Database
Dim RS As DAO.Recordset
Dim prezzotot0 As Variant
Dim prezzotot1 As Variant
strselect = "SELECT * FROM schede WHERE ID_ARTICOLO =" & idscheda
Set DBCorrente = CurrentDb
Set RS = DBCorrente.OpenRecordset(strselect, dbOpenDynaset)
RS.Edit
Call RicalcolaLavDX(idscheda, 0, 0, RS!COSTO_H_LAV, RS!COSTO_H_LAV_ISOLA, RS!COSTO_H_LAV_COMB, RS!COSTO_H_SABB)
prezzotot0 = PRICETOT
RS!prezzotot = PRICETOT
RS!tot_mm_lav = MMPROD
RS!tot_ss_lav = SSPROD
Call RicalcolaLavDX(idscheda, 1, 1, RS!COSTO_H_LAV, RS!COSTO_H_LAV_ISOLA, RS!COSTO_H_LAV_COMB, RS!COSTO_H_SABB)
prezzotot1 = PRICETOT
RS!prezzotot_prod = PRICETOT
RS!tot_mm_prod = MMPROD
RS!tot_ss_prod = SSPROD
RS!LAVMEC = prezzotot0 + RS!VAL_INSERTO_1 + RS!VAL_INSERTO_2 + RS!VAL_INSERTO_3 + RS!VAL_INSERTO_4 + RS!VAL_INSERTO_5 'ok
RS!LAVMEC_PROD = prezzotot1
RS!PESO_TOTALE_KG = RS!PESO_KG + (RS!PESO_KG * RS!CALO_PERCENTUALE) / 100
RS!COSTO_TOT_KG = RS!COSTO_ACQUISTO + (RS!COSTO_ACQUISTO / 100) * RS!ONERI_FINANZIARI
RS!COSTO_TOT_ALLUMINIO = Round(RS!PESO_TOTALE_KG * RS!COSTO_TOT_KG, 4)
RS!TRASFORMAZIONE = RS!COSTO_TOT_LAV - RS!LAVMEC - RS!TRASPORTO
RS!RICAVO_ORARIO = RS!TRASFORMAZIONE * RS!COLPI_ORARI * RS!NUMERO_FIGURE
RS!PREZZO_VENDITA = RS!COSTO_TOT_ALLUMINIO + RS!COSTO_TOT_LAV
RS!fl_ricalcola = 0
RS!fl1 = RS!fl1 + 1
RS.Update
RS.Close
DBCorrente.Close
End Sub
Si prega Accedi a partecipare alla conversazione.
Tempo creazione pagina: 0.099 secondi
- Sei qui:
-
Home
-
Forum
-
MsAccess 2010 - Sharepoint 2010
- ESEMPIO di AGGIORNAMENTO DATI IN RECORDSET