ESEMPIO di AGGIORNAMENTO DATI IN RECORDSET

Di piĆ¹
10 Mesi 2 Settimane 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

Si prega Accedi a partecipare alla conversazione.

Tempo creazione pagina: 0.089 secondi
Powered by Forum Kunena