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
This commit is contained in:
alex 2009-06-30 09:22:31 +00:00
parent cf205aa839
commit 4d3f37ede8
4 changed files with 142 additions and 132 deletions

View File

@ -76,7 +76,7 @@ protected:
virtual void sheet2ini(TSheet_field& s, TConfig& ini); virtual void sheet2ini(TSheet_field& s, TConfig& ini);
virtual void ini2mask(TConfig& ini, TMask& m, bool query); 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); bool save_and_print(bool savedoc, TPrtype mode);
public: public:

View File

@ -364,6 +364,7 @@ public:
const bool newnumdef() const { return get_bool("B8"); } const bool newnumdef() const { return get_bool("B8"); }
const TString& codnumdef() const { return get("S8"); } const TString& codnumdef() const { return get("S8"); }
const TString& tipodocdef() const { return get("S9"); } const TString& tipodocdef() const { return get("S9"); }
const int revision_len() const { return get_int("I0"); }
const TString& tipo_doc(int i) const; const TString& tipo_doc(int i) const;
int ntipi_doc() const; int ntipi_doc() const;

View File

@ -83,3 +83,4 @@
#define F_CNTES 274 #define F_CNTES 274
#define F_ARCHIVE 275 #define F_ARCHIVE 275
#define F_SPMSP 276 #define F_SPMSP 276
#define F_REVLEN 277

View File

@ -8,150 +8,158 @@ ENDPAGE
PAGE "Numerazione documenti" 0 0 0 0 PAGE "Numerazione documenti" 0 0 0 0
GROUPBOX DLG_NULL 75 7 GROUPBOX DLG_NULL 75 7
BEGIN BEGIN
PROMPT 1 0 "" PROMPT 1 0 ""
FLAG "R" FLAG "R"
END END
STRING F_CODTAB 4 STRING F_CODTAB 4
BEGIN BEGIN
PROMPT 2 2 "Cod. numerazione " PROMPT 2 2 "Cod. numerazione "
FIELD CODTAB FIELD CODTAB
HELP "Codice numerazione" HELP "Codice numerazione"
USE %NUM USE %NUM
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
INPUT CODTAB F_CODTAB INPUT CODTAB F_CODTAB
DISPLAY "Codice" CODTAB DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0 DISPLAY "Descrizione@50" S0
OUTPUT F_CODTAB CODTAB OUTPUT F_CODTAB CODTAB
OUTPUT F_DESNUM S0 OUTPUT F_DESNUM S0
KEY 1 KEY 1
FLAG "UZ" FLAG "UZ"
END END
STRING F_DESNUM 50 STRING F_DESNUM 50
BEGIN BEGIN
PROMPT 2 4 "Descrizione " PROMPT 2 4 "Descrizione "
FIELD S0 FIELD S0
HELP "Descrizione numerazione" HELP "Descrizione numerazione"
USE %NUM KEY 2 USE %NUM KEY 2
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
INPUT S0 F_DESNUM INPUT S0 F_DESNUM
DISPLAY "Codice" CODTAB DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0 DISPLAY "Descrizione@50" S0
OUTPUT F_CODTAB CODTAB OUTPUT F_CODTAB CODTAB
OUTPUT F_DESNUM S0 OUTPUT F_DESNUM S0
KEY 2 KEY 2
END END
STRING F_PREFISSO 7 STRING F_PREFISSO 7
BEGIN BEGIN
PROMPT 2 8 "Prefisso per la numerazione " PROMPT 2 8 "Prefisso per la numerazione "
FIELD S6 FIELD S6
END END
STRING F_SUFFISSO 7 STRING F_SUFFISSO 7
BEGIN BEGIN
PROMPT 2 9 "Suffisso per la numerazione " PROMPT 2 9 "Suffisso per la numerazione "
FIELD S7 FIELD S7
END END
BOOLEAN F_NUMPROVV BOOLEAN F_NUMPROVV
BEGIN BEGIN
PROMPT 2 10 "Numerazione provvisoria" PROMPT 2 10 "Numerazione provvisoria"
MESSAGE FALSE CLEAR,1@|CLEAR,2@ MESSAGE FALSE CLEAR,1@|CLEAR,2@
MESSAGE TRUE ENABLE,1@ MESSAGE TRUE ENABLE,1@
FIELD B0 FIELD B0
END 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_NODATADOCTEST BOOLEAN F_DOCDEFDIV
BEGIN BEGIN
PROMPT 2 13 "Nessun controllo sulla sequenza delle date dei documenti" PROMPT 2 11 "Documento definitivo diverso"
FIELD B2 MESSAGE FALSE CLEAR,2@
END 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 STRING F_TIPODOC 4
BEGIN BEGIN
PROMPT 2 14 "Fatture da emettere/ricevere" PROMPT 55 11 "Tipo "
FIELD B3 FIELD TIPODOC
END 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 BOOLEAN F_NODATADOCTEST
BEGIN BEGIN
PROMPT 2 15 "Rimani in inserimento dopo la registrazione" PROMPT 2 13 "Nessun controllo sulla sequenza delle date dei documenti"
FIELD B4 FIELD B2
END END
BOOLEAN F_CNTES BOOLEAN F_EMRI
BEGIN BEGIN
PROMPT 2 16 "Nessun controllo sull'esercizio" PROMPT 2 14 "Fatture da emettere/ricevere"
FIELD B5 FIELD B3
END END
BOOLEAN F_AUTOREOPEN BOOLEAN F_SAVEANDNEW
BEGIN BEGIN
PROMPT 2 17 "Riapertura automatica" PROMPT 2 15 "Rimani in inserimento dopo la registrazione"
FIELD B7 FIELD B4
END END
BOOLEAN F_ARCHIVE BOOLEAN F_CNTES
BEGIN BEGIN
PROMPT 2 18 "Archiviazione automatica dei documenti stampati in definitiva" PROMPT 2 16 "Nessun controllo sull'esercizio"
FIELD B6 FIELD B5
END END
BOOLEAN F_SPMSP BOOLEAN F_AUTOREOPEN
BEGIN BEGIN
PROMPT 2 19 "Numerazione speciale per MSP" PROMPT 2 17 "Riapertura automatica"
FIELD B9 FIELD B7
END 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 ENDPAGE
PAGE "Tipi documento validi" -1 -1 60 14 PAGE "Tipi documento validi" -1 -1 60 14