Index: TAOR-rework-bugfixing/TAOR rework/Voorraad/HoofdAansturingVoorraad.vb =================================================================== diff -u -r1613 -r1616 --- TAOR-rework-bugfixing/TAOR rework/Voorraad/HoofdAansturingVoorraad.vb (.../HoofdAansturingVoorraad.vb) (revision 1613) +++ TAOR-rework-bugfixing/TAOR rework/Voorraad/HoofdAansturingVoorraad.vb (.../HoofdAansturingVoorraad.vb) (revision 1616) @@ -5,17 +5,19 @@ ''' ''' Public Sub OpslaanVoorraadItem(voorraad As VoorraadItem) - slaOpInAutomilling(voorraad.zijkantAutomillingData) - + 'Enkel eerste plaatje. If Not voorraad.isTweedeVanPaar Then + 'Automilling. + slaOpInAutomilling(voorraad.zijkantAutomillingData) + 'Kantenband For Each zijkantKantenbandData In voorraad.zijkantKantenbandDatas If Not zijkantKantenbandData Is Nothing Then slaOpInKantenband(zijkantKantenbandData) End If Next End If - 'Opslaan in Ardis als laatste pas. + 'Alles opslaan in Ardis (als laatste, want dit eet de $$$). For Each zijkant As ArdisData In voorraad.zijkantArdisDatas slaOpInArdis(zijkant) Next