Auteur Topic: VERBETERDE KASSA! (gelezen 314010 keer)

Roodborstje · « **Reactie #30 Gepost op:** 09 juli 2025, 22:53:30 »

Citaat

Zo met elkaar maken we het steeds beter

Toffe instelling $\o/$

mvdvlist · « **Reactie #31 Gepost op:** 10 juli 2025, 20:33:07 »

Toch nog een paar kleine aanpassingen gemaakt. Invullen met de ComboBox kan niet meer, want bij een typefout klopt dan de voorraad niet meer.
En een voorraad textveld op het formulier. Plus de mogelijkheid om te bestellen. Klik in de listbox na verkoop en tik op de knop BESTELLEN.
Blad Bestellijst bereikbaar via Dashboard. Kijk maar eens.

mvdvlist · « **Reactie #32 Gepost op:** 11 juli 2025, 03:42:34 »

En nog een versie met Retro-bon..

mvdvlist · « **Reactie #33 Gepost op:** 12 juli 2025, 16:25:56 »

En nog veel meer aanpassingen. Bij te kleine voorraad direct foutmelding bij verkoop, om het aantal aan te passen.
Deze voorraad komt op een label.
En de mogelijkheid tot korting bij elk artikel. Eerst de prijs invullen.
Bonnen worden gelogd, en ook de omzet. als je begint met schone database, moeten deze bedragen dus gelijk zijn. Bovendien worden de bonnen doorgenummerd..
En nog wat visuele aanpassingen en een grafiekje. Kijk maar

Roodborstje · « **Reactie #34 Gepost op:** 12 juli 2025, 20:34:03 »

Je vroeg toch feedback, ik heb nu het gevoel dat er teveel (overbodige) msg boxen inzitten, werkt niet meer prettig.
Ik zou ook na iedere verandering de versie aanpassen (V 2.4, V 2.5....) of V 2.4 (v1) 2.4 (v2) ...., kwestie van verwarring te voorkomen. Dit is positief bedoeld.

mvdvlist · « **Reactie #35 Gepost op:** 14 juli 2025, 09:52:04 »

Dat laatste doe ik ook meestal. Gaat goedkomen. En de belangrijkste msgboxen heb ik verplaatst naar een label. Vond ik fraaier. Maar blijft uiteraard een kwestie van smaak. We blijven aanpassen tot het goed is... Leuke optie vind ik zelf dat je tussendoor even de bon kan zien.. Niet functioneel maar grappig. Dank weer voor de feedback. Blijft nodig, dus geen probleem maar juist fijn... Testen is alles..

SoftAid · « **Reactie #36 Gepost op:** 14 juli 2025, 12:35:42 »

Hallo mvdvlist,

bij het bekijken van je 2.4 versie zag ik dat het kassa-formulier weer niet pastte op mijn beeldscherm.
Toen ik ging kijken naar de code zag ik daar aanpassingen aan de (code KASSAFORMULIER) Private Sub UserForm_Activate()

Het is jou project, dus je doet er mee wat jij wilt. Maar waarom heb je die code veranderd? Een speciale reden? volgens reacties van anderen maakte die code toch dat je formulier op elk scherm past, én de knoppen en labels aanpast.

Als ik nog vragen mag: Je hebt een label "DATUMlbl". Waar staat de code om de datum in dat label te plaatsen? Ik vind het niet?

Groeten,

SoftAid

Roodborstje · « **Reactie #37 Gepost op:** 14 juli 2025, 13:11:03 »

Ik heb ook nog 2 opmerkingen, je ribbon is verborgen op je sheets, vind ik vervelend tijdens het testen.
Je hebt 2 knopen op je dashboard, de knop klein vraagt om een paswoord.

mvdvlist · « **Reactie #38 Gepost op:** 14 juli 2025, 14:00:11 »

Hallo SoftAid en Roodborstje,

ik heb gewoon jou code voor fullscreen gebruikt, omdat ik die beter vond. Die staat nog in mijn ontwerp. Mogelijk werkt het dus niet overal correct. Op mijn pc`s wel.
Overigens heb in die een code een kleine aanpassing gemaakt (*0.95 en * 0.92) omdat het formulier anders een beetje over de rand liep.
Deze pc heeft 1920x1080 en de andere 2736 x 1824.
De code om het DATUMlbl te vullen vind je bovenin het Userform_Initialize event.
Ik zal het aangepaste nog een keer sturen, nu met een nieuwe versienaam. En helemaal retro. Bedankt Roodborstje. Was het vergeten.
Inderdaad, de knop KLEIN maakt de ribbon weer zichtbaar. Gedaan om medewerkers er vanaf te laten blijven. Het wachtwoord had ik al eerder vermeld in dit topic, mogelijk heb je dat over het hoofd gezien. Het wachtwoord is: de huidige datum in format("ddmm"), dus 14 juli is 1407. Verandert dus elke dag.
Graag feedback blijven geven, leerzaam voor allemaal.

SoftAid · « **Reactie #39 Gepost op:** 14 juli 2025, 14:45:23 »

Hallo mvdvlist,

harde werker.

Wat betreft het aanpassen van de Sub Userform_Activate()

Als je de scaling aanpast zoals jij deed, dan draait de hele form de soep in.
die macro is net gemaakt om te kijken welk scherm gebruikt wordt, en de layout daar op aan te passen.
Dat je net iets over de rand zat heb ik verbeterd met:

Code: [Selecteer]

Me.Left = Application.Left - 1
  Me.Top = Application.Top - 1

in plaats van

Code: [Selecteer]

Me.Left = Application.Left
  Me.Top = Application.Top

Zo zou het formulier terug moeten passen op elke PC. Geef maar feedback moesten er toch nog problemen zijn.

Bij de caption van je DATUMlbl heb ik een spatie gezet tussen de datum en het uur.

Ook heb ik de Commandbuttons CB1: CB12 groter gemaakt en gespreid. het risico op verkeerde (dubbele) aanslagen verminderd, alhoewel deze knoppen op een laptop(je) toch nog steeds klein zijn voor te gebruiken op een touchscreen....

Test deze versie misschien even uit: zie bijlage en als ze meevalt kan je de veranderingen implementeren.

Groeten,

SoftAid

Roodborstje · « **Reactie #40 Gepost op:** 14 juli 2025, 15:20:41 »

Terug een paar opmerkingen.Terug werk aan de winkel.
1. De msgbox Wil je een bon is overbodig, zet je toch gewoon onderaan in je code onder de knop afrekenen.
2. De knop Bestel geeft een foutmelding onder de regel
Blad5.Cells(rij, 1).Value = ListBox1.Column(0)
3. Haal aub alle overbodige selects weg uit je code.
Bv1 Voor

Code: [Selecteer]

Sub form()
'
' form Macro
'

'
    Range("F5").Select
    ActiveCell.FormulaR1C1 = "=Tabel2[[#Totals],[Totaal]]"
    Range("F6").Select
End Sub

is dit voldoende, klik gewoon in de cel waar je de formule wilt en voer de macro uit.

Code: [Selecteer]

Sub form()
	ActiveCell.FormulaR1C1 = "=Tabel2[[#Totals],[Totaal]]"
End Sub

Of voor deze

Code: [Selecteer]

Sub Tabel_Schoon()
'
' Tabel_Schoon Macro
'

'
    Sheets("KASSABON").Select
    Rows("4:200").Select
    Selection.Delete Shift:=xlUp
    Range("Tabel2[Artikel]").Select
    Selection.ClearContents
    Range("Tabel2[Aantal]").Select
    Selection.ClearContents
    Range("Tabel2[Prijs]").Select
    Selection.ClearContents
    ActiveSheet.ListObjects("Tabel2").ShowTotals = True
    Range("Tabel2[[#Totals],[Totaal]]").Select
    ActiveSheet.ListObjects("Tabel2").ListColumns("Totaal").TotalsCalculation = _
        xlTotalsCalculationSum
    Sheets("Dashboard").Select
End Sub

zou deze moeten voldoen:

Code: [Selecteer]

Sub Tabel_Schoon()
With Sheets("KASSABON")
.Rows("4:200").Delete Shift:=xlUp
.Range("Tabel2[Artikel]").ClearContents
.Range("Tabel2[Aantal]").ClearContents
.Range("Tabel2[Prijs]").ClearContents
.ListObjects("Tabel2").ShowTotals = True
.ListObjects("Tabel2")..ListColumns("Totaal").TotalsCalculation = xlTotalsCalculationSum
End with
Application.Goto Reference:=Worksheets("Dashboard").Range("A1")
End sub

Ik begrijp waarom deze selects, als je een macro opneemt via de recorder is dit wat je net doet, je selecteert.
(echter in pakweg 98% is select overbodig)
Zelf heb ik niets veranderd in jou code en niet getest omdat het eenmaal jou kindje is en jij zelf de pamper moet vervangen.
Kwestie van bijleren.

Roodborstje · « **Reactie #41 Gepost op:** 14 juli 2025, 15:48:42 »

@ Softaid,
Wat ik zeker toejuich in jou laatste versie is het feit dat de horizontale schuifbalk is verdwenen in listbox1 (kassa ticket),
en natuurlijk de aanpassingen van de Commandbuttons.

mvdvlist · « **Reactie #42 Gepost op:** 14 juli 2025, 17:06:31 »

Roodborstje, dat klopt. Al die selects zijn niet nodig. Ik had idd die macro opgenomen, maar nog niet aangepast. Hoop ik nog te doen.
1. Sommige mensen willen geen bon. Dus goedkoper. Er moet dus de keuze zijn. En die code staat idd onder Afrekenen.
2. Ga ik naar kijken...
SoftAid, die ListBox heb ik idd aangepast..
En de fout in cbBestel is ook opgelost. Bent nu verplicht eerst een row in de ListBox te selecteren...

Roodborstje · « **Reactie #43 Gepost op:** 14 juli 2025, 17:20:43 »

Citaat

Hoop ik nog te doen.

Niet hopen, gewoon doen
Bij IT-ers gaat alles automatisch, maar niets vanzelf. "

mvdvlist · « **Reactie #44 Gepost op:** 14 juli 2025, 17:43:13 »

Aangepast. Mijns inziens. Ook de fout in Bestel. Zie bijlage boven..

Help!

Menu

Hulp bij posten

Zoeken

Recente topics