17. oktober 2005 - 09:08Der er
15 kommentarer og 1 løsning
Rapport som viser hvornår kunden skal betale.
En kunde har indgået aftale om levering af en given ydelse, betalingsbetingelser o.s.v.
Disse oplysninger er indtastet i en tabel, med følgende indhold :
KundeID FørsteBetalingsdato Termin
Betalingsbetingelserne (Termin) er om denne forudbetaler månedlig, kvartalsvis eller årligt. Ud fra første betalingsdato (betalingsdato = betalingsmåned), ønskes månedsvis at kunne bestille/udskrive en rapport over hvilke kunder som skal faktureres i bestillingsmåneden.
Eksempel :
Input fra tabel
KundeID FørsteBetalingsdato Termin Kunde 1 01.01.2006 Månedlig Kunde 2 01.02.2006 Kvartalsvis Kunde 3 01.01.2006 Årlig
Outputgrundlag
KundeID Faktureringsmåned Kunde 1 Jan Feb Mar o.s.v.
when you create a record in the first table you would need to generate a record for each termin in the new table. If you dont know how many "termin" ther are then you will also need a routine which you can run at intervals to make sure they get added.
If you choose to use an extra table then you will need to add the records in code.
Lets say that the extra record contained just two fields
KundeID (Foreign key) TerminDato
You will need to have a loop which addes either 1, 3, or 12 months to FørsteBetalingsdato and inserts it into the new table. You can use DateAdd for that.
The number of times that has to be done (in the loop) depends on how many payments they must make.
Function AddToTerminDates(KundeID, FirstDate As Date, Termin As Integer, NumberOfPayments As Integer) Dim Payments As Integer Dim i As Integer Dim sSQL As String
Payments = NumberOfPayments / Termin sSQL = "Insert Into tblTerminDates(KundeID, TerminDato) Values ("
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
