root/campo-sirio
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Tolti migliaia di include inutili

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@2173 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy 1995-11-18 11:47:15 +00:00
parent 13992f0384
commit 32f662942e
4 changed files with 21 additions and 42 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
cg/cg0200.cpp
View File

@ -3,7 +3,6 @@
#include <msksheet.h>
#include <relapp.h>
#include <sheet.h>
#include <utility.h>
#include <validate.h>
#include <pconti.h>
@ -32,6 +31,8 @@ class TClifo_application : public TRelation_application
bool _savenew;
bool _ignoreven;
TToken_string _tmp;
protected:
bool user_create();
bool user_destroy();
@ -111,7 +112,8 @@ const char* TClifo_application::get_next_key()
codcf += clifo.get_long(CLI_CODCF);
}
}
return format("%d|%s|%d|%ld", F_TIPOCF, (const char*) tipo, F_CODCF, codcf);
_tmp.format("%d|%s|%d|%ld", F_TIPOCF, (const char*) tipo, F_CODCF, codcf);
return _tmp;
}
HIDDEN bool no_dup_fis(TMask_field& f, KEY key)
@ -183,9 +185,10 @@ HIDDEN bool autoexit_rsoc_handler(TMask_field& f, KEY key)
{
if (f.mask().query_mode() && key == K_TAB)
{
TString16 tmp;
TArray parms;
parms.add((TString)format("%d", F_RAGSOC));
parms.add((TString)format("%d", F_RAGSOCA));
parms.add(tmp.format("%d", F_RAGSOC));
parms.add(tmp.format("%d", F_RAGSOCA));
::validate(AUTOEXIT_FUNC, (TEdit_field&) f, key, parms);
}
return TRUE;
@ -198,8 +201,9 @@ HIDDEN bool autoexit_handler(TMask_field& f, KEY key)
{
if (key == K_TAB && f.focusdirty())
{
TString16 tmp;
TArray parms;
parms.add((TString)format("%d", f.dlg()));
parms.add(tmp.format("%d", f.dlg()));
::validate(AUTOEXIT_FUNC, (TEdit_field&) f, key, parms);
}
}

5
cg/cg0300.cpp
View File

@ -1,6 +1,5 @@
#include <relapp.h>
#include <lffiles.h>
#include <utility.h>
#include "cg0.h"
#include "cg0300.h"
@ -64,7 +63,7 @@ bool CG0300_application::user_create()
_attiv = new TLocalisamfile(LF_ATTIV);
_clifo = new TLocalisamfile(LF_CLIFO);
const long ditta = get_firm();
_msk->set(F_CODDITTA, format("%ld", ditta));
_msk->set(F_CODDITTA, ditta);
_ditte->zero();
_ditte->put(N_CODDITTA, ditta);
_ditte->read();

14
cg/cg0400.cpp
View File

@ -1,21 +1,21 @@
//********************************
//* Riepilogo Progressivi IVA *
//********************************
#include <applicat.h>
#include <date.h>
#include <lffiles.h>
#include <mask.h>
#include <isam.h>
#include <printapp.h>
#include <tabutil.h>
#include <utility.h>
#include "cg0.h"
#include "cg0400.h"
#include "classpim.h"
#include <anagr.h>
#include <comuni.h>
#include <attiv.h>
#include <nditte.h>
#include "classpim.h"
#include "cg0.h"
#include "cg0400.h"
HIDDEN TString80 TMP;

24
cg/cg0500a.uml
View File

@ -16,7 +16,6 @@ END
STRING F_COD_CAUS 3
BEGIN
PROMPT 2 1 "Codice "
HELP "Codice identificativo della causale"
FIELD CODCAUS
KEY 1
FLAGS "UZ"
@ -32,7 +31,6 @@ BEGIN
DISPLAY "Cespiti" COLLCESP
OUTPUT F_COD_CAUS CODCAUS
OUTPUT F_DESCR DESCR
HELP "Codice causale"
CHECKTYPE REQUIRED
MESSAGE COPY, F_COD_CAUS2
END
@ -55,14 +53,12 @@ BEGIN
CHECKTYPE REQUIRED
KEY 2
WARNING "Descrizione assente"
HELP "Descrizione della causale"
MESSAGE COPY, F_DESCR2
END
STRING F_TIPO_DOC 2
BEGIN
PROMPT 2 3 "Tipo documento "
HELP "Tipo di documento collegato alla causale"
FIELD TIPODOC
USE %TPD
INPUT CODTAB F_TIPO_DOC
@ -70,7 +66,6 @@ BEGIN
DISPLAY "Descrizione @50" S0
OUTPUT F_TIPO_DOC CODTAB
OUTPUT F_DES_DOC S0
HELP "Tipo documento"
WARNING "Tipo documento errato"
CHECKTYPE NORMAL
FLAGS "U"
@ -80,13 +75,11 @@ END
STRING F_DES_DOC 50
BEGIN
PROMPT 24 3 ""
HELP "Tipo di documento collegato alla causale"
USE %TPD KEY 2
INPUT S0 F_DES_DOC
DISPLAY "Descrizione @50" S0
DISPLAY "Tipo " CODTAB
COPY OUTPUT F_TIPO_DOC
HELP "Tipo documento"
WARNING "Tipo documento errato"
CHECKTYPE NORMAL
ADD NONE
@ -95,7 +88,6 @@ END
STRING F_COD_REG 3
BEGIN
PROMPT 2 4 "Cod. registro "
HELP "Codice registro collegato alla causale"
FIELD REG
USE REG
INPUT CODTAB[1,4] F_ANNOES
@ -152,9 +144,7 @@ END
LISTBOX F_TIPO_MOV_1 1 20
BEGIN
PROMPT 2 5 "Tipo movimento "
HELP "Tipo di movimento generato dalla causale"
FIELD TIPOMOV
HELP "Tipo movimento"
ITEM " |Nessuno" MESSAGE COPY,F_TIPO_MOV
ITEM "1|Fattura" MESSAGE COPY,F_TIPO_MOV
ITEM "2|Nota credito" MESSAGE COPY,F_TIPO_MOV
@ -166,7 +156,6 @@ LISTBOX F_TIPO_MOV_2 1 20
BEGIN
PROMPT 2 5 "Tipo movimento "
FIELD TIPOMOV
HELP "Tipo di movimento generato dalla causale"
ITEM " |Nessuno" MESSAGE COPY,F_TIPO_MOV
ITEM "3|Incasso/pagamento " MESSAGE COPY,F_TIPO_MOV
ITEM "5|Insoluto" MESSAGE COPY,F_TIPO_MOV
@ -178,7 +167,6 @@ LISTBOX F_M_770 1 48
BEGIN
PROMPT 2 6 "Collegamento Mod.770 "
FIELD M770
HELP "Tipo di collegamento Mod.770"
ITEM " |Nessuno"
ITEM "1|Ricevuta e/o pagamento fattura percipiente"
ITEM "2|Versamento ritenute percipiente"
@ -238,7 +226,6 @@ BOOLEAN F_DATA_DOC
BEGIN
PROMPT 2 4 "Data documento"
FIELD DATADOC
HELP "Data del documento collegato con la causale"
CHECKTYPE NORMAL
END
@ -246,14 +233,12 @@ BOOLEAN F_NUM_DOC
BEGIN
PROMPT 34 4 "Numero documento"
FIELD NUMDOC
HELP "Numero del documento collegato con la causale"
CHECKTYPE NORMAL
END
BOOLEAN F_AUTO_FAT
BEGIN
PROMPT 2 6 "Autofattura art.34"
HELP "Indicare se si tratta di autofattura ex art.34"
FIELD AUTOFATT
CHECKTYPE NORMAL
GROUP 2
@ -262,7 +247,6 @@ END
BOOLEAN F_ALLEGAT
BEGIN
PROMPT 34 6 "Doc. non va in allegati fine anno"
HELP "Indicare se non inserire negli allegati IVA del documento"
FIELD ALLEG
GROUP 2
END
@ -270,7 +254,6 @@ END
BOOLEAN F_FAT_RITARDO
BEGIN
PROMPT 2 8 "Fattura in ritardo"
HELP "Indicare se le fatture vengono registrate al ricevimento"
FIELD RITFATT
GROUP 2
END
@ -278,7 +261,6 @@ END
STRING F_COD_CAUS_IM 3
BEGIN
PROMPT 34 8 "Codice causale per l'incasso immediato "
HELP "Codice causale nel caso di incasso immediato"
FLAGS "UZ"
FIELD CODCAUSIM
COPY USE F_COD_CAUS
@ -292,7 +274,6 @@ END
BOOLEAN F_OP_INTRACOM
BEGIN
PROMPT 2 10 "Operazione intracomunitaria"
HELP "Indicare se gestire le fatture intracomunitarie"
FIELD INTRACOM
GROUP 2
END
@ -300,7 +281,6 @@ END
BOOLEAN F_VALINTRA
BEGIN
PROMPT 34 10 "Gestione valuta per operazioni intrac."
HELP "Indicare se registrare l'importo delle fatture CEE in valute"
FIELD VALINTRA
GROUP 2
END
@ -308,7 +288,6 @@ END
BOOLEAN F_MOV_VALU
BEGIN
PROMPT 2 12 "Movimento in valuta"
HELP "Indicare se si utilizzano gli importi in valuta"
FIELD MOVVAL
GROUP 2
END
@ -316,7 +295,6 @@ END
BOOLEAN F_MOV_SEZ
BEGIN
PROMPT 34 12 "Movimento solo sezionale"
HELP "Indicare se si tratta solo di moviemto di sezione"
FIELD MOVSEZ
FLAGS "H"
END
@ -324,7 +302,6 @@ END
LISTBOX F_OP_FINE_ANNO 1 11
BEGIN
PROMPT 2 14 "Operazioni di fine anno "
HELP "Tipo di movimento di fine anno"
ITEM " | "
ITEM "C|Chiusura"
ITEM "A|Apertura"
@ -337,7 +314,6 @@ LISTBOX F_COLL_CESP 1 40
BEGIN
PROMPT 2 16 "Collegamento cespiti "
FIELD COLLCESP
HELP "Tipo di collegamento cespiti"
ITEM " |Nessuno"
ITEM "A|Acquisto cespite"
ITEM "B|Rettifica acquisto"