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

Patch level : 10,0 nopatch

Browse Source 
Files correlati     : ci0.exe ci2.exe
Ricompilazione Demo : [ ]
Commento            :


Riclassificazioni cnti  da non compilare ora


git-svn-id: svn://10.65.10.50/branches/R_10_00@20780 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
alex 2010-08-11 00:46:50 +00:00
parent a0c8fa656d
commit db19dfd129
18 changed files with 2103 additions and 1023 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ri/ri0.cpp
View File

@ -3,7 +3,7 @@
#include "ri0.h"
#define usage "Error - usage : %s -{0|1|2|3}"
#define usage "Error - usage : %s -{0|1|3}"
int main(int argc,char** argv)
{
@ -13,6 +13,8 @@ int main(int argc,char** argv)
{
case 0:
ri0100(argc,argv); break;
case 1:
ri0200(argc,argv); break;
case 3:
ri0400(argc,argv); break;
default:

211
ri/ri0200.cpp Executable file
View File

@ -0,0 +1,211 @@
#include <automask.h>
#include <execp.h>
#include <relapp.h>
#include <pconti.h>
#include <recarray.h>
#include <riclpdc.h>
#include "ri0200a.h"
////////////////////////////////////////////////////////////////////////
//MASCHERA
////////////////////////////////////////////////////////////////////////
class TTS_ricl_msk : public TAutomask
{
void update_browse(const short id);
virtual bool on_field_event(TOperable_field& o, TField_event e, long jolly);
public:
TTS_ricl_msk() : TAutomask("ri0200a") {}
};
void TTS_ricl_msk::update_browse(const short id)
{
TBrowse * b = efield(id).browse();
if (b != NULL)
{
TCursor * c = b->cursor();
if ( c != NULL)
{
TRelation * r = c->relation();
if (r != NULL)
{
TToken_string relexpr;
TString s(RICLPDC_TIPORIC);
s << "==\"RI" << get(F_RICL) << "\"";
relexpr.add(s);
s = RICLPDC_GRUPPO;
s << "==" << PCN_GRUPPO;
relexpr.add(s);
s = RICLPDC_CONTO;
s << "==" << PCN_CONTO;
relexpr.add(s);
s = RICLPDC_SOTTOCONTO;
s << "==" << PCN_SOTTOCONTO;
relexpr.add(s);
r->replace(new TLocalisamfile(LF_RICLPDC), r->log2ind(LF_RICLPDC), relexpr);
}
}
}
}
bool TTS_ricl_msk::on_field_event(TOperable_field& o, TField_event e, long jolly)
{
switch (o.dlg())
{
case F_RICL:
if (e == fe_modify)
{
update_browse(F_GRUPPO);
update_browse(F_CONTO);
update_browse(F_SOTTOCONTO);
update_browse(F_DESCRIZ);
}
break;
default:
break;
}
return true;
}
class TTSRiclass_application : public TRelation_application
// @author:(INTERNAL) Vari
// @access:(INTERNAL) Private Member
{
// @cmember:(INTERNAL) Maschera corrente dell'applicazione
TMask* _msk;
// @cmember:(INTERNAL) Relazione corrente dell'applicazione
TRelation* _rel;
bool _use_pcn;
// @access Protected Member
protected:
virtual TMask* get_mask(int mode = MODE_QUERY) { CHECK(_msk, "Null mask"); return _msk; }
// @cmember Indica se la futura <mf Tab_application::get_mask> ritornera' una maschera diversa
// dalla corrente.
virtual bool changing_mask(int mode) { return false; }
// @cmember Ritorna la relazione da modificare
virtual TRelation* get_relation() const { CHECK(_rel, "Null relation"); return _rel; }
// @cmember Inizializza la maschera per il modo ricerca
virtual void init_query_mode(TMask& m);
// @cmember Inizializza la maschera per il modo ricerca ed inserimento (chiama <mf TRelation_application::init_query_mode>)
virtual void init_query_insert_mode(TMask& m) ;
// @cmember Inizializza la maschera per il modo inserimento
virtual void init_insert_mode(TMask& m);
// @cmember Inizializza la maschera per il modo modifica
virtual void init_modify_mode(TMask& m);
// @cmember Inizializzazione dei dati dell'utente
virtual bool user_create() ;
// @cmember Distruzione dei dati dell'utente
virtual bool user_destroy() ;
// @cmember Chiama il programma di stampa
virtual void print();
// @access Public Member
public:
// @cmember Costruttore
TTSRiclass_application() : _msk(NULL), _rel(NULL) { }
// @cmember Distruttore
virtual ~TTSRiclass_application() {}
};
void TTSRiclass_application::print()
{
TFilename rep("riricl.rep");
TString cmd;
rep.custom_path();
cmd << "ba8 -4 "<< rep;
TExternal_app stampa(cmd);
stampa.run();
}
void TTSRiclass_application::init_query_mode(TMask& m)
{
TRelation_application::init_query_mode(m);
m.show(-1);
m.enable(-1);
m.hide(-2);
m.disable(-2);
m.disable(-10);
}
void TTSRiclass_application::init_query_insert_mode(TMask& m)
{
TRelation_application::init_query_insert_mode(m);
m.hide(-1);
m.disable(-1);
m.show(-2);
m.enable(-2);
m.enable(-10);
}
void TTSRiclass_application::init_modify_mode(TMask& m)
{
TRelation_application::init_modify_mode(m);
m.show(-1);
m.disable(-1);
m.hide(-2);
m.disable(-10);
}
void TTSRiclass_application::init_insert_mode(TMask& m)
{
TRelation_application::init_insert_mode(m);
m.show(-1);
m.disable(-1);
m.hide(-2);
m.disable(-2);
m.disable(-10);
}
bool TTSRiclass_application::user_create()
{
_rel = new TRelation(LF_RICLPDC);
_msk = new TTS_ricl_msk;
TConfig config(CONFIG_DITTA);
TFilename rep("riricl.rep");
if (rep.custom_path())
enable_menu_item(M_FILE_PRINT);
TString title;
_msk->get_caption(title);
set_title(title);
return true;
}
bool TTSRiclass_application::user_destroy()
{
if (_msk)
delete _msk;
if (_rel)
delete _rel;
return true;
}
int ri0200(int argc, char* argv[])
{
TTSRiclass_application a;
a.run(argc, argv, TR("Riclassificazione piano dei conti"));
return 0;
}

17
ri/ri0200a.h Executable file
View File

@ -0,0 +1,17 @@
//id campi maschera ri0200a (file piano dei conti Team System)
//campi normali
#define F_COD 101
#define F_RICL 102
#define F_DESCRR 103
#define F_DESCRIZ 104
#define F_GRUPPO 105
#define F_CONTO 106
#define F_SOTTOCONTO 107
#define F_DESCG 108
#define F_DESCC 109
#define F_RICCONTO 110
#define F_RICDESCR 111
#define F_GRUPPO2 112
#define F_CONTO2 113
#define F_SOTTOCONTO2 114
#define F_DESCS 115

294
ri/ri0200a.uml
View File

@ -1,101 +1,245 @@
#include "ab0200.h"
#include "ri0200a.h"
TOOLBAR "topbar" 0 0 0 2
#include <relapbar.h>
ENDPAGE
PAGE "Piano dei Conti" 0 -1 0 19
PAGE "Riclassificazione Conti" 0 2 0 0
GROUPBOX DLG_NULL 76 6
LIST F_COD 7
BEGIN
PROMPT 1 0 ""
FLAGS "R"
END
NUMBER F_CODICE 12
BEGIN
PROMPT 2 2 "Codice conto "
HELP "Codice della tabella Piano dei Conti"
FIELD LF_ABPCON->CODCBL
PROMPT 50 50 ""
ITEM "RI|RI"
FIELD TIPORIC[1,2]
FLAGS "D"
KEY 1
USE LF_ABPCON KEY 1
INPUT CODCBL F_CODICE
DISPLAY "Codice@12" CODCBL
DISPLAY "Descrizione@40" DESCRIZ
DISPLAY "I.B." INDBIL
DISPLAY "Codice opp.@12" CODCONTR
DISPLAY "Sospeso@2" SOSPESO
OUTPUT F_CODICE CODCBL
OUTPUT F_DESCRIZ DESCRIZ
END
GROUPBOX DLG_NULL 78 9
BEGIN
PROMPT 1 1 "Riclassificazione"
END
STRING F_RICL 7
BEGIN
PROMPT 2 2 "Codice "
USE &RIC
INPUT CODTAB F_RICL
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_RICL CODTAB
OUTPUT F_DESCRR S0
FIELD TIPORIC[3,10]
FLAGS "UP"
CHECKTYPE REQUIRED
FLAGS "ZRU"
KEY 1
END
STRING F_DESCRIZ 80 40
STRING F_DESCRR 50
BEGIN
PROMPT 2 4 "Descrizione "
FIELD LF_ABPCON->DESCRIZ
KEY 2
USE LF_ABPCON KEY 2
INPUT DESCRIZ F_DESCRIZ
DISPLAY "Descrizione@40" DESCRIZ
DISPLAY "Codice@12" CODCBL
DISPLAY "I.B." INDBIL
DISPLAY "Codice opp.@12" CODCONTR
DISPLAY "Sospeso@2" SOSPESO
COPY OUTPUT F_CODICE
HELP "Prima parte della descrizione"
WARNING "Manca la descrizione"
CHECKTYPE REQUIRED // Guy: perche' non cosi'?
PROMPT 24 2 ""
FLAGS "D"
END
LIST F_INDBIL 15
NUMBER F_GRUPPO2 3
BEGIN
PROMPT 2 8 "Indicatore di bilancio "
FIELD LF_ABPCON->INDBIL
ITEM "1|Attivita'"
ITEM "2|Passivita'"
ITEM "3|Costi"
ITEM "4|Ricavi"
ITEM "5|Conti d'ordine"
ITEM "9|Varie"
PROMPT 2 4 "Gruppo "
HELP "Codice del gruppo"
FIELD GRUPPO
USE LF_RICLPDC
JOIN LF_PCON INTO GRUPPO==GRUPPO CONTO==CONTO SOTTOCONTO==SOTTOCONTO
JOIN &RCO TO LF_RICLPDC INTO CODTAB==CODICE
INPUT TIPORIC[1,2] F_COD SELECT
INPUT TIPORIC[3,10] F_RICL SELECT
INPUT GRUPPO F_GRUPPO2
INPUT CONTO F_CONTO2
INPUT SOTTOCONTO F_SOTTOCONTO2
DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO
DISPLAY "Sottoconto" SOTTOCONTO
DISPLAY "Descrizione@50" LF_PCON->DESCR
DISPLAY "Conto " CODICE
DISPLAY "Descrizione@50" &RCO->S0
OUTPUT F_GRUPPO2 GRUPPO
OUTPUT F_CONTO2 CONTO
OUTPUT F_SOTTOCONTO2 SOTTOCONTO
OUTPUT F_RICCONTO CONTO
KEY 1
GROUP 1
CHECKTYPE REQUIRED
MESSAGE COPY,F_GRUPPO
END
NUMBER F_GRUPPO 3
BEGIN
PROMPT 2 4 "Gruppo "
HELP "Codice del gruppo"
FIELD GRUPPO
KEY 1
GROUP 2
USE LF_PCON KEY 1 SELECT CONTO=""
JOIN LF_RICLPDC INTO TIPORIC==GRUPPO GRUPPO==GRUPPO CONTO==CONTO SOTTOCONTO==SOTTOCONTO
JOIN &RCO TO LF_RICLPDC INTO CODTAB==CODICE
INPUT GRUPPO F_GRUPPO
DISPLAY "Gruppo" GRUPPO
DISPLAY "Descrizione@50" DESCR
DISPLAY "Conto" LF_RICLPDC->CODICE
DISPLAY "Descrizione@50" &RCO->S0
OUTPUT F_GRUPPO GRUPPO
OUTPUT F_GRUPPO2 GRUPPO
OUTPUT F_DESCG DESCR
CHECKTYPE REQUIRED
ADD RUN cg0 -0
FLAGS "G"
END
NUMBER F_CODCONTR 12
STRING F_DESCG 50
BEGIN
PROMPT 2 10 "Conto di sez.bil.opposta "
HELP "Inserire il conto di sezione di bilancio opposta"
FIELD LF_ABPCON->CODCONTR
USE LF_ABPCON
INPUT CODCBL F_CODCONTR
DISPLAY "Codice@12" CODCBL
DISPLAY "Descrizione@40" DESCRIZ
DISPLAY "I.B." INDBIL
DISPLAY "Codice@12" CODCONTR
DISPLAY "Sospeso@2" SOSPESO
OUTPUT F_CODCONTR CODCBL
PROMPT 24 4 ""
FLAGS "D"
END
NUMBER F_CONTO2 3
BEGIN
PROMPT 2 6 "Conto "
HELP "Codice dell'eventuale conto"
FIELD CONTO
COPY ALL F_GRUPPO2
KEY 1
GROUP 1
CHECKTYPE NORMAL
ADD RUN AB0 -1 #F_CODICE #F_INDBIL
FLAGS "ZRU"
WARNING "Manca il conto"
MESSAGE COPY,F_CONTO
END
//Questo campo è stato tolto
//LIST F_DETTAGLIO 15
//BEGIN
// PROMPT 2 14 "Dettaglio/Movimenti "
// FIELD LF_ABPCON->DETT
// ITEM " |Nessuno"
// ITEM "D|Dettaglio"
// ITEM "M|Movimenti"
//END
BOOLEAN SOSPENDI
NUMBER F_CONTO 3
BEGIN
PROMTP 2 16 " Conto sospeso"
FIELD LF_ABPCON->SOSPESO
PROMPT 2 6 "Conto "
HELP "Codice dell'eventuale conto"
FIELD CONTO
KEY 1
GROUP 2
USE LF_PCON KEY 1 SELECT ((CONTO!="")&&(SOTTOCONTO=""))
JOIN LF_RICLPDC INTO TIPORIC==GRUPPO GRUPPO==GRUPPO CONTO==CONTO SOTTOCONTO==SOTTOCONTO
JOIN &RCO TO LF_RICLPDC INTO CODTAB==CODICE
COPY INPUT F_GRUPPO
INPUT CONTO F_CONTO
DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO
DISPLAY "Descrizione@50" DESCR
DISPLAY "Conto" LF_RICLPDC->CODICE
DISPLAY "Descrizione@50" &RCO->S0
OUTPUT F_GRUPPO GRUPPO
OUTPUT F_GRUPPO2 GRUPPO
OUTPUT F_CONTO CONTO
OUTPUT F_CONTO2 CONTO
OUTPUT F_DESCC DESCR
CHECKTYPE NORMAL
WARNING "Manca il conto"
ADD RUN cg0 -0
FLAGS "G"
END
STRING F_DESCC 50
BEGIN
PROMPT 24 6 ""
FLAGS "D"
END
NUMBER F_SOTTOCONTO2 6
BEGIN
PROMPT 2 8 "Sottoconto "
HELP "Codice dell'eventuale sottoconto"
FIELD SOTTOCONTO
COPY ALL F_GRUPPO2
KEY 1
GROUP 1
CHECKTYPE NORMAL
MESSAGE COPY,F_SOTTOCONTO
END
NUMBER F_SOTTOCONTO 6
BEGIN
PROMPT 2 8 "Sottoconto "
HELP "Codice dell'eventuale sottoconto"
FIELD SOTTOCONTO
KEY 1
GROUP 2
USE LF_PCON KEY 1 SELECT (SOTTOCONTO!="")
JOIN LF_RICLPDC INTO TIPORIC==GRUPPO GRUPPO==GRUPPO CONTO==CONTO SOTTOCONTO==SOTTOCONTO
JOIN &RCO TO LF_RICLPDC INTO CODTAB==CODICE
COPY INPUT F_CONTO
INPUT SOTTOCONTO F_SOTTOCONTO
DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO
DISPLAY "Sottoconto" SOTTOCONTO
DISPLAY "Sosp." SOSPESO
DISPLAY "Descrizione@50" DESCR
DISPLAY "Conto" LF_RICLPDC->CODICE
DISPLAY "Descrizione@50" &RCO->S0
OUTPUT F_GRUPPO GRUPPO
OUTPUT F_GRUPPO2 GRUPPO
OUTPUT F_CONTO CONTO
OUTPUT F_CONTO2 CONTO
OUTPUT F_SOTTOCONTO SOTTOCONTO
OUTPUT F_SOTTOCONTO2 SOTTOCONTO
OUTPUT F_DESCC DESCRS
OUTPUT F_DESCRIZ DESCR
ADD RUN cg0 -0
CHECKTYPE NORMAL
FLAGS "G"
END
STRING F_DESCS 50
BEGIN
PROMPT 24 6 ""
FLAGS "D"
END
STRING F_DESCRIZ 50
BEGIN
PROMPT 2 10 "Descrizione"
USE LF_PCON KEY 2
JOIN LF_RICLPDC INTO TIPORIC==GRUPPO GRUPPO==GRUPPO CONTO==CONTO SOTTOCONTO==SOTTOCONTO
JOIN &RCO TO LF_RICLPDC INTO CODTAB==CODICE
INPUT DESCR F_DESCRIZ
DISPLAY "Descrizione@50" DESCR
DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO
DISPLAY "Sottoconto" SOTTOCONTO
DISPLAY "Conto@7" LF_RICLPDC->CODICE
DISPLAY "Descrizione@50" &RCO->S0
COPY OUTPUT F_SOTTOCONTO
KEY 2
GROUP 10
CHECKTYPE REQUIRED
END
NUMBER F_RICCONTO 7
BEGIN
PROMPT 2 12 "Conto "
CHECKTYPE NORMAL
USE &RCO
INPUT CODTAB F_RICCONTO
DISPLAY "Conto@7" CODTAB
DISPLAY "Descrizione@60" S0
OUTPUT F_RICCONTO CODTAB
OUTPUT F_RICDESCR S0
FLAGS "Z"
FIELD CODICE
END
STRING F_RICDESCR 50
BEGIN
PROMPT 2 14 "Descrizione "
USE &RCO KEY 2
INPUT S0 F_RICDESCR
DISPLAY "Descrizione@60" S0
DISPLAY "Conto" CODTAB
COPY OUTPUT F_RICCONTO
CHECKTYPE SEARCH
END
ENDPAGE
ENDMASK
ENDMASK

101
ri/ri0200xa.uml Executable file
View File

@ -0,0 +1,101 @@
#include "ab0200.h"
TOOLBAR "topbar" 0 0 0 2
#include <relapbar.h>
ENDPAGE
PAGE "Piano dei Conti" 0 -1 0 19
GROUPBOX DLG_NULL 76 6
BEGIN
PROMPT 1 0 ""
FLAGS "R"
END
NUMBER F_CODICE 12
BEGIN
PROMPT 2 2 "Codice conto "
HELP "Codice della tabella Piano dei Conti"
FIELD LF_ABPCON->CODCBL
KEY 1
USE LF_ABPCON KEY 1
INPUT CODCBL F_CODICE
DISPLAY "Codice@12" CODCBL
DISPLAY "Descrizione@40" DESCRIZ
DISPLAY "I.B." INDBIL
DISPLAY "Codice opp.@12" CODCONTR
DISPLAY "Sospeso@2" SOSPESO
OUTPUT F_CODICE CODCBL
OUTPUT F_DESCRIZ DESCRIZ
CHECKTYPE REQUIRED
FLAGS "ZRU"
END
STRING F_DESCRIZ 80 40
BEGIN
PROMPT 2 4 "Descrizione "
FIELD LF_ABPCON->DESCRIZ
KEY 2
USE LF_ABPCON KEY 2
INPUT DESCRIZ F_DESCRIZ
DISPLAY "Descrizione@40" DESCRIZ
DISPLAY "Codice@12" CODCBL
DISPLAY "I.B." INDBIL
DISPLAY "Codice opp.@12" CODCONTR
DISPLAY "Sospeso@2" SOSPESO
COPY OUTPUT F_CODICE
HELP "Prima parte della descrizione"
WARNING "Manca la descrizione"
CHECKTYPE REQUIRED // Guy: perche' non cosi'?
END
LIST F_INDBIL 15
BEGIN
PROMPT 2 8 "Indicatore di bilancio "
FIELD LF_ABPCON->INDBIL
ITEM "1|Attivita'"
ITEM "2|Passivita'"
ITEM "3|Costi"
ITEM "4|Ricavi"
ITEM "5|Conti d'ordine"
ITEM "9|Varie"
END
NUMBER F_CODCONTR 12
BEGIN
PROMPT 2 10 "Conto di sez.bil.opposta "
HELP "Inserire il conto di sezione di bilancio opposta"
FIELD LF_ABPCON->CODCONTR
USE LF_ABPCON
INPUT CODCBL F_CODCONTR
DISPLAY "Codice@12" CODCBL
DISPLAY "Descrizione@40" DESCRIZ
DISPLAY "I.B." INDBIL
DISPLAY "Codice@12" CODCONTR
DISPLAY "Sospeso@2" SOSPESO
OUTPUT F_CODCONTR CODCBL
CHECKTYPE NORMAL
ADD RUN AB0 -1 #F_CODICE #F_INDBIL
FLAGS "ZRU"
END
//Questo campo è stato tolto
//LIST F_DETTAGLIO 15
//BEGIN
// PROMPT 2 14 "Dettaglio/Movimenti "
// FIELD LF_ABPCON->DETT
// ITEM " |Nessuno"
// ITEM "D|Dettaglio"
// ITEM "M|Movimenti"
//END
BOOLEAN SOSPENDI
BEGIN
PROMTP 2 16 " Conto sospeso"
FIELD LF_ABPCON->SOSPESO
END
ENDPAGE
ENDMASK

982
ri/ri0400.cpp
View File

File diff suppressed because it is too large Load Diff

16
ri/ri0400a.h Executable file
View File

@ -0,0 +1,16 @@
// campi maschera ab0400a.uml
#define F_TIPORICL 101
#define F_RICL 102
#define F_DESCRR 103
#define F_ESER 104
#define F_PER 105
#define F_NPER 106
#define F_DESCRP 107
#define F_DAL 108
#define F_AL 109
#define F_STRUCT 110
#define F_PROVV 111
#define F_OUTPUT 112
#define F_TIPOCOL 113

151
ri/ri0400a.uml
View File

@ -1,22 +1,58 @@
#include "ab0400.h"
#include "ri0400a.h"
TOOLBAR "topbar" 0 0 0 2
#include <stdbar.h>
ENDPAGE
TOOLBAR "bottombar" 0 -1 0 1
STRING DLG_PROFILE 50
BEGIN
PROMPT 1 -1 "Profilo "
PSELECT
END
ENDPAGE
PAGE "Riclassificazione" 0 2 0 0
LIST F_TIPO 20
LIST F_TIPORICL 2 17
BEGIN
PROMPT 2 1 "Tipo di calcolo "
ITEM "0|Saldi Contabili"
ITEM "1|IV Direttiva CEE"
ITEM "2|Analisi"
PROMPT 2 2 "Tipo "
ITEM "RI|Riclassificazione" MESSAGE ENABLE,F_RICL|"",F_RICL
ITEM "TS|TeamSystem" MESSAGE DISABLE,F_RICL|"CONTI",F_RICL
ITEM "ZU|Zucchetti" MESSAGE DISABLE,F_RICL|"CONTI",F_RICL
FIELD TRICL
END
STRING F_RICL 7
BEGIN
PROMPT 2 3 "Codice "
USE &RIC
INPUT CODTAB F_RICL
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_RICL CODTAB
OUTPUT F_DESCRR S0
CHECKTYPE NORMAL
FIELD RICL
FLAGS "U"
END
STRING F_DESCRR 50
BEGIN
PROMPT 29 3 ""
USE &RCO KEY 2
INPUT S0 F_DESCRR
DISPLAY "Descrizione@50" S0
DISPLAY "Codice" CODTAB
COPY OUTPUT F_RICL
CHECKTYPE NORMAL
END
NUMBER F_ESER 4
BEGIN
PROMPT 2 3 "Esercizio "
PROMPT 2 4 "Esercizio "
HELP "Codice d'esercizio da assegnare"
FLAGS "ZR"
USE ESC
@ -30,81 +66,86 @@ BEGIN
CHECKTYPE NORMAL
END
STRING F_PDB 2
STRING F_PER 2
BEGIN
PROMPT 2 5 "Codice periodo "
HELP "Codice della tabella periodi di bilancio"
FLAGS "U_"
USE %PDB
INPUT CODTAB F_PDB
PROMPT 2 5 "Codice periodo"
HELP "Codice della tabella periodi"
FLAGS "UZ"
USE &PER
INPUT CODTAB F_PER
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@40" S0
DISPLAY "gg.inizio" I0
DISPLAY "mm.inizio" I1
DISPLAY "gg.fine" I2
DISPLAY "mm.fine" I3
OUTPUT F_PDB CODTAB
DISPLAY "Giorni" I0
DISPLAY "Settimane" I1
DISPLAY "Mesi" I2
DISPLAY "Anni" I3
OUTPUT F_PER CODTAB
OUTPUT F_DESCRP S0
CHECKTYPE NORMAL
FIELD PER
END
STRING F_DESCRP 70 50
BEGIN
PROMPT 29 5 ""
HELP "Descrizione del codice tabella periodi di bilancio"
USE &PER KEY 2
INPUT S0 F_DESCRP
DISPLAY "Descrizione@40" S0
DISPLAY "Codice" CODTAB
DISPLAY "Giorni" I0
DISPLAY "Settimane" I1
DISPLAY "Mesi" I2
DISPLAY "Anni" I3
COPY OUTPUT F_PER
CHECKTYPE NORMAL
END
NUMBER F_NPER 2
BEGIN
PROMPT 2 6 "Numero periodi"
FIELD NPER
END
DATE F_DAL
BEGIN
PROMPT 2 7 "Dal "
PROMPT 2 7 "Dal "
FIELD DAL
END
DATE F_AL
BEGIN
PROMPT 2 9 "Al "
VALIDATE DATE_CMP_FUNC > F_DAL
PROMPT 29 7 "Al "
FLAGS "D"
WARNING "La data finale deve essere maggiore alla data iniziale"
END
BOOLEAN F_STRUCT
BEGIN
PROMPT 2 11 "Intera struttura"
END
BOOLEAN F_MONTH
BEGIN
PROMPT 42 11 "Suddiviso per mesi"
PROMPT 2 8 "Intera struttura"
FIELD ALL
END
BOOLEAN F_PROVV
BEGIN
PROMPT 2 13 "Anche i movimenti provvisori"
PROMPT 29 8 "Anche i movimenti provvisori"
FIELD PROVV
END
LIST F_TIPOCOL 2 14
BEGIN
PROMPT 2 9 "Esporta "
ITEM "0|Saldi"
ITEM "1|Tutti i valori"
FIELD COLTYPE
END
STRING F_OUTPUT 50 30
BEGIN
PROMPT 2 15 "File di output "
PROMPT 2 10 "Output "
CHECKTYPE REQUIRED
FSELECT ""
END
STRING F_COMM 20
BEGIN
PROMPT 2 17 "Codice commessa "
USE CMS
FIELD CODTAB
FLAGS "UZ"
INPUT CODTAB F_COMM
DISPLAY "Codice@20" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_COMM CODTAB
OUTPUT F_DCOMM S0
CHECKTYPE NORMAL
END
STRING F_DCOMM 70 50
BEGIN
PROMPT 2 18 "Descrizione "
USE CMS KEY 2
INPUT S0 F_DCOMM
DISPLAY "Descrizione@50" S0
DISPLAY "Codice@20" CODTAB
COPY OUTPUT F_COMM
CHECKTYPE NORMAL
END
ENDPAGE
ENDMASK

14
ri/ri1.cpp Executable file
View File

@ -0,0 +1,14 @@
#include <xvt.h>
#include "ri1.h"
int main(int argc, char **argv)
{
const int r = (argc>1) ? argv[1][1]-'0' : -1;
switch (r)
{
case 0 :
default: ri1100(argc, argv); break; //stampa documenti di vendita
}
return 0;
}

10
ri/ri1.h Executable file
View File

@ -0,0 +1,10 @@
#ifndef __RI1_H
#define __RI1_H
int ri1100(int argc, char* argv[]);
#endif // __RI1_H

28
ri/ri1100.cpp Executable file
View File

@ -0,0 +1,28 @@
#include <applicat.h>
#include "rilib01.h"
#include "../ba/ba8500.h"
///////////////////////////////////////////////////////////
// TPeterParker_app
///////////////////////////////////////////////////////////
class TPeterParker_app : public TKlarkKent_app
{
protected:
virtual TReport* create_report(const char* name) const;
};
TReport* TPeterParker_app::create_report(const char* name) const
{
TRicl_report* rep = new TRicl_report;
rep->load(name);
return rep;
}
int ri1100(int argc, char* argv[])
{
TPeterParker_app app;
app.run(argc, argv, TR("Stampa Report riclassificazioni"));
return 0;
}

1069
ri/rilib01.cpp Executable file
View File

File diff suppressed because it is too large Load Diff

99
ri/rilib01.h Executable file
View File

@ -0,0 +1,99 @@
#ifndef __RILIB01_H
#define __RILIB01_H
#ifndef __PROGIND_H
#include <progind.h>
#endif
#ifndef __RELATION_H
#include <relation.h>
#endif
#ifndef __RECSET_H
#include <recset.h>
#endif
#ifndef __REPORT_H
#include <report.h>
#endif
class TSaldo_periodo;
class TSaldi_conti_recordset : public TISAM_recordset
{
int _id;
bool _all;
TString4 _codper;
int _sel_columns;
public:
void set_custom_columns();
const TSaldo_periodo & saldo_periodo() ;
virtual TCursor* cursor() const;
virtual const TVariant& get_field(int logic, const char* field) const;
void set_fromto();
const TString & codper() const { return _codper; }
int sel_columns() const { return _sel_columns; }
bool provv() const;
bool all() const { return _all; }
const int nper() const;
const TDate & from(int n) const;
const TDate & to(int n) const;
virtual void requery();
TSaldi_conti_recordset(const char * codper, int nper, const TDate & dal, int sel_columns = 0,bool provv = false, bool all = true, const TString& sql = "");
TSaldi_conti_recordset(const TMask& m, const TString& sql = "");
virtual ~TSaldi_conti_recordset();
};
class TSaldi_ricl_recordset : public TISAM_recordset
{
TString16 _codricl;
int _id;
bool _all;
TString4 _codper;
int _sel_columns;
const TSaldo_periodo & saldo_periodo() ;
public:
virtual void set_custom_columns();
virtual TCursor* cursor() const;
const TVariant& get_field(int logic, const char* field) const;
const TString & codper() const { return _codper;}
int sel_columns() const { return _sel_columns;}
bool provv() const;
bool all() const { return _all;}
const int nper() const;
const TDate & from(int n) const;
const TDate & to(int n) const;
virtual void requery();
void set_fromto();
TSaldi_ricl_recordset(const char * codricl, const char * codper, int nper, const TDate & dal, int sel_columns = 0, bool provv = false, bool all = true, const TString& sql = "");
TSaldi_ricl_recordset(const TMask & m, const TString& sql = "");
virtual ~TSaldi_ricl_recordset();
};
class TRicl_report : public TReport
{
size_t _first_msg;
TString16 _codricl;
TString4 _codper;
int _nper;
TDate _dal;
bool _provv;
bool _all;
int _sel_columns;
protected:
virtual size_t get_usr_words(TString_array& words) const;
virtual bool execute_usr_word(unsigned int opcode, TVariant_stack& stack);
virtual bool set_recordset(const TString& query);
void output_values(const TRectype& rec, const TString& output);
void reset_values(const TString& output);
public:
virtual KEY run_form(TMask& msk);
bool load(const char* name);
};
#endif

25
ri/ritbper.uml
View File

@ -23,6 +23,10 @@ BEGIN
INPUT CODTAB F_CODTAB
DISPLAY "Codice@3" CODTAB
DISPLAY "Descrizione@40" S0
DISPLAY "Giorni" I0
DISPLAY "Settimane" I1
DISPLAY "Mesi" I2
DISPLAY "Anni" I3
OUTPUT F_CODTAB CODTAB
OUTPUT F_DESCR S0
CHECKTYPE REQUIRED
@ -37,20 +41,19 @@ BEGIN
USE &PER KEY 2
INPUT S0 F_DESCR
DISPLAY "Descrizione@40" S0
DISPLAY "Codice@3" CODTAB
DISPLAY "gg.inizio@3" I0
DISPLAY "mm.inizio@3" I1
DISPLAY "gg.fine@3" I2
DISPLAY "mm.fine@3" I3
DISPLAY "Numero anni@3" I4
DISPLAY "Codice" CODTAB
DISPLAY "Giorni" I0
DISPLAY "Settimane" I1
DISPLAY "Mesi" I2
DISPLAY "Anni" I3
COPY OUTPUT F_CODTAB
CHECKTYPE REQUIRED
END
NUMBER F_LUNGH_GG 2
BEGIN
PROMPT 2 8 "Lunghezza : giorni 2 "
HELP "Inserire la durata in giorni "
PROMPT 2 8 "Lunghezza : giorni "
HELP "Inserire la durata in giorni"
FIELD I0
MESSAGE CLEAR,F_LUNGH_SET
MESSAGE EMPTY ENABLE,F_LUNGH_SET
@ -59,7 +62,7 @@ END
NUMBER F_LUNGH_SET 1
BEGIN
PROMPT 2 9 " : settimane "
HELP "Inserire la durata in settimane "
HELP "Inserire la durata in settimane"
FIELD I1
MESSAGE CLEAR,F_LUNGH_GG
MESSAGE EMPTY ENABLE,F_LUNGH_GG
@ -68,14 +71,14 @@ END
NUMBER F_LUNGH_MESI 2
BEGIN
PROMPT 2 10 " : mesi "
HELP "Inserire la durata in mesi "
HELP "Inserire la durata in mesi"
FIELD I2
END
NUMBER F_LUNGH_ANNI 2
BEGIN
PROMPT 2 11 " : anni "
HELP "Inserire la durata in mesi "
HELP "Inserire la durata in anni"
FIELD I3
END

3
ri/ritbrco.h Executable file
View File

@ -0,0 +1,3 @@
#define F_CODTAB 101
#define F_DESC 102
#define F_INDBIL 103

56
ri/ritbrco.uml Executable file
View File

@ -0,0 +1,56 @@
#include "ritbrco.h"
TOOLBAR "topbar" 0 0 0 2
#include <relapbar.h>
ENDPAGE
PAGE "Conti" -1 -1 78 15
GROUPBOX DLG_NULL 78 3
BEGIN
PROMPT 1 1 "Conto"
END
NUMBER F_CODTAB 7
BEGIN
PROMPT 2 2 ""
FIELD CODTAB
USE &RCO
INPUT CODTAB F_CODTAB
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_CODTAB CODTAB
OUTPUT F_DESC S0
CHECKTYPE REQUIRED
FLAGS "Z"
KEY 1
END
STRING F_DESC 50
BEGIN
PROMPT 12 2 "Descrizione "
FIELD S0
USE &RCO KEY 2
INPUT S0 F_DESC
DISPLAY "Descrizione@50" S0
DISPLAY "Codice" CODTAB
COPY OUTPUT F_CODTAB
KEY 2
CHECKTYPE REQUIRED
END
LIST F_INDBIL 15
BEGIN
PROMPT 2 4 "Indicatore di bilancio "
FIELD I0
ITEM "1|Attivita'"
ITEM "2|Passivita'"
ITEM "3|Costi"
ITEM "4|Ricavi"
ITEM "5|Conti d'ordine"
ITEM "9|Varie"
END
ENDPAGE
ENDMASK

2
ri/ritbric.h Executable file
View File

@ -0,0 +1,2 @@
#define F_CODTAB 101
#define F_DESC 102

44
ri/ritbric.uml Executable file
View File

@ -0,0 +1,44 @@
#include "ritbric.h"
TOOLBAR "topbar" 0 0 0 2
#include <relapbar.h>
ENDPAGE
PAGE "Conti" -1 -1 78 15
GROUPBOX DLG_NULL 78 3
BEGIN
PROMPT 1 1 "Codice di riclassificazione"
END
STRING F_CODTAB 7
BEGIN
PROMPT 2 2 ""
FIELD CODTAB
USE &RIC
INPUT CODTAB F_CODTAB
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_CODTAB CODTAB
OUTPUT F_DESC S0
CHECKTYPE REQUIRED
FLAGS "U"
KEY 1
END
STRING F_DESC 50
BEGIN
PROMPT 12 2 "Descrizione "
FIELD S0
USE &RIC KEY 2
INPUT S0 F_DESC
DISPLAY "Descrizione@50" S0
DISPLAY "Codice" CODTAB
COPY OUTPUT F_CODTAB
KEY 2
CHECKTYPE REQUIRED
END
ENDPAGE
ENDMASK