36 lines
2.1 KiB
C++
Executable File
36 lines
2.1 KiB
C++
Executable File
|
|
#include <rectypes.h>
|
|
#include <relation.h>
|
|
#include <tabutil.h>
|
|
|
|
int numerazione_definitiva(TLocalisamfile& doc) {
|
|
int err= NOERR; // istanzia la variabile per il codice d'errore
|
|
TRectype &rec_doc= doc.curr(); // prende il record corrente dal file delle testate
|
|
TTable tabnum("NUM"); // istanzia la tabella delle numerazioni
|
|
tabnum.put("CODTAB", rec_doc.get("CODNUM")); // posiziona la tabella
|
|
if ((err= tabnum.read(_isequal, _lock))==NOERR) { // legge la tabella bloccandone il record
|
|
long newndoc= tabnum.get_long("I1"); // legge il nuovo numero di documento dalla tabella
|
|
tabnum.put("I1", newndoc+1); // aggiorna il nuovo numero di documento nella tabella
|
|
doc.read(rec_doc, _isequal, _lock); // blocca il record corrente del file documenti
|
|
TRectype newrec_doc(rec_doc); // istanzia un nuovo record su quello corrente
|
|
newrec_doc.put("NDOC", newndoc); // scrive il nuovo numero di documento nel nuovo record
|
|
newrec_doc.put("PROVV", "D"); // aggiorna il flag di tipo di numerazione
|
|
TRecord_array arr_rdoc(LF_RIGHEDOC, "NRIGA"); // istanzia il record array per le righe
|
|
if ((err= arr_rdoc.read(rec_doc))==NOERR) { // legge le righe del documento basandosi sul record con la vecchia chiave
|
|
TRecord_array newarr_rdoc(arr_rdoc); // crea una copia del record array per tenere le nuove righe
|
|
for (int i=1; i<=newarr_rdoc.last_row(); i++) { // ciclo sui record delle righe
|
|
TRectype &newrec_rdoc= newarr_rdoc.row(i, FALSE); // prende il record della riga corrente
|
|
newrec_rdoc.put("NDOC", newndoc); // scrive il nuovo numero di documento
|
|
newrec_rdoc.put("PROVV", "D"); // aggiorna il flag di tipo di numerazione
|
|
}
|
|
newarr_rdoc.write(); // scrive le righe con la nuova numerazione
|
|
doc.write(newrec_doc); // scrive il nuovo record della testata
|
|
arr_rdoc.remove(); // rimuove le vecchie righe
|
|
doc.remove(rec_doc); // cancella (e sblocca) il vecchio record della testata
|
|
tabnum.rewrite(); // riscrive il record corrente della tabella...
|
|
tabnum.read(_isequal, _unlock); // ...e la sblocca
|
|
}
|
|
}
|
|
return err;
|
|
}
|