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

Rinfurbita scelta anno liquidazione

Browse Source 
Corrette cazzatelle


git-svn-id: svn://10.65.10.50/trunk@819 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
villa 1995-01-03 16:45:39 +00:00
parent 16f9494a42
commit d4a3b2a822
8 changed files with 8763 additions and 8734 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9950
cg/cg1600.cpp
View File

File diff suppressed because it is too large Load Diff

436
cg/cg3100b.uml
View File

@ -1,218 +1,218 @@
#include "cg3100.h"
PAGE "" -1 -1 73 16
NUMBER F_CODDITTA 5
BEGIN
PROMPT 2 1 "Ditta "
FLAGS "FRD"
USE LF_NDITTE KEY 1
CHECKTYPE REQUIRED
INPUT CODDITTA F_CODDITTA
DISPLAY "Codice" CODDITTA
DISPLAY "Ragione sociale @50" RAGSOC
OUTPUT F_CODDITTA CODDITTA
OUTPUT F_RAGSOC RAGSOC
END
STRING F_RAGSOC 50
BEGIN
PROMPT 2 2 "Ragione sociale "
FLAGS "D"
END
DATE F_DATASTAMPA
BEGIN
PROMPT 48 1 "Data stampa "
HELP "Data in cui viene effettuata la stampa"
FLAGS "A"
END
NUMBER F_ANNO 4
BEGIN
PROMPT 2 4 "Anno esercizio "
HELP "Anno d'esercizio di cui si vuole la stampa"
USE ESC KEY 1
CHECKTYPE NORMAL
INPUT CODTAB F_ANNO
DISPLAY "Anno" CODTAB
DISPLAY "Data inizio esercizio" D0
DISPLAY "Data fine esercizio" D1
OUTPUT F_ANNO CODTAB
FLAGS "RZ"
END
DATE F_DATAINI
BEGIN
PROMPT 2 5 "Stampa movimenti dalla data "
HELP "Data da cui iniziare la stampa"
END
DATE F_DATAFIN
BEGIN
PROMPT 45 5 "alla data "
HELP "Data fino a cui eseguire la stampa"
END
LIST F_TIPOELENCO 9
BEGIN
PROMPT 2 6 "Tipo elenco "
HELP "Indicare cosa includere nella stampa"
ITEM "C|Clienti"
MESSAGE HIDE,2@|SHOW,1@|RESET,1@
ITEM "F|Fornitori"
MESSAGE HIDE,2@|SHOW,1@|RESET,1@
ITEM "E|Entrambi"
MESSAGE HIDE,1@|SHOW,2@|RESET,2@
END
NUMBER F_CODICEINI 6
BEGIN
PROMPT 2 7 "Stampa dal codice "
HELP "Indicare il codice da cui iniziare la stampa"
GROUP 1
USE LF_CLIFO
INPUT TIPOCF F_TIPOELENCO SELECT
INPUT CODCF F_CODICEINI
DISPLAY "Tipo" TIPOCF
DISPLAY "Codice" CODCF
DISPLAY "Ragione sociale@50" RAGSOC
OUTPUT F_CODICEINI CODCF
OUTPUT F_RAGSOCINI RAGSOC
FLAGS "R"
END
STRING F_RAGSOCINI 50
BEGIN
PROMPT 2 8 ""
GROUP 1
USE LF_CLIFO KEY 2
INPUT TIPOCF F_TIPOELENCO SELECT
INPUT RAGSOC F_RAGSOCINI
DISPLAY "Tipo" TIPOCF
DISPLAY "Ragione sociale@50" RAGSOC
DISPLAY "Codice" CODCF
OUTPUT F_RAGSOCINI RAGSOC
OUTPUT F_CODICEINI CODCF
END
NUMBER F_CODICEFIN 6
BEGIN
PROMPT 2 9 "al codice "
HELP "Indicare il codice a cui terminare la stampa"
GROUP 1
COPY USE F_CODICEINI
INPUT TIPOCF F_TIPOELENCO SELECT
INPUT CODCF F_CODICEFIN
DISPLAY "Tipo" TIPOCF
DISPLAY "Codice" CODCF
DISPLAY "Ragione sociale@50" RAGSOC
OUTPUT F_CODICEFIN CODCF
OUTPUT F_RAGSOCFIN RAGSOC
NUM_EXPR {(#F_CODICEFIN==0)||(#F_CODICEFIN>=#F_CODICEINI)}
WARNING "Limite superiore errato"
FLAGS "R"
END
STRING F_RAGSOCFIN 50
BEGIN
PROMPT 2 10 ""
GROUP 1
USE LF_CLIFO KEY 2
INPUT TIPOCF F_TIPOELENCO SELECT
INPUT RAGSOC F_RAGSOCFIN
DISPLAY "Tipo" TIPOCF
DISPLAY "Ragione sociale@50" RAGSOC
DISPLAY "Codice" CODCF
OUTPUT F_RAGSOCFIN RAGSOC
OUTPUT F_CODICEFIN CODCF
END
NUMBER F_CODICEINI1 6
BEGIN
PROMPT 2 7 "Stampa dal codice "
HELP "Indicare il codice da cui iniziare la stampa"
GROUP 2
USE LF_CLIFO KEY 1
INPUT TIPOCF "C"
INPUT CODCF F_CODICEINI1
DISPLAY "Tipo" TIPOCF
DISPLAY "Codice" CODCF
DISPLAY "Ragione sociale@50" RAGSOC
OUTPUT F_CODICEINI1 CODCF
OUTPUT F_RAGSOCINI1 RAGSOC
FLAGS "R"
END
STRING F_RAGSOCINI1 50
BEGIN
PROMPT 2 8 ""
GROUP 2
USE LF_CLIFO KEY 2
INPUT TIPOCF "C"
INPUT RAGSOC F_RAGSOCINI1
DISPLAY "Tipo" TIPOCF
DISPLAY "Ragione sociale@50" RAGSOC
DISPLAY "Codice" CODCF
OUTPUT F_RAGSOCINI1 RAGSOC
OUTPUT F_CODICEINI1 CODCF
END
NUMBER F_CODICEFIN1 6
BEGIN
PROMPT 2 9 "al codice "
HELP "Indicare il codice a cui terminare la stampa"
GROUP 2
COPY USE F_CODICEINI1
INPUT TIPOCF "F"
INPUT CODCF F_CODICEFIN1
DISPLAY "Tipo" TIPOCF
DISPLAY "Codice" CODCF
DISPLAY "Ragione sociale@50" RAGSOC
OUTPUT F_CODICEFIN1 CODCF
OUTPUT F_RAGSOCFIN1 RAGSOC
NUM_EXPR {(#F_CODICEFIN1==0)||(#F_CODICEFIN1>=#F_CODICEINI1)}
WARNING "Limite superiore errato"
FLAGS "R"
END
STRING F_RAGSOCFIN1 50
BEGIN
PROMPT 2 10 ""
GROUP 2
USE LF_CLIFO KEY 2
INPUT TIPOCF "F"
INPUT RAGSOC F_RAGSOCFIN1
DISPLAY "Tipo" TIPOCF
DISPLAY "Ragione sociale@50" RAGSOC
DISPLAY "Codice" CODCF
OUTPUT F_RAGSOCFIN1 RAGSOC
OUTPUT F_CODICEFIN1 CODCF
END
BOOLEAN F_CAMBIO
BEGIN
PROMPT 2 12 "Cambio pagina per cliente/fornitore "
HELP "Indicare se cambiare pagina nel passaggio da cliente/fornitore a cliente/fornitore"
END
BOOLEAN F_STAMPAMOVP
BEGIN
PROMPT 2 13 "Stampa movimenti provvisori "
HELP "Indicare se stampare i movimenti provvisori"
END
BUTTON DLG_OK 9 2
BEGIN
PROMPT -12 -1 ""
END
BUTTON DLG_QUIT 9 2
BEGIN
PROMPT -22 -1 ""
END
ENDPAGE
ENDMASK
#include "cg3100.h"
PAGE "" -1 -1 73 16
NUMBER F_CODDITTA 5
BEGIN
PROMPT 2 1 "Ditta "
FLAGS "FRD"
USE LF_NDITTE KEY 1
CHECKTYPE REQUIRED
INPUT CODDITTA F_CODDITTA
DISPLAY "Codice" CODDITTA
DISPLAY "Ragione sociale @50" RAGSOC
OUTPUT F_CODDITTA CODDITTA
OUTPUT F_RAGSOC RAGSOC
END
STRING F_RAGSOC 50
BEGIN
PROMPT 2 2 "Ragione sociale "
FLAGS "D"
END
DATE F_DATASTAMPA
BEGIN
PROMPT 48 1 "Data stampa "
HELP "Data in cui viene effettuata la stampa"
FLAGS "A"
END
NUMBER F_ANNO 4
BEGIN
PROMPT 2 4 "Anno esercizio "
HELP "Anno d'esercizio di cui si vuole la stampa"
USE ESC KEY 1
CHECKTYPE NORMAL
INPUT CODTAB F_ANNO
DISPLAY "Anno" CODTAB
DISPLAY "Data inizio esercizio" D0
DISPLAY "Data fine esercizio" D1
OUTPUT F_ANNO CODTAB
FLAGS "RZ"
END
DATE F_DATAINI
BEGIN
PROMPT 2 5 "Stampa movimenti dalla data "
HELP "Data da cui iniziare la stampa"
END
DATE F_DATAFIN
BEGIN
PROMPT 45 5 "alla data "
HELP "Data fino a cui eseguire la stampa"
END
LIST F_TIPOELENCO 9
BEGIN
PROMPT 2 6 "Tipo elenco "
HELP "Indicare cosa includere nella stampa"
ITEM "C|Clienti"
MESSAGE HIDE,2@|SHOW,1@|RESET,1@
ITEM "F|Fornitori"
MESSAGE HIDE,2@|SHOW,1@|RESET,1@
ITEM "E|Entrambi"
MESSAGE HIDE,1@|SHOW,2@|RESET,2@
END
NUMBER F_CODICEINI 6
BEGIN
PROMPT 2 7 "Stampa dal codice "
HELP "Indicare il codice da cui iniziare la stampa"
GROUP 1
USE LF_CLIFO
INPUT TIPOCF F_TIPOELENCO SELECT
INPUT CODCF F_CODICEINI
DISPLAY "Tipo" TIPOCF
DISPLAY "Codice" CODCF
DISPLAY "Ragione sociale@50" RAGSOC
OUTPUT F_CODICEINI CODCF
OUTPUT F_RAGSOCINI RAGSOC
FLAGS "R"
END
STRING F_RAGSOCINI 50
BEGIN
PROMPT 2 8 ""
GROUP 1
USE LF_CLIFO KEY 2
INPUT TIPOCF F_TIPOELENCO SELECT
INPUT RAGSOC F_RAGSOCINI
DISPLAY "Tipo" TIPOCF
DISPLAY "Ragione sociale@50" RAGSOC
DISPLAY "Codice" CODCF
OUTPUT F_RAGSOCINI RAGSOC
OUTPUT F_CODICEINI CODCF
END
NUMBER F_CODICEFIN 6
BEGIN
PROMPT 2 9 "al codice "
HELP "Indicare il codice a cui terminare la stampa"
GROUP 1
COPY USE F_CODICEINI
INPUT TIPOCF F_TIPOELENCO SELECT
INPUT CODCF F_CODICEFIN
DISPLAY "Tipo" TIPOCF
DISPLAY "Codice" CODCF
DISPLAY "Ragione sociale@50" RAGSOC
OUTPUT F_CODICEFIN CODCF
OUTPUT F_RAGSOCFIN RAGSOC
NUM_EXPR {(#F_CODICEFIN==0)||(#F_CODICEFIN>=#F_CODICEINI)}
WARNING "Limite superiore errato"
FLAGS "R"
END
STRING F_RAGSOCFIN 50
BEGIN
PROMPT 2 10 ""
GROUP 1
USE LF_CLIFO KEY 2
INPUT TIPOCF F_TIPOELENCO SELECT
INPUT RAGSOC F_RAGSOCFIN
DISPLAY "Tipo" TIPOCF
DISPLAY "Ragione sociale@50" RAGSOC
DISPLAY "Codice" CODCF
OUTPUT F_RAGSOCFIN RAGSOC
OUTPUT F_CODICEFIN CODCF
END
NUMBER F_CODICEINI1 6
BEGIN
PROMPT 2 7 "Stampa dal codice "
HELP "Indicare il codice da cui iniziare la stampa"
GROUP 2
USE LF_CLIFO KEY 1
INPUT TIPOCF "C"
INPUT CODCF F_CODICEINI1
DISPLAY "Tipo" TIPOCF
DISPLAY "Codice" CODCF
DISPLAY "Ragione sociale@50" RAGSOC
OUTPUT F_CODICEINI1 CODCF
OUTPUT F_RAGSOCINI1 RAGSOC
FLAGS "R"
END
STRING F_RAGSOCINI1 50
BEGIN
PROMPT 2 8 ""
GROUP 2
USE LF_CLIFO KEY 2
INPUT TIPOCF "C"
INPUT RAGSOC F_RAGSOCINI1
DISPLAY "Tipo" TIPOCF
DISPLAY "Ragione sociale@50" RAGSOC
DISPLAY "Codice" CODCF
OUTPUT F_RAGSOCINI1 RAGSOC
OUTPUT F_CODICEINI1 CODCF
END
NUMBER F_CODICEFIN1 6
BEGIN
PROMPT 2 9 "al codice "
HELP "Indicare il codice a cui terminare la stampa"
GROUP 2
COPY USE F_CODICEINI1
INPUT TIPOCF "F"
INPUT CODCF F_CODICEFIN1
DISPLAY "Tipo" TIPOCF
DISPLAY "Codice" CODCF
DISPLAY "Ragione sociale@50" RAGSOC
OUTPUT F_CODICEFIN1 CODCF
OUTPUT F_RAGSOCFIN1 RAGSOC
NUM_EXPR {(#F_CODICEFIN1==0)||(#F_CODICEFIN1>=#F_CODICEINI1)}
WARNING "Limite superiore errato"
FLAGS "R"
END
STRING F_RAGSOCFIN1 50
BEGIN
PROMPT 2 10 ""
GROUP 2
USE LF_CLIFO KEY 2
INPUT TIPOCF "F"
INPUT RAGSOC F_RAGSOCFIN1
DISPLAY "Tipo" TIPOCF
DISPLAY "Ragione sociale@50" RAGSOC
DISPLAY "Codice" CODCF
OUTPUT F_RAGSOCFIN1 RAGSOC
OUTPUT F_CODICEFIN1 CODCF
END
BOOLEAN F_CAMBIO
BEGIN
PROMPT 2 12 "Cambio pagina per cliente/fornitore "
HELP "Indicare se cambiare pagina nel passaggio da cliente/fornitore a cliente/fornitore"
END
BOOLEAN F_STAMPAMOVP
BEGIN
PROMPT 2 13 "Stampa movimenti provvisori "
HELP "Indicare se stampare i movimenti provvisori"
END
BUTTON DLG_OK 9 2
BEGIN
PROMPT -12 -1 ""
END
BUTTON DLG_QUIT 9 2
BEGIN
PROMPT -22 -1 ""
END
ENDPAGE
ENDMASK

4050
cg/cg3200.cpp
View File

File diff suppressed because it is too large Load Diff

1106
cg/cg3200a.uml
View File

File diff suppressed because it is too large Load Diff

1862
cg/cg3500.cpp
View File

File diff suppressed because it is too large Load Diff

80
cg/cg4300.cpp
View File

@ -15,6 +15,7 @@
#include <mov.h>
#include <mailbox.h>
#include <xvtility.h>
real TLiquidazione_app::CENTO(100.0);
@ -152,37 +153,11 @@ bool TLiquidazione_app::user_create()
if (pnd) pnd->addstatus(1);
if (_is_interactive)
{
TLocalisamfile& dt = _nditte->lfile();
for (dt.first(); !dt.eof(); dt.next())
{
// check no archivi
bool good = prefhndl->exist(dt.get_long("CODDITTA"));
if (good)
{
// check no parametri liquidazione
TApplication::set_firm(dt.get_long("CODDITTA"));
if (!look_lia()) good = FALSE;
}
_n_ditte++;
TToken_string* d = new TToken_string(64);
// add record
d->add(dt.get("CODDITTA"));
d->add(dt.get("RAGSOC"));
if (good) d->add(_lia->get("S7"));
else d->add("??");
_nomiditte.add(d);
}
{
build_nomiditte(pnd);
build_ditte_sheet(all);
}
build_ditte_sheet(all);
if (pnd) pnd->addstatus(1);
TApplication::set_firm(__firm);
@ -375,6 +350,51 @@ long TLiquidazione_app::select_firm_range(long from, long to, wht freq)
// ----------------------------------------------- handlers
bool TLiquidazione_app::ch_year_handler(TMask_field& f, KEY key)
{
if (key == K_TAB && f.focusdirty())
{
app().begin_wait();
app().set_year(f.get());
app().build_nomiditte();
app().build_ditte_sheet((wht)atoi(f.mask().get(CG43_RDB_VERS)));
app().end_wait();
}
return TRUE;
}
void TLiquidazione_app::build_nomiditte(TProgind* pnd)
{
_nomiditte.destroy();
// ricostruire _nomiditte e rifare build_ditte_sheet
TLocalisamfile& dt = _nditte->lfile();
for (dt.first(); !dt.eof(); dt.next())
{
// check no archivi
bool good = prefhndl->exist(dt.get_long("CODDITTA"));
if (good)
{
// check no parametri liquidazione
TApplication::set_firm(dt.get_long("CODDITTA"));
if (!look_lia()) good = FALSE;
}
TToken_string* d = new TToken_string(64);
// add record
d->add(dt.get("CODDITTA"));
d->add(dt.get("RAGSOC"));
if (good) d->add(_lia->get("S7"));
else d->add("??");
_nomiditte.add(d);
if (pnd) pnd->addstatus(1);
}
TApplication::set_firm(__firm);
}
bool TLiquidazione_app::to_ditt_handler(TMask_field& f, KEY key)
{
TMask& m = f.mask();
@ -528,8 +548,10 @@ bool TLiquidazione_app::set_liquidazione()
m.set_handler(CG43_BUT_DTO, to_butt_handler);
m.set_handler(CG43_BUT_DFR, fr_butt_handler);
m.set_handler(CG43_RDB_VERS, what_freq_handler);
m.set_handler(CG43_FLD_ANNO, ch_year_handler);
m.field(CG43_FLD_SELECTED).set(format("%ld",_selected.ones()));
m.field(CG43_FLD_ANNO).set(_year);
set_choice_limits(m);
KEY k;

11
cg/cg4300.h
View File

@ -13,6 +13,8 @@
#include <tabutil.h>
#endif
class TProgind;
// ------------------------------------------------------------------
// Parametri modificabili
// ------------------------------------------------------------------
@ -257,12 +259,14 @@ class TLiquidazione_app : public TPrint_application
TRecfield* _del_mese;
TRecfield* _del_tipo;
TRecfield* _lim_anno;
TRecfield* _lim_mese;
TRecfield* _lim_mese;
protected:
long select_firm_range(long from, long to, wht freq);
static bool ch_year_handler(TMask_field& f, KEY key);
static bool to_ditt_handler(TMask_field& f, KEY key);
static bool fr_ditt_handler(TMask_field& f, KEY key);
static bool to_butt_handler(TMask_field& f, KEY key);
@ -276,13 +280,16 @@ public:
virtual bool user_create();
virtual bool user_destroy();
virtual bool set_print(int i);
// cazzatelle per handlers
TArray_sheet* get_ditte_sheet() { return _ditte; }
TBit_array& get_selected() { return _selected; }
void build_ditte_sheet(wht);
void reset_choices(TMask&);
void set_choice_limits(TMask&);
void build_nomiditte(TProgind* pnd = NULL);
void set_year(const char* y) { _year = y; }
bool set_liquidazione();
bool recalc_all();

2
cg/cg4300a.uml
View File

@ -64,7 +64,7 @@ NUMBER CG43_FLD_ANNO 4
BEGIN
PROMPT 31 7 "Anno "
HELP "Anno per cui effettuare il calcolo"
FLAGS "A"
CHECKTYPE REQUIRED
END
LIST CG43_LST_MESE 13