This commit was manufactured by cvs2svn to create branch 'R_10_00'.
git-svn-id: svn://10.65.10.50/branches/R_10_00@22342 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
(no author)
parent
0082c48f1c
commit
ae2b3d02b7
13
fe/fe0.cpp
Executable file
13
fe/fe0.cpp
Executable file
@ -0,0 +1,13 @@
|
||||
#include <xvt.h>
|
||||
#include "fe0.h"
|
||||
|
||||
int main(int argc, char** argv)
|
||||
{
|
||||
const int n = argc > 1 ? argv[1][1]-'0' : 0;
|
||||
switch (n)
|
||||
{
|
||||
case 1: fe0200(argc, argv); break;
|
||||
default: fe0100(argc, argv); break;
|
||||
}
|
||||
return 0;
|
||||
}
|
||||
2
fe/fe0.h
Executable file
2
fe/fe0.h
Executable file
@ -0,0 +1,2 @@
|
||||
int fe0100(int argc, char* argv[]);
|
||||
int fe0200(int argc, char* argv[]);
|
||||
1253
fe/fe0100.cpp
Executable file
1253
fe/fe0100.cpp
Executable file
File diff suppressed because it is too large
Load Diff
32
fe/fe0100a.h
Executable file
32
fe/fe0100a.h
Executable file
@ -0,0 +1,32 @@
|
||||
#define F_DITTA 201
|
||||
#define F_RAGSOCD 202
|
||||
|
||||
#define F_ANNO 203
|
||||
#define F_CODATT 204
|
||||
#define F_DESCATT 205
|
||||
#define F_SENDALL 206
|
||||
|
||||
#define F_TIPOCF 210
|
||||
#define F_CODCF 211
|
||||
#define F_OCCAS 212
|
||||
#define F_OCFPI 213
|
||||
#define F_RAGSOC 214
|
||||
#define F_RAGOCC 215
|
||||
|
||||
#define F_RIGHE 300
|
||||
|
||||
#define A_RIGA 101
|
||||
#define A_IGNORA 102
|
||||
#define A_TIPOCF 103
|
||||
#define A_CODCF 104
|
||||
#define A_OCFPI 105
|
||||
#define A_NUMREG 106
|
||||
#define A_DATAREG 107
|
||||
#define A_MODPAG 108
|
||||
#define A_IMPORTO 109
|
||||
#define A_IMPOSTA 110
|
||||
#define A_NATOPE 111
|
||||
#define A_TIPOPE 112
|
||||
#define A_TOTALE 113
|
||||
|
||||
#define A_OCCAS 155
|
||||
318
fe/fe0100a.uml
Executable file
318
fe/fe0100a.uml
Executable file
@ -0,0 +1,318 @@
|
||||
#include "fe0100a.h"
|
||||
|
||||
TOOLBAR "topbar" 0 0 0 2
|
||||
|
||||
BUTTON DLG_OK 2 2
|
||||
BEGIN
|
||||
PROMPT 1 1 "Selezione"
|
||||
END
|
||||
|
||||
BUTTON DLG_SAVEREC 2 2
|
||||
BEGIN
|
||||
PROMPT 1 1 "Registra"
|
||||
PICTURE TOOL_SAVEREC
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
BUTTON DLG_CANCEL 2 2
|
||||
BEGIN
|
||||
PROMPT 1 2 "Annulla"
|
||||
END
|
||||
|
||||
BUTTON DLG_RECALC 2 2
|
||||
BEGIN
|
||||
PROMPT 1 3 "Ricalcola"
|
||||
PICTURE TOOL_RECALC
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
BUTTON DLG_ELABORA 2 2
|
||||
BEGIN
|
||||
PROMPT 1 3 "Genera"
|
||||
PICTURE TOOL_ELABORA
|
||||
END
|
||||
|
||||
#include <helpbar.h>
|
||||
|
||||
ENDPAGE
|
||||
|
||||
PAGE "Dati rilevanti" 0 2 0 0
|
||||
|
||||
GROUPBOX DLG_NULL 78 6
|
||||
BEGIN
|
||||
PROMPT 1 0 "@bAttività"
|
||||
END
|
||||
|
||||
NUMBER F_ANNO 4
|
||||
BEGIN
|
||||
PROMPT 2 1 "Anno "
|
||||
CHECKTYPE REQUIRED
|
||||
FLAGS "AU"
|
||||
GROUP 1
|
||||
NUM_EXPR #THIS_FIELD>=2010
|
||||
WARNING "Anno non valido"
|
||||
END
|
||||
|
||||
NUMBER F_DITTA 5
|
||||
BEGIN
|
||||
PROMPT 2 2 "Ditta "
|
||||
FLAGS "DF"
|
||||
END
|
||||
|
||||
STRING F_RAGSOCD 50
|
||||
BEGIN
|
||||
PROMPT 26 2 ""
|
||||
USE LF_NDITTE
|
||||
INPUT CODDITTA F_DITTA
|
||||
OUTPUT F_RAGSOCD RAGSOC
|
||||
CHECKTYPE REQUIRED
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
NUMBER F_CODATT 5
|
||||
BEGIN
|
||||
PROMPT 2 3 "Attività "
|
||||
USE LF_ATTIV
|
||||
INPUT CODDITTA F_DITTA SELECT
|
||||
INPUT CODATT F_CODATT
|
||||
DISPLAY "Ditta" CODDITTA
|
||||
DISPLAY "Codice" CODATT
|
||||
DISPLAY "ATECO@8" CODATECO
|
||||
DISPLAY "Prev.@C" ATTPREV
|
||||
DISPLAY "Descrizione@50" DESCR
|
||||
OUTPUT F_CODATT CODATT
|
||||
OUTPUT F_DESCATT DESCR
|
||||
FLAGS "Z"
|
||||
CHECKTYPE REQUIRED
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
STRING F_DESCATT 50
|
||||
BEGIN
|
||||
PROMPT 26 3 ""
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
BOOLEAN F_SENDALL
|
||||
BEGIN
|
||||
PROMPT 2 4 "Invia anche le operazioni escluse dall'obbligo di comunicazione"
|
||||
END
|
||||
|
||||
GROUPBOX DLG_NULL 78 4
|
||||
BEGIN
|
||||
PROMPT 1 6 "@bFiltro su selezione"
|
||||
END
|
||||
|
||||
LIST F_TIPOCF 1 10
|
||||
BEGIN
|
||||
PROMPT 2 7 ""
|
||||
ITEM "C|Cliente"
|
||||
ITEM "F|Fornitore"
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
NUMBER F_CODCF 6
|
||||
BEGIN
|
||||
PROMPT 16 7 ""
|
||||
USE CLIFO
|
||||
INPUT TIPOCF F_TIPOCF SELECT
|
||||
INPUT CODCF F_CODCF
|
||||
DISPLAY "Codice" CODCF
|
||||
DISPLAY "Ragione Sociale@50" RAGSOC
|
||||
DISPLAY "Occasionale@C" OCCAS
|
||||
OUTPUT F_CODCF CODCF
|
||||
OUTPUT F_RAGSOC RAGSOC
|
||||
CHEKTYPE NORMAL
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
STRING F_RAGSOC 50
|
||||
BEGIN
|
||||
PROMPT 26 7 ""
|
||||
USE CLIFO KEY 2
|
||||
INPUT TIPOCF F_TIPOCF SELECT
|
||||
INPUT RAGSOC F_RAGSOC
|
||||
DISPLAY "Ragione Sociale@50" RAGSOC
|
||||
DISPLAY "Codice" CODCF
|
||||
COPY OUTPUT F_CODCF
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
STRING F_OCFPI 16
|
||||
BEGIN
|
||||
PROMPT 2 8 "Occ. "
|
||||
USE OCCAS
|
||||
INPUT CFPI F_OCFPI
|
||||
DISPLAY "Codice@16" CFPI
|
||||
DISPLAY "Ragione Sociale@50" RAGSOC
|
||||
OUTPUT F_OCFPI CFPI
|
||||
OUTPUT F_RAGOCC RAGSOC
|
||||
CHEKTYPE NORMAL
|
||||
GROUP 1
|
||||
MESSAGE EMPTY SHOW,F_RAGSOC|HIDE,F_RAGOCC
|
||||
MESSAGE HIDE,F_RAGSOC|SHOW,F_RAGOCC
|
||||
END
|
||||
|
||||
STRING F_RAGOCC 50
|
||||
BEGIN
|
||||
PROMPT 26 8 ""
|
||||
FLAGS "H"
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
SPREADSHEET F_RIGHE
|
||||
BEGIN
|
||||
PROMPT 0 10 ""
|
||||
ITEM "Riga@6F"
|
||||
ITEM "Non\nInv.@2@F"
|
||||
ITEM "C/F@3F"
|
||||
ITEM "Codice@F"
|
||||
ITEM "Occasionale@16F"
|
||||
ITEM "Numero\nRegistraz.@9"
|
||||
ITEM "Data\nOperazione@10"
|
||||
ITEM "Mod.\nPag.@4"
|
||||
ITEM "Importo\ndovuto@12"
|
||||
ITEM "Imposta@12"
|
||||
ITEM "Natura\nOperazione@10"
|
||||
ITEM "Tipologia\nOperazione@10"
|
||||
ITEM "Importo Totale\nOperazione@12"
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
ENDMASK
|
||||
|
||||
PAGE "Riga" -1 -1 74 10
|
||||
|
||||
NUMBER A_RIGA 7
|
||||
BEGIN
|
||||
PROMPT 1 1 "Numero riga "
|
||||
FLAGS "D"
|
||||
FIELD PROGR
|
||||
END
|
||||
|
||||
BOOLEAN A_IGNORA
|
||||
BEGIN
|
||||
PROMPT 31 1 "Non inviare questa riga"
|
||||
FIELD IGNORA
|
||||
END
|
||||
|
||||
LIST A_TIPOCF 1 10
|
||||
BEGIN
|
||||
PROMPT 1 2 ""
|
||||
ITEM "C|Cliente"
|
||||
ITEM "F|Fornitore"
|
||||
FIELD TIPOCF
|
||||
END
|
||||
|
||||
NUMBER A_CODCF 6
|
||||
BEGIN
|
||||
PROMPT 16 2 ""
|
||||
USE CLIFO
|
||||
INPUT TIPOCF A_TIPOCF SELECT
|
||||
INPUT CODCF A_CODCF
|
||||
DISPLAY "Codice" CODCF
|
||||
DISPLAY "Ragione Sociale@50" RAGSOC
|
||||
DISPLAY "Occasionale@C" OCCAS
|
||||
OUTPUT A_CODCF CODCF
|
||||
CHEKTYPE REQUIRED
|
||||
FIELD CODCF
|
||||
END
|
||||
|
||||
STRING A_OCFPI 16
|
||||
BEGIN
|
||||
PROMPT 32 2 "Occasionale "
|
||||
USE OCCAS
|
||||
INPUT CFPI A_OCFPI
|
||||
DISPLAY "Codice@16" CFPI
|
||||
DISPLAY "Ragione Sociale@50" RAGSOC
|
||||
OUTPUT A_OCFPI CFPI
|
||||
CHEKTYPE NORMAL
|
||||
GROUP 3
|
||||
FIELD OCFPI
|
||||
END
|
||||
|
||||
DATE A_DATAREG
|
||||
BEGIN
|
||||
PROMPT 1 4 "Data operazione "
|
||||
FIELD DATAREG
|
||||
CHEKTYPE REQUIRED
|
||||
END
|
||||
|
||||
NUMBER A_NUMREG 7
|
||||
BEGIN
|
||||
PROMPT 41 4 "N. operazione "
|
||||
FIELD NUMREG
|
||||
END
|
||||
|
||||
LIST A_MODPAG 1 15
|
||||
BEGIN
|
||||
PROMPT 1 2 ""
|
||||
ITEM "3|Non frazionato"
|
||||
ITEM "1|Acconto"
|
||||
ITEM "2|Saldo"
|
||||
FIELD MODPAG
|
||||
END
|
||||
|
||||
|
||||
CURRENCY A_IMPORTO 12
|
||||
BEGIN
|
||||
PROMPT 1 5 "Importo dovuto "
|
||||
FIELD CORRISP
|
||||
END
|
||||
|
||||
CURRENCY A_IMPOSTA 12
|
||||
BEGIN
|
||||
PROMPT 41 5 "Imposta "
|
||||
FIELD IMPOSTA
|
||||
END
|
||||
|
||||
LIST A_NATOPE 1 30
|
||||
BEGIN
|
||||
PROMPT 1 6 "Tipologia imponibile "
|
||||
ITEM "1|Imponibile"
|
||||
ITEM "2|Non imponibile"
|
||||
ITEM "3|Esente"
|
||||
ITEM "4|Imponibile con IVA non esposta"
|
||||
FIELD NATOPE
|
||||
END
|
||||
|
||||
LIST A_TIPOPE 1 30
|
||||
BEGIN
|
||||
PROMPT 1 7 "Tipologia operazione "
|
||||
ITEM "1|Cessione di beni"
|
||||
ITEM "2|Prestazione di servizi"
|
||||
ITEM "3|Acquisto di beni"
|
||||
ITEM "4|Acquisto di servizi"
|
||||
FIELD TIPOPE
|
||||
END
|
||||
|
||||
CURRENCY A_TOTALE 12
|
||||
BEGIN
|
||||
PROMPT 1 8 "Totawe "
|
||||
FIELD TOTALE
|
||||
END
|
||||
|
||||
|
||||
ENDPAGE
|
||||
|
||||
TOOLBAR "topbar" 0 0 0 2
|
||||
|
||||
BUTTON DLG_OK 2 2
|
||||
BEGIN
|
||||
PROMPT 1 1 ""
|
||||
END
|
||||
|
||||
BUTTON DLG_DELREC 2 2
|
||||
BEGIN
|
||||
PROMPT 2 1 ""
|
||||
END
|
||||
|
||||
BUTTON DLG_CANCEL 2 2
|
||||
BEGIN
|
||||
PROMPT 3 1 ""
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
ENDMASK
|
||||
70
fe/fe0200.cpp
Executable file
70
fe/fe0200.cpp
Executable file
@ -0,0 +1,70 @@
|
||||
// gestione tabelle di modulo contabilità
|
||||
|
||||
#include <automask.h>
|
||||
#include <modtbapp.h>
|
||||
|
||||
///////////////////////////////////////////////////////////
|
||||
// Maschera generica di gestione tabelle di modulo CG
|
||||
///////////////////////////////////////////////////////////
|
||||
|
||||
class TFE_table_mask : public TAutomask
|
||||
{
|
||||
protected:
|
||||
virtual bool on_field_event(TOperable_field &o, TField_event e, long jolly);
|
||||
|
||||
public:
|
||||
TFE_table_mask(const char* name) : TAutomask(name) {}
|
||||
};
|
||||
|
||||
bool TFE_table_mask::on_field_event(TOperable_field &o, TField_event e, long jolly)
|
||||
{
|
||||
return true;
|
||||
}
|
||||
|
||||
///////////////////////////////////////////////////////////
|
||||
// Applicazione generica di gestione tabelle di modulo
|
||||
///////////////////////////////////////////////////////////
|
||||
|
||||
// applicazione per la gestione delle tabelle di lavanderia
|
||||
class TFE_table_app : public TTable_module_application
|
||||
{
|
||||
protected: // TRelation_application
|
||||
virtual TMask* user_create_mask();
|
||||
virtual int write(const TMask& m);
|
||||
virtual int rewrite(const TMask& m);
|
||||
|
||||
public:
|
||||
};
|
||||
|
||||
// Ridefinire questo metodo per le eventuali maschere speciali
|
||||
// che abbiano controlli speciali da effettuare nella on_field_event
|
||||
TMask* TFE_table_app::user_create_mask()
|
||||
{
|
||||
const TString4 name = get_relation()->file(0).name();
|
||||
if (name == "???")
|
||||
return new TFE_table_mask("???");
|
||||
// Le maschere normali sono gia' gestite dalla TTable_module_application
|
||||
return TTable_module_application::user_create_mask();
|
||||
}
|
||||
|
||||
|
||||
// Ridefinizione del metodo write
|
||||
int TFE_table_app::write(const TMask& m)
|
||||
{
|
||||
const TString4 name = get_relation()->file(0).name();
|
||||
return TTable_module_application::write(m);
|
||||
}
|
||||
|
||||
// Ridefinizione del metodo rewrite
|
||||
int TFE_table_app::rewrite(const TMask& m)
|
||||
{
|
||||
const TString4 name = get_relation()->file(0).name();
|
||||
return TTable_module_application::rewrite(m);
|
||||
}
|
||||
|
||||
int fe0200(int argc, char* argv[])
|
||||
{
|
||||
TFE_table_app a;
|
||||
a.run(argc, argv, TR("Tabella modulo dati rilevanti"));
|
||||
return 0;
|
||||
}
|
||||
2
fe/fetbcon.h
Executable file
2
fe/fetbcon.h
Executable file
@ -0,0 +1,2 @@
|
||||
#define F_CODICE 101
|
||||
#define F_DESCRIZIONE 102
|
||||
125
fe/fetbcon.uml
Executable file
125
fe/fetbcon.uml
Executable file
@ -0,0 +1,125 @@
|
||||
#include "fetbcon.h"
|
||||
|
||||
TOOLBAR "topbar" 0 0 0 2
|
||||
#include <relapbar.h>
|
||||
ENDPAGE
|
||||
|
||||
PAGE "Contratti per invio dati rilevanti" 0 2 0 0
|
||||
|
||||
GROUPBOX DLG_NULL 78 5
|
||||
BEGIN
|
||||
PROMPT 1 1 "@bEstremi"
|
||||
END
|
||||
|
||||
LIST F_TIPOCF 1 9
|
||||
BEGIN
|
||||
PROMPT 2 2 ""
|
||||
ITEM "F|Fornitore"
|
||||
ITEM "C|Cliente"
|
||||
FIELD CODTAB[1,1]
|
||||
KEY 1
|
||||
END
|
||||
|
||||
NUMBER F_CODCF 6
|
||||
BEGIN
|
||||
PROMPT 14 2 ""
|
||||
USE LF_CLIFO
|
||||
INPUT TIPOCF F_TIPOCF SELECT
|
||||
INPUT CODCF F_CODCF
|
||||
DISPLAY "Codice" CODCF
|
||||
DISPLAY "Ragione Sociale@50" RAGSOC
|
||||
OUTPUT F_CODCF CODCF
|
||||
OUTPUT F_RAGSOC RAGSOC
|
||||
CHECKTYPE REQUIRED
|
||||
FIELD CODTAB[2,7]
|
||||
KEY 1
|
||||
MESSAGE EMPTY ENABLE,F_RAGSOC
|
||||
MESSAGE DISABLE,F_RAGSOC
|
||||
END
|
||||
|
||||
STRING F_RAGSOC 50
|
||||
BEGIN
|
||||
PROMPT 24 2 ""
|
||||
USE LF_CLIFO KEY 2
|
||||
INPUT TIPOCF F_TIPOCF SELECT
|
||||
INPUT RAGSOC F_RAGSOC
|
||||
DISPLAY "Ragione Sociale@50" RAGSOC
|
||||
DISPLAY "Codice" CODCF
|
||||
COPY OUTPUT F_CODCF
|
||||
CHECKTYPE NORMAL
|
||||
END
|
||||
|
||||
STRING F_CONTRATTO 18
|
||||
BEGIN
|
||||
PROMPT 2 3 "Codice contratto "
|
||||
FLAGS "U"
|
||||
FIELD CODTAB[8,25]
|
||||
USE &CON
|
||||
JOIN LF_CLIFO INTO TIPOCF=CODTAB[1,1] CODCF=CODTAB[2,7]
|
||||
INPUT CODTAB[1,1] F_TIPOCF SELECT
|
||||
INPUT CODTAB[2,7] F_CODCF
|
||||
INPUT CODTAB[8,25] F_CONTRATTO
|
||||
DISPLAY "Contratto" CODTAB[8,]
|
||||
DISPLAY "Descrizione@50" S0
|
||||
DISPLAY "Tipo" CODTAB[1,1]
|
||||
DISPLAY "Cli/For" LF_CLIFO->CODCF
|
||||
DISPLAY "Ragione Sociale@50" LF_CLIFO->RAGSOC
|
||||
OUTPUT F_CODCF CODTAB[2,7]
|
||||
OUTPUT F_CONTRATTO CODTAB[8,]
|
||||
OUTPUT F_DESCRIZIONE S0
|
||||
CHECKTYPE REQUIRED
|
||||
KEY 1
|
||||
END
|
||||
|
||||
STRING F_DESCRIZIONE 50
|
||||
BEGIN
|
||||
PROMPT 2 4 "Descrizione "
|
||||
FIELD S0
|
||||
USE &CON KEY 2 SELECT (CODTAB[1,1]==#F_TIPOCF)&&(STR(CODTAB[2,7]=#F_CODCF))
|
||||
JOIN LF_CLIFO INTO TIPOCF=CODTAB[1,1] CODCF=CODTAB[2,7]
|
||||
INPUT S0 F_DESCRIZIONE
|
||||
DISPLAY "Descrizione@50" S0
|
||||
DISPLAY "Contratto" CODTAB[8,]
|
||||
DISPLAY "Tipo" CODTAB[1,1]
|
||||
DISPLAY "Cli/For" LF_CLIFO->CODCF
|
||||
DISPLAY "Ragione Sociale@50" LF_CLIFO->RAGSOC
|
||||
CHECKTYPE REQUIRED
|
||||
COPY OUTPUT F_CONTRATTO
|
||||
KEY 2
|
||||
END
|
||||
|
||||
GROUPBOX DLG_NULL 78 5
|
||||
BEGIN
|
||||
PROMPT 1 6 "@bDurata ed importo"
|
||||
END
|
||||
|
||||
DATA F_INIZIO
|
||||
BEGIN
|
||||
PROMPT 2 7 "Inizio "
|
||||
HELP "Data inizio contratto"
|
||||
FIELD D0
|
||||
END
|
||||
|
||||
DATA F_FINE
|
||||
BEGIN
|
||||
PROMPT 24 7 "Fine "
|
||||
HELP "Data fine contratto"
|
||||
FIELD D1
|
||||
VALIDATE DATE_CMP_FUNC >= #F_INIZIO
|
||||
WARNING "La data finale deve essere successiva a quella iniziale"
|
||||
END
|
||||
|
||||
CURRENCY F_IMPORTO 15
|
||||
BEGIN
|
||||
PROMPT 2 8 "Totale "
|
||||
HELP "Inserire un importo non inferiore a 3000 Euro"
|
||||
FIELD R0
|
||||
END
|
||||
|
||||
TEXT DLG_NULL
|
||||
BEGIN
|
||||
PROMPT 2 9 "Importo non inferiore a 3000 Euro (Legge n.122 del 30-07-2010)"
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
ENDMASK
|
||||
Loading…
x
Reference in New Issue
Block a user