Patch level : 10,0 nopatch
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
parent
a0c8fa656d
commit
db19dfd129
@ -3,7 +3,7 @@
|
|||||||
|
|
||||||
#include "ri0.h"
|
#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)
|
int main(int argc,char** argv)
|
||||||
{
|
{
|
||||||
@ -13,6 +13,8 @@ int main(int argc,char** argv)
|
|||||||
{
|
{
|
||||||
case 0:
|
case 0:
|
||||||
ri0100(argc,argv); break;
|
ri0100(argc,argv); break;
|
||||||
|
case 1:
|
||||||
|
ri0200(argc,argv); break;
|
||||||
case 3:
|
case 3:
|
||||||
ri0400(argc,argv); break;
|
ri0400(argc,argv); break;
|
||||||
default:
|
default:
|
||||||
|
|||||||
211
ri/ri0200.cpp
Executable file
211
ri/ri0200.cpp
Executable 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
17
ri/ri0200a.h
Executable 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
294
ri/ri0200a.uml
@ -1,101 +1,245 @@
|
|||||||
#include "ab0200.h"
|
#include "ri0200a.h"
|
||||||
|
|
||||||
TOOLBAR "topbar" 0 0 0 2
|
TOOLBAR "topbar" 0 0 0 2
|
||||||
#include <relapbar.h>
|
#include <relapbar.h>
|
||||||
ENDPAGE
|
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
|
BEGIN
|
||||||
PROMPT 1 0 ""
|
PROMPT 50 50 ""
|
||||||
FLAGS "R"
|
ITEM "RI|RI"
|
||||||
END
|
FIELD TIPORIC[1,2]
|
||||||
|
FLAGS "D"
|
||||||
NUMBER F_CODICE 12
|
|
||||||
BEGIN
|
|
||||||
PROMPT 2 2 "Codice conto "
|
|
||||||
HELP "Codice della tabella Piano dei Conti"
|
|
||||||
FIELD LF_ABPCON->CODCBL
|
|
||||||
KEY 1
|
KEY 1
|
||||||
USE LF_ABPCON KEY 1
|
END
|
||||||
INPUT CODCBL F_CODICE
|
|
||||||
DISPLAY "Codice@12" CODCBL
|
GROUPBOX DLG_NULL 78 9
|
||||||
DISPLAY "Descrizione@40" DESCRIZ
|
BEGIN
|
||||||
DISPLAY "I.B." INDBIL
|
PROMPT 1 1 "Riclassificazione"
|
||||||
DISPLAY "Codice opp.@12" CODCONTR
|
END
|
||||||
DISPLAY "Sospeso@2" SOSPESO
|
|
||||||
OUTPUT F_CODICE CODCBL
|
STRING F_RICL 7
|
||||||
OUTPUT F_DESCRIZ DESCRIZ
|
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
|
CHECKTYPE REQUIRED
|
||||||
FLAGS "ZRU"
|
KEY 1
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING F_DESCRIZ 80 40
|
STRING F_DESCRR 50
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 4 "Descrizione "
|
PROMPT 24 2 ""
|
||||||
FIELD LF_ABPCON->DESCRIZ
|
FLAGS "D"
|
||||||
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
|
END
|
||||||
|
|
||||||
|
NUMBER F_GRUPPO2 3
|
||||||
LIST F_INDBIL 15
|
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 8 "Indicatore di bilancio "
|
PROMPT 2 4 "Gruppo "
|
||||||
FIELD LF_ABPCON->INDBIL
|
HELP "Codice del gruppo"
|
||||||
ITEM "1|Attivita'"
|
FIELD GRUPPO
|
||||||
ITEM "2|Passivita'"
|
USE LF_RICLPDC
|
||||||
ITEM "3|Costi"
|
JOIN LF_PCON INTO GRUPPO==GRUPPO CONTO==CONTO SOTTOCONTO==SOTTOCONTO
|
||||||
ITEM "4|Ricavi"
|
JOIN &RCO TO LF_RICLPDC INTO CODTAB==CODICE
|
||||||
ITEM "5|Conti d'ordine"
|
INPUT TIPORIC[1,2] F_COD SELECT
|
||||||
ITEM "9|Varie"
|
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
|
END
|
||||||
|
|
||||||
NUMBER F_CODCONTR 12
|
STRING F_DESCG 50
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 10 "Conto di sez.bil.opposta "
|
PROMPT 24 4 ""
|
||||||
HELP "Inserire il conto di sezione di bilancio opposta"
|
FLAGS "D"
|
||||||
FIELD LF_ABPCON->CODCONTR
|
END
|
||||||
USE LF_ABPCON
|
|
||||||
INPUT CODCBL F_CODCONTR
|
NUMBER F_CONTO2 3
|
||||||
DISPLAY "Codice@12" CODCBL
|
BEGIN
|
||||||
DISPLAY "Descrizione@40" DESCRIZ
|
PROMPT 2 6 "Conto "
|
||||||
DISPLAY "I.B." INDBIL
|
HELP "Codice dell'eventuale conto"
|
||||||
DISPLAY "Codice@12" CODCONTR
|
FIELD CONTO
|
||||||
DISPLAY "Sospeso@2" SOSPESO
|
COPY ALL F_GRUPPO2
|
||||||
OUTPUT F_CODCONTR CODCBL
|
KEY 1
|
||||||
|
GROUP 1
|
||||||
CHECKTYPE NORMAL
|
CHECKTYPE NORMAL
|
||||||
ADD RUN AB0 -1 #F_CODICE #F_INDBIL
|
WARNING "Manca il conto"
|
||||||
FLAGS "ZRU"
|
MESSAGE COPY,F_CONTO
|
||||||
END
|
END
|
||||||
|
|
||||||
//Questo campo è stato tolto
|
NUMBER F_CONTO 3
|
||||||
//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
|
BEGIN
|
||||||
PROMTP 2 16 " Conto sospeso"
|
PROMPT 2 6 "Conto "
|
||||||
FIELD LF_ABPCON->SOSPESO
|
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
|
END
|
||||||
|
|
||||||
ENDPAGE
|
ENDPAGE
|
||||||
|
|
||||||
ENDMASK
|
ENDMASK
|
||||||
101
ri/ri0200xa.uml
Executable file
101
ri/ri0200xa.uml
Executable 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
982
ri/ri0400.cpp
File diff suppressed because it is too large
Load Diff
16
ri/ri0400a.h
Executable file
16
ri/ri0400a.h
Executable 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
151
ri/ri0400a.uml
@ -1,22 +1,58 @@
|
|||||||
#include "ab0400.h"
|
#include "ri0400a.h"
|
||||||
|
|
||||||
TOOLBAR "topbar" 0 0 0 2
|
TOOLBAR "topbar" 0 0 0 2
|
||||||
#include <stdbar.h>
|
#include <stdbar.h>
|
||||||
ENDPAGE
|
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
|
PAGE "Riclassificazione" 0 2 0 0
|
||||||
|
|
||||||
LIST F_TIPO 20
|
LIST F_TIPORICL 2 17
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 1 "Tipo di calcolo "
|
PROMPT 2 2 "Tipo "
|
||||||
ITEM "0|Saldi Contabili"
|
ITEM "RI|Riclassificazione" MESSAGE ENABLE,F_RICL|"",F_RICL
|
||||||
ITEM "1|IV Direttiva CEE"
|
ITEM "TS|TeamSystem" MESSAGE DISABLE,F_RICL|"CONTI",F_RICL
|
||||||
ITEM "2|Analisi"
|
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
|
END
|
||||||
|
|
||||||
NUMBER F_ESER 4
|
NUMBER F_ESER 4
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 3 "Esercizio "
|
PROMPT 2 4 "Esercizio "
|
||||||
HELP "Codice d'esercizio da assegnare"
|
HELP "Codice d'esercizio da assegnare"
|
||||||
FLAGS "ZR"
|
FLAGS "ZR"
|
||||||
USE ESC
|
USE ESC
|
||||||
@ -30,81 +66,86 @@ BEGIN
|
|||||||
CHECKTYPE NORMAL
|
CHECKTYPE NORMAL
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING F_PDB 2
|
STRING F_PER 2
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 5 "Codice periodo "
|
PROMPT 2 5 "Codice periodo"
|
||||||
HELP "Codice della tabella periodi di bilancio"
|
HELP "Codice della tabella periodi"
|
||||||
FLAGS "U_"
|
FLAGS "UZ"
|
||||||
USE %PDB
|
USE &PER
|
||||||
INPUT CODTAB F_PDB
|
INPUT CODTAB F_PER
|
||||||
DISPLAY "Codice" CODTAB
|
DISPLAY "Codice" CODTAB
|
||||||
DISPLAY "Descrizione@40" S0
|
DISPLAY "Descrizione@40" S0
|
||||||
DISPLAY "gg.inizio" I0
|
DISPLAY "Giorni" I0
|
||||||
DISPLAY "mm.inizio" I1
|
DISPLAY "Settimane" I1
|
||||||
DISPLAY "gg.fine" I2
|
DISPLAY "Mesi" I2
|
||||||
DISPLAY "mm.fine" I3
|
DISPLAY "Anni" I3
|
||||||
OUTPUT F_PDB CODTAB
|
OUTPUT F_PER CODTAB
|
||||||
|
OUTPUT F_DESCRP S0
|
||||||
CHECKTYPE NORMAL
|
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
|
END
|
||||||
|
|
||||||
DATE F_DAL
|
DATE F_DAL
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 7 "Dal "
|
PROMPT 2 7 "Dal "
|
||||||
|
FIELD DAL
|
||||||
END
|
END
|
||||||
|
|
||||||
DATE F_AL
|
DATE F_AL
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 9 "Al "
|
PROMPT 29 7 "Al "
|
||||||
VALIDATE DATE_CMP_FUNC > F_DAL
|
FLAGS "D"
|
||||||
WARNING "La data finale deve essere maggiore alla data iniziale"
|
WARNING "La data finale deve essere maggiore alla data iniziale"
|
||||||
END
|
END
|
||||||
|
|
||||||
BOOLEAN F_STRUCT
|
BOOLEAN F_STRUCT
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 11 "Intera struttura"
|
PROMPT 2 8 "Intera struttura"
|
||||||
END
|
FIELD ALL
|
||||||
|
|
||||||
BOOLEAN F_MONTH
|
|
||||||
BEGIN
|
|
||||||
PROMPT 42 11 "Suddiviso per mesi"
|
|
||||||
END
|
END
|
||||||
|
|
||||||
BOOLEAN F_PROVV
|
BOOLEAN F_PROVV
|
||||||
BEGIN
|
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
|
END
|
||||||
|
|
||||||
STRING F_OUTPUT 50 30
|
STRING F_OUTPUT 50 30
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 15 "File di output "
|
PROMPT 2 10 "Output "
|
||||||
|
CHECKTYPE REQUIRED
|
||||||
FSELECT ""
|
FSELECT ""
|
||||||
END
|
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
|
ENDPAGE
|
||||||
|
|
||||||
ENDMASK
|
ENDMASK
|
||||||
|
|||||||
14
ri/ri1.cpp
Executable file
14
ri/ri1.cpp
Executable 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
10
ri/ri1.h
Executable 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
28
ri/ri1100.cpp
Executable 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
1069
ri/rilib01.cpp
Executable file
File diff suppressed because it is too large
Load Diff
99
ri/rilib01.h
Executable file
99
ri/rilib01.h
Executable 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
|
||||||
@ -23,6 +23,10 @@ BEGIN
|
|||||||
INPUT CODTAB F_CODTAB
|
INPUT CODTAB F_CODTAB
|
||||||
DISPLAY "Codice@3" CODTAB
|
DISPLAY "Codice@3" CODTAB
|
||||||
DISPLAY "Descrizione@40" S0
|
DISPLAY "Descrizione@40" S0
|
||||||
|
DISPLAY "Giorni" I0
|
||||||
|
DISPLAY "Settimane" I1
|
||||||
|
DISPLAY "Mesi" I2
|
||||||
|
DISPLAY "Anni" I3
|
||||||
OUTPUT F_CODTAB CODTAB
|
OUTPUT F_CODTAB CODTAB
|
||||||
OUTPUT F_DESCR S0
|
OUTPUT F_DESCR S0
|
||||||
CHECKTYPE REQUIRED
|
CHECKTYPE REQUIRED
|
||||||
@ -37,20 +41,19 @@ BEGIN
|
|||||||
USE &PER KEY 2
|
USE &PER KEY 2
|
||||||
INPUT S0 F_DESCR
|
INPUT S0 F_DESCR
|
||||||
DISPLAY "Descrizione@40" S0
|
DISPLAY "Descrizione@40" S0
|
||||||
DISPLAY "Codice@3" CODTAB
|
DISPLAY "Codice" CODTAB
|
||||||
DISPLAY "gg.inizio@3" I0
|
DISPLAY "Giorni" I0
|
||||||
DISPLAY "mm.inizio@3" I1
|
DISPLAY "Settimane" I1
|
||||||
DISPLAY "gg.fine@3" I2
|
DISPLAY "Mesi" I2
|
||||||
DISPLAY "mm.fine@3" I3
|
DISPLAY "Anni" I3
|
||||||
DISPLAY "Numero anni@3" I4
|
|
||||||
COPY OUTPUT F_CODTAB
|
COPY OUTPUT F_CODTAB
|
||||||
CHECKTYPE REQUIRED
|
CHECKTYPE REQUIRED
|
||||||
END
|
END
|
||||||
|
|
||||||
NUMBER F_LUNGH_GG 2
|
NUMBER F_LUNGH_GG 2
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 8 "Lunghezza : giorni 2 "
|
PROMPT 2 8 "Lunghezza : giorni "
|
||||||
HELP "Inserire la durata in giorni "
|
HELP "Inserire la durata in giorni"
|
||||||
FIELD I0
|
FIELD I0
|
||||||
MESSAGE CLEAR,F_LUNGH_SET
|
MESSAGE CLEAR,F_LUNGH_SET
|
||||||
MESSAGE EMPTY ENABLE,F_LUNGH_SET
|
MESSAGE EMPTY ENABLE,F_LUNGH_SET
|
||||||
@ -59,7 +62,7 @@ END
|
|||||||
NUMBER F_LUNGH_SET 1
|
NUMBER F_LUNGH_SET 1
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 9 " : settimane "
|
PROMPT 2 9 " : settimane "
|
||||||
HELP "Inserire la durata in settimane "
|
HELP "Inserire la durata in settimane"
|
||||||
FIELD I1
|
FIELD I1
|
||||||
MESSAGE CLEAR,F_LUNGH_GG
|
MESSAGE CLEAR,F_LUNGH_GG
|
||||||
MESSAGE EMPTY ENABLE,F_LUNGH_GG
|
MESSAGE EMPTY ENABLE,F_LUNGH_GG
|
||||||
@ -68,14 +71,14 @@ END
|
|||||||
NUMBER F_LUNGH_MESI 2
|
NUMBER F_LUNGH_MESI 2
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 10 " : mesi "
|
PROMPT 2 10 " : mesi "
|
||||||
HELP "Inserire la durata in mesi "
|
HELP "Inserire la durata in mesi"
|
||||||
FIELD I2
|
FIELD I2
|
||||||
END
|
END
|
||||||
|
|
||||||
NUMBER F_LUNGH_ANNI 2
|
NUMBER F_LUNGH_ANNI 2
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 11 " : anni "
|
PROMPT 2 11 " : anni "
|
||||||
HELP "Inserire la durata in mesi "
|
HELP "Inserire la durata in anni"
|
||||||
FIELD I3
|
FIELD I3
|
||||||
END
|
END
|
||||||
|
|
||||||
|
|||||||
3
ri/ritbrco.h
Executable file
3
ri/ritbrco.h
Executable file
@ -0,0 +1,3 @@
|
|||||||
|
#define F_CODTAB 101
|
||||||
|
#define F_DESC 102
|
||||||
|
#define F_INDBIL 103
|
||||||
56
ri/ritbrco.uml
Executable file
56
ri/ritbrco.uml
Executable 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
2
ri/ritbric.h
Executable file
@ -0,0 +1,2 @@
|
|||||||
|
#define F_CODTAB 101
|
||||||
|
#define F_DESC 102
|
||||||
44
ri/ritbric.uml
Executable file
44
ri/ritbric.uml
Executable 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
|
||||||
Loading…
x
Reference in New Issue
Block a user