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 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:

View File

@ -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;

View File

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

View File

@ -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