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
