From 4d3f37ede8c3527a7d0c1b504eceb837ec8631c0 Mon Sep 17 00:00:00 2001 From: alex Date: Tue, 30 Jun 2009 09:22:31 +0000 Subject: [PATCH] Patch level : 10.0 360 Files correlati : pe0.exe Ricompilazione Demo : [ ] Commento Aggiornato conto cliente sulle scadenze git-svn-id: svn://10.65.10.50/trunk@19083 c028cbd2-c16b-5b4b-a496-9718f37d4682 --- ve/ve0100.h | 2 +- ve/velib.h | 1 + ve/vetbnum.h | 1 + ve/vetbnum.uml | 270 +++++++++++++++++++++++++------------------------ 4 files changed, 142 insertions(+), 132 deletions(-) diff --git a/ve/ve0100.h b/ve/ve0100.h index 37720544c..057c85050 100755 --- a/ve/ve0100.h +++ b/ve/ve0100.h @@ -76,7 +76,7 @@ protected: virtual void sheet2ini(TSheet_field& s, TConfig& ini); virtual void ini2mask(TConfig& ini, TMask& m, bool query); - bool last_doc(char provv, int anno, const char* codnum, long& ndoc, TDate& datadoc) const; + virtual bool last_doc(char provv, int anno, const char* codnum, long& ndoc, TDate& datadoc) const; bool save_and_print(bool savedoc, TPrtype mode); public: diff --git a/ve/velib.h b/ve/velib.h index 5052e6350..484b9c0ff 100755 --- a/ve/velib.h +++ b/ve/velib.h @@ -364,6 +364,7 @@ public: const bool newnumdef() const { return get_bool("B8"); } const TString& codnumdef() const { return get("S8"); } const TString& tipodocdef() const { return get("S9"); } + const int revision_len() const { return get_int("I0"); } const TString& tipo_doc(int i) const; int ntipi_doc() const; diff --git a/ve/vetbnum.h b/ve/vetbnum.h index 5724cb2a6..218c6b9bd 100755 --- a/ve/vetbnum.h +++ b/ve/vetbnum.h @@ -83,3 +83,4 @@ #define F_CNTES 274 #define F_ARCHIVE 275 #define F_SPMSP 276 +#define F_REVLEN 277 \ No newline at end of file diff --git a/ve/vetbnum.uml b/ve/vetbnum.uml index de4a54b4c..affb424eb 100755 --- a/ve/vetbnum.uml +++ b/ve/vetbnum.uml @@ -8,150 +8,158 @@ ENDPAGE PAGE "Numerazione documenti" 0 0 0 0 - GROUPBOX DLG_NULL 75 7 - BEGIN - PROMPT 1 0 "" - FLAG "R" - END +GROUPBOX DLG_NULL 75 7 +BEGIN + PROMPT 1 0 "" + FLAG "R" +END - STRING F_CODTAB 4 - BEGIN - PROMPT 2 2 "Cod. numerazione " - FIELD CODTAB - HELP "Codice numerazione" - USE %NUM - CHECKTYPE REQUIRED - INPUT CODTAB F_CODTAB - DISPLAY "Codice" CODTAB - DISPLAY "Descrizione@50" S0 - OUTPUT F_CODTAB CODTAB - OUTPUT F_DESNUM S0 - KEY 1 - FLAG "UZ" - END +STRING F_CODTAB 4 +BEGIN + PROMPT 2 2 "Cod. numerazione " + FIELD CODTAB + HELP "Codice numerazione" + USE %NUM + CHECKTYPE REQUIRED + INPUT CODTAB F_CODTAB + DISPLAY "Codice" CODTAB + DISPLAY "Descrizione@50" S0 + OUTPUT F_CODTAB CODTAB + OUTPUT F_DESNUM S0 + KEY 1 + FLAG "UZ" +END - STRING F_DESNUM 50 - BEGIN - PROMPT 2 4 "Descrizione " - FIELD S0 - HELP "Descrizione numerazione" - USE %NUM KEY 2 - CHECKTYPE REQUIRED - INPUT S0 F_DESNUM - DISPLAY "Codice" CODTAB - DISPLAY "Descrizione@50" S0 - OUTPUT F_CODTAB CODTAB - OUTPUT F_DESNUM S0 - KEY 2 - END +STRING F_DESNUM 50 +BEGIN + PROMPT 2 4 "Descrizione " + FIELD S0 + HELP "Descrizione numerazione" + USE %NUM KEY 2 + CHECKTYPE REQUIRED + INPUT S0 F_DESNUM + DISPLAY "Codice" CODTAB + DISPLAY "Descrizione@50" S0 + OUTPUT F_CODTAB CODTAB + OUTPUT F_DESNUM S0 + KEY 2 +END - STRING F_PREFISSO 7 - BEGIN - PROMPT 2 8 "Prefisso per la numerazione " - FIELD S6 - END +STRING F_PREFISSO 7 +BEGIN + PROMPT 2 8 "Prefisso per la numerazione " + FIELD S6 +END - STRING F_SUFFISSO 7 - BEGIN - PROMPT 2 9 "Suffisso per la numerazione " - FIELD S7 - END +STRING F_SUFFISSO 7 +BEGIN + PROMPT 2 9 "Suffisso per la numerazione " + FIELD S7 +END - BOOLEAN F_NUMPROVV - BEGIN - PROMPT 2 10 "Numerazione provvisoria" - MESSAGE FALSE CLEAR,1@|CLEAR,2@ - MESSAGE TRUE ENABLE,1@ - FIELD B0 - END - BOOLEAN F_DOCDEFDIV - BEGIN - PROMPT 2 11 "Documento definitivo diverso" - MESSAGE FALSE CLEAR,2@ - MESSAGE TRUE ENABLE,2@ - GROUP 1 - FIELD B8 - FLAGS "DG" - END - STRING F_CODNUM 4 - BEGIN - PROMPT 35 11 "Numerazione " - FIELD CODNUM - HELP "Codice numerazione" - USE %NUM - INPUT CODTAB F_CODNUM - DISPLAY "Codice" CODTAB - DISPLAY "Descrizione@50" S0 - OUTPUT F_CODNUM CODTAB - CHECKTYPE NORMAL - FLAG "UD" - WARNING "Numerazione assente" - FIELD S8 - GROUP 2 - END - STRING F_TIPODOC 4 - BEGIN - PROMPT 55 11 "Tipo " - FIELD TIPODOC - HELP "Codice tipo documento" - USE %TIP - INPUT CODTAB F_TIPODOC - DISPLAY "Codice" CODTAB - DISPLAY "Descrizione@50" S0 - OUTPUT F_TIPODOC CODTAB - CHECKTYPE NORMAL - FLAG "UD" - FIELD S9 - GROUP 2 - END - BOOLEAN F_NUMAUTO - BEGIN - PROMPT 2 12 "Utilizzo della numerazione automatica" - FIELD B1 - END +BOOLEAN F_NUMPROVV +BEGIN + PROMPT 2 10 "Numerazione provvisoria" + MESSAGE FALSE CLEAR,1@|CLEAR,2@ + MESSAGE TRUE ENABLE,1@ + FIELD B0 +END - BOOLEAN F_NODATADOCTEST - BEGIN - PROMPT 2 13 "Nessun controllo sulla sequenza delle date dei documenti" - FIELD B2 - END +BOOLEAN F_DOCDEFDIV +BEGIN + PROMPT 2 11 "Documento definitivo diverso" + MESSAGE FALSE CLEAR,2@ + MESSAGE TRUE ENABLE,2@ + GROUP 1 + FIELD B8 + FLAGS "DG" +END +STRING F_CODNUM 4 +BEGIN + PROMPT 35 11 "Numerazione " + FIELD CODNUM + HELP "Codice numerazione" + USE %NUM + INPUT CODTAB F_CODNUM + DISPLAY "Codice" CODTAB + DISPLAY "Descrizione@50" S0 + OUTPUT F_CODNUM CODTAB + CHECKTYPE NORMAL + FLAG "UD" + WARNING "Numerazione assente" + FIELD S8 + GROUP 2 +END - BOOLEAN F_EMRI - BEGIN - PROMPT 2 14 "Fatture da emettere/ricevere" - FIELD B3 - END +STRING F_TIPODOC 4 +BEGIN + PROMPT 55 11 "Tipo " + FIELD TIPODOC + HELP "Codice tipo documento" + USE %TIP + INPUT CODTAB F_TIPODOC + DISPLAY "Codice" CODTAB + DISPLAY "Descrizione@50" S0 + OUTPUT F_TIPODOC CODTAB + CHECKTYPE NORMAL + FLAG "UD" + FIELD S9 + GROUP 2 +END +BOOLEAN F_NUMAUTO +BEGIN + PROMPT 2 12 "Utilizzo della numerazione automatica" + FIELD B1 +END - BOOLEAN F_SAVEANDNEW - BEGIN - PROMPT 2 15 "Rimani in inserimento dopo la registrazione" - FIELD B4 - END +BOOLEAN F_NODATADOCTEST +BEGIN + PROMPT 2 13 "Nessun controllo sulla sequenza delle date dei documenti" + FIELD B2 +END - BOOLEAN F_CNTES - BEGIN - PROMPT 2 16 "Nessun controllo sull'esercizio" - FIELD B5 - END +BOOLEAN F_EMRI +BEGIN + PROMPT 2 14 "Fatture da emettere/ricevere" + FIELD B3 +END - BOOLEAN F_AUTOREOPEN - BEGIN - PROMPT 2 17 "Riapertura automatica" - FIELD B7 - END +BOOLEAN F_SAVEANDNEW +BEGIN + PROMPT 2 15 "Rimani in inserimento dopo la registrazione" + FIELD B4 +END - BOOLEAN F_ARCHIVE - BEGIN - PROMPT 2 18 "Archiviazione automatica dei documenti stampati in definitiva" - FIELD B6 - END +BOOLEAN F_CNTES +BEGIN + PROMPT 2 16 "Nessun controllo sull'esercizio" + FIELD B5 +END - BOOLEAN F_SPMSP - BEGIN - PROMPT 2 19 "Numerazione speciale per MSP" - FIELD B9 - END +BOOLEAN F_AUTOREOPEN +BEGIN + PROMPT 2 17 "Riapertura automatica" + FIELD B7 +END + +BOOLEAN F_ARCHIVE +BEGIN + PROMPT 2 18 "Archiviazione automatica dei documenti stampati in definitiva" + FIELD B6 +END + +BOOLEAN F_SPMSP +BEGIN + PROMPT 2 19 "Numerazione speciale per MSP" + FIELD B9 +END +NUMBER F_REVLEN 1 +BEGIN + PROMPT 2 20 "Lunghezza revisioni (Preventivi) " + FIELD I0 +END + ENDPAGE PAGE "Tipi documento validi" -1 -1 60 14