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

This commit was manufactured by cvs2svn to create branch 'R_10_00'.

Browse Source 
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) 2011-06-28 15:56:56 +00:00
parent 0082c48f1c
commit ae2b3d02b7
8 changed files with 1815 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
fe/fe0.cpp Executable file
View 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
View File

@ -0,0 +1,2 @@
int fe0100(int argc, char* argv[]);
int fe0200(int argc, char* argv[]);

1253
fe/fe0100.cpp Executable file
View File

File diff suppressed because it is too large Load Diff

32
fe/fe0100a.h Executable file
View 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
View 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
View 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
View File

@ -0,0 +1,2 @@
#define F_CODICE 101
#define F_DESCRIZIONE 102

125
fe/fetbcon.uml Executable file
View 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