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" #include "cg3100.h"
PAGE "" -1 -1 73 16 PAGE "" -1 -1 73 16
NUMBER F_CODDITTA 5 NUMBER F_CODDITTA 5
BEGIN BEGIN
PROMPT 2 1 "Ditta " PROMPT 2 1 "Ditta "
FLAGS "FRD" FLAGS "FRD"
USE LF_NDITTE KEY 1 USE LF_NDITTE KEY 1
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
INPUT CODDITTA F_CODDITTA INPUT CODDITTA F_CODDITTA
DISPLAY "Codice" CODDITTA DISPLAY "Codice" CODDITTA
DISPLAY "Ragione sociale @50" RAGSOC DISPLAY "Ragione sociale @50" RAGSOC
OUTPUT F_CODDITTA CODDITTA OUTPUT F_CODDITTA CODDITTA
OUTPUT F_RAGSOC RAGSOC OUTPUT F_RAGSOC RAGSOC
END END
STRING F_RAGSOC 50 STRING F_RAGSOC 50
BEGIN BEGIN
PROMPT 2 2 "Ragione sociale " PROMPT 2 2 "Ragione sociale "
FLAGS "D" FLAGS "D"
END END
DATE F_DATASTAMPA DATE F_DATASTAMPA
BEGIN BEGIN
PROMPT 48 1 "Data stampa " PROMPT 48 1 "Data stampa "
HELP "Data in cui viene effettuata la stampa" HELP "Data in cui viene effettuata la stampa"
FLAGS "A" FLAGS "A"
END END
NUMBER F_ANNO 4 NUMBER F_ANNO 4
BEGIN BEGIN
PROMPT 2 4 "Anno esercizio " PROMPT 2 4 "Anno esercizio "
HELP "Anno d'esercizio di cui si vuole la stampa" HELP "Anno d'esercizio di cui si vuole la stampa"
USE ESC KEY 1 USE ESC KEY 1
CHECKTYPE NORMAL CHECKTYPE NORMAL
INPUT CODTAB F_ANNO INPUT CODTAB F_ANNO
DISPLAY "Anno" CODTAB DISPLAY "Anno" CODTAB
DISPLAY "Data inizio esercizio" D0 DISPLAY "Data inizio esercizio" D0
DISPLAY "Data fine esercizio" D1 DISPLAY "Data fine esercizio" D1
OUTPUT F_ANNO CODTAB OUTPUT F_ANNO CODTAB
FLAGS "RZ" FLAGS "RZ"
END END
DATE F_DATAINI DATE F_DATAINI
BEGIN BEGIN
PROMPT 2 5 "Stampa movimenti dalla data " PROMPT 2 5 "Stampa movimenti dalla data "
HELP "Data da cui iniziare la stampa" HELP "Data da cui iniziare la stampa"
END END
DATE F_DATAFIN DATE F_DATAFIN
BEGIN BEGIN
PROMPT 45 5 "alla data " PROMPT 45 5 "alla data "
HELP "Data fino a cui eseguire la stampa" HELP "Data fino a cui eseguire la stampa"
END END
LIST F_TIPOELENCO 9 LIST F_TIPOELENCO 9
BEGIN BEGIN
PROMPT 2 6 "Tipo elenco " PROMPT 2 6 "Tipo elenco "
HELP "Indicare cosa includere nella stampa" HELP "Indicare cosa includere nella stampa"
ITEM "C|Clienti" ITEM "C|Clienti"
MESSAGE HIDE,2@|SHOW,1@|RESET,1@ MESSAGE HIDE,2@|SHOW,1@|RESET,1@
ITEM "F|Fornitori" ITEM "F|Fornitori"
MESSAGE HIDE,2@|SHOW,1@|RESET,1@ MESSAGE HIDE,2@|SHOW,1@|RESET,1@
ITEM "E|Entrambi" ITEM "E|Entrambi"
MESSAGE HIDE,1@|SHOW,2@|RESET,2@ MESSAGE HIDE,1@|SHOW,2@|RESET,2@
END END
NUMBER F_CODICEINI 6 NUMBER F_CODICEINI 6
BEGIN BEGIN
PROMPT 2 7 "Stampa dal codice " PROMPT 2 7 "Stampa dal codice "
HELP "Indicare il codice da cui iniziare la stampa" HELP "Indicare il codice da cui iniziare la stampa"
GROUP 1 GROUP 1
USE LF_CLIFO USE LF_CLIFO
INPUT TIPOCF F_TIPOELENCO SELECT INPUT TIPOCF F_TIPOELENCO SELECT
INPUT CODCF F_CODICEINI INPUT CODCF F_CODICEINI
DISPLAY "Tipo" TIPOCF DISPLAY "Tipo" TIPOCF
DISPLAY "Codice" CODCF DISPLAY "Codice" CODCF
DISPLAY "Ragione sociale@50" RAGSOC DISPLAY "Ragione sociale@50" RAGSOC
OUTPUT F_CODICEINI CODCF OUTPUT F_CODICEINI CODCF
OUTPUT F_RAGSOCINI RAGSOC OUTPUT F_RAGSOCINI RAGSOC
FLAGS "R" FLAGS "R"
END END
STRING F_RAGSOCINI 50 STRING F_RAGSOCINI 50
BEGIN BEGIN
PROMPT 2 8 "" PROMPT 2 8 ""
GROUP 1 GROUP 1
USE LF_CLIFO KEY 2 USE LF_CLIFO KEY 2
INPUT TIPOCF F_TIPOELENCO SELECT INPUT TIPOCF F_TIPOELENCO SELECT
INPUT RAGSOC F_RAGSOCINI INPUT RAGSOC F_RAGSOCINI
DISPLAY "Tipo" TIPOCF DISPLAY "Tipo" TIPOCF
DISPLAY "Ragione sociale@50" RAGSOC DISPLAY "Ragione sociale@50" RAGSOC
DISPLAY "Codice" CODCF DISPLAY "Codice" CODCF
OUTPUT F_RAGSOCINI RAGSOC OUTPUT F_RAGSOCINI RAGSOC
OUTPUT F_CODICEINI CODCF OUTPUT F_CODICEINI CODCF
END END
NUMBER F_CODICEFIN 6 NUMBER F_CODICEFIN 6
BEGIN BEGIN
PROMPT 2 9 "al codice " PROMPT 2 9 "al codice "
HELP "Indicare il codice a cui terminare la stampa" HELP "Indicare il codice a cui terminare la stampa"
GROUP 1 GROUP 1
COPY USE F_CODICEINI COPY USE F_CODICEINI
INPUT TIPOCF F_TIPOELENCO SELECT INPUT TIPOCF F_TIPOELENCO SELECT
INPUT CODCF F_CODICEFIN INPUT CODCF F_CODICEFIN
DISPLAY "Tipo" TIPOCF DISPLAY "Tipo" TIPOCF
DISPLAY "Codice" CODCF DISPLAY "Codice" CODCF
DISPLAY "Ragione sociale@50" RAGSOC DISPLAY "Ragione sociale@50" RAGSOC
OUTPUT F_CODICEFIN CODCF OUTPUT F_CODICEFIN CODCF
OUTPUT F_RAGSOCFIN RAGSOC OUTPUT F_RAGSOCFIN RAGSOC
NUM_EXPR {(#F_CODICEFIN==0)||(#F_CODICEFIN>=#F_CODICEINI)} NUM_EXPR {(#F_CODICEFIN==0)||(#F_CODICEFIN>=#F_CODICEINI)}
WARNING "Limite superiore errato" WARNING "Limite superiore errato"
FLAGS "R" FLAGS "R"
END END
STRING F_RAGSOCFIN 50 STRING F_RAGSOCFIN 50
BEGIN BEGIN
PROMPT 2 10 "" PROMPT 2 10 ""
GROUP 1 GROUP 1
USE LF_CLIFO KEY 2 USE LF_CLIFO KEY 2
INPUT TIPOCF F_TIPOELENCO SELECT INPUT TIPOCF F_TIPOELENCO SELECT
INPUT RAGSOC F_RAGSOCFIN INPUT RAGSOC F_RAGSOCFIN
DISPLAY "Tipo" TIPOCF DISPLAY "Tipo" TIPOCF
DISPLAY "Ragione sociale@50" RAGSOC DISPLAY "Ragione sociale@50" RAGSOC
DISPLAY "Codice" CODCF DISPLAY "Codice" CODCF
OUTPUT F_RAGSOCFIN RAGSOC OUTPUT F_RAGSOCFIN RAGSOC
OUTPUT F_CODICEFIN CODCF OUTPUT F_CODICEFIN CODCF
END END
NUMBER F_CODICEINI1 6 NUMBER F_CODICEINI1 6
BEGIN BEGIN
PROMPT 2 7 "Stampa dal codice " PROMPT 2 7 "Stampa dal codice "
HELP "Indicare il codice da cui iniziare la stampa" HELP "Indicare il codice da cui iniziare la stampa"
GROUP 2 GROUP 2
USE LF_CLIFO KEY 1 USE LF_CLIFO KEY 1
INPUT TIPOCF "C" INPUT TIPOCF "C"
INPUT CODCF F_CODICEINI1 INPUT CODCF F_CODICEINI1
DISPLAY "Tipo" TIPOCF DISPLAY "Tipo" TIPOCF
DISPLAY "Codice" CODCF DISPLAY "Codice" CODCF
DISPLAY "Ragione sociale@50" RAGSOC DISPLAY "Ragione sociale@50" RAGSOC
OUTPUT F_CODICEINI1 CODCF OUTPUT F_CODICEINI1 CODCF
OUTPUT F_RAGSOCINI1 RAGSOC OUTPUT F_RAGSOCINI1 RAGSOC
FLAGS "R" FLAGS "R"
END END
STRING F_RAGSOCINI1 50 STRING F_RAGSOCINI1 50
BEGIN BEGIN
PROMPT 2 8 "" PROMPT 2 8 ""
GROUP 2 GROUP 2
USE LF_CLIFO KEY 2 USE LF_CLIFO KEY 2
INPUT TIPOCF "C" INPUT TIPOCF "C"
INPUT RAGSOC F_RAGSOCINI1 INPUT RAGSOC F_RAGSOCINI1
DISPLAY "Tipo" TIPOCF DISPLAY "Tipo" TIPOCF
DISPLAY "Ragione sociale@50" RAGSOC DISPLAY "Ragione sociale@50" RAGSOC
DISPLAY "Codice" CODCF DISPLAY "Codice" CODCF
OUTPUT F_RAGSOCINI1 RAGSOC OUTPUT F_RAGSOCINI1 RAGSOC
OUTPUT F_CODICEINI1 CODCF OUTPUT F_CODICEINI1 CODCF
END END
NUMBER F_CODICEFIN1 6 NUMBER F_CODICEFIN1 6
BEGIN BEGIN
PROMPT 2 9 "al codice " PROMPT 2 9 "al codice "
HELP "Indicare il codice a cui terminare la stampa" HELP "Indicare il codice a cui terminare la stampa"
GROUP 2 GROUP 2
COPY USE F_CODICEINI1 COPY USE F_CODICEINI1
INPUT TIPOCF "F" INPUT TIPOCF "F"
INPUT CODCF F_CODICEFIN1 INPUT CODCF F_CODICEFIN1
DISPLAY "Tipo" TIPOCF DISPLAY "Tipo" TIPOCF
DISPLAY "Codice" CODCF DISPLAY "Codice" CODCF
DISPLAY "Ragione sociale@50" RAGSOC DISPLAY "Ragione sociale@50" RAGSOC
OUTPUT F_CODICEFIN1 CODCF OUTPUT F_CODICEFIN1 CODCF
OUTPUT F_RAGSOCFIN1 RAGSOC OUTPUT F_RAGSOCFIN1 RAGSOC
NUM_EXPR {(#F_CODICEFIN1==0)||(#F_CODICEFIN1>=#F_CODICEINI1)} NUM_EXPR {(#F_CODICEFIN1==0)||(#F_CODICEFIN1>=#F_CODICEINI1)}
WARNING "Limite superiore errato" WARNING "Limite superiore errato"
FLAGS "R" FLAGS "R"
END END
STRING F_RAGSOCFIN1 50 STRING F_RAGSOCFIN1 50
BEGIN BEGIN
PROMPT 2 10 "" PROMPT 2 10 ""
GROUP 2 GROUP 2
USE LF_CLIFO KEY 2 USE LF_CLIFO KEY 2
INPUT TIPOCF "F" INPUT TIPOCF "F"
INPUT RAGSOC F_RAGSOCFIN1 INPUT RAGSOC F_RAGSOCFIN1
DISPLAY "Tipo" TIPOCF DISPLAY "Tipo" TIPOCF
DISPLAY "Ragione sociale@50" RAGSOC DISPLAY "Ragione sociale@50" RAGSOC
DISPLAY "Codice" CODCF DISPLAY "Codice" CODCF
OUTPUT F_RAGSOCFIN1 RAGSOC OUTPUT F_RAGSOCFIN1 RAGSOC
OUTPUT F_CODICEFIN1 CODCF OUTPUT F_CODICEFIN1 CODCF
END END
BOOLEAN F_CAMBIO BOOLEAN F_CAMBIO
BEGIN BEGIN
PROMPT 2 12 "Cambio pagina per cliente/fornitore " PROMPT 2 12 "Cambio pagina per cliente/fornitore "
HELP "Indicare se cambiare pagina nel passaggio da cliente/fornitore a cliente/fornitore" HELP "Indicare se cambiare pagina nel passaggio da cliente/fornitore a cliente/fornitore"
END END
BOOLEAN F_STAMPAMOVP BOOLEAN F_STAMPAMOVP
BEGIN BEGIN
PROMPT 2 13 "Stampa movimenti provvisori " PROMPT 2 13 "Stampa movimenti provvisori "
HELP "Indicare se stampare i movimenti provvisori" HELP "Indicare se stampare i movimenti provvisori"
END END
BUTTON DLG_OK 9 2 BUTTON DLG_OK 9 2
BEGIN BEGIN
PROMPT -12 -1 "" PROMPT -12 -1 ""
END END
BUTTON DLG_QUIT 9 2 BUTTON DLG_QUIT 9 2
BEGIN BEGIN
PROMPT -22 -1 "" PROMPT -22 -1 ""
END END
ENDPAGE ENDPAGE
ENDMASK 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 <mov.h>
#include <mailbox.h> #include <mailbox.h>
#include <xvtility.h>
real TLiquidazione_app::CENTO(100.0); real TLiquidazione_app::CENTO(100.0);
@ -152,37 +153,11 @@ bool TLiquidazione_app::user_create()
if (pnd) pnd->addstatus(1); if (pnd) pnd->addstatus(1);
if (_is_interactive) if (_is_interactive)
{ {
TLocalisamfile& dt = _nditte->lfile(); build_nomiditte(pnd);
build_ditte_sheet(all);
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_ditte_sheet(all);
if (pnd) pnd->addstatus(1); if (pnd) pnd->addstatus(1);
TApplication::set_firm(__firm); TApplication::set_firm(__firm);
@ -375,6 +350,51 @@ long TLiquidazione_app::select_firm_range(long from, long to, wht freq)
// ----------------------------------------------- handlers // ----------------------------------------------- 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) bool TLiquidazione_app::to_ditt_handler(TMask_field& f, KEY key)
{ {
TMask& m = f.mask(); 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_DTO, to_butt_handler);
m.set_handler(CG43_BUT_DFR, fr_butt_handler); m.set_handler(CG43_BUT_DFR, fr_butt_handler);
m.set_handler(CG43_RDB_VERS, what_freq_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_SELECTED).set(format("%ld",_selected.ones()));
m.field(CG43_FLD_ANNO).set(_year);
set_choice_limits(m); set_choice_limits(m);
KEY k; KEY k;

11
cg/cg4300.h
View File

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

2
cg/cg4300a.uml
View File

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