Corretto MI0363 liquidiazione piu' altre cose qua e la'
Altri modificati per cause spurie cvs-related git-svn-id: svn://10.65.10.50/trunk@801 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
villa
parent
f3c7cb1e11
commit
929a349a3c
48
cg/cg0.h
48
cg/cg0.h
@ -1,24 +1,24 @@
|
||||
#ifndef __CG0_H
|
||||
#define __CG0_H
|
||||
|
||||
int cg0100(int argc, char* argv[]);
|
||||
int cg0200(int argc, char* argv[]);
|
||||
int cg0300(int argc, char* argv[]);
|
||||
int cg0400(int argc, char* argv[]);
|
||||
int cg0500(int argc, char* argv[]);
|
||||
|
||||
#endif // __CG0_H
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
#ifndef __CG0_H
|
||||
#define __CG0_H
|
||||
|
||||
int cg0100(int argc, char* argv[]);
|
||||
int cg0200(int argc, char* argv[]);
|
||||
int cg0300(int argc, char* argv[]);
|
||||
int cg0400(int argc, char* argv[]);
|
||||
int cg0500(int argc, char* argv[]);
|
||||
|
||||
#endif // __CG0_H
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
36
cg/cg0300.h
36
cg/cg0300.h
@ -9,21 +9,21 @@
|
||||
#define N_CODCF "CODCF"
|
||||
|
||||
#define F_ANNO 101
|
||||
#define F_CODATT 102
|
||||
#define F_TIPOCF 103
|
||||
#define F_CODCF 104
|
||||
#define F_IMMESSO 105
|
||||
#define F_IMPESC 106
|
||||
#define F_IVAESC 107
|
||||
#define F_NIESC 108
|
||||
#define F_E8ESC 109
|
||||
#define F_NDOCESC 110
|
||||
#define F_IMPESP 111
|
||||
#define F_IVAESP 112
|
||||
#define F_NIESP 113
|
||||
#define F_E8ESP 114
|
||||
#define F_NDOCESP 115
|
||||
#define F_PROG101102 116
|
||||
#define F_CODATT 102
|
||||
#define F_TIPOCF 103
|
||||
#define F_CODCF 104
|
||||
#define F_IMMESSO 105
|
||||
#define F_IMPESC 106
|
||||
#define F_IVAESC 107
|
||||
#define F_NIESC 108
|
||||
#define F_E8ESC 109
|
||||
#define F_NDOCESC 110
|
||||
#define F_IMPESP 111
|
||||
#define F_IVAESP 112
|
||||
#define F_NIESP 113
|
||||
#define F_E8ESP 114
|
||||
#define F_NDOCESP 115
|
||||
#define F_PROG101102 116
|
||||
#define F_CODDITTA 117
|
||||
#define F_RAGSOC 118
|
||||
#define F_COFI 119
|
||||
@ -38,7 +38,7 @@
|
||||
#define F_PROMPT 128
|
||||
#define F_RAGSOC_D 129
|
||||
#define F_DENATT 130
|
||||
#define F_CODATTH 131
|
||||
#define F_CODCFH 132
|
||||
#define F_CODATTH 131
|
||||
#define F_CODCFH 132
|
||||
|
||||
#endif // __CG0300_H
|
||||
#endif // __CG0300_H
|
||||
|
||||
30
cg/cg0400.h
30
cg/cg0400.h
@ -1,13 +1,13 @@
|
||||
#ifndef __CG0400_H
|
||||
#define __CG0400_H
|
||||
/****
|
||||
#define TCLI "C"
|
||||
#define TCLI "C"
|
||||
|
||||
#define N_CODDITTA "CODDITTA"
|
||||
#define N_CODATTPREV "CODATTPREV"
|
||||
#define N_CODATT "CODATT"
|
||||
#define N_CODCF "CODCF"
|
||||
***/
|
||||
#define N_CODDITTA "CODDITTA"
|
||||
#define N_CODATTPREV "CODATTPREV"
|
||||
#define N_CODATT "CODATT"
|
||||
#define N_CODCF "CODCF"
|
||||
***/
|
||||
#define TAB_REG "REG"
|
||||
#define TAB_PIM "PIM"
|
||||
|
||||
@ -25,16 +25,16 @@
|
||||
#define F_VUOILORDI 111
|
||||
#define F_TIPO1 112
|
||||
/*
|
||||
#define F_TOTALE1 122
|
||||
#define F_TOTALE2 123
|
||||
#define F_TOTALE3 124
|
||||
#define F_TOTALE4 125
|
||||
#define F_TOTALE5 126
|
||||
#define F_TOTALE6 127
|
||||
#define F_PROMPT 128
|
||||
*/
|
||||
#define F_TOTALE1 122
|
||||
#define F_TOTALE2 123
|
||||
#define F_TOTALE3 124
|
||||
#define F_TOTALE4 125
|
||||
#define F_TOTALE5 126
|
||||
#define F_TOTALE6 127
|
||||
#define F_PROMPT 128
|
||||
*/
|
||||
|
||||
#endif // __CG0400_H
|
||||
#endif // __CG0400_H
|
||||
|
||||
|
||||
|
||||
|
||||
@ -1,4 +1,4 @@
|
||||
#define F_FROMDATE 101
|
||||
#define F_FROMREG 102
|
||||
#define F_TODATE 103
|
||||
#define F_TOREG 104
|
||||
#define F_FROMDATE 101
|
||||
#define F_FROMREG 102
|
||||
#define F_TODATE 103
|
||||
#define F_TOREG 104
|
||||
|
||||
20
cg/cg3300.h
20
cg/cg3300.h
@ -6,7 +6,7 @@ enum stampe {
|
||||
modulo101=3,
|
||||
modulo102=4,
|
||||
entrambi=5
|
||||
};
|
||||
};
|
||||
|
||||
class desc_campo : public TObject
|
||||
{
|
||||
@ -27,7 +27,7 @@ public:
|
||||
const desc_campo& campi(int i) { return (const desc_campo&) _campi[i]; }
|
||||
int riga (int i) { return ((const desc_campo&)_campi[i])._riga; }
|
||||
const char * formato (int i)
|
||||
{ return ((desc_campo&)_campi[i])._formato; }
|
||||
{ return ((desc_campo&)_campi[i])._formato; }
|
||||
void add (int, const char*);
|
||||
void leggi_modulo (const char *, const char *);
|
||||
|
||||
@ -55,7 +55,7 @@ public:
|
||||
real ivaesc_real() { return ivaesc; }
|
||||
|
||||
const char * tot_str() { return tot.string("@@@@@@@@@@@"); }
|
||||
// const char * esc_str() { return esc.string("@@@@@@@@@@@"); }
|
||||
// const char * esc_str() { return esc.string("@@@@@@@@@@@"); }
|
||||
const char * impesc_str() { return impesc.string("@@@@@@@@@@@"); }
|
||||
const char * ivaesc_str() { return ivaesc.string("@@@@@@@@@@@"); }
|
||||
|
||||
@ -70,7 +70,7 @@ struct alleg_sort {
|
||||
char cognome_dic [31];
|
||||
char nome_dic [21];
|
||||
char ragsoc_dic[51];
|
||||
// char datana_dic[11];
|
||||
// char datana_dic[11];
|
||||
TDate datana_dic;
|
||||
char sesso_dic [2];
|
||||
char comunena_dic [51];
|
||||
@ -127,7 +127,7 @@ class SortRecord {
|
||||
TTable * _tpd;
|
||||
struct alleg_sort * _all;
|
||||
|
||||
protected:
|
||||
protected:
|
||||
TRectype& look_com(const char *);
|
||||
long cerca_codice_all(TString tipo, long codcf) ;
|
||||
const char * decodifica_desc_att (TString & codatt);
|
||||
@ -153,7 +153,7 @@ public:
|
||||
|
||||
struct Totali {
|
||||
|
||||
// Totali anno corrente
|
||||
// Totali anno corrente
|
||||
real _tot_tot_rigac;
|
||||
int _tot_esc;
|
||||
real _tot_impesc;
|
||||
@ -161,7 +161,7 @@ struct Totali {
|
||||
real _tot_niesc;
|
||||
real _tot_e8esc;
|
||||
|
||||
// Totali anno precedente
|
||||
// Totali anno precedente
|
||||
real _tot_tot_rigap;
|
||||
int _tot_esp;
|
||||
real _tot_impesp;
|
||||
@ -169,7 +169,7 @@ struct Totali {
|
||||
real _tot_niesp;
|
||||
real _tot_e8esp;
|
||||
|
||||
// Riporti
|
||||
// Riporti
|
||||
real _rip_tot_riga;
|
||||
int _rip_tot_es;
|
||||
real _rip_tot_impes;
|
||||
@ -211,7 +211,7 @@ enum modi_stampa {
|
||||
modulo=1,
|
||||
controllo=2,
|
||||
dischetto=3
|
||||
};
|
||||
};
|
||||
|
||||
enum posizioni {
|
||||
PAIVA_DIC = 0,
|
||||
@ -298,5 +298,5 @@ enum posizioni {
|
||||
TOT_E8ESP,
|
||||
TOT_SEGNO_TOTALE,
|
||||
TOT_TOTALE
|
||||
};
|
||||
};
|
||||
|
||||
|
||||
246
cg/cg4200a.uml
246
cg/cg4200a.uml
@ -1,123 +1,123 @@
|
||||
#include "cg4200.h"
|
||||
|
||||
PAGE "Copia da ditta a ditta" -1 -1 78 16
|
||||
|
||||
GROUPBOX DLG_NULL 76 6
|
||||
BEGIN
|
||||
PROMPT 1 1 "Copia da"
|
||||
END
|
||||
|
||||
RADIOBUTTON F_FROMTYPE 60
|
||||
BEGIN
|
||||
PROMPT 13 2 ""
|
||||
HELP "Indicare il tipo di archivi da copiare"
|
||||
ITEMS "C|Archivi Comuni"
|
||||
MESSAGE CLEAR,F_FROMFIRM|CLEAR,F_DFROMFIRM
|
||||
ITEMS "D|Archivi Ditta"
|
||||
MESSAGE ENABLE,F_FROMFIRM|ENABLE,F_DFROMFIRM
|
||||
FLAGS "Z"
|
||||
END
|
||||
|
||||
NUMBER F_FROMFIRM 5
|
||||
BEGIN
|
||||
PROMPT 4 5 "Ditta "
|
||||
FLAGS "R"
|
||||
USE LF_NDITTE KEY 1
|
||||
CHECKTYPE NORMAL
|
||||
INPUT CODDITTA F_FROMFIRM
|
||||
DISPLAY "Codice" CODDITTA
|
||||
DISPLAY "Ragione sociale @50" RAGSOC
|
||||
OUTPUT F_FROMFIRM CODDITTA
|
||||
OUTPUT F_DFROMFIRM RAGSOC
|
||||
HELP "Codice della ditta da cui prelevare i dati"
|
||||
WARNING "Ditta assente"
|
||||
END
|
||||
|
||||
STRING F_DFROMFIRM 50
|
||||
BEGIN
|
||||
PROMPT 20 5 ""
|
||||
USE LF_NDITTE KEY 2
|
||||
CHECKTYPE NORMAL
|
||||
INPUT RAGSOC F_DFROMFIRM
|
||||
DISPLAY "Ragione sociale @50" RAGSOC
|
||||
DISPLAY "Codice" CODDITTA
|
||||
COPY OUTPUT F_FROMFIRM
|
||||
HELP "Ragione sociale della ditta da cui prelevare i dati"
|
||||
WARNING "Ditta assente"
|
||||
END
|
||||
|
||||
GROUPBOX DLG_NULL 76 3
|
||||
BEGIN
|
||||
PROMPT 1 7 "Copia su"
|
||||
END
|
||||
|
||||
NUMBER F_TOFIRM 5
|
||||
BEGIN
|
||||
PROMPT 4 8 "Ditta "
|
||||
FLAGS "FR"
|
||||
COPY USE F_FROMFIRM
|
||||
CHECKTYPE REQUIRED
|
||||
INPUT CODDITTA F_TOFIRM
|
||||
DISPLAY "Codice" CODDITTA
|
||||
DISPLAY "Ragione sociale @50" RAGSOC
|
||||
OUTPUT F_TOFIRM CODDITTA
|
||||
OUTPUT F_DTOFIRM RAGSOC
|
||||
HELP "Codice della ditta su cui duplicare i dati"
|
||||
WARNING "Ditta assente"
|
||||
END
|
||||
|
||||
STRING F_DTOFIRM 50
|
||||
BEGIN
|
||||
PROMPT 20 8 ""
|
||||
COPY USE F_DFROMFIRM
|
||||
CHECKTYPE NORMAL
|
||||
INPUT RAGSOC F_DTOFIRM
|
||||
COPY DISPLAY F_DFROMFIRM
|
||||
COPY OUTPUT F_TOFIRM
|
||||
HELP "Ragione sociale della ditta su cui duplicare i dati"
|
||||
WARNING "Ditta assente"
|
||||
END
|
||||
|
||||
GROUPBOX DLG_NULL 76 4
|
||||
BEGIN
|
||||
PROMPT 1 10 "Archivi da duplicare"
|
||||
END
|
||||
|
||||
BOOLEAN F_PCON
|
||||
BEGIN
|
||||
PROMPT 4 11 "Piano dei conti"
|
||||
HELP "Indicare se duplicare l'archivio piano dei conti"
|
||||
END
|
||||
|
||||
BOOLEAN F_CAUS
|
||||
BEGIN
|
||||
PROMPT 34 11 "Causali"
|
||||
HELP "Indicare se duplicare l'archivio causali"
|
||||
END
|
||||
|
||||
BOOLEAN F_CLIFO
|
||||
BEGIN
|
||||
PROMPT 54 11 "Clienti/Fornitori"
|
||||
HELP "Indicare se duplicare l'archivio clienti/fornitori"
|
||||
END
|
||||
|
||||
BOOLEAN F_IVD
|
||||
BEGIN
|
||||
PROMPT 4 12 "IV Direttiva C.E.E."
|
||||
HELP "Indicare se duplicare l'archivio IV Direttiva C.E.E."
|
||||
END
|
||||
|
||||
BUTTON DLG_OK 9 2
|
||||
BEGIN
|
||||
PROMPT -12 -1 ""
|
||||
END
|
||||
|
||||
BUTTON DLG_QUIT 9 2
|
||||
BEGIN
|
||||
PROMPT -22 -1 ""
|
||||
MESSAGE EXIT,K_QUIT
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
ENDMASK
|
||||
#include "cg4200.h"
|
||||
|
||||
PAGE "Copia da ditta a ditta" -1 -1 78 16
|
||||
|
||||
GROUPBOX DLG_NULL 76 6
|
||||
BEGIN
|
||||
PROMPT 1 1 "Copia da"
|
||||
END
|
||||
|
||||
RADIOBUTTON F_FROMTYPE 60
|
||||
BEGIN
|
||||
PROMPT 13 2 ""
|
||||
HELP "Indicare il tipo di archivi da copiare"
|
||||
ITEMS "C|Archivi Comuni"
|
||||
MESSAGE CLEAR,F_FROMFIRM|CLEAR,F_DFROMFIRM
|
||||
ITEMS "D|Archivi Ditta"
|
||||
MESSAGE ENABLE,F_FROMFIRM|ENABLE,F_DFROMFIRM
|
||||
FLAGS "Z"
|
||||
END
|
||||
|
||||
NUMBER F_FROMFIRM 5
|
||||
BEGIN
|
||||
PROMPT 4 5 "Ditta "
|
||||
FLAGS "R"
|
||||
USE LF_NDITTE KEY 1
|
||||
CHECKTYPE NORMAL
|
||||
INPUT CODDITTA F_FROMFIRM
|
||||
DISPLAY "Codice" CODDITTA
|
||||
DISPLAY "Ragione sociale @50" RAGSOC
|
||||
OUTPUT F_FROMFIRM CODDITTA
|
||||
OUTPUT F_DFROMFIRM RAGSOC
|
||||
HELP "Codice della ditta da cui prelevare i dati"
|
||||
WARNING "Ditta assente"
|
||||
END
|
||||
|
||||
STRING F_DFROMFIRM 50
|
||||
BEGIN
|
||||
PROMPT 20 5 ""
|
||||
USE LF_NDITTE KEY 2
|
||||
CHECKTYPE NORMAL
|
||||
INPUT RAGSOC F_DFROMFIRM
|
||||
DISPLAY "Ragione sociale @50" RAGSOC
|
||||
DISPLAY "Codice" CODDITTA
|
||||
COPY OUTPUT F_FROMFIRM
|
||||
HELP "Ragione sociale della ditta da cui prelevare i dati"
|
||||
WARNING "Ditta assente"
|
||||
END
|
||||
|
||||
GROUPBOX DLG_NULL 76 3
|
||||
BEGIN
|
||||
PROMPT 1 7 "Copia su"
|
||||
END
|
||||
|
||||
NUMBER F_TOFIRM 5
|
||||
BEGIN
|
||||
PROMPT 4 8 "Ditta "
|
||||
FLAGS "FR"
|
||||
COPY USE F_FROMFIRM
|
||||
CHECKTYPE REQUIRED
|
||||
INPUT CODDITTA F_TOFIRM
|
||||
DISPLAY "Codice" CODDITTA
|
||||
DISPLAY "Ragione sociale @50" RAGSOC
|
||||
OUTPUT F_TOFIRM CODDITTA
|
||||
OUTPUT F_DTOFIRM RAGSOC
|
||||
HELP "Codice della ditta su cui duplicare i dati"
|
||||
WARNING "Ditta assente"
|
||||
END
|
||||
|
||||
STRING F_DTOFIRM 50
|
||||
BEGIN
|
||||
PROMPT 20 8 ""
|
||||
COPY USE F_DFROMFIRM
|
||||
CHECKTYPE NORMAL
|
||||
INPUT RAGSOC F_DTOFIRM
|
||||
COPY DISPLAY F_DFROMFIRM
|
||||
COPY OUTPUT F_TOFIRM
|
||||
HELP "Ragione sociale della ditta su cui duplicare i dati"
|
||||
WARNING "Ditta assente"
|
||||
END
|
||||
|
||||
GROUPBOX DLG_NULL 76 4
|
||||
BEGIN
|
||||
PROMPT 1 10 "Archivi da duplicare"
|
||||
END
|
||||
|
||||
BOOLEAN F_PCON
|
||||
BEGIN
|
||||
PROMPT 4 11 "Piano dei conti"
|
||||
HELP "Indicare se duplicare l'archivio piano dei conti"
|
||||
END
|
||||
|
||||
BOOLEAN F_CAUS
|
||||
BEGIN
|
||||
PROMPT 34 11 "Causali"
|
||||
HELP "Indicare se duplicare l'archivio causali"
|
||||
END
|
||||
|
||||
BOOLEAN F_CLIFO
|
||||
BEGIN
|
||||
PROMPT 54 11 "Clienti/Fornitori"
|
||||
HELP "Indicare se duplicare l'archivio clienti/fornitori"
|
||||
END
|
||||
|
||||
BOOLEAN F_IVD
|
||||
BEGIN
|
||||
PROMPT 4 12 "IV Direttiva C.E.E."
|
||||
HELP "Indicare se duplicare l'archivio IV Direttiva C.E.E."
|
||||
END
|
||||
|
||||
BUTTON DLG_OK 9 2
|
||||
BEGIN
|
||||
PROMPT -12 -1 ""
|
||||
END
|
||||
|
||||
BUTTON DLG_QUIT 9 2
|
||||
BEGIN
|
||||
PROMPT -22 -1 ""
|
||||
MESSAGE EXIT,K_QUIT
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
ENDMASK
|
||||
|
||||
305
cg/cg4300.cpp
305
cg/cg4300.cpp
@ -8,6 +8,7 @@
|
||||
#include <progind.h>
|
||||
#include <sheet.h>
|
||||
#include <prefix.h>
|
||||
#include <utility.h>
|
||||
|
||||
#include "cg4300.h"
|
||||
#include "cg4300a.h"
|
||||
@ -20,11 +21,12 @@ real TLiquidazione_app::CENTO(100.0);
|
||||
inline TLiquidazione_app& app()
|
||||
{ return (TLiquidazione_app&)main_app(); }
|
||||
|
||||
TLiquidazione_app::TLiquidazione_app()
|
||||
: _ditte(NULL), _selected(10000), _year(4), _nomiditte(100)
|
||||
TLiquidazione_app::TLiquidazione_app() :
|
||||
_ditte(NULL), _selected(10000),
|
||||
_year(4), _nomiditte(100)
|
||||
{
|
||||
_isprint = _is_interactive = TRUE; _recalc = needed;
|
||||
_isplafond = _isfinal = _is_visliq = FALSE;
|
||||
_isplafond = _printonly = _is_visliq = FALSE;
|
||||
_isvent = _isagricolo = _isbenzinaro = _isviaggio = FALSE;
|
||||
_row = 1; _what = all; _comp_acconto = FALSE;
|
||||
_isriepilogo = FALSE; _calcall = FALSE;
|
||||
@ -117,6 +119,7 @@ bool TLiquidazione_app::user_create()
|
||||
// ACHTUNG: tutti i _codatt (codici attivita') sono
|
||||
// in realta' composti dal codice attivita' piu' il
|
||||
// tipo attivita' (1 o 2)
|
||||
// sarebbe piu' saggio fare 2 campi ma ci vuole 1 vita
|
||||
|
||||
_pim_anno = new TRecfield(*_pim_r,"CODTAB",0,3);
|
||||
_pim_codatt = new TRecfield(*_pim_r,"CODTAB",4,9);
|
||||
@ -153,16 +156,16 @@ bool TLiquidazione_app::user_create()
|
||||
TLocalisamfile& dt = _nditte->lfile();
|
||||
|
||||
for (dt.first(); !dt.eof(); dt.next())
|
||||
{
|
||||
// no archivi
|
||||
if (!prefhndl->exist(dt.get_long("CODDITTA")))
|
||||
continue;
|
||||
|
||||
TApplication::set_firm(dt.get_long("CODDITTA"));
|
||||
|
||||
// no parametri liquidazione
|
||||
if (!look_lia())
|
||||
continue;
|
||||
{
|
||||
// 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++;
|
||||
|
||||
@ -171,9 +174,10 @@ bool TLiquidazione_app::user_create()
|
||||
// add record
|
||||
d->add(dt.get("CODDITTA"));
|
||||
d->add(dt.get("RAGSOC"));
|
||||
d->add(_lia->get("S7"));
|
||||
if (good) d->add(_lia->get("S7"));
|
||||
else d->add("??");
|
||||
|
||||
_nomiditte.add(d);
|
||||
_nomiditte.add(d);
|
||||
}
|
||||
}
|
||||
|
||||
@ -339,141 +343,240 @@ bool TLiquidazione_app::set_print(int n)
|
||||
|
||||
long TLiquidazione_app::select_firm_range(long from, long to, wht freq)
|
||||
{
|
||||
if (to == 0) to = 99999L;
|
||||
if (to == 0l) to = 99999L;
|
||||
|
||||
for (int i = 0; i < _nomiditte.items(); i++)
|
||||
for (int i = 0; i < _ditte->items(); i++)
|
||||
{
|
||||
TToken_string& d = (TToken_string&)_nomiditte[i];
|
||||
const char vers = d.get_char(2);
|
||||
if ((freq == mnt && vers == 'T') || (freq == quarter && vers == 'M'))
|
||||
if (_ditte->disabled(i))
|
||||
continue;
|
||||
const long cod = d.get_long(0);
|
||||
|
||||
TToken_string& d = _ditte->row(i);
|
||||
const char vers = d.get_char(3);
|
||||
if (vers == '?' || (freq == mnt && vers == 'T') || (freq == quarter && vers == 'M'))
|
||||
continue;
|
||||
|
||||
const long cod = d.get_long(1);
|
||||
if (cod >= from && cod <= to)
|
||||
_selected.set(i);
|
||||
{
|
||||
_selected.set(i);
|
||||
_ditte->check(i);
|
||||
}
|
||||
else
|
||||
{
|
||||
_selected.set(i,FALSE);
|
||||
_ditte->uncheck(i);
|
||||
}
|
||||
}
|
||||
|
||||
return _selected.ones();
|
||||
}
|
||||
|
||||
// ----------------------------------------------- handlers
|
||||
|
||||
bool TLiquidazione_app::to_ditta_handler(TMask_field& f, KEY key)
|
||||
bool TLiquidazione_app::to_ditt_handler(TMask_field& f, KEY key)
|
||||
{
|
||||
if (key == K_TAB && f.focusdirty() || key == K_ENTER)
|
||||
TMask& m = f.mask();
|
||||
if (key == K_F9)
|
||||
{
|
||||
TMask& m = f.mask();
|
||||
const long from = m.get_long(CG43_FLD_DFR);
|
||||
const long to = m.get_long(CG43_FLD_DTO);
|
||||
const wht freq = (wht)m.get_int(CG43_RDB_VERS);
|
||||
if (from > 0 || to > 0)
|
||||
{
|
||||
const long sel = app().select_firm_range(from, to, freq);
|
||||
m.set(CG43_FLD_SELECTED, sel);
|
||||
// m.reset(CG43_FLD_DFR);
|
||||
// m.reset(CG43_FLD_DTO);
|
||||
}
|
||||
app().to_butt_handler(m.field(CG43_BUT_DTO), K_SPACE);
|
||||
}
|
||||
if (key == K_TAB && f.focusdirty())
|
||||
{
|
||||
const long l = app().select_firm_range(m.get_long(CG43_FLD_DFR),
|
||||
m.get_long(CG43_FLD_DTO),
|
||||
(wht)m.get_int(CG43_RDB_VERS));
|
||||
app().set_choice_limits(m);
|
||||
m.field(CG43_FLD_SELECTED).set(format("%ld", l));
|
||||
}
|
||||
return TRUE;
|
||||
}
|
||||
|
||||
bool TLiquidazione_app::fr_ditt_handler(TMask_field& f, KEY key)
|
||||
{
|
||||
TMask& m = f.mask();
|
||||
if (key == K_F9)
|
||||
{
|
||||
app().fr_butt_handler(m.field(CG43_BUT_DFR), K_SPACE);
|
||||
}
|
||||
else if (key == K_TAB && f.focusdirty())
|
||||
{
|
||||
const long l = app().select_firm_range(m.get_long(CG43_FLD_DFR),
|
||||
m.get_long(CG43_FLD_DTO),
|
||||
(wht)m.get_int(CG43_RDB_VERS));
|
||||
|
||||
app().set_choice_limits(m);
|
||||
m.field(CG43_FLD_SELECTED).set(format("%ld", l));
|
||||
}
|
||||
return TRUE;
|
||||
}
|
||||
|
||||
bool TLiquidazione_app::to_butt_handler(TMask_field& f, KEY key)
|
||||
{
|
||||
if (key == K_SPACE)
|
||||
{
|
||||
TArray_sheet* sh = app().get_ditte_sheet();
|
||||
TMask& m = f.mask();
|
||||
|
||||
sh->disable_check();
|
||||
if (sh->run() == K_ENTER)
|
||||
{
|
||||
app().select_firm_range(m.get_long(CG43_FLD_DFR),sh->row(sh->selected()).get_long(1),
|
||||
(wht)m.get_int(CG43_RDB_VERS));
|
||||
app().set_choice_limits(m);
|
||||
}
|
||||
}
|
||||
return TRUE;
|
||||
}
|
||||
|
||||
bool TLiquidazione_app::fr_butt_handler(TMask_field& f, KEY key)
|
||||
{
|
||||
if (key == K_SPACE)
|
||||
{
|
||||
TMask& m = f.mask();
|
||||
TArray_sheet* sh = ((TLiquidazione_app&)main_app()).get_ditte_sheet();
|
||||
|
||||
sh->disable_check();
|
||||
if (sh->run() == K_ENTER)
|
||||
{
|
||||
app().select_firm_range(sh->row(sh->selected()).get_long(1), m.get_long(CG43_FLD_DTO),
|
||||
(wht)m.get_int(CG43_RDB_VERS));
|
||||
app().set_choice_limits(m);
|
||||
}
|
||||
}
|
||||
return TRUE;
|
||||
}
|
||||
|
||||
bool TLiquidazione_app::what_freq_handler(TMask_field& f, KEY key)
|
||||
{
|
||||
if (key == K_SPACE && f.dirty())
|
||||
{
|
||||
if (*(f.get()) == '3') // trimestre intelligente
|
||||
{
|
||||
int month = f.mask().get_int(CG43_LST_MESE);
|
||||
if (month > 3)
|
||||
while (!is_trim(month)) month--;
|
||||
else month = 3;
|
||||
|
||||
f.mask().field(CG43_LST_TRIM).set(format("%d",month));
|
||||
}
|
||||
app().reset_choices(f.mask());
|
||||
app().build_ditte_sheet((wht)atoi(f.get()));
|
||||
}
|
||||
return TRUE;
|
||||
}
|
||||
|
||||
void TLiquidazione_app::reset_choices(TMask& m)
|
||||
{
|
||||
_selected.reset();
|
||||
m.reset(CG43_FLD_SELECTED);
|
||||
m.reset(CG43_FLD_DFR);
|
||||
m.reset(CG43_FLD_DTO);
|
||||
_ditte->check(-1, FALSE);
|
||||
}
|
||||
|
||||
void TLiquidazione_app::set_choice_limits(TMask& m)
|
||||
{
|
||||
long first = -1l, last = -1l;
|
||||
for (int i = 0; i < _ditte->items(); i++)
|
||||
{
|
||||
if (_selected[i])
|
||||
{
|
||||
long dit = _ditte->row(i).get_long(1);
|
||||
if (first == -1l) first = dit;
|
||||
if (last < dit) last = dit;
|
||||
}
|
||||
}
|
||||
if (first != -1) m.field(CG43_FLD_DFR).set(format("%ld",first));
|
||||
if (last != -1) m.field(CG43_FLD_DTO).set(format("%ld",last));
|
||||
m.set(CG43_FLD_SELECTED, _selected.ones());
|
||||
}
|
||||
|
||||
void TLiquidazione_app::build_ditte_sheet(wht what)
|
||||
{
|
||||
// build sheet
|
||||
_ditte->destroy();
|
||||
_what = what;
|
||||
for (int i = 0; i < _nomiditte.items(); i++)
|
||||
{
|
||||
TToken_string* d = new TToken_string(64);
|
||||
*d = (TToken_string&)_nomiditte[i];
|
||||
const char vers = d->get_char(2);
|
||||
|
||||
bool selectable = vers == '?';
|
||||
if ((what == mnt && vers == 'T') || (what == quarter && vers == 'M'))
|
||||
continue;
|
||||
|
||||
d->insert(" |", 0);
|
||||
|
||||
const long pos = _ditte->add(d);
|
||||
if (selectable) _ditte->disable(pos);
|
||||
else if (_selected[i]) _ditte->check(pos);
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
// ----------------------------------------------------
|
||||
|
||||
bool TLiquidazione_app::set_liquidazione()
|
||||
{
|
||||
TMask m("cg4300a.msk");
|
||||
m.set_handler(CG43_FLD_DTO, to_ditta_handler);
|
||||
|
||||
TMask m("cg4300a.msk");
|
||||
|
||||
m.set_handler(CG43_FLD_DTO, to_ditt_handler);
|
||||
m.set_handler(CG43_FLD_DFR, fr_ditt_handler);
|
||||
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.field(CG43_FLD_SELECTED).set("0");
|
||||
_selected.reset();
|
||||
|
||||
KEY k;
|
||||
// stampa abilitata per default
|
||||
m.set(CG43_CHK_STAMPA,"X");
|
||||
m.set(CG43_CHK_STAMPA,"X");
|
||||
|
||||
_month = m.get_int(CG43_LST_MESE);
|
||||
build_ditte_sheet(all);
|
||||
|
||||
do
|
||||
{
|
||||
k = m.run();
|
||||
if ((k = m.run()) == K_ESC) break;
|
||||
|
||||
if (k == K_ESC) break;
|
||||
// handlers have set everything
|
||||
|
||||
_month = _what == quarter ? m.get_int(CG43_LST_TRIM) :
|
||||
m.get_int(CG43_LST_MESE);
|
||||
|
||||
_what = (wht)m.get_int(CG43_RDB_VERS);
|
||||
_month = m.get_int(CG43_LST_MESE);
|
||||
|
||||
if (_what == all)
|
||||
{
|
||||
if (_month != 3 && _month != 6 && _month != 9 &&
|
||||
_month != 12 && _month != 13)
|
||||
_what = mnt;
|
||||
}
|
||||
else if (_what == quarter)
|
||||
_month = m.get_int(CG43_LST_TRIM);
|
||||
|
||||
_year = m.get(CG43_FLD_ANNO);
|
||||
_date = m.get(CG43_FLD_DATA);
|
||||
_isprint = m.get_bool(CG43_CHK_STAMPA);
|
||||
_recalc = (recalc)m.get_long(CG43_LST_CALC);
|
||||
_isfinal = m.get_bool(CG43_CHK_FINAL);
|
||||
_year = m.get(CG43_FLD_ANNO);
|
||||
_date = m.get(CG43_FLD_DATA);
|
||||
_isprint = m.get_bool(CG43_CHK_STAMPA);
|
||||
_recalc = (recalc)m.get_long(CG43_LST_CALC);
|
||||
_printonly = m.get_bool(CG43_CHK_FINAL);
|
||||
|
||||
if (_isprint) printer().setdate(_date);
|
||||
|
||||
if (_printonly) _recalc = never;
|
||||
|
||||
// ------------------------------------------------
|
||||
m.first_focus(k);
|
||||
|
||||
int i;
|
||||
|
||||
|
||||
switch(k)
|
||||
{
|
||||
case DLG_SELECT:
|
||||
// build sheet
|
||||
_ditte->destroy();
|
||||
for (i = 0; i < _nomiditte.items(); i++)
|
||||
{
|
||||
TToken_string* d = new TToken_string(64);
|
||||
*d = (TToken_string&)_nomiditte[i];
|
||||
const char vers = d->get_char(2);
|
||||
|
||||
if ((_what == mnt && vers == 'T') || (_what == quarter && vers == 'M'))
|
||||
continue;
|
||||
|
||||
d->insert(" |", 0);
|
||||
const long pos = _ditte->add(d);
|
||||
if (_selected[i]) _ditte->check(pos);
|
||||
}
|
||||
|
||||
_ditte->enable_check();
|
||||
// seleziona e aggiungi alle gia' selezionate
|
||||
if (_ditte->run() == K_ENTER)
|
||||
{
|
||||
for (long j = 0l; j < _ditte->items(); j++)
|
||||
{
|
||||
const long cod = _ditte->row(j).get_long(1);
|
||||
for (int d = 0; d < _nomiditte.items(); d++)
|
||||
{
|
||||
const long firm = ((TToken_string&)_nomiditte[d]).get_long(0);
|
||||
if (firm == cod)
|
||||
{
|
||||
bool minchia = _ditte->checked(j);
|
||||
_selected.set(d, _ditte->checked(j));
|
||||
break;
|
||||
}
|
||||
}
|
||||
#ifdef DBG
|
||||
if (d >= _nomiditte.items())
|
||||
yesnofatal_box("Non ritrovo piu' la ditta %ld", cod);
|
||||
#endif
|
||||
}
|
||||
_selected.set(j, _ditte->checked(j));
|
||||
set_choice_limits(m);
|
||||
}
|
||||
m.set(CG43_FLD_SELECTED, _selected.ones());
|
||||
break;
|
||||
|
||||
case CG43_BUT_ANN:
|
||||
_selected.reset();
|
||||
m.reset(CG43_FLD_SELECTED);
|
||||
reset_choices(m);
|
||||
break;
|
||||
}
|
||||
}
|
||||
while (k != K_ENTER && k != K_ESC);
|
||||
|
||||
|
||||
|
||||
return k == K_ENTER;
|
||||
}
|
||||
|
||||
|
||||
23
cg/cg4300.h
23
cg/cg4300.h
@ -160,7 +160,7 @@ class TLiquidazione_app : public TPrint_application
|
||||
int _month; // mese da calcolare
|
||||
TDate _date; // data di stampa
|
||||
bool _isprint; // vuoi stampare o no?
|
||||
bool _isfinal; // calcolo definitivo
|
||||
bool _printonly; // calcolo definitivo
|
||||
recalc _recalc; // tipo ricalcolo scelto
|
||||
bool _isplafond; // plafond importatori abituali
|
||||
bool _isvent; // ventilazione
|
||||
@ -259,15 +259,30 @@ class TLiquidazione_app : public TPrint_application
|
||||
TRecfield* _lim_anno;
|
||||
TRecfield* _lim_mese;
|
||||
|
||||
protected:
|
||||
protected:
|
||||
|
||||
long select_firm_range(long from, long to, wht freq);
|
||||
static bool to_ditta_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);
|
||||
static bool fr_butt_handler(TMask_field& f, KEY key);
|
||||
static bool what_freq_handler(TMask_field& f, KEY key);
|
||||
|
||||
static TLiquidazione_app& app() { return (TLiquidazione_app&)main_app(); }
|
||||
|
||||
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&);
|
||||
|
||||
bool set_liquidazione();
|
||||
bool recalc_all();
|
||||
@ -362,7 +377,7 @@ public:
|
||||
_VentItem* look_ventilation(int m, const char* codreg);
|
||||
|
||||
// tutti i controlli del mondo sui mesi da calcolare
|
||||
bool is_trim (int x);
|
||||
static bool is_trim (int x);
|
||||
bool is_month_ok (int x, int month = -1);
|
||||
bool is_date_ok (TDate& d, int month);
|
||||
bool is_first_month (int m);
|
||||
|
||||
@ -13,3 +13,5 @@
|
||||
#define CG43_FLD_DTO 114
|
||||
#define CG43_LST_CALC 115
|
||||
#define CG43_CHK_FINAL 116
|
||||
#define CG43_BUT_DFR 117
|
||||
#define CG43_BUT_DTO 118
|
||||
@ -4,7 +4,7 @@ PAGE "Calcolo Liquidazioni" -1 -1 68 15
|
||||
RADIOBUTTON CG43_RDB_VERS 15
|
||||
BEGIN
|
||||
PROMPT 4 1 "Versamenti"
|
||||
HELP "Indicare di quali versamenti procedere con la liquidazione"
|
||||
HELP "Indicare di quali versamenti procedere con la liquidazione"
|
||||
ITEM "1|Tutti" MESSAGE HIDE,CG43_LST_TRIM|SHOW,CG43_LST_MESE
|
||||
ITEM "2|Mensili" MESSAGE HIDE,CG43_LST_TRIM|SHOW,CG43_LST_MESE
|
||||
ITEM "3|Trimestrali" MESSAGE SHOW,CG43_LST_TRIM|HIDE,CG43_LST_MESE
|
||||
@ -19,25 +19,25 @@ END
|
||||
NUMBER CG43_FLD_DFR 5
|
||||
BEGIN
|
||||
PROMPT 24 2 "Da codice "
|
||||
FLAGS "UR"
|
||||
HELP "Codice ditta di partenza per la selezione"
|
||||
USE LF_NDITTE KEY 1
|
||||
DISPLAY "Codice" CODDITTA
|
||||
DISPLAY "Ragione sociale@50" RAGSOC
|
||||
DISPLAY "Vers" FREQVIVA
|
||||
OUTPUT CG43_FLD_DFR CODDITTA
|
||||
HELP "Codice ditta di partenza per la selezione"
|
||||
END
|
||||
|
||||
BUTTON CG43_BUT_DFR 2 1
|
||||
BEGIN
|
||||
PROMPT 40 2 "*"
|
||||
PICTURE 109
|
||||
END
|
||||
|
||||
NUMBER CG43_FLD_DTO 5
|
||||
BEGIN
|
||||
PROMPT 24 3 "A codice "
|
||||
FLAGS "UR"
|
||||
HELP "Codice ditta di fine selezione"
|
||||
COPY USE CG43_FLD_DFR
|
||||
DISPLAY "Codice" CODDITTA
|
||||
DISPLAY "Ragione sociale@50" RAGSOC
|
||||
DISPLAY "Vers" FREQVIVA
|
||||
OUTPUT CG43_FLD_DTO CODDITTA
|
||||
HELP "Codice ditta di fine selezione"
|
||||
END
|
||||
|
||||
BUTTON CG43_BUT_DTO 2 1
|
||||
BEGIN
|
||||
PROMPT 40 3 "*"
|
||||
PICTURE 109
|
||||
END
|
||||
|
||||
STRING CG43_FLD_SELECTED 5
|
||||
@ -49,45 +49,36 @@ END
|
||||
BUTTON DLG_SELECT 10 2
|
||||
BEGIN
|
||||
PROMPT 48 2 "~Selezione"
|
||||
HELP "Selezione ditte di cui fare la liquidazione"
|
||||
HELP "Selezione ditte di cui fare la liquidazione"
|
||||
MESSAGE EXIT, DLG_SELECT
|
||||
END
|
||||
|
||||
BUTTON CG43_BUT_ANN 10
|
||||
BEGIN
|
||||
PROMPT 48 4 "A~zzera"
|
||||
HELP "Azzerare la selezione delle ditte da fare la liquidazione"
|
||||
HELP "Azzerare la selezione delle ditte da fare la liquidazione"
|
||||
MESSAGE EXIT,CG43_BUT_ANN
|
||||
END
|
||||
|
||||
/*
|
||||
BUTTON CG43_BUT_CHK 8
|
||||
BEGIN
|
||||
PROMPT 50 4 "Verifica"
|
||||
MESSAGE EXIT,CG43_BUT_CHK
|
||||
END
|
||||
*/
|
||||
|
||||
NUMBER CG43_FLD_ANNO 4
|
||||
BEGIN
|
||||
PROMPT 30 7 "Anno "
|
||||
PROMPT 31 7 "Anno "
|
||||
HELP "Anno per cui effettuare il calcolo"
|
||||
FLAGS "A"
|
||||
END
|
||||
|
||||
|
||||
LIST CG43_LST_MESE 10
|
||||
LIST CG43_LST_MESE 13
|
||||
BEGIN
|
||||
PROMPT 4 7 "Periodo "
|
||||
HELP "Mese per cui effettuare il calcolo liquidazione"
|
||||
HELP "Mese per cui effettuare il calcolo liquidazione"
|
||||
ITEM "13|Annuale"
|
||||
FLAGS "AM"
|
||||
END
|
||||
|
||||
LIST CG43_LST_TRIM 12
|
||||
LIST CG43_LST_TRIM 13
|
||||
BEGIN
|
||||
PROMPT 4 7 "Periodo "
|
||||
HELP "Trimestre di cui effettuare il calcolo liquidazione"
|
||||
HELP "Trimestre di cui effettuare il calcolo liquidazione"
|
||||
ITEM "3|1 Trimestre "
|
||||
ITEM "6|2 Trimestre "
|
||||
ITEM "9|3 Trimestre "
|
||||
@ -98,7 +89,7 @@ END
|
||||
LIST CG43_LST_CALC 13
|
||||
BEGIN
|
||||
PROMPT 4 8 "Ricalcola "
|
||||
HELP "Indicare se rifare il calcolo durante la stampa"
|
||||
HELP "Indicare se rifare il calcolo durante la stampa"
|
||||
// ITEM "1|Se necessario"
|
||||
ITEM "2|Mese corrente"
|
||||
ITEM "3|Tutti i mesi"
|
||||
@ -115,7 +106,7 @@ END
|
||||
BOOLEAN CG43_CHK_STAMPA
|
||||
BEGIN
|
||||
PROMPT 5 11 "Esegui "
|
||||
HELP "Indicare se stampare il prospetto delle liquidazioni"
|
||||
HELP "Indicare se stampare il prospetto delle liquidazioni"
|
||||
MESSAGE TRUE ENABLE,CG43_FLD_DATA
|
||||
MESSAGE FALSE DISABLE,CG43_FLD_DATA
|
||||
END
|
||||
@ -123,16 +114,18 @@ END
|
||||
|
||||
DATE CG43_FLD_DATA
|
||||
BEGIN
|
||||
PROMPT 16 11 "con data "
|
||||
HELP "Data di stampa del prospetto delle liquidazioni"
|
||||
PROMPT 15 11 "con data "
|
||||
HELP "Data di stampa del prospetto delle liquidazioni"
|
||||
FLAGS "A"
|
||||
END
|
||||
|
||||
|
||||
BOOLEAN CG43_CHK_FINAL
|
||||
BEGIN
|
||||
PROMPT 47 11 "Definitivo"
|
||||
HELP "Indicare se la liquidazione e' registrata come definitiva"
|
||||
PROMPT 47 11 "Solo stampa"
|
||||
HELP "Indicare se si desidera la sola stampa delle liquidazioni calcolate"
|
||||
MESSAGE TRUE DISABLE,CG43_LST_CALC
|
||||
MESSAGE FALSE ENABLE,CG43_LST_CALC
|
||||
END
|
||||
|
||||
|
||||
|
||||
@ -4,36 +4,41 @@
|
||||
// fv 21-1-94
|
||||
// ------------------------------------------------------------
|
||||
|
||||
#include <progind.h>
|
||||
#include <progind.h>
|
||||
#include <sheet.h>
|
||||
#include "cg4300.h"
|
||||
|
||||
// -------------------- QUI comincia l'avventura --------------------------
|
||||
|
||||
bool TLiquidazione_app::recalc_all()
|
||||
{
|
||||
_prind = new TProgind(_selected.ones()*2,
|
||||
_prind = new TProgind(_selected.ones()*2, _printonly ?
|
||||
" Stampa liquidazione... \n"
|
||||
" Preparazione archivi \n"
|
||||
" " :
|
||||
" Calcolo liquidazione... \n"
|
||||
" Preparazione archivi ",
|
||||
" Preparazione archivi \n"
|
||||
" ",
|
||||
TRUE,TRUE,45);
|
||||
|
||||
for (int l = 0; l < _nomiditte.items(); l++)
|
||||
for (int l = 0; l < _ditte->items(); l++)
|
||||
{
|
||||
if (_prind->iscancelled())
|
||||
break;
|
||||
|
||||
if (_selected[(long)l])
|
||||
{
|
||||
TToken_string& nomeditta = (TToken_string&)_nomiditte[l];
|
||||
TToken_string& nomeditta = _ditte->row(l);
|
||||
|
||||
_nditte->zero();
|
||||
_nditte->curr().put("CODDITTA",nomeditta.get_long(0));
|
||||
_nditte->curr().put("CODDITTA",nomeditta.get_long(1));
|
||||
_nditte->read();
|
||||
|
||||
TApplication::set_firm(nomeditta.get_long(0));
|
||||
TApplication::set_firm(nomeditta.get_long(1));
|
||||
_prind->addstatus(1);
|
||||
|
||||
// trimestrali impropriamente selezionate per mesi intermedi
|
||||
_freqviva = nomeditta.get(2);
|
||||
_freqviva = nomeditta.get(3);
|
||||
if (!is_month_ok(_month)) continue;
|
||||
|
||||
int need_refresh = FALSE;
|
||||
@ -121,7 +126,8 @@ bool TLiquidazione_app::update_firm(int month, bool recalc)
|
||||
// se diventa TRUE);
|
||||
_mixed = FALSE;
|
||||
|
||||
sprintf (buf,"Calcolo liquidazioni (%d)...\n%s: %s",
|
||||
sprintf (buf, _printonly ? "Stampa liquidazione (%d)...\n%s: %s\n" :
|
||||
"Calcolo liquidazione (%d)...\n%s: %s\n",
|
||||
month,
|
||||
(const char*)_nditte_r->get("RAGSOC"),
|
||||
(const char*)desatt);
|
||||
@ -813,8 +819,6 @@ void TLiquidazione_app::write_liq(int month, const char* codatts)
|
||||
_lim->put("R7",ris_cred);
|
||||
_lim->put("R8",ris_deb);
|
||||
_lim->put("B0","X");
|
||||
|
||||
if (_isfinal) _lim->put("B1","X");
|
||||
_lim->rewrite();
|
||||
|
||||
if (month == 12)
|
||||
|
||||
@ -1,4 +1,4 @@
|
||||
#define COD_LIB 123
|
||||
#define U_MESE 124
|
||||
#define U_PAGINA 125
|
||||
#define U_DATA 126
|
||||
#define COD_LIB 123
|
||||
#define U_MESE 124
|
||||
#define U_PAGINA 125
|
||||
#define U_DATA 126
|
||||
|
||||
@ -1,39 +1,39 @@
|
||||
#include "cg4400b.h"
|
||||
|
||||
PAGE "Stampa registri IVA" -1 -1 58 10
|
||||
|
||||
STRING COD_LIB 3
|
||||
BEGIN
|
||||
PROMPT 2 1 "Codice Libro "
|
||||
END
|
||||
|
||||
LISTBOX U_MESE 10
|
||||
BEGIN
|
||||
PROMPT 2 2 "Stampa mese "
|
||||
FLAGS "MD"
|
||||
END
|
||||
|
||||
NUMBER U_PAGINA 4
|
||||
BEGIN
|
||||
PROMPT 2 3 "Ult.num.pagina stampata libro ditta "
|
||||
FLAGS "R"
|
||||
END
|
||||
|
||||
DATE U_DATA
|
||||
BEGIN
|
||||
PROMPT 2 4 "Ultima data di stampa "
|
||||
END
|
||||
|
||||
BUTTON DLG_OK 9 2
|
||||
BEGIN
|
||||
PROMPT -13 7 ""
|
||||
END
|
||||
|
||||
BUTTON DLG_CANCEL 9 2
|
||||
BEGIN
|
||||
PROMPT -23 7 ""
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
#include "cg4400b.h"
|
||||
|
||||
PAGE "Stampa registri IVA" -1 -1 58 10
|
||||
|
||||
STRING COD_LIB 3
|
||||
BEGIN
|
||||
PROMPT 2 1 "Codice Libro "
|
||||
END
|
||||
|
||||
LISTBOX U_MESE 10
|
||||
BEGIN
|
||||
PROMPT 2 2 "Stampa mese "
|
||||
FLAGS "MD"
|
||||
END
|
||||
|
||||
NUMBER U_PAGINA 4
|
||||
BEGIN
|
||||
PROMPT 2 3 "Ult.num.pagina stampata libro ditta "
|
||||
FLAGS "R"
|
||||
END
|
||||
|
||||
DATE U_DATA
|
||||
BEGIN
|
||||
PROMPT 2 4 "Ultima data di stampa "
|
||||
END
|
||||
|
||||
BUTTON DLG_OK 9 2
|
||||
BEGIN
|
||||
PROMPT -13 7 ""
|
||||
END
|
||||
|
||||
BUTTON DLG_CANCEL 9 2
|
||||
BEGIN
|
||||
PROMPT -23 7 ""
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
ENDMASK
|
||||
@ -9,6 +9,6 @@
|
||||
#define F_DESATT 150
|
||||
#define F_TIPOATT 102
|
||||
#define F_PRORATA 103
|
||||
#define F_P8 104
|
||||
#define F_P8B 105
|
||||
#define F_P9 106
|
||||
#define F_P8 104
|
||||
#define F_P8B 105
|
||||
#define F_P9 106
|
||||
|
||||
38
cg/cg5500a.h
38
cg/cg5500a.h
@ -1,19 +1,19 @@
|
||||
#define F_CODDITTA 101
|
||||
#define F_RAGSOC 102
|
||||
#define F_MONTHS 103
|
||||
#define F_TRIMS 104
|
||||
#define F_YEAR 105
|
||||
#define F_VISLIQ1 106
|
||||
#define F_VISLIQ2 107
|
||||
#define F_CREDPREC 108
|
||||
#define F_VISFLQ 109
|
||||
#define F_ACCONTO 110
|
||||
#define F_RIMBORSO 111
|
||||
#define F_RETTIFICA 112
|
||||
#define F_DESCR1 113
|
||||
#define F_DESCR2 114
|
||||
#define F_DEBCRE 115
|
||||
|
||||
#define F_CODDITTA2 201
|
||||
#define F_RAGSOC2 202
|
||||
|
||||
#define F_CODDITTA 101
|
||||
#define F_RAGSOC 102
|
||||
#define F_MONTHS 103
|
||||
#define F_TRIMS 104
|
||||
#define F_YEAR 105
|
||||
#define F_VISLIQ1 106
|
||||
#define F_VISLIQ2 107
|
||||
#define F_CREDPREC 108
|
||||
#define F_VISFLQ 109
|
||||
#define F_ACCONTO 110
|
||||
#define F_RIMBORSO 111
|
||||
#define F_RETTIFICA 112
|
||||
#define F_DESCR1 113
|
||||
#define F_DESCR2 114
|
||||
#define F_DEBCRE 115
|
||||
|
||||
#define F_CODDITTA2 201
|
||||
#define F_RAGSOC2 202
|
||||
|
||||
|
||||
398
cg/cg5500b.uml
398
cg/cg5500b.uml
@ -1,199 +1,199 @@
|
||||
#include "cg5500a.h"
|
||||
|
||||
TOOLBAR "" 0 20 0 2
|
||||
|
||||
#include <toolbar.h>
|
||||
|
||||
ENDPAGE
|
||||
|
||||
PAGE "Visualizzazione liquidazione" -1 -1 77 20
|
||||
|
||||
GROUPBOX DLG_NULL 79 3
|
||||
BEGIN
|
||||
PROMPT 0 1 "@bDitta corrente"
|
||||
END
|
||||
|
||||
NUMBER F_CODDITTA 5
|
||||
BEGIN
|
||||
PROMPT 2 2 "Codice "
|
||||
FLAGS "DFR"
|
||||
USE LF_NDITTE KEY 1
|
||||
INPUT CODDITTA F_CODDITTA
|
||||
OUTPUT F_RAGSOC RAGSOC
|
||||
OUTPUT F_RAGSOC2 RAGSOC
|
||||
CHECKTYPE REQUIRED
|
||||
END
|
||||
|
||||
STRING F_RAGSOC 37 50
|
||||
BEGIN
|
||||
PROMPT 16 2 "Rag. soc. "
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
NUMBER F_CREDPREC 15
|
||||
BEGIN
|
||||
PROMPT 1 5 "Credito inizio anno "
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
SPREADSHEET F_VISLIQ1 80 11
|
||||
BEGIN
|
||||
PROMPT 1 7 "Liquidazione"
|
||||
ITEM "V@1F#109"
|
||||
ITEM "Mese@10"
|
||||
ITEM "Risultato@15"
|
||||
ITEM "D/C"
|
||||
ITEM "IVA rimborso@15"
|
||||
ITEM "IVA rettifiche@15"
|
||||
ITEM "D/C"
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
PAGE "Visualizzazione liquidazione" -1 -1 77 20
|
||||
|
||||
GROUPBOX DLG_NULL 79 3
|
||||
BEGIN
|
||||
PROMPT 0 1 "@bDitta corrente"
|
||||
END
|
||||
|
||||
NUMBER F_CODDITTA2 5
|
||||
BEGIN
|
||||
PROMPT 2 2 "Codice "
|
||||
FLAGS "DFR"
|
||||
END
|
||||
|
||||
STRING F_RAGSOC2 37 50
|
||||
BEGIN
|
||||
PROMPT 16 2 "Rag. soc. "
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
SPREADSHEET F_VISLIQ2 80 11
|
||||
BEGIN
|
||||
PROMPT 1 5 "Versamenti"
|
||||
ITEM "V@1F#109"
|
||||
ITEM "Mese@15"
|
||||
ITEM "Data@10"
|
||||
ITEM "Azienda@5"
|
||||
ITEM "Dipend.@5"
|
||||
ITEM "Concess.@5"
|
||||
ITEM "Versamenti@15"
|
||||
ITEM "D/C"
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
ENDMASK
|
||||
|
||||
PAGE "Prospetto mensile" -1 -1 50 10
|
||||
|
||||
STRING 102 10
|
||||
BEGIN
|
||||
PROMPT 1 2 "Mese "
|
||||
END
|
||||
|
||||
|
||||
NUMBER 103 15 0
|
||||
BEGIN
|
||||
PROMPT 1 3 "Risultato "
|
||||
END
|
||||
|
||||
LIST 104 1 8
|
||||
BEGIN
|
||||
PROMPT 1 4 "Importo a "
|
||||
ITEM "D|Debito"
|
||||
ITEM "C|Credito"
|
||||
INPUT 105
|
||||
OUTPUT 105
|
||||
END
|
||||
|
||||
NUMBER 105 15
|
||||
BEGIN
|
||||
PROMPT 22 5 "IVA a rimborso "
|
||||
END
|
||||
|
||||
NUMBER 106 15
|
||||
BEGIN
|
||||
PROMPT 22 6 "Debito/Credito "
|
||||
END
|
||||
|
||||
LIST 107 1 8
|
||||
BEGIN
|
||||
PROMPT 1 7 "Importo a "
|
||||
ITEM "D|Debito"
|
||||
ITEM "C|Credito"
|
||||
INPUT 105
|
||||
OUTPUT 105
|
||||
END
|
||||
|
||||
BUTTON DLG_OK 10 2
|
||||
BEGIN
|
||||
PROMPT -12 -1 ""
|
||||
END
|
||||
|
||||
BUTTON 101 10 2
|
||||
BEGIN
|
||||
PROMPT -22 -1 "Calcola"
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
ENDMASK
|
||||
|
||||
PAGE "Prospetto versamenti" -1 -1 50 12
|
||||
|
||||
|
||||
STRNG 102 10
|
||||
BEGIN
|
||||
PROMPT 1 2 "Mese "
|
||||
END
|
||||
|
||||
DATE 103
|
||||
BEGIN
|
||||
PROMPT 1 5 "Data "
|
||||
END
|
||||
|
||||
STRING 104 5
|
||||
BEGIN
|
||||
PROMPT 1 6 "Azienda "
|
||||
END
|
||||
|
||||
STRING 105 5
|
||||
BEGIN
|
||||
PROMPT 1 7 "Dipendenza "
|
||||
END
|
||||
|
||||
STRING 106 5
|
||||
BEGIN
|
||||
PROMPT 1 8 "Concessionaria "
|
||||
END
|
||||
|
||||
NUMBER 107 15 0
|
||||
BEGIN
|
||||
PROMPT 1 4 "Versamenti "
|
||||
END
|
||||
|
||||
LIST 108 1 8
|
||||
BEGIN
|
||||
PROMPT 1 9 "Importo a "
|
||||
ITEM "D|Debito"
|
||||
ITEM "C|Credito"
|
||||
INPUT 105
|
||||
OUTPUT 105
|
||||
END
|
||||
|
||||
BUTTON DLG_OK 10 2
|
||||
BEGIN
|
||||
PROMPT -12 -1 ""
|
||||
END
|
||||
|
||||
BUTTON 101 10 2
|
||||
BEGIN
|
||||
PROMPT -22 -1 "Calcola"
|
||||
END
|
||||
|
||||
|
||||
|
||||
|
||||
ENDPAGE
|
||||
|
||||
ENDMASK
|
||||
#include "cg5500a.h"
|
||||
|
||||
TOOLBAR "" 0 20 0 2
|
||||
|
||||
#include <toolbar.h>
|
||||
|
||||
ENDPAGE
|
||||
|
||||
PAGE "Visualizzazione liquidazione" -1 -1 77 20
|
||||
|
||||
GROUPBOX DLG_NULL 79 3
|
||||
BEGIN
|
||||
PROMPT 0 1 "@bDitta corrente"
|
||||
END
|
||||
|
||||
NUMBER F_CODDITTA 5
|
||||
BEGIN
|
||||
PROMPT 2 2 "Codice "
|
||||
FLAGS "DFR"
|
||||
USE LF_NDITTE KEY 1
|
||||
INPUT CODDITTA F_CODDITTA
|
||||
OUTPUT F_RAGSOC RAGSOC
|
||||
OUTPUT F_RAGSOC2 RAGSOC
|
||||
CHECKTYPE REQUIRED
|
||||
END
|
||||
|
||||
STRING F_RAGSOC 37 50
|
||||
BEGIN
|
||||
PROMPT 16 2 "Rag. soc. "
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
NUMBER F_CREDPREC 15
|
||||
BEGIN
|
||||
PROMPT 1 5 "Credito inizio anno "
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
SPREADSHEET F_VISLIQ1 80 11
|
||||
BEGIN
|
||||
PROMPT 1 7 "Liquidazione"
|
||||
ITEM "V@1F#109"
|
||||
ITEM "Mese@10"
|
||||
ITEM "Risultato@15"
|
||||
ITEM "D/C"
|
||||
ITEM "IVA rimborso@15"
|
||||
ITEM "IVA rettifiche@15"
|
||||
ITEM "D/C"
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
PAGE "Visualizzazione liquidazione" -1 -1 77 20
|
||||
|
||||
GROUPBOX DLG_NULL 79 3
|
||||
BEGIN
|
||||
PROMPT 0 1 "@bDitta corrente"
|
||||
END
|
||||
|
||||
NUMBER F_CODDITTA2 5
|
||||
BEGIN
|
||||
PROMPT 2 2 "Codice "
|
||||
FLAGS "DFR"
|
||||
END
|
||||
|
||||
STRING F_RAGSOC2 37 50
|
||||
BEGIN
|
||||
PROMPT 16 2 "Rag. soc. "
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
SPREADSHEET F_VISLIQ2 80 11
|
||||
BEGIN
|
||||
PROMPT 1 5 "Versamenti"
|
||||
ITEM "V@1F#109"
|
||||
ITEM "Mese@15"
|
||||
ITEM "Data@10"
|
||||
ITEM "Azienda@5"
|
||||
ITEM "Dipend.@5"
|
||||
ITEM "Concess.@5"
|
||||
ITEM "Versamenti@15"
|
||||
ITEM "D/C"
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
ENDMASK
|
||||
|
||||
PAGE "Prospetto mensile" -1 -1 50 10
|
||||
|
||||
STRING 102 10
|
||||
BEGIN
|
||||
PROMPT 1 2 "Mese "
|
||||
END
|
||||
|
||||
|
||||
NUMBER 103 15 0
|
||||
BEGIN
|
||||
PROMPT 1 3 "Risultato "
|
||||
END
|
||||
|
||||
LIST 104 1 8
|
||||
BEGIN
|
||||
PROMPT 1 4 "Importo a "
|
||||
ITEM "D|Debito"
|
||||
ITEM "C|Credito"
|
||||
INPUT 105
|
||||
OUTPUT 105
|
||||
END
|
||||
|
||||
NUMBER 105 15
|
||||
BEGIN
|
||||
PROMPT 22 5 "IVA a rimborso "
|
||||
END
|
||||
|
||||
NUMBER 106 15
|
||||
BEGIN
|
||||
PROMPT 22 6 "Debito/Credito "
|
||||
END
|
||||
|
||||
LIST 107 1 8
|
||||
BEGIN
|
||||
PROMPT 1 7 "Importo a "
|
||||
ITEM "D|Debito"
|
||||
ITEM "C|Credito"
|
||||
INPUT 105
|
||||
OUTPUT 105
|
||||
END
|
||||
|
||||
BUTTON DLG_OK 10 2
|
||||
BEGIN
|
||||
PROMPT -12 -1 ""
|
||||
END
|
||||
|
||||
BUTTON 101 10 2
|
||||
BEGIN
|
||||
PROMPT -22 -1 "Calcola"
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
ENDMASK
|
||||
|
||||
PAGE "Prospetto versamenti" -1 -1 50 12
|
||||
|
||||
|
||||
STRNG 102 10
|
||||
BEGIN
|
||||
PROMPT 1 2 "Mese "
|
||||
END
|
||||
|
||||
DATE 103
|
||||
BEGIN
|
||||
PROMPT 1 5 "Data "
|
||||
END
|
||||
|
||||
STRING 104 5
|
||||
BEGIN
|
||||
PROMPT 1 6 "Azienda "
|
||||
END
|
||||
|
||||
STRING 105 5
|
||||
BEGIN
|
||||
PROMPT 1 7 "Dipendenza "
|
||||
END
|
||||
|
||||
STRING 106 5
|
||||
BEGIN
|
||||
PROMPT 1 8 "Concessionaria "
|
||||
END
|
||||
|
||||
NUMBER 107 15 0
|
||||
BEGIN
|
||||
PROMPT 1 4 "Versamenti "
|
||||
END
|
||||
|
||||
LIST 108 1 8
|
||||
BEGIN
|
||||
PROMPT 1 9 "Importo a "
|
||||
ITEM "D|Debito"
|
||||
ITEM "C|Credito"
|
||||
INPUT 105
|
||||
OUTPUT 105
|
||||
END
|
||||
|
||||
BUTTON DLG_OK 10 2
|
||||
BEGIN
|
||||
PROMPT -12 -1 ""
|
||||
END
|
||||
|
||||
BUTTON 101 10 2
|
||||
BEGIN
|
||||
PROMPT -22 -1 "Calcola"
|
||||
END
|
||||
|
||||
|
||||
|
||||
|
||||
ENDPAGE
|
||||
|
||||
ENDMASK
|
||||
|
||||
358
cg/cg5500c.uml
358
cg/cg5500c.uml
@ -1,179 +1,179 @@
|
||||
#include "cg5500a.h"
|
||||
|
||||
TOOLBAR "" 0 20 0 2
|
||||
|
||||
#include <toolbar.h>
|
||||
|
||||
ENDPAGE
|
||||
|
||||
PAGE "Visualizzazione liquidazione" -1 -1 77 20
|
||||
|
||||
GROUPBOX DLG_NULL 79 3
|
||||
BEGIN
|
||||
PROMPT 0 1 "@BDitta corrente"
|
||||
END
|
||||
|
||||
NUMBER F_CODDITTA 5
|
||||
BEGIN
|
||||
PROMPT 2 2 "Codice ditta "
|
||||
FLAGS "FRD"
|
||||
USE LF_NDITTE KEY 1
|
||||
INPUT CODDITTA F_CODDITTA
|
||||
OUTPUT F_RAGSOC RAGSOC
|
||||
CHECKTYPE REQUIRED
|
||||
END
|
||||
|
||||
STRING F_RAGSOC 37 50
|
||||
BEGIN
|
||||
PROMPT 22 2 "Rag. soc. "
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
NUMBER F_CREDPREC 15
|
||||
BEGIN
|
||||
PROMPT 1 4 "Credito inizio anno "
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
SPREADSHEET F_VISLIQ1 80 5
|
||||
BEGIN
|
||||
PROMPT 1 6 "Liquidazione"
|
||||
ITEM "V@1F#109"
|
||||
ITEM "Mese@10"
|
||||
ITEM "Risultato@15"
|
||||
ITEM "D/C"
|
||||
ITEM "IVA rimborso@15"
|
||||
ITEM "IVA rettifiche@15"
|
||||
ITEM "D/C"
|
||||
END
|
||||
|
||||
SPREADSHEET F_VISLIQ2 80 5
|
||||
BEGIN
|
||||
PROMPT 1 12 "Versamenti"
|
||||
ITEM "V@1F#109"
|
||||
ITEM "Mese@10"
|
||||
ITEM "Data@10"
|
||||
ITEM "Azienda@5"
|
||||
ITEM "Dipend.@5"
|
||||
ITEM "Concess.@5"
|
||||
ITEM "Versamenti@15"
|
||||
ITEM "D/C"
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
ENDMASK
|
||||
|
||||
PAGE "Prospetto mensile" -1 -1 50 10
|
||||
|
||||
STRING 102 10
|
||||
BEGIN
|
||||
PROMPT 1 2 "Mese "
|
||||
END
|
||||
|
||||
|
||||
NUMBER 103 15 0
|
||||
BEGIN
|
||||
PROMPT 1 3 "Risultato "
|
||||
END
|
||||
|
||||
LIST 104 1 8
|
||||
BEGIN
|
||||
PROMPT 1 4 "Importo a "
|
||||
ITEM "D|Debito"
|
||||
ITEM "C|Credito"
|
||||
INPUT 105
|
||||
OUTPUT 105
|
||||
END
|
||||
|
||||
NUMBER 105 15
|
||||
BEGIN
|
||||
PROMPT 22 5 "IVA a rimborso "
|
||||
END
|
||||
|
||||
NUMBER 106 15
|
||||
BEGIN
|
||||
PROMPT 22 6 "Debito/Credito "
|
||||
END
|
||||
|
||||
LIST 107 1 8
|
||||
BEGIN
|
||||
PROMPT 1 7 "Importo a "
|
||||
ITEM "D|Debito"
|
||||
ITEM "C|Credito"
|
||||
INPUT 105
|
||||
OUTPUT 105
|
||||
END
|
||||
|
||||
BUTTON DLG_OK 10 2
|
||||
BEGIN
|
||||
PROMPT -12 -1 ""
|
||||
END
|
||||
|
||||
BUTTON 101 10 2
|
||||
BEGIN
|
||||
PROMPT -22 -1 "Calcola"
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
ENDMASK
|
||||
|
||||
PAGE "Prospetto versamenti" -1 -1 50 12
|
||||
|
||||
STRING 102 10
|
||||
BEGIN
|
||||
PROMPT 1 2 "Mese "
|
||||
END
|
||||
|
||||
DATE 103
|
||||
BEGIN
|
||||
PROMPT 1 3 "Data "
|
||||
END
|
||||
|
||||
STRING 104 5
|
||||
BEGIN
|
||||
PROMPT 1 4 "Azienda "
|
||||
END
|
||||
|
||||
STRING 105 5
|
||||
BEGIN
|
||||
PROMPT 1 5 "Dipendenza "
|
||||
END
|
||||
|
||||
STRING 106 5
|
||||
BEGIN
|
||||
PROMPT 1 6 "Concessionaria "
|
||||
END
|
||||
|
||||
NUMBER 107 15 0
|
||||
BEGIN
|
||||
PROMPT 1 7 "Versamenti "
|
||||
END
|
||||
|
||||
LIST 108 1 8
|
||||
BEGIN
|
||||
PROMPT 1 8 "Importo a "
|
||||
ITEM "D|Debito"
|
||||
ITEM "C|Credito"
|
||||
INPUT 105
|
||||
OUTPUT 105
|
||||
END
|
||||
|
||||
BUTTON DLG_CANCEL 10 2
|
||||
BEGIN
|
||||
PROMPT -13 -1 ""
|
||||
END
|
||||
|
||||
BUTTON DLG_OK 10 2
|
||||
BEGIN
|
||||
PROMPT -23 -1 ""
|
||||
END
|
||||
|
||||
BUTTON 101 10 2
|
||||
BEGIN
|
||||
PROMPT -33 -1 "Calcola"
|
||||
END
|
||||
|
||||
|
||||
ENDPAGE
|
||||
|
||||
ENDMASK
|
||||
#include "cg5500a.h"
|
||||
|
||||
TOOLBAR "" 0 20 0 2
|
||||
|
||||
#include <toolbar.h>
|
||||
|
||||
ENDPAGE
|
||||
|
||||
PAGE "Visualizzazione liquidazione" -1 -1 77 20
|
||||
|
||||
GROUPBOX DLG_NULL 79 3
|
||||
BEGIN
|
||||
PROMPT 0 1 "@BDitta corrente"
|
||||
END
|
||||
|
||||
NUMBER F_CODDITTA 5
|
||||
BEGIN
|
||||
PROMPT 2 2 "Codice ditta "
|
||||
FLAGS "FRD"
|
||||
USE LF_NDITTE KEY 1
|
||||
INPUT CODDITTA F_CODDITTA
|
||||
OUTPUT F_RAGSOC RAGSOC
|
||||
CHECKTYPE REQUIRED
|
||||
END
|
||||
|
||||
STRING F_RAGSOC 37 50
|
||||
BEGIN
|
||||
PROMPT 22 2 "Rag. soc. "
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
NUMBER F_CREDPREC 15
|
||||
BEGIN
|
||||
PROMPT 1 4 "Credito inizio anno "
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
SPREADSHEET F_VISLIQ1 80 5
|
||||
BEGIN
|
||||
PROMPT 1 6 "Liquidazione"
|
||||
ITEM "V@1F#109"
|
||||
ITEM "Mese@10"
|
||||
ITEM "Risultato@15"
|
||||
ITEM "D/C"
|
||||
ITEM "IVA rimborso@15"
|
||||
ITEM "IVA rettifiche@15"
|
||||
ITEM "D/C"
|
||||
END
|
||||
|
||||
SPREADSHEET F_VISLIQ2 80 5
|
||||
BEGIN
|
||||
PROMPT 1 12 "Versamenti"
|
||||
ITEM "V@1F#109"
|
||||
ITEM "Mese@10"
|
||||
ITEM "Data@10"
|
||||
ITEM "Azienda@5"
|
||||
ITEM "Dipend.@5"
|
||||
ITEM "Concess.@5"
|
||||
ITEM "Versamenti@15"
|
||||
ITEM "D/C"
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
ENDMASK
|
||||
|
||||
PAGE "Prospetto mensile" -1 -1 50 10
|
||||
|
||||
STRING 102 10
|
||||
BEGIN
|
||||
PROMPT 1 2 "Mese "
|
||||
END
|
||||
|
||||
|
||||
NUMBER 103 15 0
|
||||
BEGIN
|
||||
PROMPT 1 3 "Risultato "
|
||||
END
|
||||
|
||||
LIST 104 1 8
|
||||
BEGIN
|
||||
PROMPT 1 4 "Importo a "
|
||||
ITEM "D|Debito"
|
||||
ITEM "C|Credito"
|
||||
INPUT 105
|
||||
OUTPUT 105
|
||||
END
|
||||
|
||||
NUMBER 105 15
|
||||
BEGIN
|
||||
PROMPT 22 5 "IVA a rimborso "
|
||||
END
|
||||
|
||||
NUMBER 106 15
|
||||
BEGIN
|
||||
PROMPT 22 6 "Debito/Credito "
|
||||
END
|
||||
|
||||
LIST 107 1 8
|
||||
BEGIN
|
||||
PROMPT 1 7 "Importo a "
|
||||
ITEM "D|Debito"
|
||||
ITEM "C|Credito"
|
||||
INPUT 105
|
||||
OUTPUT 105
|
||||
END
|
||||
|
||||
BUTTON DLG_OK 10 2
|
||||
BEGIN
|
||||
PROMPT -12 -1 ""
|
||||
END
|
||||
|
||||
BUTTON 101 10 2
|
||||
BEGIN
|
||||
PROMPT -22 -1 "Calcola"
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
ENDMASK
|
||||
|
||||
PAGE "Prospetto versamenti" -1 -1 50 12
|
||||
|
||||
STRING 102 10
|
||||
BEGIN
|
||||
PROMPT 1 2 "Mese "
|
||||
END
|
||||
|
||||
DATE 103
|
||||
BEGIN
|
||||
PROMPT 1 3 "Data "
|
||||
END
|
||||
|
||||
STRING 104 5
|
||||
BEGIN
|
||||
PROMPT 1 4 "Azienda "
|
||||
END
|
||||
|
||||
STRING 105 5
|
||||
BEGIN
|
||||
PROMPT 1 5 "Dipendenza "
|
||||
END
|
||||
|
||||
STRING 106 5
|
||||
BEGIN
|
||||
PROMPT 1 6 "Concessionaria "
|
||||
END
|
||||
|
||||
NUMBER 107 15 0
|
||||
BEGIN
|
||||
PROMPT 1 7 "Versamenti "
|
||||
END
|
||||
|
||||
LIST 108 1 8
|
||||
BEGIN
|
||||
PROMPT 1 8 "Importo a "
|
||||
ITEM "D|Debito"
|
||||
ITEM "C|Credito"
|
||||
INPUT 105
|
||||
OUTPUT 105
|
||||
END
|
||||
|
||||
BUTTON DLG_CANCEL 10 2
|
||||
BEGIN
|
||||
PROMPT -13 -1 ""
|
||||
END
|
||||
|
||||
BUTTON DLG_OK 10 2
|
||||
BEGIN
|
||||
PROMPT -23 -1 ""
|
||||
END
|
||||
|
||||
BUTTON 101 10 2
|
||||
BEGIN
|
||||
PROMPT -33 -1 "Calcola"
|
||||
END
|
||||
|
||||
|
||||
ENDPAGE
|
||||
|
||||
ENDMASK
|
||||
|
||||
190
cg/cg5500d.uml
190
cg/cg5500d.uml
@ -1,95 +1,95 @@
|
||||
#include "cg5500a.h"
|
||||
|
||||
TOOLBAR "" 0 20 0 2
|
||||
|
||||
#include <toolbar.h>
|
||||
|
||||
ENDPAGE
|
||||
|
||||
PAGE "Visualizzazione liquidazione" -1 -1 77 20
|
||||
|
||||
GROUPBOX DLG_NULL 79 3
|
||||
BEGIN
|
||||
PROMPT 0 0 "@bDitta corrente"
|
||||
END
|
||||
|
||||
NUMBER F_CODDITTA 5
|
||||
BEGIN
|
||||
PROMPT 2 1 "Codice "
|
||||
FLAGS "FRD"
|
||||
USE LF_NDITTE KEY 1
|
||||
INPUT CODDITTA F_CODDITTA
|
||||
OUTPUT F_RAGSOC RAGSOC
|
||||
CHECKTYPE REQUIRED
|
||||
END
|
||||
|
||||
STRING F_RAGSOC 37 50
|
||||
BEGIN
|
||||
PROMPT 16 1 "Rag. soc. "
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
|
||||
BROWSEFILE F_VISFLQ 80 11
|
||||
BEGIN
|
||||
PROMPT 0 3 ""
|
||||
END
|
||||
|
||||
/* gruppo 1: edit rimborso */
|
||||
|
||||
NUMBER F_RIMBORSO 15 0
|
||||
BEGIN
|
||||
PROMPT 3 16 "Rimborso infraannuale: "
|
||||
GROUP 1
|
||||
FLAGS "H"
|
||||
END
|
||||
|
||||
/* gruppo 2: edit rettifiche */
|
||||
|
||||
NUMBER F_RETTIFICA 15 0
|
||||
BEGIN
|
||||
PROMPT 2 15 "Importo rettif. "
|
||||
GROUP 2
|
||||
FLAGS "H"
|
||||
END
|
||||
|
||||
LIST F_DEBCRE 7
|
||||
BEGIN
|
||||
PROMPT 35 15 " a "
|
||||
GROUP 2
|
||||
ITEM "D|Debito"
|
||||
ITEM "C|Credito"
|
||||
FLAGS "H"
|
||||
END
|
||||
|
||||
STRING F_DESCR1 60
|
||||
BEGIN
|
||||
PROMPT 2 16 "Descrizione "
|
||||
GROUP 2
|
||||
FLAGS "H"
|
||||
END
|
||||
|
||||
STRING F_DESCR2 60
|
||||
BEGIN
|
||||
PROMPT 2 17 " "
|
||||
GROUP 2
|
||||
FLAGS "H"
|
||||
END
|
||||
|
||||
/* gruppo 3: edit acconto */
|
||||
|
||||
NUMBER F_ACCONTO 15 0
|
||||
BEGIN
|
||||
PROMPT 3 16 "Acconto versato: "
|
||||
GROUP 3
|
||||
FLAGS "H"
|
||||
END
|
||||
|
||||
GROUPBOX DLG_NULL 80 5
|
||||
BEGIN
|
||||
PROMPT 1 14 ""
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
ENDMASK
|
||||
#include "cg5500a.h"
|
||||
|
||||
TOOLBAR "" 0 20 0 2
|
||||
|
||||
#include <toolbar.h>
|
||||
|
||||
ENDPAGE
|
||||
|
||||
PAGE "Visualizzazione liquidazione" -1 -1 77 20
|
||||
|
||||
GROUPBOX DLG_NULL 79 3
|
||||
BEGIN
|
||||
PROMPT 0 0 "@bDitta corrente"
|
||||
END
|
||||
|
||||
NUMBER F_CODDITTA 5
|
||||
BEGIN
|
||||
PROMPT 2 1 "Codice "
|
||||
FLAGS "FRD"
|
||||
USE LF_NDITTE KEY 1
|
||||
INPUT CODDITTA F_CODDITTA
|
||||
OUTPUT F_RAGSOC RAGSOC
|
||||
CHECKTYPE REQUIRED
|
||||
END
|
||||
|
||||
STRING F_RAGSOC 37 50
|
||||
BEGIN
|
||||
PROMPT 16 1 "Rag. soc. "
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
|
||||
BROWSEFILE F_VISFLQ 80 11
|
||||
BEGIN
|
||||
PROMPT 0 3 ""
|
||||
END
|
||||
|
||||
/* gruppo 1: edit rimborso */
|
||||
|
||||
NUMBER F_RIMBORSO 15 0
|
||||
BEGIN
|
||||
PROMPT 3 16 "Rimborso infraannuale: "
|
||||
GROUP 1
|
||||
FLAGS "H"
|
||||
END
|
||||
|
||||
/* gruppo 2: edit rettifiche */
|
||||
|
||||
NUMBER F_RETTIFICA 15 0
|
||||
BEGIN
|
||||
PROMPT 2 15 "Importo rettif. "
|
||||
GROUP 2
|
||||
FLAGS "H"
|
||||
END
|
||||
|
||||
LIST F_DEBCRE 7
|
||||
BEGIN
|
||||
PROMPT 35 15 " a "
|
||||
GROUP 2
|
||||
ITEM "D|Debito"
|
||||
ITEM "C|Credito"
|
||||
FLAGS "H"
|
||||
END
|
||||
|
||||
STRING F_DESCR1 60
|
||||
BEGIN
|
||||
PROMPT 2 16 "Descrizione "
|
||||
GROUP 2
|
||||
FLAGS "H"
|
||||
END
|
||||
|
||||
STRING F_DESCR2 60
|
||||
BEGIN
|
||||
PROMPT 2 17 " "
|
||||
GROUP 2
|
||||
FLAGS "H"
|
||||
END
|
||||
|
||||
/* gruppo 3: edit acconto */
|
||||
|
||||
NUMBER F_ACCONTO 15 0
|
||||
BEGIN
|
||||
PROMPT 3 16 "Acconto versato: "
|
||||
GROUP 3
|
||||
FLAGS "H"
|
||||
END
|
||||
|
||||
GROUPBOX DLG_NULL 80 5
|
||||
BEGIN
|
||||
PROMPT 1 14 ""
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
ENDMASK
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user