Newsgroup: it.comp.appl.access
Titolo: Scadenziario

Sto cercando di creare uno scadenziario. Caricando una ipotetica
fattura, ottengo un importo il quale deve essere suddiviso in una, in
due o in rate a seconda del riferimento che inserirei.
Il Problema
dovrei fargli generare le date e associre l'importo
come potrei fare?
come sempre Grazie Mille!

"Artiglio" <

Ci devi lavorare, non è così semplice come forse pensi!
Prima di tutto devi creare una tabella anagrafica Pagamenti in cui inserire
una serie di parametri:
Per esempio:
Codice Pagamento  (chiave primaria)
Descrizione
Flag Data Fattura/Fine Mese
Flag Ricevuta Bancaria/Rimessa diretta
(e magari altro, vedi casistica "rata solo Iva")
E poi, le Rate scadenza:
Rata1        30
Rata2        60
Rata3        90
.
.
RataN       ....
Ma questa è solo una possibilità, la struttura delle tabelle pagamenti
cambiano
molto tra i vari gestionali.
E non senza ragione: nell'esempio che ho fatto il numero delle Rate
impostabili ha un limite.
Si potrebbe dividere in due (normalizzando) la tabella sopra:
TestataPagamenti:
Codice Pagamento   (chiave primaria)
Descrizione
Flag Data Fattura/Fine Mese
Flag Ricevuta Bancaria/Rimessa diretta
(e magari altro, vedi casistica "rata solo Iva")
RighePagamenti:
IDChiave            (autonumber)
Codice Pagamento  (indice secondario)
RataScadenza
Le due tabelle sono in relazione attraverso il "Codice Pagamento".
In questo modo non hai limite alle scadenze impostabili.
A questo punto dovrai legare alla testata Fattura il campo Codice Pagamento,
pescato dall'apposita anagrafica.
Per ultimo, in fase di stampa "definitiva" della fattura dovrai scrivere
l'algoritmo che, sulla base dei parametri associati a un codice pagamento,
genera lo scadenzario.
Saluti.

 ha scritto nel messaggio 
news:1170454103.2...@a34g2000cwb.googlegroups.com...

Ciao Artiglio
Oltre ai consigli di Simone, guarda se può esserti utile questo esempio di 
Costarella:
http://groups.google.it/groups?q=scadenziario+per+fatture&ie=UTF-8&
Daniele 

 ha scritto nel messaggionews:1170454103.2...@a34g2000cwb.googlegroups.com...

Credo proprio mi possa servire. Ma ho alcune difficoltà, uno con il
linguaggio di programmazione. Due ho copiato il codice nel modulo, ma
mi da errore nella prima definizione della public function. Cosa
dovrei fare? Ancora grazie!

Public Function ElaboraScadenze(MiaScadenza As String, MiaData As
Date,
IDPersona As Long)
Dim POS As Integer, i As Integer
Dim Giorni As Integer
POS = 1
    For i = 1 To Len(MiaScadenza)
        POS = InStr(i, MiaScadenza, "/")
                If POS = 0 Then
                    Giorni = CInt(mID$(MiaScadenza, 1,
Len(MiaScadenza)))
                Call AccodaScadenze(Giorni, MiaData, IDPersona)
                Exit For
            End If
            If IsNumeric(CInt(mID$(MiaScadenza, 1, POS - 1))) = True
Then
                Giorni = CInt(mID$(MiaScadenza, 1, POS - 1))
                MiaScadenza = mID$(MiaScadenza, POS + 1,
Len(MiaScadenza))
                Call AccodaScadenze(Giorni, MiaData, IDPersona)
            End If
    Next i
End Function
Public Function AccodaScadenze(g As Integer, MD As Date, IDP As Long)
Dim RCS As Recordset
Set RCS = CurrentDb.OpenRecordset("Scadenze")
        With RCS
        .AddNew
        ![Persona] = IDP
        !scadenza = MD + g
        .Update
        End With
RCS.close
Set RCS = Nothing
End Function
 Scusa la formula è questa

 ha scritto nel messaggio 
news:1170501768.9...@v45g2000cwv.googlegroups.com...


POS = 1

End Function




End Function

credo di si, ma stai attento al copia e incolla. Controlla le righe .
ed a seguire le indicazione del thread.
Daniele

 ha scritto nel messaggionews:1170501768.9...@v45g2000cwv.googlegroups.com...

ehm .... il rpoblema è proprio questo che nonn so come adattarlo al
mio db. Potresti darmi qualche indicazione in merito. Grazie, grazie!

 ha scritto nel messaggio 
news:1170518673.9...@v33g2000cwv.googlegroups.com...


Ciao Artiglio
scusami, qua chi deve dare indicazioni sei tu. Esponi cosa non riesci
a fare e cosa vuoi ottenere.
Daniele 

Come ho già detto nelle comunicazioni precedenti: ho recuperato il
codice, l'ho incollato in un modulo di access, ma mi segnala un errore
nella prima riga della function. Qual'è l'errore?
Scusa se prima non sono stato chiaro

 ha scritto nel messaggio 
news:1170622894.7...@h3g2000cwc.googlegroups.com...

Le function sono due quale ti segnala errore? che errore?
controlla che la riga sia completa, e che non ci sia un anomalo ritorno a 
capo.
se hai ancora difficoltà, dammi un indirizzo mail giusto che ti mando il 
modulo.
ciao
Daniele
ps. quando rispondi lascia parte del messaggio precedente.

 ha scritto nel messaggionews:1170622894.7...@h3g2000cwc.googlegroups.com...

Ok era un problema di testo a capo!
Scusa l'ignoranza funesta, ma adesso come faccio a fare diventare
questo modulo parte integrante del db. Come faccio a farlo funzionare
insomma
Infinitamente grazie!

 ha scritto nel messaggio 
news:1170688084.7...@k78g2000cwa.googlegroups.com...


Bene, adesso il modulo è a posto.
segui le indicazioni del thread:
fai una tabella, nella maschera fattura inserisci un pulsante e una txtbox.
premi il pulsante e ti ritrovi con le rate in tabella, è molto semplice.
dovresti riuscire a farlo.
Ciao
Daniele

 segui le indicazioni del thread:
Sono proprio un ignorante, e tu hai una pazienza enorme a starmi
dietro. Devo riconoscerlo!
Cos'è il thread?

 ha scritto nel messaggio 
news:1170773956.2...@p10g2000cwp.googlegroups.com...


Tutta questa nostra discussione, l'insieme dei singoli post, può anche 
chiamarsi thread,
oppure, abbreviato, 3d.
Daniele 

Hai informazioni in merito a dove posso reperire conoscenze di base
sulla programmazione (diagrammi di flusso, spegazioni facili sul
Vbasic, eccc)?