Forum

Forum (https://www.ms-office.gr/forum/)
-   Access - Ερωτήσεις / Απαντήσεις (https://www.ms-office.gr/forum/access-erotiseis-apantiseis/)
-   -   Νέα εγγραφή σε ημερομηνία (https://www.ms-office.gr/forum/access-erotiseis-apantiseis/2212-nea-eggrafi-se-imerominia.html)

stavross 27-11-12 16:46
Νέα εγγραφή σε ημερομηνία
 
1 Συνημμένο(α)
Παιδιά την καλησπέρα μου.
1)Έχω μια φόρμα apousies και έχει ημερομηνίες από - έως που καταχωρώ τις απουσίες
Η τελική έκθεση όμως πρέπει να βγαίνει μηνιαία. όταν καταχωρώ πχ. μια ασθένεια που περιλαμβάνει 2 μήνες δηλαδή από 18/11/2012 έως 4/12/2012 υπάρχει τρόπος να μου συμπληρώσει το πεδίο έως 30/11/2012 και να κάνει μόνο του μια νέα εγγραφή που να συμπληρώνει το υπόλοιπο δηλ. από 1/12/2012 έως 4/12/2012;
2) Με την πολύτιμη βοήθεια σας έχω φτάσει σε ένα πολύ καλό αποτέλεσμα. Στο ερώτημα της βάσης έχω δοκιμάσει 4 διαφορετικές μεθόδους που μου έχετε υποδείξει αλλά δεν τα κατάφερα να την φτιάξω στην έκθεση, (στο πεδίο τελικές απουσίες).
ευχαριστώ και πάλι για την βοήθεια

ασχετος 28-11-12 12:29
1 Συνημμένο(α)
Καλό μεσημέρι σ' όλο το forum.

Σταύρο,

στην φόρμα 'apousiesF2' , στα πεδία των ημερομηνιών
και στα συμβάντα τους 'After Update', υπάρχει κώδικας
που κάνει αυτό που ζητάς.

Το πρόβλημα είναι, αν είσαι σίγουρος ότι θέλεις
κάτι τέτοιο να συμβαίνει στην βάση σου.
π.χ. σε περίπτωση λάθους ή αστοχίας πληκτρολόγησης
θα έχεις να διορθώσεις μία εγγραφή (update για τέλος του μήνα) και να
να διαγράψεις μία εγγραφή (Insert για αρχή επόμενου έως ημερομηνία επόμενου)
και καλά να το δεις αμέσως, αν το δεις μετά από εύλογο χρονικό διάστημα
το μόνο που σου μένει είναι να ελέγξεις της εγγραφές με καθολικό.

Δεν θέλω να σε "φοβίσω" εσύ ξέρεις. Σκέψου το όμως
πριν χρησιμοποιήσεις τον κώδικα.

stavross 28-11-12 13:59
1 Συνημμένο(α)
Κώστα σε ευχαριστώ πολύ. έκανε αυτό που ήθελα όμως όταν του βάλω ασθένεια 4..5...6 μηνών παρακάμπτει τους ενδιάμεσους μήνες.
Ένα παράδειγμα αν μια κοπέλα πάρει άδεια εγκυμοσύνης καταλαβαίνεις ότι υπερβαίνει κατά πολύ το διάστημα των 2 μηνών. Ύστερα όταν του κάνω ανανέωση στην φόρμα δεν μου δείχνει το αποτέλεσμα για να γίνει ένας γρήγορος έλεγχος αλλά πρέπει να την κλείσω και να την ξανά ανοίξω για να το δω.
Πάντως σε ευχαριστώ που έκαστες και έγραψες έναν τόσο πολύπλοκο κώδικα

ασχετος 28-11-12 14:40
1 Συνημμένο(α)
Σταύρο,

κοίτα την Βάση.

kapetang 28-11-12 14:54
1 Συνημμένο(α)
Καλημέρα στην παρέα

Σταύρο στην ΒΔ που ανέβασες έχω προσθέσει:

1) Τον πίνακα ApousiesPerMonth_p στον οποίο με κατάλληλο κώδικα καταγράφονται τα χρονικά διαστήματα των απουσιών, αλλά έτσι ώστε η αρχή και το τέλος τους να ανήκει στον ίδιο μήνα.

Αντιμετωπίζονται χρονικά διαστήματα πολλών μηνών, αλλά και ετών

Έτσι, όταν θέλεις αποτελέσματα ανά μήνα, αντί να χρησιμοποιείς στα ερωτήματα και στις εκθέσεις τον πίνακα apousies_p θα πρέπει να χρησιμοποιείς τον ApousiesPerMonth_p.

2) Τη φόρμα frmDiastimataAnaMina στην οποία πατώντας το σχετικό κουμπί εκτελείται ο κώδικας ο οποίος δημιουργεί τις κατάλληλες εγγραφές στον πίνακα ApousiesPerMonth_p.

3) Τη λειτουργική μονάδα TomiDiastimaton που περιέχει τον κώδικα που φαίνεται παρακάτω.

Κώδικας:
Option Compare Database
Option Explicit


Public Sub XronikoDiastimaAnaMina(Optional StartDate As Date = #12:00:00 AM#, _
                                    Optional EndDate As Date = #12/31/9998#)

'Χωρίζει ένα χρονικό διάστημα σε τμήματα έτσι ώστε κάθε τμήμα να ανήκει στον ίδιο μήνα.
'Τα διαστήματα [StartDate, EndDate] τα παίρνει από τον πίνακα apousies_p
'και τα αποτελέσματα τα αποθηκεύει στον πίνακα ApousiesPerMonth_p
'====================================================================================


    Dim StartMonth As Date, EndMonth As Date    'ημερομηνίες έναρξης και λήξης του μήνα
    Dim numMonths As Integer, j As Integer      'το πλήθος μηνών του χρονικού διαστήματος
    Dim rs As DAO.Recordset
    Dim strSQL As String
    Dim yr As Integer, mn As Integer
    Dim Tomi As Variant  'Αποθηκεύει την αρχή και το τέλος της τομής ενός μήνα με το διάστημα

    On Error GoTo Err_Hadler
    ' Εγκυρότητα παραμέτρων
    If StartDate > EndDate Then Exit Sub

    'Προσαρμογή άκρων χρονικού διαστήματος για σύμπτωση με την αρχή και το τέλος μήνα
    StartDate = DateSerial(Year(StartDate), Month(StartDate), 1)
    EndDate = DateSerial(Year(EndDate), Month(EndDate) + 1, 0)


    'Διαγραφή των εγγραφών του πίνακα ApousiesPerMonth_p, δημιουργία recordset
    CurrentDb.Execute ("DELETE * FROM ApousiesPerMonth_p")
    strSQL = "SELECT ID_apousies_p, kod_apousies_p, idosapousias_apousies_p, " _
              & "apo_apousies_p, eos_apousies_p FROM apousies_p WHERE " _
              & "apo_apousies_p>=#" & Format(StartDate, "m/d/yyyy") _
              & "# AND eos_apousies_p<= #" & EndDate & "#"
    Set rs = CurrentDb.OpenRecordset(strSQL)

    'Γέμισμα πίνακα ApousiesPerMonth_p
    With rs
        If Not (rs.EOF And rs.BOF) Then
            .MoveFirst
            Do Until .EOF
                numMonths = DateDiff("m", !apo_apousies_p, !eos_apousies_p) + 1
                yr = Year(!apo_apousies_p): mn = Month(!apo_apousies_p)
                For j = 0 To numMonths - 1
                    StartMonth = DateSerial(yr, mn + j, 1)
                    EndMonth = DateSerial(yr, mn + j + 1, 0)
                    Tomi = TomiDiastimatonArray(!apo_apousies_p, !eos_apousies_p, StartMonth, EndMonth)
                    strSQL = "INSERT INTO ApousiesPerMonth_p (ID, kod_apousies_p, " _
                        & "idosapousias_apousies_p, Apo, Eos) values(" & !ID_apousies_p _
                          & ", '" & !kod_apousies_p & "', '" & !idosapousias_apousies_p & "' , #" _
                          & Format(Tomi(1), "m/d/yyyy") & "#, #" & Format(Tomi(2), "m/d/yyyy") & "#)"
                    CurrentDb.Execute strSQL
                Next
                .MoveNext
            Loop
        End If
    End With
Err_Hadler:
    If Err <> 0 Then
        MsgBox "Error: " & Err.Number & vbCrLf & Err.Description
    End If
    On Error Resume Next
    rs.Close: Set rs = Nothing
End Sub


Public Function TomiDiastimatonArray(Start1 As Variant, End1 As Variant, _
                                    Start2 As Variant, End2 As Variant) As Variant()

'Βρίσκει την τομή των διαστημάτων [Start1, End1] και [Start2, End2]
'Επιστρέφειτην αρχή tStart και το τέλος του διαστήματος της τομής [tStart, tEnd]
'==================================================================================
    Dim Tomi(1 To 2) As Variant

    'Αν δεν οριστούν τα διαστήματα
    If IsNull(Start1) Or IsNull(End1) Or IsNull(Start2) Or IsNull(End2) Then
        Tomi(1) = Null: Tomi(2) = Null
        TomiDiastimatonArray = Tomi
        Exit Function
    End If

    'Αν τα όρια των διαστημάτων δεν είναι σωστά επιστρέφει "Λάθος!"
    If Start1 > End1 Or Start2 > End2 Then
        Tomi(1) = "Λάθος!": Tomi(2) = "Λάθος!"
        TomiDiastimatonArray = Tomi
        Exit Function
    End If

    'Αν δεν υπάρχει τομή τα διαστήματα χαρακτηρίζονται ως "Ξένα!"
    If Start2 > End1 Or End2 < Start1 Then
        Tomi(1) = "Ξένα!": Tomi(2) = "Ξένα!"
        'Αν υπάρχει τομή υπολογίζονται τα άκρα της [tStart, tEnd]
    Else
        Tomi(1) = IIf(Start1 < Start2, Start2, Start1)
        Tomi(2) = IIf(End1 < End2, End1, End2)
    End If
    TomiDiastimatonArray = Tomi
End Function
Φιλικά/Γιώργος

ΥΓ Τι έγινε με το ερώτημα αντιγραφής και επικόλλησης ιδιοτήτων φόρμας. Νομίζω ότι χρωστάς στο φόρουμ μια απάντηση.

stavross 28-11-12 15:06
Κώστα το ένα πρόβλημα διορθώθηκε. Βλέπω τώρα τον διαχωρισμό επί τόπου. το άλλο όμως είναι ότι δεν το χώρισε σε μήνες αλλά σε 2 μέρη δηλαδή αν βάλω 4/3/2012 έως 5/8/2012 τότε το χωρίζει στα 2: από 4/3/2012 έως 31/3/2012 και 1/8/2012 έως 5/8/2012
έχει χάσει δηλαδή 4 μήνες
Σου βγάζω το καπέλο φίλε.

ασχετος 28-11-12 15:13
Παράθεση:
Αρχική Δημοσίευση από stavross (Μήνυμα 13064)
Κώστα το ένα πρόβλημα διορθώθηκε. Βλέπω τώρα τον διαχωρισμό επί τόπου. το άλλο όμως είναι ότι δεν το χώρισε σε μήνες αλλά σε 2 μέρη δηλαδή αν βάλω 4/3/2012 έως 5/8/2012 τότε το χωρίζει στα 2: από 4/3/2012 έως 31/3/2012 και 1/8/2012 έως 5/8/2012
έχει χάσει δηλαδή 4 μήνες
Σου βγάζω το καπέλο φίλε.
Σταύρο,
δεν είχα καταλάβει ότι ήθελες
τα διαστήματα ανά μήνα, δεν το είχες διευκρινήσει.

Δεν το έχω κοιτάξει, αλλά είμαι σίγουρος ότι
η "ζωγραφική" του Γιώργου θα σε καλύψει.

stavross 28-11-12 15:31
Γιώργο και Κώστα είσαστε άπαιχτοι.
Γιώργο σε ευχαριστώ αλλά θέλω λίγο χρόνο για να δω τι κάνει (τουλάχιστον όσο καταλαβαίνω)
Θα σου απαντήσω σε λίγο.
(για την απάντηση που λες στην αντιγραφή ιδιοτήτων φόρμας επειδή δεν ήταν αυτό που ζητούσα ...... δηλαδή παράδειγμα ήθελα όλες οι φόρμες με το τρέχον να μεγιστοποίηση... ή αναδυόμενη ναι κλπ.)
Η απάντησή σου στο τέλος ότι δεν γίνεται να αντιγραφούν μόνο οι ιδιότητες με κάλυψε και θεώρησα ότι επειδή δεν γίνεται τελείωσε το θέμα. Δεν έκανα κάτι σκόπιμα)
Τώρα κοιτάω την δική σου βάση και απαντώ
Ευχαριστώ που ασχολήθηκες

stavross 28-11-12 15:51
Γιώργο έχει δίκιο ο Κώστας ζωγραφίζεις.
Ένα πρόβλημα που εντόπισα είναι ότι έβαλα ασθένεια από 1/6/2012 έως 3/12/2012
άνοιξα την φόρμα frmDiastimataAnaMina και έβαλα διάστημα από 7/7/2012 έως 20/10/2012
και στον πίνακα δεν εμφάνισε τίποτα. Ύστερα το άφησα κενό και μου τα εμφάνισε όλα. Μπορεί να διορθωθεί; Με τους παπάδες που έκανες μου άνοιξες την όρεξη για να κάνω πολλά. (όπως να γίνεται το ίδιο που έχετε κάνει με τις εκθέσεις (έκθεση με παραμέτρους) Θα το πολεμήσω.
Ευχαριστώ και πάλι

kapetang 28-11-12 17:14
Σταύρο στον κώδικα έχω προβλέψει να επεξεργάζεται μόνο τις εγγραφές που το χρονικό διάστημα στον πίνακα περιέχεται στο διάστημα που καθορίζεις στη φόρμα.

Θα μπορούσε να αλλάξει, αν σε βολεύει καλύτερα, για να επεξεργάζεται τις εγγραφές που η έναρξη του χρονικού διαστήματος στον πίνακα περιέχεται σ’ αυτό της φόρμας

stavross 28-11-12 17:24
Ναι νομίζω κατάλαβα αλλά νομίζω ότι αν έβαζα ας πούμε από 6/3/2012 έως 6/3/2912 δηλαδή να εστιάσω σε μία μόνο μέρα για να δω ποιοι είχαν απουσία την συγκεκριμένη μέρα; Δεν θα ήταν χρήσιμο;
Ύστερα αυτόν τον κώδικα θα μπορούσα να τον ενσωματώσω σε εκθέσεις;
Ευχαριστώ

kapetang 28-11-12 23:42
1 Συνημμένο(α)
Καλησπέρα/Καλημέρα

Σταύρο, στην προηγούμενη ΒΔ που ανέβασα, θέλησα απλά να δείξω πως λειτουργεί ο κώδικας που χωρίζει τα διαστήματα απουσίας σε τμήματα που ανήκουν στον ίδιο μήνα.

Έτσι το παράδειγμα δεν είναι τόσο πρακτικό και μάλλον δε θα μπορούσες να το ενσωματώσεις στη βάση σου.

Στη νέα ΒΔ:

1) Με τη βοήθεια της φόρμας frmDiastimataAnaMina, αφού δημιουργηθούν οι κατάλληλες εγγραφές στον πίνακα ApousiesPerMonth_p, ανοίγει το ερώτημα ApousiesAnaMina_Qr, που θα μπορούσε εύκολα να αποτελέσει τη βάση για μια έκθεση με μηνιαία στοιχεία.

2) Για τον εντοπισμό αυτών που απουσιάζουν μια συγκεκριμένη μέρα, πρόσθεσα τη φόρμα frmApousiazontesHmerisiws και το ερώτημα ApousiazontesHmiresiws_Qr.

Φιλικά/Γιώργος

ασχετος 29-11-12 10:27
1 Συνημμένο(α)
Την καλημέρα μου στο forum.

Σταύρο,
κοίτα μήπως σε διευκολύνει
αυτή η Βάση.
στην φόρμα 'apousiesF2' , στα πεδία των ημερομηνιών
και στα συμβάντα τους 'After Update', έχω τροποποιήσει
τον κώδικα, μάλλον κάνει αυτό που ζητάς.

Στον κώδικα της φόρμας 'apousiesF2', στο πεδίο
'apo_apousies_p' και στο συμβάν 'After Update',
στην γραμμή του κώδικα που υπάρχει αυτό
dtbefore = Me.eos_apousies_p
αντικατέστησε το με αυτό

If IsNull(Me.eos_apousies_p) Or Me.eos_apousies_p = "" Then
Exit Sub
Else
dtbefore = Me.eos_apousies_p
End If

stavross 29-11-12 12:20
Βρε παιδιά τι μου κάνατε τώρα; το ένα είναι καλύτερο από το άλλο δεν ξέρω τι να διαλέξω. Και τα 2 είναι τέλεια και λειτουργούν το καθ' ένα με την δική του λογική. Θα προσπαθήσω να τα βάλω και τα δύο.
(Δεν ξέρω αν τα καταφέρω αλλά θα προσπαθήσω) Μήπως θα μπορούσατε να ρίξετε μια ματιά και στην έκθεση;
Πάντως ΕΥΧΑΡΙΣΤΩ

ασχετος 29-11-12 12:26
Παράθεση:
Αρχική Δημοσίευση από stavross (Μήνυμα 13076)
Βρε παιδιά τι μου κάνατε τώρα; το ένα είναι καλύτερο από το άλλο δεν ξέρω τι να διαλέξω. Και τα 2 είναι τέλεια και λειτουργούν το καθ' ένα με την δική του λογική. Θα προσπαθήσω να τα βάλω και τα δύο.
(Δεν ξέρω αν τα καταφέρω αλλά θα προσπαθήσω) Μήπως θα μπορούσατε να ρίξετε μια ματιά και στην έκθεση;
Πάντως ΕΥΧΑΡΙΣΤΩ
Σταύρο,
χρησιμοποιείς όποιο σε βολεύει καλύτερα.

Ποιά έκθεση;
στείλε Βάση

stavross 29-11-12 13:02
Στην ίδια βάση Κώστα στην έκθεση στις τελικές απουσίες και τελικές παρουσίες μου το είχες φτιάξει εσύ σε ένα ερώτημα που το τελικό αποτέλεσμα ήταν 30. όποιες μέρες και να έχει ο μήνας. το πρόβλημα είναι ότι στην έκθεση θέλει κάποιον άλλο κώδικα. δηλαδή θέλω να κάνει αυτό:
if minas=2 & etos=2012 or etos=2016....(δηλαδή οι μήνες που είναι 29 μέρες ο Φλεβάρης) & οι απουσίες = 29 τότε (απουσίες = 30)
if minas=2 &etos <> 2012 or etos 2016 (δηλαδή οι μήνες που είναι 29 μέρες ο Φλεβάρης) & oi απουσίες =28 τότε (απουσίες=30)
if apousies=31 τότε (απουσίες=30)
αλιώς (απουσίες)
Παρουσίες 30-απουσίες
νομίζω οτι με αυτόν τον τρόπο καλύπτω όλες τις περιπτώσεις ώστε (σύνολο απουσίες παρουσίες=30)
Όλο αυτό το κατεβατό Κώστα μου το είχες κάνει σε ένα ερώτημα το οποίο δεν λειτουργεί στην έκθεση όπως και όταν το γράφω εγώ με τον τρόπο μου.
Δεν ξέρω αν έγινα κατανοητός
Ευχαριστώ

ασχετος 29-11-12 13:43
Παράθεση:
Αρχική Δημοσίευση από stavross (Μήνυμα 13078)
Στην ίδια βάση Κώστα στην έκθεση στις τελικές απουσίες και τελικές παρουσίες μου το είχες φτιάξει εσύ σε ένα ερώτημα που το τελικό αποτέλεσμα ήταν 30. όποιες μέρες και να έχει ο μήνας. το πρόβλημα είναι ότι στην έκθεση θέλει κάποιον άλλο κώδικα. δηλαδή θέλω να κάνει αυτό:
if minas=2 & etos=2012 or etos=2016....(δηλαδή οι μήνες που είναι 29 μέρες ο Φλεβάρης) & οι απουσίες = 29 τότε (απουσίες = 30)
if minas=2 &etos <> 2012 or etos 2016 (δηλαδή οι μήνες που είναι 29 μέρες ο Φλεβάρης) & oi απουσίες =28 τότε (απουσίες=30)
if apousies=31 τότε (απουσίες=30)
αλιώς (απουσίες)
Παρουσίες 30-απουσίες
νομίζω οτι με αυτόν τον τρόπο καλύπτω όλες τις περιπτώσεις ώστε (σύνολο απουσίες παρουσίες=30)
Όλο αυτό το κατεβατό Κώστα μου το είχες κάνει σε ένα ερώτημα το οποίο δεν λειτουργεί στην έκθεση όπως και όταν το γράφω εγώ με τον τρόπο μου.
Δεν ξέρω αν έγινα κατανοητός
Ευχαριστώ
Σταύρο,
Δεν καταλαβαίνω.
έχεις ένα πίνακα με απουσίες για διάφορους λόγους (ασθένεια,άδεια...)
τις οποίες τις αθροίζω στο ερώτημα και της αφαιρώ από το 30.
Τι άλλο;
στο ερώτημα που τρέχω ημέρες + απουσίες = 30

Διαφορετικά σύνδεσε την έκθεση με το ερώτημα που σου κάνει.

stavross 29-11-12 14:00
Πήγαινε στις απουσίες και βάλε σε κάποιον 1/1/2013 έως 31/1/2013
Το αποτέλεσμα είναι απουσίες 31 ..... παρουσίες -1
(Το σωστό απουσίες 30 ..... παρουσίες 0)
Σε κάποιον άλλον βάλε 1/2/2012 έως 29/2/2012
Το αποτέλεσμα είναι απουσίες 29 .... παρουσίες 1
(Το σωστό απουσίες 30 ..... παρουσίες 0)
αν όμως απο 1/2/2012 έως 28/2/2012 επειδή η χρονιά έχει 29 μέρες ο φεβρουάριος θα πρέπει το αποτέλεσμα να είναι 28 απουσίες ..... 2 παρουσίες
Αυτό το αποτέλεσμα (όχι ολοκληρωμένο το έχω δώσει στην έκθεση) αλλά με λάθη
Αυτό χρήζει διόρθωσης
Ευχαριστώ

ασχετος 29-11-12 16:02
1 Συνημμένο(α)
Σταύρο,
κοίτα την Βάση

ασχετος 29-11-12 16:37
1 Συνημμένο(α)
Σταύρο,

Συγγνώμη λάθος Βάση.
αν το κατάλαβα καλά τώρα
αυτό το report πρέπει
να σου κάνει

stavross 29-11-12 17:08
1 Συνημμένο(α)
Κώστα ξέρω ότι σε έχω πρήξει.
Το αποτέλεσμα στην έκθεση είναι ως εξής (σου ανεβάζω την βάση με μόνο συγκεκριμένες εγγραφές για να δεις μόνο την έκθεση
2....2012
απ=29 παρ=0 (λάθος) .........................το σωστό απ=30 παρ=0
απ=27 παρ=3 (σωστό)

2.....2013
απ=28 παρ=2 (λάθος)..........................το σωστό απ=30 παρ=0
Πάντως το πρόβλημα είναι μόνο στον κουτσοφλέβαρο
Σε ευχαριστώ για την υπομονή σου

kapetang 29-11-12 17:12
2 Συνημμένο(α)
Καλησπέρα στην παρέα

Σταύρο, Δες και την επισυναπτόμενη βάση.

Με τη βοήθεια της φόρμας frmDiastimataAnaMina:

1) Μπορείς να εμφανίσεις ένα συγκεντρωτικό πίνακα με όλα τα στοιχεία των απουσιών.
Τα στοιχεία αυτά μπορούμε να τα φιλτράρουμε ανά έτος και μήνα.

2) Επίσης διαλέγοντας ένα χρονικό διάστημα μπορείς να εμφανίσεις στην έκθεση ApousiesAnaMina_Rp τα στοιχεία του διαστήματος (μπορεί να εκτείνεται σε πολλά έτη) κατά έτος και μήνα.

Φιλικά/Γιώργος

stavross 29-11-12 17:32
Καλησπέρα Γιώργο.
Παιδιά με έχετε κατά σκλαβώσει.
Να είστε σίγουροι ότι θα κάνω ότι μπορώ να ενσωματώσω και τις 2 περιπτώσεις.
Αν δεις το μήνυμα πριν από το δικό σου θα δεις τα αποτελέσματα της έκθεσης που έχουν κάποια μικρο λαθάκια. Όμως αυτά που έκανες είναι φοβερά
Ευχαριστώ

kapetang 29-11-12 18:53
Σταύρο, δεν καταλαβαίνω.

Νομίζω ότι αυτό που θέλεις είναι το άθροισμα των ημερομισθίων και των απουσιών να είναι 30, ανεξάρτητα από τις μέρες που έχει ο μήνας (28, 29, 30, 31).

Αυτό προσπάθησα να κάνω και νομίζω ότι δεν υπάρχει πρόβλημα.

Προσθήκη: Δοκιμές κάνε στη βάση που ανέβασα

kapetang 29-11-12 19:20
Σταύρο, άλλαξα το αρχείο στο προηγούμενο μήνυμά μου επειδή στη θέση των ημερομισθίων έβαζε τις απουσίες και αντίθετα.

stavross 29-11-12 20:01
Φίλε Γιώργο από την έκθεση λείπει το από ........ έως όπως και το είδος
όταν κάνω 2 εγγραφές στον μήνα
Αυτιάς 1/2/2012 εως 4/2/2012 και 8/2/2012 εως 22/2/2012
δείχνει 2 φορές αποτέλεσμα 30
για την πρώτη εγγραφή 30 και για την δεύτερη 30 δηλαδή = 60
αν δεις την υπάρχουσα έκθεση είναι ακριβώς όπως πρέπει να είναι αλλά τα αποτελέσματα δεν είναι σωστά.
αν δεις την βάση σε αυτο το μήνυμα νομίζω θα το καταλάβεις
Κώστα ξέρω ότι σε έχω πρήξει.
Το αποτέλεσμα στην έκθεση είναι ως εξής (σου ανεβάζω την βάση με μόνο συγκεκριμένες εγγραφές για να δεις μόνο την έκθεση
2....2012
απ=29 παρ=0 (λάθος) .........................το σωστό απ=30 παρ=0
απ=27 παρ=3 (σωστό)

2.....2013
απ=28 παρ=2 (λάθος)..........................το σωστό απ=30 παρ=0
Πάντως το πρόβλημα είναι μόνο στον κουτσοφλέβαρο
Σε ευχαριστώ για την υπομονή σου
Σε ευχαριστώ και εσένα για την υπομονή αλλά δεν ξέρω πως να το κάνω ποιο κατανοητό
Αν γίνομαι κουραστικός πείτε μου

kapetang 30-11-12 00:18
1 Συνημμένο(α)
Καλησπέρα/Καλημέρα

Σταύρο, δες τις αλλαγές που έκανα.

Κατά τη γνώμη μου η προσαρμογή των απουσιών και των ημερομισθίων σε μήνα 30 ημερών μπορεί να γίνει μόνο όταν υπολογίσουμε τα σύνολα.

Αν προσπαθήσουμε να κάνουμε αλλαγές απουσιών και ημερομισθίων σε κάθε διάστημα απουσίας θα οδηγούμασταν ή σε δεκαδικούς αριθμούς ή σε αυθαίρετες αλλαγές (κάποιες απουσίες δε θα άλλαζαν και κάποιες θα άλλαζαν αρκετά).

Έτσι προτίμησα να φαίνονται στην έκθεση και το συγκεντρωτικό πίνακα οι πραγματικές απουσίες και η προσαρμογή να γίνεται στα σύνολα της έκθεσης.

Ελπίζω αυτή τη φορά να είναι αυτό που θέλεις.

Φιλικά/Γιώργος

stavross 30-11-12 07:42
1 Συνημμένο(α)
ευχαριστώ πολύ!!!!!!!!
Αυτό ήταν
Ανεβάζω την τελική μορφή στην έκθεση μήπως και την χρειαστούν και άλλα παιδιά γιατί τώρα τα περισσότερα ημερομίσθια θα βγαίνουν σε αυτή την μορφή με τους καινούριους νόμους


Η ώρα είναι 18:48.

Ms-Office.gr - ©2000 - 2026, Jelsoft Enterprises Ltd.


Search Engine Optimization by vBSEO 3.3.2