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

Modifiche alla ricezione movimenti

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@1204 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
nik 1995-04-03 16:10:22 +00:00
parent 078d840307
commit bdfdd1b7e7
9 changed files with 1714 additions and 1077 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
cg/cg2400.cpp
View File

@ -584,6 +584,6 @@ bool TRic_sistema::menu(MENU_TAG m)
int cg2400 (int argc, char* argv[])
{
TRic_sistema a;
a.run(argc, argv,"Ricezione da sistema");
a.run(argc, argv,"Ricezione archivi");
return TRUE;
}

2196
cg/cg2700.cpp
View File

File diff suppressed because it is too large Load Diff

13
cg/cg2800.cpp
View File

@ -24,6 +24,7 @@
#include "cg2800.h"
#include "cg2801.h"
#include "cg2802.h"
#include "cg2803.h"
HIDDEN TString80 TEMP;
@ -907,8 +908,9 @@ bool TVar_mov::controllo_contropartita(TMask_field& f, KEY k)
f.mask().set(F_DESCRCPARTITA, descr);
if (k == K_ENTER)
if (!tc.find())
return warning_box("Sottoconto contropartita non presente in anagrafica Piano dei Conti oppure anagrafica Clienti / Fornitori");
if (gruppo != 0 && conto != 0 && sottoc != 0)
if (!tc.find())
return warning_box("Sottoconto contropartita non presente in anagrafica Piano dei Conti oppure anagrafica Clienti / Fornitori");
}
return TRUE;
@ -1468,7 +1470,12 @@ break;
a.run(argc, argv,"Annullamento movimenti da ricevere");
}
break;
case 'V':
{
TVis_ric a;
a.run(argc, argv,"Visualizzazione stato ricezione");
}
break;
default:
break;
}

2
cg/cg2802b.uml
View File

@ -4,7 +4,7 @@ TOOLBAR "" 0 20 0 2
BUTTON DLG_SAVEREC 10 2
BEGIN
PROMPT -15 -1 "~Registra"
PROMPT -15 -1 "~Annulla"
MESSAGE EXIT,K_SAVE
END

321
cg/cg2803.cpp Executable file
View File

@ -0,0 +1,321 @@
#include "cglib04.h"
#include "cg2803.h"
HIDDEN TVis_ric& app() { return (TVis_ric &) main_app(); }
const char* TVis_ric::riconverti (TString& data_PC)
{
TP = data_PC.mid(8,2);
TP << data_PC.mid(3,2);
TP << data_PC.mid(0,2);
return TP;
}
bool TVis_ric::create()
{
TApplication::create();
_tab_tra = new TTable ("%TRA");
_registra = FALSE;
_ftrasfer = TRUE;
dispatch_e_menu (BAR_ITEM(1));
return TRUE;
}
bool TVis_ric::destroy()
{
delete _tab_tra;
return TApplication::destroy();
}
bool TVis_ric::baipassa(TMask& m, KEY k)
{
if (k == K_SHIFT+K_F12)
{
m.enable(F_NULTRAS);
m.enable(F_DATAULTRAS);
m.enable(F_STD);
m.enable(F_USELAB);
m.enable(F_STATO);
m.enable(F_AGGCAUSALI);
m.enable(F_AGGCLIFO);
m.enable(F_AGGPCON);
m.enable(F_AGGIVD);
m.enable(F_FATTEM);
m.enable(F_FATTRIC);
app()._registra = TRUE;
}
return TRUE;
}
bool TVis_ric::stato_hnd (TMask_field& f, KEY k)
{
if (k == K_ENTER)
{
TString std = f.get();
TString uselab = f.mask().get(F_USELAB);
TString chiave = f.mask().get(F_STATO);
if (!app()._ftrasfer)
{
if (std != "")
return warning_box("Valore non valido per stato ultima ricezione");
}
else
{
if (std != "" && std != "T" && std != "C" && std != "M" && std != "*")
return warning_box("Valore non valido per stato ultima ricezione");
if (uselab != "" && (std == "" || std == "C" || std == "*") )
return warning_box("Valore non valido per stato ultima ricezione");
if (chiave != "" && (std == "" || std == "C" || std == "*") )
return warning_box("Valore non valido per stato ultima ricezione");
}
}
return TRUE;
}
bool TVis_ric::uselab_hnd (TMask_field& f, KEY k)
{
if (k == K_ENTER)
{
TString std = f.mask().get(F_STD);
TString uselab = f.get();
if (std == "" && uselab != "")
return warning_box("Lo stato ultima ricezione non e' significativo: la sigla ultimo file elaborato non puo' essere significativa");
}
return TRUE;
}
bool TVis_ric::chiave_hnd (TMask_field& f, KEY k)
{
if (k == K_ENTER)
{
TString std = f.mask().get(F_STD);
TString uselab = f.mask().get(F_USELAB);
TString chiave = f.get();
if (std == "" && chiave != "")
return warning_box("Lo stato ultima ricezione non e' significativo: la chiave ultimo file elaborato non puo' essere significativa");
if (uselab == "" && chiave != "")
return warning_box("La sigla ultimo file elaborato non e' significativo: la chiave ultimo file elaborato non puo' essere significativa");
}
return TRUE;
}
bool TVis_ric::video()
{
TDate dataultras;
if (!esegui_controlli())
return FALSE;
TMask msk ("cg2803a");
KEY tasto;
ditta_ricevente();
setta_campi_video(msk);
msk.set_handler(baipassa);
msk.set_handler(F_STD, stato_hnd);
msk.set_handler(F_USELAB, uselab_hnd);
msk.set_handler(F_STATO, chiave_hnd);
tasto = msk.run();
if (tasto != K_ENTER)
return FALSE;
registra(msk);
return FALSE;
}
void TVis_ric::setta_campi_video(TMask& msk)
{
if (_ftrasfer)
{
msk.set(F_CODDITTARIC, _dittaric);
msk.set(F_RAGSOC, _ragsoc_dittar);
msk.set(F_NULTRAS, _nultras);
if (_nultras != 0)
{
TString data1 = _dataultras.string();
msk.set(F_DATAULTRAS, data1);
}
msk.set(F_USELAB, _uselab);
msk.set(F_STATO, _key);
msk.set(F_AGGCAUSALI, _agg_cau);
msk.set(F_AGGCLIFO, _agg_clifo);
msk.set(F_AGGPCON, _agg_pcon);
msk.set(F_AGGIVD, _agg_IVdir);
msk.set(F_FATTEM, _riatt_att);
msk.set(F_FATTRIC, _riatt_pas);
}
msk.set(F_STD, _std);
msk.disable(F_CODDITTARIC);
msk.disable(F_RAGSOC);
msk.disable(F_NULTRAS);
msk.disable(F_DATAULTRAS);
msk.disable(F_STD);
msk.disable(F_USELAB);
msk.disable(F_STATO);
msk.disable(F_AGGCAUSALI);
msk.disable(F_AGGCLIFO);
msk.disable(F_AGGPCON);
msk.disable(F_AGGIVD);
msk.disable(F_FATTEM);
msk.disable(F_FATTRIC);
}
void TVis_ric::registra(TMask& m)
{
if (_registra)
{
TString str;
str = m.get(F_NULTRAS);
TString nultras = format("%03s", (const char*) str);
str = m.get(F_DATAULTRAS);
TString datault = riconverti(str);
char agg_cau = m.get(F_AGGCAUSALI)[0];
char agg_clf = m.get(F_AGGCLIFO)[0];
char agg_pco = m.get(F_AGGPCON)[0];
char agg_IV = m.get(F_AGGIVD)[0];
char riat_at = m.get(F_FATTEM)[0];
char riat_pa = m.get(F_FATTRIC)[0];
TString flags (7);
flags[0] = agg_IV;
flags[1] = agg_cau;
flags[2] = agg_clf;
flags[3] = agg_pco;
flags[4] = riat_at;
flags[5] = riat_pa;
flags[6] = '\0';
TString uselab = m.get(F_USELAB);
str = m.get(F_STATO);
TString chiave = format("%-15s", (const char*) str);
_control_rec.overwrite(nultras,29);
_control_rec.overwrite(datault,32);
_control_rec.overwrite(flags,234);
_control_rec.overwrite(uselab,240);
_control_rec.overwrite(chiave,241);
const int size = 256;
_tras_file.write_control_rec(_control_rec, size);
TString std = m.get(F_STD);
setta_std(std);
}
}
void TVis_ric::setta_std(const TString& flag)
{
TConfig conf (CONFIG_DITTA);
conf.set("FlStTra", flag);
}
void TVis_ric::ditta_ricevente()
{
TLocalisamfile nditte (LF_NDITTE);
nditte.setkey(1);
nditte.zero();
nditte.put(NDT_CODDITTA, _dittaric);
if (nditte.read() == NOERR)
_ragsoc_dittar = nditte.get(NDT_RAGSOC);
}
long TVis_ric::leggi_tabella_tras()
{
TString dep;
long ditta = 0;
_tab_tra->zero();
dep = format("%10s%05d", (const char*) _nomeid, _dittainv);
_tab_tra->put("CODTAB", (const char*) dep);
if (_tab_tra->read() == NOERR)
ditta = _tab_tra->get_long("I0");
return ditta;
}
bool TVis_ric::leggi_trasfer()
{
TString data,tmp;
_trasf = _tras_file.path(_dittaric);
_trasf << "\\trasfer";
_tras_file.open(_trasf);
if (_tras_file.exist())
{
if (_tras_file.read_control_rec())
{
_control_rec = _tras_file.record();
_nomeid = _control_rec.sub(15,25);
_dittainv = _control_rec.sub(25,29);
_nultras = _tras_file.nultras();
_dataultras = _tras_file.dataultras();
_uselab = _tras_file.ult_file();
_key = _tras_file.key();
_agg_cau = _control_rec.sub(235,236);
_agg_clifo = _control_rec.sub(236,237);
_agg_pcon = _control_rec.sub(237,238);
_agg_IVdir = _control_rec.sub(234,235);
_riatt_att = _control_rec.sub(238,239);
_riatt_pas = _control_rec.sub(239,240);
}
else
_ftrasfer = FALSE;
}
else
_ftrasfer = FALSE;
return TRUE;
}
bool TVis_ric::esegui_controlli()
{
TConfig conf(CONFIG_DITTA);
_std = conf.get("FlStTra");
_dittaric = get_firm();
if (!prefix().exist(_dittaric))
return error_box("Rilevati GRAVI ERRORI negli archivi: procedura interrotta");
if (!leggi_trasfer())
return FALSE;
return TRUE;
}
bool TVis_ric::menu(MENU_TAG m)
{
if (m == BAR_ITEM(1))
return video();
return FALSE;
}

58
cg/cg2803.h Executable file
View File

@ -0,0 +1,58 @@
// Visualizzazione stato ricezione
#include <mask.h>
#include <applicat.h>
#include <relation.h>
#include <tabutil.h>
#include <utility.h>
#include <config.h>
#include <urldefid.h>
#include <execp.h>
#include <prefix.h>
#include <lffiles.h>
#include <nditte.h>
#include "cg2800.h"
HIDDEN TString80 TP;
class TVis_ric : public TApplication
{
TTable* _tab_tra;
TTransfer_file _tras_file;
TString _trasf,_std,_uselab,_key,_dittainv,_nomeid,_ragsoc_dittar;
TString _agg_cau,_agg_clifo,_agg_pcon,_agg_IVdir,_riatt_att,_riatt_pas;
long _dittaric;
TString _control_rec;
TDate _dataultras;
int _nultras;
bool _registra,_ftrasfer;
public:
TString _titolo;
virtual bool create();
virtual bool destroy();
virtual bool menu(MENU_TAG m);
bool video();
void setta_campi_video(TMask& m);
void ditta_ricevente();
long leggi_tabella_tras();
bool esegui_controlli();
bool leggi_trasfer();
void registra(TMask& m);
void setta_std(const TString& flag);
static bool baipassa (TMask& m, KEY k);
static bool stato_hnd (TMask_field& f, KEY k);
static bool uselab_hnd (TMask_field& f, KEY k);
static bool chiave_hnd (TMask_field& f, KEY k);
const char* riconverti (TString& data_PC);
TVis_ric() {};
};

1
cg/cg2803a.uml
View File

@ -71,7 +71,6 @@ LIST F_AGGIVD 6
BEGIN
PROMPT 1 13 "Aggiornamento classi Piano dei Conti "
ITEM "N|No"
ITEM "D|Descr."
ITEM "T|Tutto"
END

2
cg/cglib04.cpp
View File

@ -9,7 +9,7 @@ HIDDEN TString80 TMP;
const int size = 256;
const char* tracciato = "trc.txt";
const char* tracciato = "cgtrc.ini";
#if XVT_OS == XVT_OS_WIN
#include <io.h>

196
cg/cgtrc.ini Executable file
View File

@ -0,0 +1,196 @@
W1|1|256|256|26|||
W1|2|3|5|26|CODCAUS||
W1|3|16|35|26|DESCR|1|
W1|4|36|37|26|TIPODOC||
W1|5|38|38|26|REG||
W1|6|39|39|26|ALLEG||
W1|7|40|40|26|M770||
W1|8|41|41|26|COLLCESP||
W1|9|207|207|26|NUMDOC||
W1|10|208|208|26|DATADOC||
W1|11|210|212|26|CODCAUSIM||
W1|12|247|247|26|INTRACOM||
W1|13|248|248|26|VALINTRA||
W1|14|249|249|26|RITFATT||
W1|15|250|250|26|AUTOFATT||
W1|16|3|5|27|CODCAUS||
W1|17|42|43|27|GRUPPO||
W1|18|44|45|27|CONTO||
W1|19|46|51|27|SOTTOCONTO||
W1|20|192|192|27|SEZIONE||
W1|21|3|5|27|CODCAUS||
W1|22|52|53|27|GRUPPO||
W1|23|54|55|27|CONTO||
W1|24|56|61|27|SOTTOCONTO||
W1|25|193|193|27|SEZIONE||
W1|26|3|5|27|CODCAUS||
W1|27|62|63|27|GRUPPO||
W1|28|64|65|27|CONTO||
W1|29|66|71|27|SOTTOCONTO||
W1|30|194|194|27|SEZIONE||
W1|31|3|5|27|CODCAUS||
W1|32|72|73|27|GRUPPO||
W1|33|74|75|27|CONTO||
W1|34|76|81|27|SOTTOCONTO||
W1|35|195|195|27|SEZIONE||
W1|36|3|5|27|CODCAUS||
W1|37|82|83|27|GRUPPO||
W1|38|84|85|27|CONTO||
W1|39|86|91|27|SOTTOCONTO||
W1|40|196|196|27|SEZIONE||
W1|41|3|5|27|CODCAUS||
W1|42|92|93|27|GRUPPO||
W1|43|94|95|27|CONTO||
W1|44|96|101|27|SOTTOCONTO||
W1|45|197|197|27|SEZIONE||
W1|46|3|5|27|CODCAUS||
W1|47|102|103|27|GRUPPO||
W1|48|104|105|27|CONTO||
W1|49|106|111|27|SOTTOCONTO||
W1|50|198|198|27|SEZIONE||
W1|51|3|5|27|CODCAUS||
W1|52|112|113|27|GRUPPO||
W1|53|114|115|27|CONTO||
W1|54|116|121|27|SOTTOCONTO||
W1|55|199|199|27|SEZIONE||
W1|56|3|5|27|CODCAUS||
W1|57|122|123|27|GRUPPO||
W1|58|124|125|27|CONTO||
W1|59|126|131|27|SOTTOCONTO||
W1|60|200|200|27|SEZIONE||
W1|61|3|5|27|CODCAUS||
W1|62|132|133|27|GRUPPO||
W1|63|134|135|27|CONTO||
W1|64|136|141|27|SOTTOCONTO||
W1|65|201|201|27|SEZIONE||
W1|66|3|5|27|CODCAUS||
W1|67|142|143|27|GRUPPO||
W1|68|144|145|27|CONTO||
W1|69|146|151|27|SOTTOCONTO||
W1|70|202|202|27|SEZIONE||
W1|71|3|5|27|CODCAUS||
W1|72|152|153|27|GRUPPO||
W1|73|154|155|27|CONTO||
W1|74|156|161|27|SOTTOCONTO||
W1|75|203|203|27|SEZIONE||
W1|76|3|5|27|CODCAUS||
W1|77|162|163|27|GRUPPO||
W1|78|164|165|27|CONTO||
W1|79|166|171|27|SOTTOCONTO||
W1|80|204|204|27|SEZIONE||
W1|81|3|5|27|CODCAUS||
W1|82|172|173|27|GRUPPO||
W1|83|174|175|27|CONTO||
W1|84|176|181|27|SOTTOCONTO||
W1|85|205|205|27|SEZIONE||
W1|86|3|5|27|CODCAUS||
W1|87|182|183|27|GRUPPO||
W1|88|184|185|27|CONTO||
W1|89|186|191|27|SOTTOCONTO||
W1|90|206|206|27|SEZIONE||
A1|1|256|256|20|||
A1|2|3|3|20|TIPOCF||
A1|3|4|9|20|CODCF||
A1|4|16|16|20|TIPOPERS||
A1|5|17|66|20|RAGSOC|1|
A1|6|67|77|20|PAIV|1|
A1|7|78|93|20|COFI|1|
A1|8|94|128|20|INDCF|1|
A1|9|129|133|20|CAPCF||
A1|10|134|153|20|LOCALITACF|1|
A1|11|156|167|20|TEL|1|
A1|12|168|168|20|ALLEG||
A1|13|169|170|20|GRUPPORIC||
A1|14|171|172|20|CONTORIC||
A1|15|173|178|20|SOTTOCRIC||
A1|16|180|185|20|CODALLEG||
A1|17|186|187|20|CODPAG||
P1|1|256|256|19|||
P1|2|3|4|19|GRUPPO||
P1|3|16|45|19|DESCR|1|
P2|1|256|256|19|||
P2|2|3|4|19|GRUPPO||
P2|3|5|6|19|CONTO||
P2|4|16|45|19|DESCR|1|
P2|5|46|46|19|INDBIL||
P2|6|47|47|19|TMCF||
P2|7|48|48|19|STSOTTBIL||
P2|8|49|49|19|SEZIVD||
P2|9|50|50|19|LETTIVD||
P2|10|61|63|19|NUMRIVD||
P2|11|59|60|19|NUMIVD||
P2|12|64|64|19|SEZIVDOPP||
P2|13|65|65|19|LETTIVDOPP||
P2|14|76|78|19|NUMRIVDOPP||
P2|15|74|75|19|NUMIVDOPP||
P3|1|256|256|19|||
P3|2|3|4|19|GRUPPO||
P3|3|5|6|19|CONTO||
P3|4|7|12|19|SOTTOCONTO||
P3|5|16|45|19|DESCR|1|
P3|6|46|46|19|TIPOSPRIC||
P3|7|47|47|19|RICSER||
P3|8|48|48|19|SEZIVD||
P3|9|49|49|19|LETTIVD||
P3|10|60|62|19|NUMRIVD||
P3|11|58|59|19|NUMIVD||
P3|12|63|63|19|SEZIVDOPP||
P3|13|64|64|19|LETTIVDOPP||
P3|14|75|77|19|NUMRIVDOPP||
P3|15|73|74|19|NUMIVDOPP||
Z1|50|22|22|23|||
Z1|51|249|249|23|||
Z1|0|16|21|23|DATAREG||
Z1|1|250|250|23|||
Z1|2|251|256|23|||
Z1|3|3|8|23|NUMREG||
Z1|4|23|28|23|DATADOC|1|
Z1|5|29|35|23|NUMDOC||
Z1|6|36|36|23|REG||
Z1|7|37|41|23|PROTIVA||
Z1|8|42|44|23|CODCAUS||
Z1|9|96|97|23|CODPAG||
Z1|10|109|113|23|UPROTIVA||
Z1|11|220|220|23|TIPO||
Z1|12|221|222|23|TIPODOC||
Z1|13|238|248|23|TOTDOC||
Z1|14|3|8|24|NUMREG||
Z1|15|9|10|24|NUMRIG||
Z1|16|45|74|24|DESCR||
Z1|17|75|76|24|GRUPPO||
Z1|18|77|78|24|CONTO||
Z1|19|79|84|24|SOTTOCONTO||
Z1|20|85|85|24|SEZIONE||
Z1|21|86|87|24|GRUPPOC||
Z1|22|88|89|24|CONTOC||
Z1|23|90|95|24|SOTTOCONTC||
Z1|24|98|108|24|IMPORTO||
Z1|25|220|220|24|TIPOC||
Z1|26|223|223|24|||
U1|51|249|249|23|||
U1|1|250|250|23|||
U1|2|251|256|23|||
U1|3|3|8|23|NUMREG||
U1|4|56|61|23|DATA74TER|1|
U1|5|147|149|23|CODVAL||
U1|6|16|21|23|CODCF||
U1|7|238|248|23|TOTDOC||
U1|8|150|160|23|CAMBIOI|5|
U1|9|136|146|23|CORRLIRE||
U1|10|161|174|23|CORRVALUTA|3|
U1|11|3|8|25|NUMREG||
U1|12|9|10|25|NUMRIG||
U1|13|33|34|25|CODIVA||
U1|14|22|32|25|IMPONIBILE||
U1|15|35|43|25|IMPOSTA||
U1|16|45|45|25|TIPODET||
U1|17|44|44|25|TIPOCR||
U1|18|134|134|25|TIPOATT||
U1|19|46|47|25|GRUPPO||
U1|20|48|49|25|CONTO||
U1|21|50|55|25|SOTTOCONTO||
U1|50|62|86||||
U1|51|87|108||||
U1|52|109|126||||
U1|53|127|131||||
U1|54|132|133||||