Corretti errori prima nota
Eliminate le troppe TMP string in cg3 e cglib Risolti conflitti in cg3100*.* git-svn-id: svn://10.65.10.50/trunk@868 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
parent
a1486179c9
commit
4510dcba25
@ -145,7 +145,7 @@ END
|
||||
STRING F_PROFILO 5
|
||||
BEGIN
|
||||
PROMPT 2 13 "Profilo "
|
||||
VALIDATE ZEROFILL_FUNC 5
|
||||
FLAGS "UZ"
|
||||
CHECKTYPE REQUIRED
|
||||
END
|
||||
|
||||
|
@ -27,6 +27,7 @@ BEGIN
|
||||
DISPLAY "Descrizione@50" DESCR
|
||||
OUTPUT FLD_CM1_GRUPPO GRUPPO
|
||||
OUTPUT FLD_CM1_DESCG DESCR
|
||||
OUTPUT FLD_CM1_DESC DESCR
|
||||
CHECKTYPE NORMAL
|
||||
END
|
||||
|
||||
@ -43,7 +44,7 @@ BEGIN
|
||||
FIELD LF_PCON->CONTO
|
||||
FLAGS "R"
|
||||
KEY 1
|
||||
USE LF_PCON KEY 1 SELECT ((CONTO!="") && (SOTTOCONTO=""))
|
||||
USE LF_PCON KEY 1 SELECT ((CONTO!="")&&(SOTTOCONTO=""))
|
||||
COPY INPUT FLD_CM1_GRUPPO
|
||||
INPUT CONTO FLD_CM1_CONTO
|
||||
DISPLAY "Gruppo" GRUPPO
|
||||
@ -52,6 +53,7 @@ BEGIN
|
||||
OUTPUT FLD_CM1_GRUPPO GRUPPO
|
||||
OUTPUT FLD_CM1_CONTO CONTO
|
||||
OUTPUT FLD_CM1_DESCC DESCR
|
||||
OUTPUT FLD_CM1_DESC DESCR
|
||||
CHECKTYPE NORMAL
|
||||
END
|
||||
|
||||
|
@ -182,6 +182,19 @@ BEGIN
|
||||
HELP "Localita' del recapito"
|
||||
END
|
||||
|
||||
STRING F_CAPCF 5
|
||||
BEGIN
|
||||
PROMPT 50 8 "CAP "
|
||||
FIELD LF_CLIFO->CAPCF
|
||||
HELP "Codice di avviamento postale del recapito"
|
||||
END
|
||||
|
||||
STRING F_PROVCF 5
|
||||
BEGIN
|
||||
PROMPT 63 8 "Prov."
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
NUMBER F_STATOCF 3
|
||||
BEGIN
|
||||
PROMPT 2 9 "Comune:Stato "
|
||||
@ -208,19 +221,6 @@ BEGIN
|
||||
COPY OUTPUT F_STATOCF
|
||||
END
|
||||
|
||||
STRING F_PROVCF 5
|
||||
BEGIN
|
||||
PROMPT 63 8 "Prov."
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
STRING F_CAPCF 5
|
||||
BEGIN
|
||||
PROMPT 50 8 "CAP "
|
||||
FIELD LF_CLIFO->CAPCF
|
||||
HELP "Codice di avviamento postale del recapito"
|
||||
END
|
||||
|
||||
STRING F_COMCF 4
|
||||
BEGIN
|
||||
PROMPT 8 10 ":Codice "
|
||||
|
@ -41,7 +41,9 @@ typedef enum { no_descr, acquisto, vendita, incasso_pagamento,
|
||||
int _anno_iva;
|
||||
|
||||
protected:
|
||||
|
||||
static bool filtra_reg(const TRelation * r);
|
||||
void set_reg_filter();
|
||||
|
||||
static bool tipocf_hndl (TMask_field& f, KEY k);
|
||||
static bool cod_reg_hndl (TMask_field& f, KEY k);
|
||||
@ -69,7 +71,6 @@ protected:
|
||||
void causale_vendite ();
|
||||
void causale_acquisti();
|
||||
|
||||
protected:
|
||||
virtual bool user_create();
|
||||
virtual bool user_destroy();
|
||||
|
||||
@ -99,7 +100,7 @@ public:
|
||||
|
||||
void add_riga (int numrig, char sz, TConto& tc, const TString& d, const TString& da);
|
||||
bool mostra_campi(TMask_field& f);
|
||||
|
||||
|
||||
bool valuta() const { return _valuta; }
|
||||
bool saldaconto() const { return _saldaconto; }
|
||||
int anno_iva() const { return _anno_iva; }
|
||||
@ -275,6 +276,15 @@ bool TCaus_app::m770_hndl (TMask_field& f, KEY k)
|
||||
return TRUE;
|
||||
}
|
||||
|
||||
void TCaus_app::set_reg_filter()
|
||||
{
|
||||
TEdit_field& reg = _msk->efield(F_COD_REG);
|
||||
reg.browse()->cursor()->set_filterfunction(filtra_reg);
|
||||
|
||||
TEdit_field& des = _msk->efield(F_DES_REG);
|
||||
des.browse()->cursor()->set_filterfunction(filtra_reg);
|
||||
}
|
||||
|
||||
bool TCaus_app::tipodoc_hndl (TMask_field& f, KEY k)
|
||||
{
|
||||
// Testo K_TAB perche' il controllo deve scattare anche all'inizio
|
||||
@ -289,10 +299,9 @@ bool TCaus_app::tipodoc_hndl (TMask_field& f, KEY k)
|
||||
{
|
||||
m.hide(F_TIPO_MOV_2);
|
||||
if (app().saldaconto()) m.show(F_TIPO_MOV_1);
|
||||
|
||||
|
||||
field_reg.enable();
|
||||
m.enable(F_DES_REG);
|
||||
field_reg.check_type(CHECK_REQUIRED);
|
||||
|
||||
TTable tabtpd("%TPD");
|
||||
tabtpd.put("CODTAB", val);
|
||||
@ -307,32 +316,32 @@ bool TCaus_app::tipodoc_hndl (TMask_field& f, KEY k)
|
||||
if (corrisp) // vendite con corrispettivi
|
||||
{
|
||||
app()._filtro = 2;
|
||||
field_reg.browse()->cursor()->set_filterfunction(filtra_reg);
|
||||
app().set_reg_filter();
|
||||
}
|
||||
else // vendite senza corrispettivi
|
||||
{
|
||||
app()._filtro = 1;
|
||||
field_reg.browse()->cursor()->set_filterfunction(filtra_reg);
|
||||
app().set_reg_filter();
|
||||
}
|
||||
} else
|
||||
if ( i == 2 ) // acquisti
|
||||
{
|
||||
app()._filtro = 3;
|
||||
field_reg.browse()->cursor()->set_filterfunction(filtra_reg);
|
||||
app().set_reg_filter();
|
||||
} else
|
||||
if ( i == 9 ) // sia acquisti che vendite
|
||||
{
|
||||
app()._filtro = 4;
|
||||
field_reg.browse()->cursor()->set_filterfunction(filtra_reg);
|
||||
app().set_reg_filter();
|
||||
}
|
||||
}
|
||||
}
|
||||
else // TIPODOC vuoto || IN || PG || AN
|
||||
{
|
||||
field_reg.reset();
|
||||
field_reg.disable();
|
||||
field_reg.enable(m.query_mode());
|
||||
m.reset(F_DES_REG);
|
||||
m.disable(F_DES_REG);
|
||||
m.enable(F_DES_REG, m.query_mode());
|
||||
|
||||
m.hide(F_TIPO_MOV_1);
|
||||
if (app().saldaconto())
|
||||
@ -865,7 +874,6 @@ void TCaus_app::init_insert_mode(TMask& m)
|
||||
void TCaus_app::init_modify_mode(TMask& m)
|
||||
{
|
||||
init_mask(m);
|
||||
m.efield(F_COD_REG).check_type(CHECK_NONE); // Disabilita temporaneamente il check sui registri
|
||||
}
|
||||
|
||||
|
||||
|
@ -98,7 +98,7 @@ BEGIN
|
||||
HELP "Codice registro collegato alla causale"
|
||||
FIELD REG
|
||||
USE REG
|
||||
INPUT CODTAB[1,4] F_ANNOES SELECT
|
||||
INPUT CODTAB[1,4] F_ANNOES
|
||||
INPUT CODTAB[5,7] F_COD_REG
|
||||
DISPLAY "Anno" CODTAB[1,4]
|
||||
DISPLAY "Codice registro " CODTAB[5,7]
|
||||
@ -110,14 +110,13 @@ BEGIN
|
||||
OUTPUT F_CORRISP B0
|
||||
OUTPUT F_DES_REG S0
|
||||
WARNING "Registro assente o non compatibile col tipo documento"
|
||||
CHECKTYPE NORMAL
|
||||
FLAGS "DUZ"
|
||||
CHECKTYPE REQUIRED
|
||||
FLAGS "UZ"
|
||||
END
|
||||
|
||||
STRING F_DES_REG 50
|
||||
BEGIN
|
||||
PROMPT 24 4 ""
|
||||
HELP "Codice registro collegato alla causale"
|
||||
USE REG KEY 2
|
||||
INPUT S0 F_DES_REG
|
||||
DISPLAY "Descrizione @50" S0
|
||||
@ -126,10 +125,20 @@ BEGIN
|
||||
DISPLAY "Tipo" I0
|
||||
DISPLAY "Corrispettivi" B0
|
||||
COPY OUTPUT F_COD_REG
|
||||
CHECKTYPE NORMAL
|
||||
FLAGS "D"
|
||||
CHECKTYPE REQUIRED
|
||||
END
|
||||
|
||||
NUMBER F_ANNOES 4
|
||||
BEGIN
|
||||
PROMPT 2 5 "Anno liquidaz. "
|
||||
FLAGS "HA"
|
||||
END
|
||||
|
||||
NUMBER F_TIPO_REG 1
|
||||
BEGIN
|
||||
PROMPT 25 5 "Tipo "
|
||||
FLAGS "H"
|
||||
END
|
||||
|
||||
// Questo rimane quasi sempre nascosto
|
||||
STRING F_TIPO_MOV 2
|
||||
@ -179,18 +188,6 @@ BEGIN
|
||||
ITEM "6|Ritenute per prestazioni occasionali"
|
||||
END
|
||||
|
||||
NUMBER F_ANNOES 4
|
||||
BEGIN
|
||||
PROMPT 2 5 ""
|
||||
FLAGS "AH"
|
||||
END
|
||||
|
||||
NUMBER F_TIPO_REG 1
|
||||
BEGIN
|
||||
PROMPT 23 5 ""
|
||||
FLAGS "H"
|
||||
END
|
||||
|
||||
BOOLEAN F_CORRISP
|
||||
BEGIN
|
||||
PROMPT 33 5 ""
|
||||
|
@ -1,5 +1,7 @@
|
||||
#include <xvt.h>
|
||||
#include <checks.h>
|
||||
|
||||
#define __MAIN__
|
||||
#include "cg1.h"
|
||||
|
||||
#define usage "Error - usage : %s -{0|1|2|3|4|5} [params]"
|
||||
|
22
cg/cg1.h
22
cg/cg1.h
@ -1,21 +1,10 @@
|
||||
#ifndef __CG1_H
|
||||
#define __CG1_H
|
||||
|
||||
#ifdef MAIN
|
||||
#define extern
|
||||
#endif
|
||||
|
||||
#ifdef MAIN
|
||||
#undef extern
|
||||
#endif
|
||||
|
||||
#ifndef __STRINGS_H
|
||||
#include <strings.h>
|
||||
#endif
|
||||
|
||||
const MAXSTR = 128;
|
||||
static char __tmp [MAXSTR];
|
||||
|
||||
int cg1100(int argc, char* argv[]);
|
||||
int cg1200(int argc, char* argv[]);
|
||||
int cg1300(int argc, char* argv[]);
|
||||
@ -24,6 +13,17 @@ int cg1500(int argc, char* argv[]);
|
||||
int cg1600(int argc, char* argv[]);
|
||||
int cg1700(int argc, char* argv[]);
|
||||
|
||||
#ifdef __MAIN__
|
||||
#define extern
|
||||
#endif
|
||||
|
||||
extern TString80 tmp;
|
||||
|
||||
#ifdef __MAIN__
|
||||
#undef extern
|
||||
#endif
|
||||
|
||||
|
||||
#endif // __CG1_H
|
||||
|
||||
|
||||
|
@ -30,9 +30,6 @@ enum stampe {
|
||||
senza_ana_bil
|
||||
};
|
||||
|
||||
extern char __tmp [MAXSTR];
|
||||
static TFixed_string tmp(__tmp, MAXSTR);
|
||||
|
||||
class CG1100_application : public TPrintapp
|
||||
{
|
||||
struct bil_ivd
|
||||
@ -1139,7 +1136,7 @@ const char* CG1100_application::descrizione_numero(char sezione, char lettera, i
|
||||
tmp = tabivd.get("S0");
|
||||
else
|
||||
tmp = "";
|
||||
return (__tmp);
|
||||
return tmp;
|
||||
}
|
||||
|
||||
|
||||
|
@ -26,9 +26,6 @@ enum pw { clienti = 1, fornitori = 2, both = 3 };
|
||||
|
||||
bool mask2_reset_fields(TMask_field& mf, KEY k);
|
||||
|
||||
extern char __tmp [MAXSTR];
|
||||
static TFixed_string tmp(__tmp, MAXSTR);
|
||||
|
||||
class CG1200_App : public TPrintapp
|
||||
{
|
||||
friend bool mask2_reset_fields(TMask_field& mf, KEY k);
|
||||
@ -136,7 +133,7 @@ const char* CG1200_App::descrizione_conto_ric(int gruppo, int conto, long sottoc
|
||||
pconti.zero();
|
||||
tmp = pconti.get(PCN_DESCR);
|
||||
|
||||
return (__tmp);
|
||||
return tmp;
|
||||
}
|
||||
|
||||
const char* CG1200_App::descrizione_allegato(char tipocf,long cod)
|
||||
@ -153,7 +150,7 @@ const char* CG1200_App::descrizione_allegato(char tipocf,long cod)
|
||||
_tipoaper = clifo.get_char(CLI_TIPOAPER);
|
||||
tmp = clifo.get(CLI_RAGSOC);
|
||||
|
||||
return (__tmp);
|
||||
return tmp;
|
||||
}
|
||||
|
||||
bool CG1200_App::preprocess_page(int file, int counter)
|
||||
@ -402,7 +399,7 @@ const char* CG1200_App::compatta_ragsoc(TString& ragsoc,char tipoa)
|
||||
|
||||
tmp = ragsoc;
|
||||
|
||||
return (__tmp);
|
||||
return tmp;
|
||||
}
|
||||
|
||||
void CG1200_App::preprocess_header()
|
||||
|
@ -145,7 +145,7 @@ END
|
||||
STRING F_PROFILO 5
|
||||
BEGIN
|
||||
PROMPT 2 13 "Profilo "
|
||||
VALIDATE ZEROFILL_FUNC 5
|
||||
FLAGS "UZ"
|
||||
CHECKTYPE REQUIRED
|
||||
END
|
||||
|
||||
|
@ -24,8 +24,6 @@
|
||||
#include "cg1.h"
|
||||
#include "cg1500.h"
|
||||
|
||||
static TString256 TMP;
|
||||
|
||||
bool my_handler (TMask_field& f, KEY k);
|
||||
bool mask_anno (TMask_field& f, KEY k);
|
||||
bool mask_datalim (TMask_field& f, KEY k);
|
||||
@ -2857,11 +2855,6 @@ TDate CG1500_application::UltimaData(int g, int c, long s, int anno)
|
||||
const char* CG1500_application::DescrizioneConto(int g, int c, long s,
|
||||
char tipocf)
|
||||
{
|
||||
/*
|
||||
TConto tc (g,c,s,tipocf);
|
||||
TMP = tc.descrizione();
|
||||
return TMP;
|
||||
*/
|
||||
TString80 ragsoc;
|
||||
const char* desc = NULL;
|
||||
TLocalisamfile pconti(LF_PCON,FALSE);
|
||||
@ -2875,7 +2868,7 @@ const char* CG1500_application::DescrizioneConto(int g, int c, long s,
|
||||
pconti.put(PCN_SOTTOCONTO, s);
|
||||
pconti.read();
|
||||
if (pconti.good())
|
||||
TMP = pconti.get(PCN_DESCR);
|
||||
tmp = pconti.get(PCN_DESCR);
|
||||
else
|
||||
{
|
||||
clifo.setkey(1); //occorre settare la chiave 1, anche se di solito e' di default, poiche' nella create il file clifo e' stato aperto con la chiave 3
|
||||
@ -2898,12 +2891,12 @@ const char* CG1500_application::DescrizioneConto(int g, int c, long s,
|
||||
}
|
||||
else
|
||||
desc = clifo.get("RAGSOC");
|
||||
TMP = desc;
|
||||
tmp = desc;
|
||||
}
|
||||
else
|
||||
TMP = "";
|
||||
tmp = "";
|
||||
}
|
||||
return TMP;
|
||||
return tmp;
|
||||
}
|
||||
|
||||
bool CG1500_application::user_create()
|
||||
|
@ -21,9 +21,6 @@
|
||||
#include "cg1.h"
|
||||
#include "cg1600.h"
|
||||
|
||||
extern char __tmp [MAXSTR];
|
||||
static TFixed_string tmp(__tmp, MAXSTR);
|
||||
|
||||
bool our_handler (TMask_field & f,KEY k);
|
||||
|
||||
class Anno_es : public TObject
|
||||
@ -4614,7 +4611,7 @@ const char* CG1600_application::descrizione_sezione(char sezione)
|
||||
tmp = tabivd.get("S0");
|
||||
else
|
||||
tmp = "";
|
||||
return (__tmp);
|
||||
return tmp;
|
||||
}
|
||||
|
||||
const char* CG1600_application::descrizione_lettera(char sezione, char lettera)
|
||||
@ -4631,7 +4628,7 @@ const char* CG1600_application::descrizione_lettera(char sezione, char lettera)
|
||||
tmp = tabivd.get("S0");
|
||||
else
|
||||
tmp = "";
|
||||
return (__tmp);
|
||||
return tmp;
|
||||
}
|
||||
|
||||
const char* CG1600_application::descrizione_numeroromano(char sezione, char lettera, int numr)
|
||||
@ -4652,7 +4649,7 @@ const char* CG1600_application::descrizione_numeroromano(char sezione, char lett
|
||||
tmp = tabivd.get("S0");
|
||||
else
|
||||
tmp = "";
|
||||
return (__tmp);
|
||||
return tmp;
|
||||
}
|
||||
|
||||
const char* CG1600_application::descrizione_numero(char sezione, char lettera, int numr, int numero)
|
||||
@ -4672,7 +4669,7 @@ const char* CG1600_application::descrizione_numero(char sezione, char lettera, i
|
||||
tmp = tabivd.get("S0");
|
||||
else
|
||||
tmp = "";
|
||||
return (__tmp);
|
||||
return tmp;
|
||||
}
|
||||
|
||||
const char* CG1600_application::descrizione_sottoconto(int gruppo, int conto, long sottoc)
|
||||
@ -4689,7 +4686,7 @@ const char* CG1600_application::descrizione_sottoconto(int gruppo, int conto, lo
|
||||
if (pconti.bad())
|
||||
pconti.zero();
|
||||
tmp = pconti.get(PCN_DESCR);
|
||||
return (__tmp);
|
||||
return tmp;
|
||||
}
|
||||
|
||||
const char* CG1600_application::descr_sottoc_clifo(char tipocf,long s)
|
||||
@ -4704,7 +4701,7 @@ const char* CG1600_application::descr_sottoc_clifo(char tipocf,long s)
|
||||
if (clifo.bad())
|
||||
clifo.zero();
|
||||
tmp = clifo.get(CLI_RAGSOC);
|
||||
return (__tmp);
|
||||
return tmp;
|
||||
}
|
||||
|
||||
void CG1600_application::preprocess_header()
|
||||
|
@ -75,12 +75,7 @@ END
|
||||
|
||||
LIST F_TIPOSTAMPA1 23
|
||||
BEGIN
|
||||
<<<<<<< cg1600a.uml
|
||||
PROMPT 4 7 "Tipo stampa1 "
|
||||
HELP "Indicare il tipo di stampa che si vuole avere"
|
||||
=======
|
||||
PROMPT 4 7 "Tipo stampa "
|
||||
>>>>>>> 1.5
|
||||
ITEM "1|Per data "
|
||||
MESSAGE HIDE,F_DATALIM
|
||||
MESSAGE RESET,F_DATALIM
|
||||
@ -95,12 +90,8 @@ END
|
||||
|
||||
DATE F_DATASTAMPA
|
||||
BEGIN
|
||||
<<<<<<< cg1600a.uml
|
||||
PROMPT 4 4 "Data stampa "
|
||||
HELP "Indicare la data da stampare sul bilancio"
|
||||
=======
|
||||
PROMPT 4 8 "Data stampa "
|
||||
>>>>>>> 1.5
|
||||
FLAGS "A"
|
||||
END
|
||||
|
||||
|
@ -75,7 +75,7 @@ TMask* TPrimanota_application::load_mask(int n)
|
||||
m->set_handler(F_OCCASEDIT, occas_handler);
|
||||
m->set_handler(F_SOLAIVA, solaiva_handler);
|
||||
m->set_handler(F_SHEETIVA, iva_handler);
|
||||
|
||||
|
||||
TSheet_field& is = (TSheet_field&)m->field(F_SHEETIVA);
|
||||
is.set_notify(iva_notify);
|
||||
TMask& ism = is.sheet_mask();
|
||||
@ -220,6 +220,7 @@ bool TPrimanota_application::read_caus(const char* cod, int year)
|
||||
m->show(F_NUMRIF, sal);
|
||||
m->enable(F_ANNORIF, ins); // Dis/abilita anno e riferimento partita
|
||||
m->enable(F_NUMRIF, ins);
|
||||
m->field(F_NUMRIF).set_justify(iva == iva_acquisti ? _num_for : _num_cli);
|
||||
|
||||
if (ins)
|
||||
{
|
||||
@ -365,6 +366,8 @@ void TPrimanota_application::on_config_change()
|
||||
TConfig cnf(CONFIG_DITTA);
|
||||
_ges_val = cnf.get_bool("GesVal");
|
||||
_ges_sal = cnf.get_bool("GesSal");
|
||||
_num_cli = cnf.get_bool("NrCliDx");
|
||||
_num_for = cnf.get_bool("NrForDx");
|
||||
}
|
||||
|
||||
|
||||
@ -688,11 +691,11 @@ void TPrimanota_application::mask2rel(const TMask& m)
|
||||
_rel->lfile().put("TIPO", clifo());
|
||||
|
||||
int err = ~NOERR;
|
||||
if (m.get_bool(F_OCCASIONALE))
|
||||
if (m.field(F_OCCASEDIT).active()) // Se e' un occasionale
|
||||
{
|
||||
TRelation occas(LF_OCCAS);
|
||||
const TMask& om = occas_mask();
|
||||
om.autosave(&occas);
|
||||
om.autosave(&occas); // Salva i dati anagrafici
|
||||
|
||||
err = occas.write();
|
||||
if (err == _isreinsert)
|
||||
|
@ -42,7 +42,6 @@
|
||||
#define F_CAMBIO 127
|
||||
#define F_VISVAL 128
|
||||
#define F_PROVVISORIO 129
|
||||
#define F_OCCASIONALE 130
|
||||
#define F_OCCASEDIT 131
|
||||
#define F_SOLAIVA 132
|
||||
#define F_CORRLIRE 133
|
||||
|
@ -241,6 +241,7 @@ NUMBER F_CLIENTE 6
|
||||
BEGIN
|
||||
PROMPT 1 10 "Cliente "
|
||||
HELP "Codice del cliente"
|
||||
FLAGS "R"
|
||||
FIELD LF_MOV->CODCF
|
||||
GROUP 1
|
||||
USE LF_CLIFO KEY 1
|
||||
@ -261,7 +262,6 @@ BEGIN
|
||||
OUTPUT F_CODPAG CODPAG
|
||||
OUTPUT F_STATOPAIV STATOPAIV
|
||||
OUTPUT F_PIVACLIENTE PAIV
|
||||
OUTPUT F_OCCASIONALE OCCAS
|
||||
MESSAGE COPY,F_FORNITORE
|
||||
CHECKTYPE REQUIRED
|
||||
WARNING "Cliente assente"
|
||||
@ -271,6 +271,7 @@ END
|
||||
NUMBER F_FORNITORE 6
|
||||
BEGIN
|
||||
PROMPT 1 10 "Fornitore "
|
||||
FLAGS "R"
|
||||
HELP "Codice del fornitore"
|
||||
FIELD LF_MOV->CODCF
|
||||
GROUP 2
|
||||
@ -289,7 +290,6 @@ BEGIN
|
||||
OUTPUT F_GRUPPORIC GRUPPORIC
|
||||
OUTPUT F_CONTORIC CONTORIC
|
||||
OUTPUT F_SOTTOCONTORIC SOTTOCRIC
|
||||
OUTPUT F_OCCASIONALE OCCAS
|
||||
OUTPUT F_CODPAG CODPAG
|
||||
OUTPUT F_STATOPAIV STATOPAIV
|
||||
OUTPUT F_PIVAFORNITORE PAIV
|
||||
@ -336,7 +336,7 @@ STRING F_PIVACLIENTE 14
|
||||
BEGIN
|
||||
PROMPT 1 11 "Partita IVA "
|
||||
HELP "Partita IVA del cliente del documento"
|
||||
GROUP 1
|
||||
GROUP 1 7
|
||||
USE LF_CLIFO KEY 5
|
||||
INPUT TIPOCF "C"
|
||||
INPUT STATOPAIV F_STATOPAIV
|
||||
@ -353,7 +353,7 @@ STRING F_PIVAFORNITORE 14
|
||||
BEGIN
|
||||
PROMPT 1 11 "Partita IVA "
|
||||
HELP "Partita IVA del fornitore del documento"
|
||||
GROUP 2
|
||||
GROUP 2 7
|
||||
USE LF_CLIFO KEY 5
|
||||
INPUT TIPOCF "F"
|
||||
INPUT STATOPAIV F_STATOPAIV
|
||||
@ -381,22 +381,15 @@ BEGIN
|
||||
ITEM "LU|Lussemburgo"
|
||||
ITEM "NL|Olanda"
|
||||
ITEM "PT|Portogallo"
|
||||
GROUP 1
|
||||
GROUP 1 7
|
||||
END
|
||||
|
||||
BUTTON F_OCCASEDIT 18
|
||||
BUTTON F_OCCASEDIT 56
|
||||
BEGIN
|
||||
PROMPT 32 11 "Dati anagrafici"
|
||||
PROMPT 1 11 "Dati anagrafici del cliente o fornitore occasionale"
|
||||
FLAGS "H"
|
||||
END
|
||||
|
||||
BOOLEAN F_OCCASIONALE
|
||||
BEGIN
|
||||
MESSAGE FALSE HIDE,F_OCCASEDIT|ENABLE,F_PIVACLIENTE|ENABLE,F_PIVAFORNITORE|SHOW,F_STATOPAIV
|
||||
MESSAGE TRUE SHOW,F_OCCASEDIT|DISABLE,F_PIVACLIENTE|DISABLE,F_PIVAFORNITORE|HIDE,F_STATOPAIV
|
||||
FLAGS "GH"
|
||||
END
|
||||
|
||||
STRING F_CODPAG 4
|
||||
BEGIN
|
||||
PROMPT 60 11 "Pagamento "
|
||||
@ -418,7 +411,7 @@ BEGIN
|
||||
PROMPT 1 12 "Valuta "
|
||||
HELP "Codice della valuta per operazione con l'estero"
|
||||
FIELD LF_MOV->CODVAL
|
||||
FLAGS "U"
|
||||
FLAGS "UZ"
|
||||
GROUP 3
|
||||
USE %VAL
|
||||
INPUT CODTAB F_VALUTA
|
||||
@ -517,7 +510,7 @@ BEGIN
|
||||
PROMPT 68 15 "/ "
|
||||
FIELD LF_PARTITE->NUMPART
|
||||
FLAGS "D"
|
||||
HELP "Numero documento (o protocollo IVA) di riferimento"
|
||||
HELP "Numero documento di riferimento"
|
||||
WARNING "E' richiesto il numero di riferimento partita"
|
||||
CHECKTYPE REQUIRED
|
||||
END
|
||||
@ -527,7 +520,7 @@ BEGIN
|
||||
PROMPT 1 17 "Valuta intracom. "
|
||||
HELP "Codice della valuta per operazione intracomunitaria"
|
||||
FIELD CODVALI
|
||||
FLAGS "U"
|
||||
FLAGS "UZ"
|
||||
GROUP 4
|
||||
USE %VAL
|
||||
INPUT CODTAB F_VALUTAINTRA
|
||||
|
133
cg/cg2102.cpp
133
cg/cg2102.cpp
@ -322,16 +322,12 @@ void TPrimanota_application::disable_cgs_cells(int n, char tipo)
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
void TPrimanota_application::reset_cgs_row(int n)
|
||||
void TPrimanota_application::reset_sheet_row(TSheet_field& s, int n)
|
||||
{
|
||||
TSheet_field& cg = cgs();
|
||||
cg.row(cg.items()); // Append a new line
|
||||
cg.destroy(n); // Remove line n
|
||||
s.row(s.items()); // Append a new line
|
||||
s.destroy(n); // Remove line n
|
||||
}
|
||||
|
||||
|
||||
|
||||
int TPrimanota_application::set_cgs_row(int n, const TImporto& imp,
|
||||
TBill& conto, const char* desc,
|
||||
char tipo)
|
||||
@ -590,34 +586,27 @@ void TPrimanota_application::generazione_righe_cg(int r)
|
||||
|
||||
|
||||
bool TPrimanota_application::cg_notify(int r, KEY k)
|
||||
{
|
||||
{
|
||||
TSheet_field& cg = app().cgs();
|
||||
const char tipo = cg.row(r).right(1)[0];
|
||||
|
||||
switch(k)
|
||||
{
|
||||
case K_SPACE:
|
||||
{
|
||||
TSheet_field& cg = app().cgs();
|
||||
TToken_string& row = cg.row(r);
|
||||
const char tipo = row.right(1)[0];
|
||||
cg.sheet_mask().enable(DLG_DELREC, tipo <= ' ');
|
||||
break;
|
||||
case K_ENTER:
|
||||
if (app().iva() == nessuna_iva)
|
||||
app().generazione_righe_cg(r);
|
||||
app().calcola_saldo();
|
||||
break;
|
||||
case K_DEL:
|
||||
if (tipo > ' ')
|
||||
return error_box("La riga %d non puo' essere cancellata", r+1);
|
||||
default:
|
||||
break;
|
||||
}
|
||||
break;
|
||||
case K_ENTER:
|
||||
if (app().iva() == nessuna_iva)
|
||||
app().generazione_righe_cg(r);
|
||||
app().calcola_saldo();
|
||||
break;
|
||||
case K_DEL:
|
||||
{
|
||||
TToken_string& row = app().cgs().row(r);
|
||||
const char tipo = row.right(1)[0];
|
||||
if (tipo > ' ')
|
||||
return error_box("La riga %d non puo' essere cancellata", r+1);
|
||||
}
|
||||
break;
|
||||
default:
|
||||
break;
|
||||
}
|
||||
return TRUE;
|
||||
return TRUE;
|
||||
}
|
||||
|
||||
bool TPrimanota_application::descr_handler(TMask_field& f, KEY k)
|
||||
@ -767,7 +756,7 @@ bool TPrimanota_application::imposta_handler(TMask_field& f, KEY key)
|
||||
{
|
||||
f.warning_box("L'imposta dovrebbe essere %s", (const char*)imposta.string("."));
|
||||
if (val.is_zero()) f.set(imposta.string());
|
||||
}
|
||||
}
|
||||
} else
|
||||
if (key == K_F8)
|
||||
{
|
||||
@ -788,6 +777,9 @@ bool TPrimanota_application::imposta_handler(TMask_field& f, KEY key)
|
||||
}
|
||||
|
||||
|
||||
// Calcola il totale degli imponibili e delle imposte e aggiorna
|
||||
// i corrispondenti campi della maschera
|
||||
// Certified 99%
|
||||
real TPrimanota_application::calcola_imp() const
|
||||
{
|
||||
TArray& rows = ivas().rows_array();
|
||||
@ -907,11 +899,12 @@ bool TPrimanota_application::iva_notify(int r, KEY k)
|
||||
// Aggiorna conto sulla riga contabile
|
||||
if (newpos < 0)
|
||||
{
|
||||
if (delimp >= 0) app().reset_cgs_row(delimp); // Cancella vecchia riga
|
||||
if (delimp >= 0)
|
||||
app().reset_cgs_row(delimp); // Cancella vecchia riga
|
||||
|
||||
const TImporto val(app().real2imp(imponibile, 'I'));
|
||||
if (conto.ok() && !val.is_zero()) // Se c'e' imponibile ...
|
||||
{ // crea una nuova riga contabile
|
||||
if (conto.ok() && !val.is_zero()) // Se c'e' imponibile ...
|
||||
{ // crea una nuova riga contabile
|
||||
const TString80 d(cau.desc_agg(2));
|
||||
app().set_cgs_row(-1, val, conto, d, 'I');
|
||||
}
|
||||
@ -920,8 +913,8 @@ bool TPrimanota_application::iva_notify(int r, KEY k)
|
||||
{
|
||||
TImporto val(app().real2imp(imponibile, 'I'));
|
||||
val = app().add_cgs_imp(newpos, val);
|
||||
if (val.valore().is_zero()) // Se la riga si e' azzerata ...
|
||||
{ // ... cancellala
|
||||
if (val.valore().is_zero()) // Se la riga si e' azzerata ...
|
||||
{ // ... cancellala
|
||||
app().reset_cgs_row(newpos);
|
||||
newpos = -1;
|
||||
}
|
||||
@ -935,7 +928,10 @@ bool TPrimanota_application::iva_notify(int r, KEY k)
|
||||
int newposiva = type2pos(tipod);
|
||||
|
||||
if (newposiva < 0)
|
||||
{
|
||||
{
|
||||
if (deliva >= 0)
|
||||
app().reset_ivas_row(deliva);
|
||||
|
||||
if (!imposta.is_zero()) // Se c'e' imposta ...
|
||||
{ // ... crea nuova riga per l'IVA
|
||||
const TImporto val(app().real2imp(imposta, 'I'));
|
||||
@ -959,6 +955,10 @@ oldposiva = newposiva;
|
||||
|
||||
if (r == 0) // Se cambio la prima riga ...
|
||||
app().add_cgs_tot(app().curr_mask()); // ... ricalcola conti
|
||||
|
||||
if (imponibile.is_zero() && imposta.is_zero()) // Svuota riga iva nulla
|
||||
app().reset_ivas_row(r);
|
||||
|
||||
app().calcola_imp(); // Ricalcola totale IVA
|
||||
app().calcola_saldo(); // Ricalcola sbilanci
|
||||
}
|
||||
@ -991,9 +991,9 @@ bool TPrimanota_application::iva_handler(TMask_field& f, KEY k)
|
||||
const real im(row.get(0));
|
||||
if (!im.is_zero())
|
||||
{
|
||||
const TBill c(row, 6, 0x0);
|
||||
if (!c.ok())
|
||||
return f.error_box("Il conto della riga iva %d non e' completo", i+1);
|
||||
TBill c(row, 6, 0x0);
|
||||
if (!c.ok() || !c.find())
|
||||
return error_box("Il conto della riga iva %d e' errato o incompleto", i+1);
|
||||
}
|
||||
}
|
||||
}
|
||||
@ -1408,33 +1408,46 @@ bool TPrimanota_application::clifo_handler(TMask_field& f, KEY key)
|
||||
if (!suspended_handler(f, key))
|
||||
return FALSE;
|
||||
|
||||
if (key == K_TAB && f.focusdirty())
|
||||
if (key == K_TAB && f.active())
|
||||
{
|
||||
TMask& m = f.mask();
|
||||
app().add_cgs_tot(m);
|
||||
const char cf = app().clifo();
|
||||
TLocalisamfile& clifo = ((TEdit_field&)f).browse()->cursor()->file();
|
||||
if (clifo.get_char(CLI_TIPOCF) != cf)
|
||||
{
|
||||
clifo.put(CLI_TIPOCF, cf);
|
||||
clifo.read();
|
||||
}
|
||||
|
||||
TLocalisamfile& clifo = ((TEdit_field&)f).browse()->cursor()->file();
|
||||
const int alleg = clifo.get_int(CLI_ALLEG);
|
||||
TMask& m = f.mask();
|
||||
TEdit_field& upi = m.efield(F_RIEPILOGO);
|
||||
upi.check_type(alleg == 3 ? CHECK_REQUIRED : CHECK_NORMAL);
|
||||
|
||||
const bool occas = clifo.get_bool(CLI_OCCAS);
|
||||
m.show(F_OCCASEDIT, occas); // Dati anagrfici
|
||||
m.show(-7, !occas); // Partita IVA e stato partita IVA
|
||||
|
||||
if (clifo.get_bool(CLI_OCCAS))
|
||||
m.send_key(K_SPACE, F_OCCASEDIT); // Lancia maschera occasionali
|
||||
|
||||
if (m.field(F_VISVAL).active())
|
||||
{
|
||||
const TString16 valuta(clifo.get("CODVAL"));
|
||||
if (valuta.not_empty() && valuta != m.get(F_VALUTA))
|
||||
{
|
||||
TTable val("%val");
|
||||
val.put("CODTAB", valuta);
|
||||
if (val.read() == NOERR)
|
||||
if (f.focusdirty())
|
||||
{
|
||||
app().add_cgs_tot(m);
|
||||
|
||||
if (m.field(F_VISVAL).active())
|
||||
{
|
||||
const TString16 valuta(clifo.get("CODVAL"));
|
||||
if (valuta.not_empty() && valuta != m.get(F_VALUTA))
|
||||
{
|
||||
m.set(F_VALUTA, valuta);
|
||||
m.set(F_CAMBIO, val.get("R0"), TRUE);
|
||||
}
|
||||
}
|
||||
}
|
||||
TTable val("%val");
|
||||
val.put("CODTAB", valuta);
|
||||
if (val.read() == NOERR)
|
||||
{
|
||||
m.set(F_VALUTA, valuta);
|
||||
m.set(F_CAMBIO, val.get("R0"), TRUE);
|
||||
}
|
||||
}
|
||||
}
|
||||
if (occas)
|
||||
m.send_key(K_SPACE, F_OCCASEDIT); // Lancia maschera occasionali
|
||||
}
|
||||
}
|
||||
return TRUE;
|
||||
}
|
||||
|
@ -40,8 +40,10 @@ class TPrimanota_application : public TRelation_application
|
||||
TLibro_giornale* _giornale; // Libro giornale corrente
|
||||
TipoIVA _iva; // Tipo di IVA corrente
|
||||
bool _ges_val, _ges_sal; // Gestione valuta e saldaconto
|
||||
bool _num_cli, _num_for; // Riferimento partita allineato a destra
|
||||
bool _savenew; // Registra e nuovo
|
||||
short _firstfocus; // First field to gain focus
|
||||
|
||||
bool _iva_showed; // Lo sheet IVA e' gia' stato visualizzato una volta?
|
||||
|
||||
TSaldo_agg _saldi; // Saldi da aggiornare
|
||||
@ -89,6 +91,8 @@ class TPrimanota_application : public TRelation_application
|
||||
static bool cg_notify(int r, KEY key);
|
||||
static bool cg_handler(TMask_field& f, KEY key);
|
||||
static bool pag_notify(int r, KEY key);
|
||||
|
||||
void reset_sheet_row(TSheet_field& s, int n);
|
||||
|
||||
protected:
|
||||
virtual bool user_create();
|
||||
@ -165,12 +169,14 @@ protected:
|
||||
real calcola_imp() const;
|
||||
|
||||
int set_cgs_row(int n, const TImporto& importo, TBill& conto, const char* desc, char tipo);
|
||||
void reset_cgs_row(int n);
|
||||
void disable_cgs_cells(int n, char tipo);
|
||||
void add_cgs_tot(TMask& m);
|
||||
void add_cgs_rit(bool fisc);
|
||||
void generazione_righe_cg(int r);
|
||||
|
||||
void reset_cgs_row(int n) { reset_sheet_row(cgs(), n); }
|
||||
void reset_ivas_row(int n) { reset_sheet_row(ivas(), n); }
|
||||
|
||||
void* get_app_data() { return _app_data; }
|
||||
void set_app_data(void* v) { _app_data = v; }
|
||||
|
||||
|
@ -150,6 +150,7 @@ bool TRegistro::read_att()
|
||||
chiave << attivita() << "1";
|
||||
|
||||
TTable pla("PLA");
|
||||
attiv.setkey(1);
|
||||
pla.put("CODTAB", chiave);
|
||||
if (pla.read() == NOERR)
|
||||
{
|
||||
|
@ -1,6 +1,7 @@
|
||||
#include <xvt.h>
|
||||
#include <checks.h>
|
||||
|
||||
#define __MAIN__
|
||||
#include "cg3.h"
|
||||
|
||||
#define usage "Error - usage : %s -{0|1|2|3|4|5}"
|
||||
|
10
cg/cg3.h
10
cg/cg3.h
@ -1,11 +1,17 @@
|
||||
#ifndef __CG3_H
|
||||
#define __CG3_H
|
||||
|
||||
#ifdef MAIN
|
||||
#ifndef __STRINGS_H
|
||||
#include <strings.h>
|
||||
#endif
|
||||
|
||||
#ifdef __MAIN__
|
||||
#define extern
|
||||
#endif
|
||||
|
||||
#ifdef MAIN
|
||||
extern TString256 TMP;
|
||||
|
||||
#ifdef __MAIN__
|
||||
#undef extern
|
||||
#endif
|
||||
|
||||
|
@ -6,8 +6,6 @@
|
||||
#include <tabutil.h>
|
||||
#include <utility.h>
|
||||
#include <urldefid.h>
|
||||
#include <array.h>
|
||||
#include <lffiles.h>
|
||||
|
||||
#include <mov.h>
|
||||
#include <rmov.h>
|
||||
@ -25,8 +23,6 @@
|
||||
#include "cglib03.h"
|
||||
#include "cg2103.h"
|
||||
|
||||
static TString256 TMP;
|
||||
|
||||
enum liste {
|
||||
movimenti=1,
|
||||
fatture=2,
|
||||
|
481
cg/cg3100a.uml
481
cg/cg3100a.uml
@ -1,249 +1,232 @@
|
||||
#include "cg3100.h"
|
||||
|
||||
PAGE "" -1 -1 76 20
|
||||
|
||||
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
|
||||
GROUP 3
|
||||
PROMPT 2 3 "Anno esercizio "
|
||||
HELP "Anno d'esercizio di cui si vuole la lista"
|
||||
USE ESC
|
||||
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
|
||||
|
||||
RADIOBUTTON F_MOVIMENTI 38
|
||||
BEGIN
|
||||
PROMPT 30 3 "Scelta stampa "
|
||||
HELP "Indicare il tipo di stampa"
|
||||
ITEM "0|Lista movimenti"
|
||||
MESSAGE SHOW,F_CONTROLLO|SHOW,F_REGISTROFIN|SHOW,F_REGISTROINI|SHOW,F_STAMPA|HIDE,1@|RESET,1@
|
||||
ITEM "1|Lista movimenti di sola prima nota"
|
||||
MESSAGE HIDE,F_CONTROLLO|RESET,F_CONTROLLO|HIDE,1@|RESET,1@|HIDE,F_REGISTROFIN|RESET,F_REGISTROFIN|HIDE,F_REGISTROINI|RESET,F_REGISTROINI|HIDE,F_STAMPA|RESET,F_STAMPA
|
||||
END
|
||||
|
||||
|
||||
LIST F_CONTROLLO 21
|
||||
BEGIN
|
||||
PROMPT 2 7 "Controllo movimenti errati "
|
||||
HELP "Indicare il tipo di controllo per movimenti errati"
|
||||
ITEM "3|No" MESSAGE HIDE,1@|RESET,1@
|
||||
ITEM "2|Si" MESSAGE SHOW,1@
|
||||
ITEM "1|Stampa movimenti errati" MESSAGE SHOW,1@
|
||||
END
|
||||
|
||||
TEXT DLG_NULL
|
||||
BEGIN
|
||||
GROUP 1
|
||||
PROMPT 2 8 "Stampa messaggi : "
|
||||
END
|
||||
|
||||
BOOLEAN F_ANNOC
|
||||
BEGIN
|
||||
GROUP 1
|
||||
PROMPT 20 8 "Anno di competenza "
|
||||
HELP "Indicare se stampa l'anno di competenza"
|
||||
END
|
||||
|
||||
BOOLEAN F_ALLEGATO
|
||||
BEGIN
|
||||
GROUP 1
|
||||
PROMPT 20 9 "Allegato iva "
|
||||
HELP "Indicare se stampare l'allegato IVA"
|
||||
MESSAGE TRUE DISABLE,F_STAMPA|COPY,F_STAMPA
|
||||
MESSAGE FALSE ENABLE,F_STAMPA
|
||||
END
|
||||
|
||||
RADIOBUTTON F_DECIDI 10
|
||||
BEGIN
|
||||
PROMPT 2 10 "Stampa "
|
||||
HELP "Indicare il criterio di scelta dei movimenti"
|
||||
ITEM "2|data" MESSAGE DISABLE,2@|RESET,2@|ENABLE,3@
|
||||
ITEM "1|numero" MESSAGE DISABLE,3@|RESET,3@|ENABLE,2@
|
||||
END
|
||||
|
||||
DATE F_DATAINI
|
||||
BEGIN
|
||||
<<<<<<< cg3100a.uml
|
||||
PROMPT 19 11 "Stampa mov. dalla data "
|
||||
HELP "Data da cui iniziare la stampa"
|
||||
=======
|
||||
PROMPT 16 11 "Stampa mov. dalla data "
|
||||
//HELP "Se non indicato nessun valore viene effettuata una stampa completa in ordine di data"
|
||||
>>>>>>> 1.12
|
||||
GROUP 3
|
||||
END
|
||||
|
||||
DATE F_DATAFIN
|
||||
BEGIN
|
||||
<<<<<<< cg3100a.uml
|
||||
PROMPT 55 11 "alla data "
|
||||
HELP "Data fino a cui stampare i movimenti"
|
||||
=======
|
||||
PROMPT 52 11 "alla data "
|
||||
>>>>>>> 1.12
|
||||
GROUP 3
|
||||
END
|
||||
|
||||
NUMBER F_NUMEROINI 7
|
||||
BEGIN
|
||||
<<<<<<< cg3100a.uml
|
||||
PROMPT 19 12 "Stampa mov. dal numero "
|
||||
HELP "Numero del movimento da cui iniziare la stampa"
|
||||
=======
|
||||
PROMPT 16 12 "Stampa mov. dal numero "
|
||||
>>>>>>> 1.12
|
||||
USE LF_MOV KEY 1
|
||||
INPUT NUMREG F_NUMEROINI
|
||||
DISPLAY "Numero@6" NUMREG
|
||||
DISPLAY "Data@10" DATAREG
|
||||
DISPLAY "Causale" CODCAUS
|
||||
DISPLAY "Documento" NUMDOC
|
||||
DISPLAY "Descrizione@50" DESCR
|
||||
OUTPUT F_NUMEROINI NUMREG
|
||||
CHECKTYPE NORMAL
|
||||
FLAGS "R"
|
||||
GROUP 2
|
||||
END
|
||||
|
||||
NUMBER F_NUMEROFIN 7
|
||||
BEGIN
|
||||
<<<<<<< cg3100a.uml
|
||||
PROMPT 55 12 "al numero "
|
||||
HELP "Numero del movimenti fino cui fare la stampa"
|
||||
=======
|
||||
PROMPT 52 12 "al numero "
|
||||
>>>>>>> 1.12
|
||||
COPY USE F_NUMEROINI
|
||||
INPUT NUMREG F_NUMEROFIN
|
||||
COPY DISPLAY F_NUMEROINI
|
||||
OUTPUT F_NUMEROFIN NUMREG
|
||||
CHECKTYPE NORMAL
|
||||
FLAGS "R"
|
||||
NUM_EXPR {(#F_NUMEROFIN==0)||(#F_NUMEROFIN>=#F_NUMEROINI)}
|
||||
WARNING "Limite superiore errato"
|
||||
GROUP 2
|
||||
END
|
||||
|
||||
STRING F_CAUSALEINI 3
|
||||
BEGIN
|
||||
PROMPT 2 14 "Stampa dalla causale "
|
||||
USE LF_CAUSALI KEY 1
|
||||
INPUT CODCAUS F_CAUSALEINI
|
||||
DISPLAY "Codice causale" CODCAUS
|
||||
DISPLAY "Descrizione@50" DESCR
|
||||
OUTPUT F_CAUSALEINI CODCAUS
|
||||
FLAGS "U"
|
||||
HELP "Causale di inizio stampa: vuoto = inizio archivio"
|
||||
VALIDATE ZEROFILL_FUNC 3
|
||||
END
|
||||
|
||||
STRING F_CAUSALEFIN 3
|
||||
BEGIN
|
||||
PROMPT 40 14 "alla causale "
|
||||
COPY USE F_CAUSALEINI
|
||||
INPUT CODCAUS F_CAUSALEFIN
|
||||
DISPLAY "Codice causale" CODCAUS
|
||||
DISPLAY "Descrizione@50" DESCR
|
||||
OUTPUT F_CAUSALEFIN CODCAUS
|
||||
FLAGS "U"
|
||||
HELP "Causale di fine stampa: vuoto = fine archivio"
|
||||
VALIDATE ZEROFILL_FUNC 3
|
||||
END
|
||||
|
||||
STRING F_REGISTROINI 3
|
||||
BEGIN
|
||||
PROMPT 2 15 "Stampa dal registro iva "
|
||||
USE REG SELECT I0<"3"
|
||||
//INPUT CODTAB[1,5] F_ANNO SELECT
|
||||
INPUT CODTAB[5,7] F_REGISTROINI
|
||||
DISPLAY "Anno" CODTAB[1,4]
|
||||
DISPLAY "Cod. registro iva" CODTAB[5,7]
|
||||
DISPLAY "Descrizione@40" S0
|
||||
OUTPUT F_REGISTROINI CODTAB[5,7]
|
||||
FLAGS "U"
|
||||
//CHECKTYPE NORMAL
|
||||
HELP "Codice registro iva di inizio stampa: vuoto = inizio archivio"
|
||||
VALIDATE ZEROFILL_FUNC 3
|
||||
END
|
||||
|
||||
STRING F_REGISTROFIN 3
|
||||
BEGIN
|
||||
PROMPT 40 15 "al reg. iva "
|
||||
COPY USE F_REGISTROINI
|
||||
//INPUT CODTAB[1,5] F_ANNO SELECT
|
||||
INPUT CODTAB[5,7] F_REGISTROFIN
|
||||
DISPLAY "Anno" CODTAB[1,4]
|
||||
DISPLAY "Cod. registro iva" CODTAB[5,7]
|
||||
DISPLAY "Descrizione@40" S0
|
||||
OUTPUT F_REGISTROFIN CODTAB[5,7]
|
||||
FLAGS "U"
|
||||
//CHECKTYPE NORMAL
|
||||
HELP "Codice registro iva di fine stampa: vuoto = fine archivio"
|
||||
VALIDATE ZEROFILL_FUNC 3
|
||||
END
|
||||
|
||||
BOOLEAN F_STAMPA
|
||||
BEGIN
|
||||
PROMPT 2 16 "Stampa imponibili, imposte e codici iva "
|
||||
HELP "Indicare se stampare i valori degli imponibili, dell'imposte e i codici IVA"
|
||||
END
|
||||
|
||||
BOOLEAN F_STAMPAMOVP
|
||||
BEGIN
|
||||
PROMPT 2 17 "Stampa movimenti provvisori "
|
||||
HELP "Indicare se stampare i movimenti provvisori"
|
||||
END
|
||||
|
||||
/*
|
||||
TEXT DLG_NULL
|
||||
BEGIN
|
||||
PROMPT 2 17 "N.B. se non indicato nessun valore stampa completa in ordine di data"
|
||||
END
|
||||
*/
|
||||
|
||||
BUTTON DLG_PRINT 9 2
|
||||
BEGIN
|
||||
PROMPT -12 -1 "~Stampa"
|
||||
MESSAGE EXIT,K_ENTER
|
||||
END
|
||||
|
||||
BUTTON DLG_QUIT 9 2
|
||||
BEGIN
|
||||
PROMPT -22 -1 ""
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
ENDMASK
|
||||
#include "cg3100.h"
|
||||
|
||||
PAGE "" -1 -1 76 20
|
||||
|
||||
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
|
||||
GROUP 3
|
||||
PROMPT 2 3 "Anno esercizio "
|
||||
HELP "Anno d'esercizio di cui si vuole la lista"
|
||||
USE ESC
|
||||
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
|
||||
|
||||
RADIOBUTTON F_MOVIMENTI 38
|
||||
BEGIN
|
||||
PROMPT 30 3 "Scelta stampa "
|
||||
HELP "Indicare il tipo di stampa"
|
||||
ITEM "0|Lista movimenti"
|
||||
MESSAGE SHOW,F_CONTROLLO|SHOW,F_REGISTROFIN|SHOW,F_REGISTROINI|SHOW,F_STAMPA|HIDE,1@|RESET,1@
|
||||
ITEM "1|Lista movimenti di sola prima nota"
|
||||
MESSAGE HIDE,F_CONTROLLO|RESET,F_CONTROLLO|HIDE,1@|RESET,1@|HIDE,F_REGISTROFIN|RESET,F_REGISTROFIN|HIDE,F_REGISTROINI|RESET,F_REGISTROINI|HIDE,F_STAMPA|RESET,F_STAMPA
|
||||
END
|
||||
|
||||
|
||||
LIST F_CONTROLLO 21
|
||||
BEGIN
|
||||
PROMPT 2 7 "Controllo movimenti errati "
|
||||
HELP "Indicare il tipo di controllo per movimenti errati"
|
||||
ITEM "3|No" MESSAGE HIDE,1@|RESET,1@
|
||||
ITEM "2|Si" MESSAGE SHOW,1@
|
||||
ITEM "1|Stampa movimenti errati" MESSAGE SHOW,1@
|
||||
END
|
||||
|
||||
TEXT DLG_NULL
|
||||
BEGIN
|
||||
GROUP 1
|
||||
PROMPT 2 8 "Stampa messaggi : "
|
||||
END
|
||||
|
||||
BOOLEAN F_ANNOC
|
||||
BEGIN
|
||||
GROUP 1
|
||||
PROMPT 20 8 "Anno di competenza "
|
||||
HELP "Indicare se stampa l'anno di competenza"
|
||||
END
|
||||
|
||||
BOOLEAN F_ALLEGATO
|
||||
BEGIN
|
||||
GROUP 1
|
||||
PROMPT 20 9 "Allegato iva "
|
||||
HELP "Indicare se stampare l'allegato IVA"
|
||||
MESSAGE TRUE DISABLE,F_STAMPA|COPY,F_STAMPA
|
||||
MESSAGE FALSE ENABLE,F_STAMPA
|
||||
END
|
||||
|
||||
RADIOBUTTON F_DECIDI 10
|
||||
BEGIN
|
||||
PROMPT 2 10 "Stampa "
|
||||
HELP "Indicare il criterio di scelta dei movimenti"
|
||||
ITEM "2|data" MESSAGE DISABLE,2@|RESET,2@|ENABLE,3@
|
||||
ITEM "1|numero" MESSAGE DISABLE,3@|RESET,3@|ENABLE,2@
|
||||
END
|
||||
|
||||
DATE F_DATAINI
|
||||
BEGIN
|
||||
HELP "Data da cui iniziare la stampa"
|
||||
PROMPT 16 11 "Stampa mov. dalla data "
|
||||
GROUP 3
|
||||
END
|
||||
|
||||
DATE F_DATAFIN
|
||||
BEGIN
|
||||
HELP "Data fino a cui stampare i movimenti"
|
||||
PROMPT 52 11 "alla data "
|
||||
GROUP 3
|
||||
END
|
||||
|
||||
NUMBER F_NUMEROINI 7
|
||||
BEGIN
|
||||
HELP "Numero del movimento da cui iniziare la stampa"
|
||||
PROMPT 16 12 "Stampa mov. dal numero "
|
||||
USE LF_MOV KEY 1
|
||||
INPUT NUMREG F_NUMEROINI
|
||||
DISPLAY "Numero@6" NUMREG
|
||||
DISPLAY "Data@10" DATAREG
|
||||
DISPLAY "Causale" CODCAUS
|
||||
DISPLAY "Documento" NUMDOC
|
||||
DISPLAY "Descrizione@50" DESCR
|
||||
OUTPUT F_NUMEROINI NUMREG
|
||||
CHECKTYPE NORMAL
|
||||
FLAGS "R"
|
||||
GROUP 2
|
||||
END
|
||||
|
||||
NUMBER F_NUMEROFIN 7
|
||||
BEGIN
|
||||
HELP "Numero del movimenti fino cui fare la stampa"
|
||||
PROMPT 52 12 "al numero "
|
||||
COPY USE F_NUMEROINI
|
||||
INPUT NUMREG F_NUMEROFIN
|
||||
COPY DISPLAY F_NUMEROINI
|
||||
OUTPUT F_NUMEROFIN NUMREG
|
||||
CHECKTYPE NORMAL
|
||||
FLAGS "R"
|
||||
NUM_EXPR {(#F_NUMEROFIN==0)||(#F_NUMEROFIN>=#F_NUMEROINI)}
|
||||
WARNING "Limite superiore errato"
|
||||
GROUP 2
|
||||
END
|
||||
|
||||
STRING F_CAUSALEINI 3
|
||||
BEGIN
|
||||
PROMPT 2 14 "Stampa dalla causale "
|
||||
USE LF_CAUSALI KEY 1
|
||||
INPUT CODCAUS F_CAUSALEINI
|
||||
DISPLAY "Codice causale" CODCAUS
|
||||
DISPLAY "Descrizione@50" DESCR
|
||||
OUTPUT F_CAUSALEINI CODCAUS
|
||||
FLAGS "U"
|
||||
HELP "Causale di inizio stampa: vuoto = inizio archivio"
|
||||
VALIDATE ZEROFILL_FUNC 3
|
||||
END
|
||||
|
||||
STRING F_CAUSALEFIN 3
|
||||
BEGIN
|
||||
PROMPT 40 14 "alla causale "
|
||||
COPY USE F_CAUSALEINI
|
||||
INPUT CODCAUS F_CAUSALEFIN
|
||||
DISPLAY "Codice causale" CODCAUS
|
||||
DISPLAY "Descrizione@50" DESCR
|
||||
OUTPUT F_CAUSALEFIN CODCAUS
|
||||
FLAGS "U"
|
||||
HELP "Causale di fine stampa: vuoto = fine archivio"
|
||||
VALIDATE ZEROFILL_FUNC 3
|
||||
END
|
||||
|
||||
STRING F_REGISTROINI 3
|
||||
BEGIN
|
||||
PROMPT 2 15 "Stampa dal registro iva "
|
||||
USE REG SELECT I0<"3"
|
||||
//INPUT CODTAB[1,5] F_ANNO SELECT
|
||||
INPUT CODTAB[5,7] F_REGISTROINI
|
||||
DISPLAY "Anno" CODTAB[1,4]
|
||||
DISPLAY "Cod. registro iva" CODTAB[5,7]
|
||||
DISPLAY "Descrizione@40" S0
|
||||
OUTPUT F_REGISTROINI CODTAB[5,7]
|
||||
FLAGS "U"
|
||||
//CHECKTYPE NORMAL
|
||||
HELP "Codice registro iva di inizio stampa: vuoto = inizio archivio"
|
||||
VALIDATE ZEROFILL_FUNC 3
|
||||
END
|
||||
|
||||
STRING F_REGISTROFIN 3
|
||||
BEGIN
|
||||
PROMPT 40 15 "al reg. iva "
|
||||
COPY USE F_REGISTROINI
|
||||
//INPUT CODTAB[1,5] F_ANNO SELECT
|
||||
INPUT CODTAB[5,7] F_REGISTROFIN
|
||||
DISPLAY "Anno" CODTAB[1,4]
|
||||
DISPLAY "Cod. registro iva" CODTAB[5,7]
|
||||
DISPLAY "Descrizione@40" S0
|
||||
OUTPUT F_REGISTROFIN CODTAB[5,7]
|
||||
FLAGS "U"
|
||||
//CHECKTYPE NORMAL
|
||||
HELP "Codice registro iva di fine stampa: vuoto = fine archivio"
|
||||
VALIDATE ZEROFILL_FUNC 3
|
||||
END
|
||||
|
||||
BOOLEAN F_STAMPA
|
||||
BEGIN
|
||||
PROMPT 2 16 "Stampa imponibili, imposte e codici iva "
|
||||
HELP "Indicare se stampare i valori degli imponibili, dell'imposte e i codici IVA"
|
||||
END
|
||||
|
||||
BOOLEAN F_STAMPAMOVP
|
||||
BEGIN
|
||||
PROMPT 2 17 "Stampa movimenti provvisori "
|
||||
HELP "Indicare se stampare i movimenti provvisori"
|
||||
END
|
||||
|
||||
/*
|
||||
TEXT DLG_NULL
|
||||
BEGIN
|
||||
PROMPT 2 17 "N.B. se non indicato nessun valore stampa completa in ordine di data"
|
||||
END
|
||||
*/
|
||||
|
||||
BUTTON DLG_PRINT 9 2
|
||||
BEGIN
|
||||
PROMPT -12 -1 "~Stampa"
|
||||
MESSAGE EXIT,K_ENTER
|
||||
END
|
||||
|
||||
BUTTON DLG_QUIT 9 2
|
||||
BEGIN
|
||||
PROMPT -22 -1 ""
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
ENDMASK
|
||||
|
@ -1,8 +1,10 @@
|
||||
#include <execp.h>
|
||||
#include <mailbox.h>
|
||||
#include <mask.h>
|
||||
#include <printapp.h>
|
||||
#include <sort.h>
|
||||
#include <tabutil.h>
|
||||
#include <utility.h>
|
||||
#include <sort.h>
|
||||
|
||||
#include <clifo.h>
|
||||
#include <pconti.h>
|
||||
@ -13,16 +15,12 @@
|
||||
#include <causali.h>
|
||||
#include <nditte.h>
|
||||
#include <unloc.h>
|
||||
#include <mailbox.h>
|
||||
#include <execp.h>
|
||||
|
||||
#include "cg3.h"
|
||||
#include "cg3200.h"
|
||||
#include "cglib.h"
|
||||
#include "cglib03.h"
|
||||
|
||||
static TString256 tmp;
|
||||
|
||||
int date2esc(const TDate& d, int* prevesc = NULL);
|
||||
bool sottoc_handler_ini (TMask_field& f, KEY k);
|
||||
bool sottoc_handler_fine (TMask_field& f, KEY k);
|
||||
@ -1916,10 +1914,10 @@ const char* TMastrini_application::descrizione_classe(char sezione, char lettera
|
||||
tabivd.read();
|
||||
dep2 = tabivd.get("CODTAB");
|
||||
if (dep == dep2)
|
||||
tmp = tabivd.get("S0");
|
||||
TMP = tabivd.get("S0");
|
||||
else
|
||||
tmp = "";
|
||||
return (tmp);
|
||||
TMP = "";
|
||||
return TMP;
|
||||
}
|
||||
|
||||
//Ricerca la descrizione relativa al gruppo da stampare
|
||||
@ -1931,8 +1929,8 @@ const char* TMastrini_application::descrizione_gruppo()
|
||||
pconti.zero();
|
||||
pconti.put(PCN_GRUPPO,_gruppo);
|
||||
if (pconti.read() != NOERR) pconti.zero();
|
||||
tmp = pconti.get(PCN_DESCR);
|
||||
return tmp;
|
||||
TMP = pconti.get(PCN_DESCR);
|
||||
return TMP;
|
||||
}
|
||||
|
||||
// Ricerca la descrizione relativa al conto da stampare
|
||||
@ -1945,8 +1943,8 @@ const char* TMastrini_application::descrizione_conto()
|
||||
pconti.put(PCN_GRUPPO,_gruppo);
|
||||
pconti.put(PCN_CONTO,_conto);
|
||||
if (pconti.read() != NOERR) pconti.zero();
|
||||
tmp = pconti.get(PCN_DESCR);
|
||||
return tmp;
|
||||
TMP = pconti.get(PCN_DESCR);
|
||||
return TMP;
|
||||
}
|
||||
|
||||
bool TMastrini_application::user_create()
|
||||
|
@ -5,15 +5,11 @@
|
||||
#include <mask.h>
|
||||
#include <printapp.h>
|
||||
#include <progind.h>
|
||||
#include <scanner.h>
|
||||
#include <sort.h>
|
||||
#include <tabutil.h>
|
||||
#include <utility.h>
|
||||
#include <lffiles.h>
|
||||
#include <sort.h>
|
||||
#include <real.h>
|
||||
#include <validate.h>
|
||||
#include <string.h>
|
||||
#include <urldefid.h>
|
||||
#include <validate.h>
|
||||
|
||||
#include <comuni.h>
|
||||
#include <anagr.h>
|
||||
@ -36,10 +32,6 @@
|
||||
#define DISTANZA_HEADER_CORPO 5
|
||||
#define LUNGHEZZA_RECORD 128
|
||||
|
||||
#define MAXSTR 128
|
||||
static char __tmp[MAXSTR];
|
||||
static TFixed_string tmp(__tmp, MAXSTR);
|
||||
|
||||
const int CODTABLEN = 15;
|
||||
|
||||
HIDDEN const char * SEGNO_MENO = "-";
|
||||
@ -203,9 +195,9 @@ const char * CG3300_application::decodifica_desc_att (TString & codatt)
|
||||
if (attivita.bad())
|
||||
attivita.zero();
|
||||
|
||||
tmp = attivita.get ("S0");
|
||||
TMP = attivita.get ("S0");
|
||||
|
||||
return __tmp;
|
||||
return TMP;
|
||||
}
|
||||
|
||||
bool CG3300_application::corrispettivo (const char * tipodoc)
|
||||
|
@ -1,13 +1,12 @@
|
||||
// cg3400 - Stampa libro giornale
|
||||
|
||||
#include <isam.h>
|
||||
#include <config.h>
|
||||
#include <mask.h>
|
||||
#include <utility.h>
|
||||
#include <printapp.h>
|
||||
#include <progind.h>
|
||||
#include <tabutil.h>
|
||||
#include <urldefid.h>
|
||||
#include <printapp.h>
|
||||
#include <config.h>
|
||||
#include <progind.h>
|
||||
#include <utility.h>
|
||||
|
||||
#include <mov.h>
|
||||
#include <rmov.h>
|
||||
@ -22,6 +21,7 @@
|
||||
#include <clifo.h>
|
||||
#include <occas.h>
|
||||
|
||||
#include "cg3.h"
|
||||
#include "conto.h"
|
||||
#include "cglib03.h"
|
||||
#include "cg2103.h"
|
||||
@ -44,8 +44,6 @@ HIDDEN const int AVERE132 = 112;
|
||||
HIDDEN const int DARE198 = 150;
|
||||
HIDDEN const int AVERE198 = 174;
|
||||
|
||||
HIDDEN TString256 tmp;
|
||||
|
||||
HIDDEN int date2esc(const TDate& d, int* prevesc = NULL);
|
||||
|
||||
HIDDEN enum descr { causale, conto, operazione };
|
||||
@ -241,23 +239,25 @@ TRectype& CG3400_application::look_com (const char * cod)
|
||||
return _com->curr();
|
||||
}
|
||||
|
||||
const char* CG3400_application::SimboloValuta (const char* cod)
|
||||
{
|
||||
TString16 codtab;
|
||||
/*
|
||||
const char* CG3400_application::SimboloValuta (const char* cod)
|
||||
{
|
||||
TString16 codtab;
|
||||
|
||||
codtab.format ("%-3s", cod);
|
||||
codtab.format ("%-3s", cod);
|
||||
|
||||
_tabval->zero();
|
||||
_tabval->put("CODTAB", codtab);
|
||||
_tabval->read();
|
||||
_tabval->zero();
|
||||
_tabval->put("CODTAB", codtab);
|
||||
_tabval->read();
|
||||
|
||||
if (_tabval->good())
|
||||
tmp = _tabval->get("S7");
|
||||
else
|
||||
tmp = "";
|
||||
if (_tabval->good())
|
||||
TMP = _tabval->get("S7");
|
||||
else
|
||||
TMP = "";
|
||||
|
||||
return tmp;
|
||||
}
|
||||
return TMP;
|
||||
}
|
||||
*/
|
||||
|
||||
const char * CG3400_application::get_descr_caus (const char * codcaus)
|
||||
{
|
||||
@ -267,8 +267,8 @@ const char * CG3400_application::get_descr_caus (const char * codcaus)
|
||||
caus.put (CAU_CODCAUS, codcaus);
|
||||
if (caus.read() != NOERR) caus.zero();
|
||||
|
||||
tmp = caus.get(CAU_DESCR);
|
||||
return tmp;
|
||||
TMP = caus.get(CAU_DESCR);
|
||||
return TMP;
|
||||
}
|
||||
|
||||
void CG3400_application::get_dati_ditta ()
|
||||
|
@ -1,17 +1,16 @@
|
||||
//Stampa riepilogo gruppi/conti
|
||||
|
||||
#include <config.h>
|
||||
#include <mask.h>
|
||||
#include <printapp.h>
|
||||
#include <relation.h>
|
||||
#include <tabutil.h>
|
||||
#include <printapp.h>
|
||||
#include <mask.h>
|
||||
#include <utility.h>
|
||||
#include <prefix.h>
|
||||
#include <config.h>
|
||||
|
||||
#include <progind.h>
|
||||
#include <pconti.h>
|
||||
#include <comuni.h>
|
||||
#include <clifo.h>
|
||||
|
||||
#include <saldi.h>
|
||||
#include <nditte.h>
|
||||
#include <anagr.h>
|
||||
|
@ -822,7 +822,7 @@ void CG4400_application::calcola_progressivi()
|
||||
|
||||
int CG4400_application::riga_rmoviva()
|
||||
{
|
||||
TString codiva;
|
||||
TString16 codiva;
|
||||
real impo, impos;
|
||||
int tipodet, tipocr, tipoatt;
|
||||
bool intra;
|
||||
@ -2325,9 +2325,7 @@ bool CG4400_application::set_print(int n)
|
||||
else
|
||||
{
|
||||
_tipo_riepilogativo = ' ';
|
||||
TDate primo = format("01/%02d/%4d", _fino_a_mese+1, _annoes);
|
||||
--primo;
|
||||
giorni_del_mese = primo.day();
|
||||
giorni_del_mese = TDate::last_day(_fino_a_mese, _annoes);
|
||||
}
|
||||
_data_a=format("%02d/%02d/%4d",giorni_del_mese,_fino_a_mese,_annoes);
|
||||
}
|
||||
|
@ -43,22 +43,12 @@ BEGIN
|
||||
FIELD PcTcCm
|
||||
END
|
||||
|
||||
GROUPBOX DLG_NULL 53 4
|
||||
GROUPBOX DLG_NULL 76 4
|
||||
BEGIN
|
||||
PROMPT 2 3 "Archivi in comune"
|
||||
END
|
||||
|
||||
|
||||
RADIOBUTTON LST_RIFPAR 20
|
||||
BEGIN
|
||||
PROMPT 55 3 "Riferimenti partite "
|
||||
HELP "Indicaer il criterio dei riferimenti delle partite"
|
||||
ITEM " |N. protocollo"
|
||||
ITEM "X|N. documento"
|
||||
HELP ""
|
||||
FIELD RifPar
|
||||
END
|
||||
|
||||
GROUPBOX DLG_NULL 76 12
|
||||
BEGIN
|
||||
PROMPT 2 6 ""
|
||||
|
@ -53,6 +53,7 @@ BEGIN
|
||||
DISPLAY "Gruppo" GRUPPO
|
||||
DISPLAY "Descrizione@50" DESCR
|
||||
OUTPUT F_GRUPPO GRUPPO
|
||||
OUTPUT F_DESCR_CONTO DESCR
|
||||
CHECKTYPE NORMAL
|
||||
VALIDATE CHECK_FIELD F_GRUPPO
|
||||
FLAGS "R"
|
||||
|
@ -53,7 +53,7 @@ BEGIN
|
||||
PROMPT 4 4 "Parametri ditta"
|
||||
END
|
||||
|
||||
LIST F_FREQ_VERS 14
|
||||
LIST F_FREQ_VERS 1 14
|
||||
BEGIN
|
||||
PROMPT 6 5 "Frequenza versamenti "
|
||||
HELP "Indicare la frequenza dei versamenti delle liquidazioni IVA"
|
||||
|
@ -21,8 +21,8 @@ class TRipristina_stampa : public TApplication
|
||||
virtual bool create() ;
|
||||
virtual bool destroy() ;
|
||||
bool menu(MENU_TAG);
|
||||
bool do_restore(long firm, const char * reg, const char * year, int month,
|
||||
bool giornale);
|
||||
bool do_restore(long firm, const char * reg, int year, int month,
|
||||
int day, bool giornale);
|
||||
static bool firm_handler(TMask_field& f, KEY key);
|
||||
|
||||
public:
|
||||
@ -50,7 +50,7 @@ bool TRipristina_stampa::firm_handler(TMask_field& f, KEY key)
|
||||
}
|
||||
|
||||
bool TRipristina_stampa::do_restore(long firm, const char * regist,
|
||||
const char * year, int month,
|
||||
int year, int month, int day,
|
||||
bool giornale)
|
||||
{
|
||||
bool ok = TRUE;
|
||||
@ -65,14 +65,13 @@ bool TRipristina_stampa::do_restore(long firm, const char * regist,
|
||||
TTable reg("REG");
|
||||
TString16 s;
|
||||
|
||||
s.format("%-4s%s", year, regist);
|
||||
s.format("%04d%s", year, regist);
|
||||
|
||||
reg.zero();
|
||||
reg.put("CODTAB", s);
|
||||
if (reg.read(_isequal, _lock) == NOERR)
|
||||
{
|
||||
TDate dlast(reg.get_date("D3"));
|
||||
int wyear = atoi(year);
|
||||
|
||||
if (giornale)
|
||||
{
|
||||
@ -87,11 +86,11 @@ bool TRipristina_stampa::do_restore(long firm, const char * regist,
|
||||
|
||||
TDate wd(esc.get_date("D0"));
|
||||
|
||||
wyear = wd.year();
|
||||
year = wd.year();
|
||||
if (wd.month() > month)
|
||||
wyear++;
|
||||
year++;
|
||||
}
|
||||
TDate d(1, month, wyear);
|
||||
TDate d(day, month, year);
|
||||
|
||||
TRectype from(mov.curr()); from.zero();
|
||||
TRectype to(from);
|
||||
@ -164,23 +163,23 @@ bool TRipristina_stampa::menu(MENU_TAG)
|
||||
while (_msk->run() == K_ENTER)
|
||||
{
|
||||
const long firm = _msk->get_long(F_FIRM);
|
||||
const TString16 reg = _msk->get(F_REG);
|
||||
const TString16 reg = _msk->get(F_REG);
|
||||
const bool giornale = _msk->get_int(F_TIPO) == 5;
|
||||
const TString16 year = _msk->get(giornale ? F_ESER : F_YEAR);
|
||||
int month = _msk->get_int(F_MESE);
|
||||
const int year = _msk->get_int(giornale ? F_ESER : F_YEAR);
|
||||
const int month = _msk->get_int(F_MESE);
|
||||
const int day = giornale ? _msk->get_int(F_DAY) : 1;
|
||||
|
||||
if (prefhndl->exist(firm))
|
||||
{
|
||||
TString mess;
|
||||
|
||||
mess.format("Attenzione sara' ripristinata la stampa\n del registro %s %s %s della ditta %ld dal mese di %s. Devo continuare",
|
||||
(const char *) reg, giornale ? "esercizio" : "anno",
|
||||
(const char *) year, (const char *) firm, itom(month));
|
||||
TString256 mess("Attenzione sara' ripristinata la stampa\n del registro ");
|
||||
mess << reg << " dell'" << (giornale ? "esercizio " : "anno ") << year
|
||||
<< " della ditta " << firm << "dal " << day << '-' << month << '-' << year;
|
||||
|
||||
if (yesno_box((const char *) mess))
|
||||
{
|
||||
mess.rtrim(16); mess << " Devo veramente continuare";
|
||||
mess << "\nSi desidera veramente continuare";
|
||||
if (yesno_box((const char *) mess))
|
||||
do_restore(firm, reg, year, month, giornale);
|
||||
do_restore(firm, reg, year, month, day, giornale);
|
||||
}
|
||||
}
|
||||
else error_box("Gli archivi della ditta %d non sono stati ancora generati",firm);
|
||||
|
@ -6,4 +6,4 @@
|
||||
#define F_YEAR 106
|
||||
#define F_ESER 107
|
||||
#define F_MESE 108
|
||||
|
||||
#define F_DAY 109
|
||||
|
@ -1,6 +1,6 @@
|
||||
#include "cg5400.h"
|
||||
|
||||
PAGE "Ripristino stampa giornale" -1 -1 78 11
|
||||
PAGE "Ripristino stampa registri" -1 -1 78 11
|
||||
|
||||
NUMBER F_FIRM 5
|
||||
BEGIN
|
||||
@ -44,7 +44,7 @@ BEGIN
|
||||
OUTPUT F_YEAR CODTAB[1,4]
|
||||
OUTPUT F_REG CODTAB[5,7]
|
||||
OUTPUT F_DREG S0
|
||||
OUTPUT F_TIPO I0
|
||||
OUTPUT F_TIPO I0
|
||||
CHECKTYPE REQUIRED
|
||||
HELP "Codice del registro di cui ripristinare la stampa"
|
||||
WARNING "Registro assente"
|
||||
@ -68,10 +68,10 @@ END
|
||||
LIST F_TIPO
|
||||
BEGIN
|
||||
FLAGS "HG"
|
||||
ITEM "1|Vendite" MESSAGE HIDE,F_ESER|SHOW,F_YEAR
|
||||
ITEM "2|Vendite" MESSAGE HIDE,F_ESER|SHOW,F_YEAR
|
||||
ITEM "3|Riepilogativo" MESSAGE HIDE,F_ESER|SHOW,F_YEAR
|
||||
ITEM "5|Giornale" MESSAGE SHOW,F_ESER|HIDE,F_YEAR
|
||||
ITEM "1|Vendite" MESSAGE HIDE,F_ESER|SHOW,F_YEAR|HIDE,F_DAY
|
||||
ITEM "2|Vendite" MESSAGE HIDE,F_ESER|SHOW,F_YEAR|HIDE,F_DAY
|
||||
ITEM "3|Riepilogativo" MESSAGE HIDE,F_ESER|SHOW,F_YEAR|HIDE,F_DAY
|
||||
ITEM "5|Giornale" MESSAGE SHOW,F_ESER|HIDE,F_YEAR|SHOW,F_DAY
|
||||
END
|
||||
|
||||
NUMBER F_YEAR 4
|
||||
@ -97,12 +97,18 @@ BEGIN
|
||||
WARNING "Esercizio assente"
|
||||
END
|
||||
|
||||
|
||||
NUMBER F_DAY 2
|
||||
BEGIN
|
||||
PROMPT 4 6 "Giorno "
|
||||
HELP "Giorno da cui ripristinare la stampa del giornale"
|
||||
END
|
||||
|
||||
LIST F_MESE 10
|
||||
BEGIN
|
||||
PROMPT 4 7 "Mese "
|
||||
FLAGS "M"
|
||||
HELP "Mese di ripristino"
|
||||
HELP "Mese da cui ripristinare la stampa"
|
||||
HELP "Mese da cui ripristinare la stampa del registro"
|
||||
END
|
||||
|
||||
BUTTON DLG_OK 9 2
|
||||
|
@ -15,8 +15,6 @@
|
||||
|
||||
#include "cglib.h"
|
||||
|
||||
HIDDEN TString256 tmp;
|
||||
|
||||
// aep e' l'esercizio precedente
|
||||
TSaldi_list::TSaldi_list(int gr, int co, int aec, int aep)
|
||||
{
|
||||
@ -196,17 +194,13 @@ real TSaldo::calcola_saldo_iniziale(int g,int c,long s,int indbil)
|
||||
const char* TSaldo::causale_chiusura_es()
|
||||
{
|
||||
TConfig conf(CONFIG_DITTA);
|
||||
tmp = conf.get("CoCaCh");
|
||||
|
||||
return tmp;
|
||||
return conf.get("CoCaCh");
|
||||
}
|
||||
|
||||
const char* TSaldo::causale_apertura_es()
|
||||
{
|
||||
TConfig conf(CONFIG_DITTA);
|
||||
tmp = conf.get("CoCaAp");
|
||||
|
||||
return tmp;
|
||||
return conf.get("CoCaAp");
|
||||
}
|
||||
|
||||
void TSaldo::leggi_mov(long nr)
|
||||
|
79
cg/conto.cpp
79
cg/conto.cpp
@ -106,44 +106,46 @@ int TBill::compare(const TSortable& s) const
|
||||
|
||||
|
||||
// Certified 95%
|
||||
void TBill::describe()
|
||||
{
|
||||
int err = NOERR;
|
||||
|
||||
bool TBill::find()
|
||||
{
|
||||
bool ok = FALSE;
|
||||
|
||||
if ((_tipo != 'C' && _tipo != 'F') || _sottoconto == 0L)
|
||||
{
|
||||
TRectype pcon(LF_PCON);
|
||||
read(pcon);
|
||||
}
|
||||
if ((_tipo == 'C' || _tipo == 'F') && _sottoconto != 0L)
|
||||
{
|
||||
TLocalisamfile clifo(LF_CLIFO, FALSE);
|
||||
clifo.setkey(1);
|
||||
clifo.zero();
|
||||
clifo.put("TIPOCF", _tipo);
|
||||
clifo.put("CODCF", _sottoconto);
|
||||
err = clifo.read();
|
||||
if (err == NOERR)
|
||||
ok = read(pcon);
|
||||
}
|
||||
else
|
||||
if ((_tipo == 'C' || _tipo == 'F') && _sottoconto != 0L)
|
||||
{
|
||||
_descrizione = clifo.get("RAGSOC");
|
||||
if (_tipo_cr < 0) _tipo_cr = 0;
|
||||
_sospeso = clifo.get_bool("SOSPESO");
|
||||
|
||||
const char tipoa = clifo.get_char("TIPOAPER");
|
||||
if (tipoa == 'F')
|
||||
{
|
||||
TString80 nome = _descrizione.mid(30);
|
||||
_descrizione.cut(30);
|
||||
_descrizione.trim(); nome.trim();
|
||||
_descrizione << ' ' << nome;
|
||||
}
|
||||
if (_gruppo == 0 || _conto == 0)
|
||||
{
|
||||
_gruppo = clifo.get_int("GRUPPO");
|
||||
_conto = clifo.get_int("CONTO");
|
||||
}
|
||||
}
|
||||
}
|
||||
TLocalisamfile clifo(LF_CLIFO, FALSE);
|
||||
clifo.setkey(1);
|
||||
clifo.put("TIPOCF", _tipo);
|
||||
clifo.put("CODCF", _sottoconto);
|
||||
ok = clifo.read() == NOERR;
|
||||
if (ok)
|
||||
{
|
||||
_descrizione = clifo.get("RAGSOC");
|
||||
if (_tipo_cr < 0) _tipo_cr = 0;
|
||||
_sospeso = clifo.get_bool("SOSPESO");
|
||||
|
||||
const char tipoa = clifo.get_char("TIPOAPER");
|
||||
if (tipoa == 'F')
|
||||
{
|
||||
TString80 nome = _descrizione.mid(30);
|
||||
_descrizione.cut(30);
|
||||
_descrizione.trim(); nome.trim();
|
||||
_descrizione << ' ' << nome;
|
||||
}
|
||||
if (_gruppo == 0 || _conto == 0)
|
||||
{
|
||||
_gruppo = clifo.get_int("GRUPPO");
|
||||
_conto = clifo.get_int("CONTO");
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
return ok;
|
||||
}
|
||||
|
||||
|
||||
@ -180,8 +182,8 @@ int TBill::tipo_att()
|
||||
if (ib == ib_passivita || ib == ib_ricavi)
|
||||
{
|
||||
read(rec);
|
||||
const int ricser = rec.get_int("RICSER");
|
||||
tipo_att = (ricser == 0) ? 2 : 1;
|
||||
const int ricser = rec.get_int("RICSER"); // 0 = Altre attivita 1 = Servizi
|
||||
tipo_att = (ricser == 1) ? 1 : 2;
|
||||
}
|
||||
}
|
||||
return tipo_att;
|
||||
@ -192,8 +194,7 @@ const TString& TBill::descrizione()
|
||||
{
|
||||
if (_descrizione.empty())
|
||||
{
|
||||
describe();
|
||||
if (_descrizione.empty())
|
||||
if (!find())
|
||||
_descrizione = "Sconosciuto";
|
||||
}
|
||||
return _descrizione;
|
||||
@ -202,7 +203,7 @@ const TString& TBill::descrizione()
|
||||
int TBill::tipo_cr()
|
||||
{
|
||||
if (_tipo_cr < 0)
|
||||
describe();
|
||||
find();
|
||||
return _tipo_cr;
|
||||
}
|
||||
|
||||
|
@ -21,7 +21,6 @@ class TBill : public TSortable
|
||||
protected:
|
||||
virtual int compare(const TSortable& s) const;
|
||||
virtual const char* class_name() const { return "Conto"; }
|
||||
void describe();
|
||||
|
||||
const TBill& copy(const TBill& b);
|
||||
|
||||
@ -46,6 +45,7 @@ public:
|
||||
int conto() const { return _conto; }
|
||||
long sottoconto() const { return _sottoconto; }
|
||||
|
||||
bool find();
|
||||
const TString& descrizione();
|
||||
int tipo_cr();
|
||||
void tipo_cr(int tcr) { _tipo_cr = tcr; }
|
||||
|
Loading…
x
Reference in New Issue
Block a user