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

Gabrioli' Gabriola'

Browse Source 
primanota eccola qua
pero' quel sorgente la'
 	io non so cosa ci fa

(risulta che ho modificato TUTTI i cg6* che io non ho neppure mai visto)


git-svn-id: svn://10.65.10.50/trunk@2245 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
villa 1995-12-06 10:14:29 +00:00
parent 1e5dcbdaa3
commit 012d580f3c
18 changed files with 7982 additions and 7981 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
cg/cg2100.cpp
View File

@ -571,7 +571,7 @@ void TPrimanota_application::init_insert_mode(TMask& m)
if (is_fattura()) if (is_fattura())
{ {
const TString16 dt(m.get(F_DATAREG)); const TString16 dt(m.get(F_DATADOC));
set_pagamento(NULL,dt); set_pagamento(NULL,dt);
set_scadenze(m); set_scadenze(m);
} }
@ -703,7 +703,7 @@ int TPrimanota_application::read(TMask& m)
if (is_fattura()) // Ci sono scadenze if (is_fattura()) // Ci sono scadenze
{ {
const TString16 cp(m.get(F_CODPAG)); const TString16 cp(m.get(F_CODPAG));
const TString16 dt(m.get(F_DATAREG)); const TString16 dt(m.get(F_DATADOC));
set_pagamento(cp, dt); set_pagamento(cp, dt);
if (!read_scadenze(m)) if (!read_scadenze(m))
set_scadenze(m); set_scadenze(m);

1
cg/cg21rata.uml
View File

@ -37,7 +37,6 @@ BEGIN
PROMPT 1 5 "Tipo pagamento " PROMPT 1 5 "Tipo pagamento "
SHEET "Codice|Tipo pagamento@32" SHEET "Codice|Tipo pagamento@32"
INPUT 105 INPUT 105
ITEM " |Altro pagamento"
ITEM "1|Rimessa diretta o contanti" ITEM "1|Rimessa diretta o contanti"
ITEM "2|Tratta" ITEM "2|Tratta"
ITEM "3|Ricevuta Bancaria" ITEM "3|Ricevuta Bancaria"

1606
cg/cg6400.cpp
View File

File diff suppressed because it is too large Load Diff

1540
cg/cg6500.cpp
View File

File diff suppressed because it is too large Load Diff

2888
cg/cg6600.cpp
View File

File diff suppressed because it is too large Load Diff

126
cg/cg6600a.uml
View File

@ -1,63 +1,63 @@
#include "cg6600.h" #include "cg6600.h"
PAGE "" -1 -1 70 11 PAGE "" -1 -1 70 11
NUMBER F_CODDITTA 5 NUMBER F_CODDITTA 5
BEGIN BEGIN
PROMPT 1 1 "Ditta ricevente " PROMPT 1 1 "Ditta ricevente "
USE LF_NDITTE KEY 1 USE LF_NDITTE KEY 1
INPUT CODDITTA F_CODDITTA INPUT CODDITTA F_CODDITTA
OUTPUT F_RAGSOC RAGSOC OUTPUT F_RAGSOC RAGSOC
FLAGS "RDZ" FLAGS "RDZ"
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
END END
STRING F_RAGSOC 50 STRING F_RAGSOC 50
BEGIN BEGIN
PROMPT 1 2 "Ragione sociale " PROMPT 1 2 "Ragione sociale "
FLAGS "D" FLAGS "D"
END END
NUMBER F_NULTRAS 3 NUMBER F_NULTRAS 3
BEGIN BEGIN
PROMPT 1 4 "Numero invio " PROMPT 1 4 "Numero invio "
FLAGS "D" FLAGS "D"
END END
DATE F_DATAULTRAS DATE F_DATAULTRAS
BEGIN BEGIN
PROMPT 1 5 "Data limite trasferimento " PROMPT 1 5 "Data limite trasferimento "
FLAGS "D" FLAGS "D"
END END
STRING F_STD 1 STRING F_STD 1
BEGIN BEGIN
PROMPT 1 6 "Stato del trasferimento " PROMPT 1 6 "Stato del trasferimento "
FLAGS "DU" FLAGS "DU"
END END
STRING F_USELAB 1 STRING F_USELAB 1
BEGIN BEGIN
PROMPT 31 6 "" PROMPT 31 6 ""
FLAGS "DU" FLAGS "DU"
END END
STRING F_STATO 15 STRING F_STATO 15
BEGIN BEGIN
PROMPT 35 6 "" PROMPT 35 6 ""
FLAGS "DU" FLAGS "DU"
END END
BUTTON DLG_OK 9 2 BUTTON DLG_OK 9 2
BEGIN BEGIN
PROMPT -12 -1 "" PROMPT -12 -1 ""
END END
BUTTON DLG_QUIT 9 2 BUTTON DLG_QUIT 9 2
BEGIN BEGIN
PROMPT -22 -1 "" PROMPT -22 -1 ""
END END
ENDPAGE ENDPAGE
ENDMASK ENDMASK

152
cg/cg6700a.uml
View File

@ -1,77 +1,77 @@
#include "cg6700.h" #include "cg6700.h"
PAGE "" -1 -1 78 17 PAGE "" -1 -1 78 17
NUMBER F_CODDITTA 5 NUMBER F_CODDITTA 5
BEGIN BEGIN
PROMPT 2 1 "Ditta ricevente " PROMPT 2 1 "Ditta ricevente "
FLAGS "FRD" FLAGS "FRD"
USE LF_NDITTE KEY 1 USE LF_NDITTE KEY 1
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
INPUT CODDITTA F_CODDITTA INPUT CODDITTA F_CODDITTA
OUTPUT F_CODDITTA CODDITTA OUTPUT F_CODDITTA CODDITTA
OUTPUT F_RAGSOC RAGSOC OUTPUT F_RAGSOC RAGSOC
END END
STRING F_RAGSOC 50 STRING F_RAGSOC 50
BEGIN BEGIN
PROMPT 2 2 "Ragione sociale " PROMPT 2 2 "Ragione sociale "
FLAGS "D" FLAGS "D"
END END
RADIOBUTTON F_LISTA 31 RADIOBUTTON F_LISTA 31
BEGIN BEGIN
PROMPT 2 4 "Scelta controllo " PROMPT 2 4 "Scelta controllo "
HELP "Indicare il tipo di controllo" HELP "Indicare il tipo di controllo"
ITEM "1|Lista controllo movim. errati" ITEM "1|Lista controllo movim. errati"
ITEM "2|Lista controllo tutti movim." ITEM "2|Lista controllo tutti movim."
END END
NUMBER F_NUMERO 3 NUMBER F_NUMERO 3
BEGIN BEGIN
PROMPT 2 9 "Numero invio " PROMPT 2 9 "Numero invio "
FLAGS "D" FLAGS "D"
END END
DATE F_DATALIMITE DATE F_DATALIMITE
BEGIN BEGIN
PROMPT 2 10 "Data limite trasferimento " PROMPT 2 10 "Data limite trasferimento "
FLAGS "D" FLAGS "D"
END END
TEXT DLG_NULL TEXT DLG_NULL
BEGIN BEGIN
PROMPT 2 11 "Stato ricezione " PROMPT 2 11 "Stato ricezione "
END END
STRING F_SDT 1 STRING F_SDT 1
BEGIN BEGIN
PROMPT 31 11 "" PROMPT 31 11 ""
FLAGS "DU" FLAGS "DU"
END END
STRING F_SIGLA 1 STRING F_SIGLA 1
BEGIN BEGIN
PROMPT 34 11 "" PROMPT 34 11 ""
FLAGS "DU" FLAGS "DU"
END END
STRING F_CHIAVE 15 STRING F_CHIAVE 15
BEGIN BEGIN
PROMPT 37 11 "" PROMPT 37 11 ""
FLAGS "DU" FLAGS "DU"
END END
BUTTON DLG_OK 9 2 BUTTON DLG_OK 9 2
BEGIN BEGIN
PROMPT -12 -1 "" PROMPT -12 -1 ""
END END
BUTTON DLG_QUIT 9 2 BUTTON DLG_QUIT 9 2
BEGIN BEGIN
PROMPT -22 -1 "" PROMPT -22 -1 ""
END END
ENDPAGE ENDPAGE
ENDMASK ENDMASK

492
cg/cg6801.cpp
View File

@ -1,246 +1,246 @@
#include "cglib04.h" #include "cglib04.h"
#include "cg6801.h" #include "cg6801.h"
bool TDitta_ric::create() bool TDitta_ric::create()
{ {
TApplication::create(); TApplication::create();
_nditte = new TLocalisamfile (LF_PCON); _nditte = new TLocalisamfile (LF_PCON);
dispatch_e_menu (BAR_ITEM(1)); dispatch_e_menu (BAR_ITEM(1));
return TRUE; return TRUE;
} }
bool TDitta_ric::destroy() bool TDitta_ric::destroy()
{ {
delete _nditte; delete _nditte;
return TApplication::destroy(); return TApplication::destroy();
} }
bool TDitta_ric::set() bool TDitta_ric::set()
{ {
TMask msk ("cg6801a"); TMask msk ("cg6801a");
KEY tasto; KEY tasto;
_old_ditta = get_firm(); _old_ditta = get_firm();
tasto = msk.run(); tasto = msk.run();
if (tasto != K_ENTER) return FALSE; if (tasto != K_ENTER) return FALSE;
_dittaric = msk.get_int(F_CODDITTA); _dittaric = msk.get_int(F_CODDITTA);
set_firm(_dittaric); set_firm(_dittaric);
if (!esegui_controlli()) if (!esegui_controlli())
{ {
set_firm(_old_ditta); set_firm(_old_ditta);
return FALSE; return FALSE;
} }
//set_firm(_dittaric); //set_firm(_dittaric);
return FALSE; return FALSE;
} }
bool TDitta_ric::leggi_trasfer() bool TDitta_ric::leggi_trasfer()
{ {
_trasf = _tras_file.path(_dittaric); _trasf = _tras_file.path(_dittaric);
_trasf << HEADER; _trasf << HEADER;
_tras_file.open(_trasf); _tras_file.open(_trasf);
if (_tras_file.exist()) if (_tras_file.exist())
{ {
if (_tras_file.read_control_rec()) if (_tras_file.read_control_rec())
{ {
_control_rec = _tras_file.record(); _control_rec = _tras_file.record();
_uselab = _tras_file.ult_file(); _uselab = _tras_file.ult_file();
_key = _tras_file.key(); _key = _tras_file.key();
_sigle_file = _tras_file.sigle_file(); _sigle_file = _tras_file.sigle_file();
_nrec_file = _tras_file.nrec_file(); _nrec_file = _tras_file.nrec_file();
} }
else else
return error_box("Rilevati gravi errori negli archivi:procedura interrotta"); return error_box("Rilevati gravi errori negli archivi:procedura interrotta");
} }
else else
return error_box("Al momento non presenti trasferimenti attivi sulla ditta selezionata"); return error_box("Al momento non presenti trasferimenti attivi sulla ditta selezionata");
return TRUE; return TRUE;
} }
bool TDitta_ric::esegui_controlli() bool TDitta_ric::esegui_controlli()
{ {
TConfig conf(CONFIG_DITTA); TConfig conf(CONFIG_DITTA);
_std = conf.get("FlStTra"); _std = conf.get("FlStTra");
if (!prefix().exist(_dittaric)) if (!prefix().exist(_dittaric))
return error_box("Codice ditta NON PRESENTE in archivio oppure NON ATTIVATO in contabilita' generale"); return error_box("Codice ditta NON PRESENTE in archivio oppure NON ATTIVATO in contabilita' generale");
if (_std == "") if (_std == "")
{ {
if (!leggi_trasfer()) if (!leggi_trasfer())
return FALSE; return FALSE;
if (_uselab != "") if (_uselab != "")
return error_box("Ultimo trasferimento NON COMPLETATO: completarlo"); return error_box("Ultimo trasferimento NON COMPLETATO: completarlo");
if (!controlli()) if (!controlli())
return FALSE; return FALSE;
} }
TConfig cfd (CONFIG_DITTA); TConfig cfd (CONFIG_DITTA);
TString std = cfd.get("FlStTra"); TString std = cfd.get("FlStTra");
if (std == "") if (std == "")
return error_box ("Non risultano TRASFERIMENTI ATTIVI sulla ditta richiesta"); return error_box ("Non risultano TRASFERIMENTI ATTIVI sulla ditta richiesta");
return TRUE; return TRUE;
} }
bool TDitta_ric::controlli() bool TDitta_ric::controlli()
{ {
TString ana_com,pcon_cau,uselab; TString ana_com,pcon_cau,uselab;
bool fatto = FALSE; bool fatto = FALSE;
TConfig conf(CONFIG_DITTA); TConfig conf(CONFIG_DITTA);
ana_com = conf.get("AnCfCm","cg"); ana_com = conf.get("AnCfCm","cg");
pcon_cau = conf.get("PcTcCm","cg"); pcon_cau = conf.get("PcTcCm","cg");
if (ana_com == "X" || pcon_cau == "X") if (ana_com == "X" || pcon_cau == "X")
{ {
if (ana_com == "X") if (ana_com == "X")
{ {
int p = _sigle_file.find('A'); int p = _sigle_file.find('A');
if (p >= 0) if (p >= 0)
{ {
_sigle_file.overwrite(" ",p); _sigle_file.overwrite(" ",p);
_nrec_file.overwrite("000000", p * 6); _nrec_file.overwrite("000000", p * 6);
} }
} }
if (pcon_cau == "X") if (pcon_cau == "X")
{ {
int p = _sigle_file.find('W'); int p = _sigle_file.find('W');
if (p >= 0) if (p >= 0)
{ {
_sigle_file.overwrite(" ",p); _sigle_file.overwrite(" ",p);
_nrec_file.overwrite("000000", p * 6); _nrec_file.overwrite("000000", p * 6);
} }
p = _sigle_file.find('P'); p = _sigle_file.find('P');
if (p >= 0) if (p >= 0)
{ {
_sigle_file.overwrite(" ",p); _sigle_file.overwrite(" ",p);
_nrec_file.overwrite("000000", p * 6); _nrec_file.overwrite("000000", p * 6);
} }
} }
_control_rec.overwrite(_sigle_file,41); _control_rec.overwrite(_sigle_file,41);
_control_rec.overwrite(_nrec_file,50); _control_rec.overwrite(_nrec_file,50);
_tras_file.write_control_rec(_control_rec,256); _tras_file.write_control_rec(_control_rec,256);
leggi_record_controllo(); leggi_record_controllo();
} }
setta_parametri_record("","T",FALSE); setta_parametri_record("","T",FALSE);
int k = 0; int k = 0;
for ( int j = 0; j < _sigle_file.len(); j++) for ( int j = 0; j < _sigle_file.len(); j++)
{ {
TString sigla = _sigle_file.mid(j,1); TString sigla = _sigle_file.mid(j,1);
long nrec = atol(_nrec_file.mid(k,6)); long nrec = atol(_nrec_file.mid(k,6));
if (sigla != "Z" && sigla != "U" && sigla != "B") if (sigla != "Z" && sigla != "U" && sigla != "B")
{ {
if (nrec != 0) if (nrec != 0)
{ {
uselab = sigla; uselab = sigla;
_control_rec.overwrite(uselab,240); _control_rec.overwrite(uselab,240);
_control_rec.overwrite(" ",241); _control_rec.overwrite(" ",241);
fatto = TRUE; fatto = TRUE;
break; break;
} }
} }
k += 6; k += 6;
} }
if (!fatto) if (!fatto)
{ {
int p = _sigle_file.find('Z'); int p = _sigle_file.find('Z');
if (p >= 0) if (p >= 0)
{ {
setta_parametri_record("","C",FALSE); setta_parametri_record("","C",FALSE);
_control_rec.overwrite(" ",240); _control_rec.overwrite(" ",240);
_control_rec.overwrite(" ",241); _control_rec.overwrite(" ",241);
} }
else else
{ {
setta_parametri_record("","*",FALSE); setta_parametri_record("","*",FALSE);
_control_rec.overwrite(" ",240); _control_rec.overwrite(" ",240);
_control_rec.overwrite(" ",241); _control_rec.overwrite(" ",241);
fremove(_trasf); fremove(_trasf);
setta_parametri_record(""," ",FALSE); setta_parametri_record(""," ",FALSE);
} }
} }
char agg_cau = _control_rec.sub(235,236)[0]; char agg_cau = _control_rec.sub(235,236)[0];
char agg_clifo = _control_rec.sub(236,237)[0]; char agg_clifo = _control_rec.sub(236,237)[0];
char agg_pcon = _control_rec.sub(237,238)[0]; char agg_pcon = _control_rec.sub(237,238)[0];
if (agg_cau != ' ') if (agg_cau != ' ')
agg_cau = 'D'; agg_cau = 'D';
if (agg_clifo != ' ') if (agg_clifo != ' ')
agg_clifo = 'D'; agg_clifo = 'D';
if (agg_pcon != ' ') if (agg_pcon != ' ')
agg_pcon = 'D'; agg_pcon = 'D';
TString agg(4); TString agg(4);
agg[0] = agg_cau; agg[0] = agg_cau;
agg[1] = agg_clifo; agg[1] = agg_clifo;
agg[2] = agg_pcon; agg[2] = agg_pcon;
agg[3] = '\0'; agg[3] = '\0';
_control_rec.overwrite(agg,235); _control_rec.overwrite(agg,235);
const int size = 256; const int size = 256;
if (!_tras_file.write_control_rec(_control_rec, size)) if (!_tras_file.write_control_rec(_control_rec, size))
return FALSE; return FALSE;
return TRUE; return TRUE;
} }
void TDitta_ric::leggi_record_controllo() void TDitta_ric::leggi_record_controllo()
{ {
_tras_file.read_control_rec(); _tras_file.read_control_rec();
_control_rec = _tras_file.record(); _control_rec = _tras_file.record();
} }
void TDitta_ric::setta_parametri_record(const TString& sigla,const TString& flag,bool uselab) void TDitta_ric::setta_parametri_record(const TString& sigla,const TString& flag,bool uselab)
{ {
TConfig conf (CONFIG_DITTA); TConfig conf (CONFIG_DITTA);
conf.set("FlStTra", flag); conf.set("FlStTra", flag);
if (uselab) if (uselab)
{ {
leggi_record_controllo(); leggi_record_controllo();
_control_rec.overwrite(sigla,240); _control_rec.overwrite(sigla,240);
const int size = 256; const int size = 256;
_tras_file.write_control_rec(_control_rec, size); _tras_file.write_control_rec(_control_rec, size);
} }
} }
bool TDitta_ric::menu(MENU_TAG m) bool TDitta_ric::menu(MENU_TAG m)
{ {
if (m == BAR_ITEM(1)) if (m == BAR_ITEM(1))
return set(); return set();
return FALSE; return FALSE;
} }

638
cg/cg6803.cpp
View File

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

112
cg/cg6803.h
View File

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

220
cg/cg6803a.uml
View File

@ -1,110 +1,110 @@
#include "cg6800.h" #include "cg6800.h"
PAGE "" -1 -1 78 20 PAGE "" -1 -1 78 20
NUMBER F_CODDITTARIC 5 NUMBER F_CODDITTARIC 5
BEGIN BEGIN
PROMPT 1 1 "Ditta ricevente " PROMPT 1 1 "Ditta ricevente "
USE LF_NDITTE KEY 1 USE LF_NDITTE KEY 1
INPUT CODDITTA F_CODDITTARIC INPUT CODDITTA F_CODDITTARIC
OUTPUT F_RAGSOC RAGSOC OUTPUT F_RAGSOC RAGSOC
FLAGS "RDZ" FLAGS "RDZ"
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
END END
STRING F_RAGSOC 50 STRING F_RAGSOC 50
BEGIN BEGIN
PROMPT 1 2 "Ragione sociale " PROMPT 1 2 "Ragione sociale "
FLAGS "D" FLAGS "D"
END END
NUMBER F_NULTRAS 3 NUMBER F_NULTRAS 3
BEGIN BEGIN
PROMPT 1 4 "Numero ultimo invio ricevuto " PROMPT 1 4 "Numero ultimo invio ricevuto "
FLAGS "G" FLAGS "G"
END END
DATE F_DATAULTRAS DATE F_DATAULTRAS
BEGIN BEGIN
PROMPT 1 6 "Data ultimo invio ricevuto " PROMPT 1 6 "Data ultimo invio ricevuto "
FLAGS "G" FLAGS "G"
END END
STRING F_STD 1 STRING F_STD 1
BEGIN BEGIN
PROMPT 1 8 "Stato del trasferimento " PROMPT 1 8 "Stato del trasferimento "
FLAGS "GU" FLAGS "GU"
END END
STRING F_USELAB 1 STRING F_USELAB 1
BEGIN BEGIN
PROMPT 34 8 "" PROMPT 34 8 ""
FLAGS "GU" FLAGS "GU"
END END
STRING F_STATO 15 STRING F_STATO 15
BEGIN BEGIN
PROMPT 38 8 "" PROMPT 38 8 ""
FLAGS "GU" FLAGS "GU"
END END
LIST F_AGGCAUSALI 6 LIST F_AGGCAUSALI 6
BEGIN BEGIN
PROMPT 1 10 "Aggiornamento causali gia' presenti " PROMPT 1 10 "Aggiornamento causali gia' presenti "
ITEM "N|No" ITEM "N|No"
ITEM "D|Descr." ITEM "D|Descr."
ITEM "T|Tutto" ITEM "T|Tutto"
FLAGS "G" FLAGS "G"
END END
LIST F_AGGCLIFO 6 LIST F_AGGCLIFO 6
BEGIN BEGIN
PROMPT 1 11 "Aggiornamento Clienti/Fornitori gia' presenti " PROMPT 1 11 "Aggiornamento Clienti/Fornitori gia' presenti "
ITEM "N|No" ITEM "N|No"
ITEM "D|Descr." ITEM "D|Descr."
ITEM "T|Tutto" ITEM "T|Tutto"
FLAGS "G" FLAGS "G"
END END
LIST F_AGGPCON 6 LIST F_AGGPCON 6
BEGIN BEGIN
PROMPT 1 12 "Aggiornamento voci Piano dei Conti gia' presenti " PROMPT 1 12 "Aggiornamento voci Piano dei Conti gia' presenti "
ITEM "N|No" ITEM "N|No"
ITEM "D|Descr." ITEM "D|Descr."
ITEM "T|Tutto" ITEM "T|Tutto"
FLAGS "G" FLAGS "G"
END END
LIST F_AGGIVD 6 LIST F_AGGIVD 6
BEGIN BEGIN
PROMPT 1 13 "Aggiornamento classi Piano dei Conti " PROMPT 1 13 "Aggiornamento classi Piano dei Conti "
ITEM "N|No" ITEM "N|No"
ITEM "T|Tutto" ITEM "T|Tutto"
FLAGS "G" FLAGS "G"
END END
BOOLEAN F_FATTEM BOOLEAN F_FATTEM
BEGIN BEGIN
PROMPT 1 14 "Riattribuzione num. protocollo su fatture emesse " PROMPT 1 14 "Riattribuzione num. protocollo su fatture emesse "
FLAGS "G" FLAGS "G"
END END
BOOLEAN F_FATTRIC BOOLEAN F_FATTRIC
BEGIN BEGIN
PROMPT 1 15 "Riattribuzione num. protocollo su fatture ricevute " PROMPT 1 15 "Riattribuzione num. protocollo su fatture ricevute "
FLAGS "G" FLAGS "G"
END END
BUTTON DLG_OK 9 2 BUTTON DLG_OK 9 2
BEGIN BEGIN
PROMPT -12 -1 "" PROMPT -12 -1 ""
END END
BUTTON DLG_QUIT 9 2 BUTTON DLG_QUIT 9 2
BEGIN BEGIN
PROMPT -22 -1 "" PROMPT -22 -1 ""
END END
ENDPAGE ENDPAGE
ENDMASK ENDMASK

3092
cg/cg6900.cpp
View File

File diff suppressed because it is too large Load Diff

314
cg/cg6900.h
View File

@ -1,157 +1,157 @@
// Invio contabilita' // Invio contabilita'
#define STRICT #define STRICT
#include <windows.h> #include <windows.h>
#include <direct.h> #include <direct.h>
#include <colors.h> #include <colors.h>
#include <isam.h> #include <isam.h>
#include <math.h> #include <math.h>
#include <applicat.h> #include <applicat.h>
#include <mask.h> #include <mask.h>
#include <relation.h> #include <relation.h>
#include <tabutil.h> #include <tabutil.h>
#include <utility.h> #include <utility.h>
#include <config.h> #include <config.h>
#include <urldefid.h> #include <urldefid.h>
#include <prefix.h> #include <prefix.h>
#include <lffiles.h> #include <lffiles.h>
#include <progind.h> #include <progind.h>
#include <execp.h> #include <execp.h>
#include <mailbox.h> #include <mailbox.h>
#include <archives.h> #include <archives.h>
#include <nditte.h> #include <nditte.h>
#include <mov.h> #include <mov.h>
#include <rmov.h> #include <rmov.h>
#include <rmoviva.h> #include <rmoviva.h>
#include <causali.h> #include <causali.h>
#include <rcausali.h> #include <rcausali.h>
#include <clifo.h> #include <clifo.h>
#include <pconti.h> #include <pconti.h>
#include <comuni.h> #include <comuni.h>
#include <occas.h> #include <occas.h>
#include "cg6901.h" #include "cg6901.h"
#include "cg6903.h" #include "cg6903.h"
#include "cglib04.h" #include "cglib04.h"
class TInv_cont : public TApplication class TInv_cont : public TApplication
{ {
enum { BUFSIZE = 4096 }; enum { BUFSIZE = 4096 };
TTransfer_file _tras_file; TTransfer_file _tras_file;
TProgind* _prog; TProgind* _prog;
TLocalisamfile* _caus; TLocalisamfile* _caus;
TLocalisamfile* _rcaus; TLocalisamfile* _rcaus;
TLocalisamfile* _clifo; TLocalisamfile* _clifo;
TLocalisamfile* _pcon; TLocalisamfile* _pcon;
TLocalisamfile* _mov; TLocalisamfile* _mov;
TLocalisamfile* _rmov; TLocalisamfile* _rmov;
TLocalisamfile* _rmoviva; TLocalisamfile* _rmoviva;
TLocalisamfile* _occas; TLocalisamfile* _occas;
TIsamtempfile* _tcaus; TIsamtempfile* _tcaus;
TIsamtempfile* _trcaus; TIsamtempfile* _trcaus;
TIsamtempfile* _tclifo; TIsamtempfile* _tclifo;
TIsamtempfile* _tpcon; TIsamtempfile* _tpcon;
TIsamtempfile* _tmov; TIsamtempfile* _tmov;
TIsamtempfile* _trmov; TIsamtempfile* _trmov;
TIsamtempfile* _triva; TIsamtempfile* _triva;
TIsamtempfile* _toccas; TIsamtempfile* _toccas;
TArchive _arc; TArchive _arc;
char _scelta; char _scelta;
TString _control_rec, _header, _trasf, _std, _stato, _marker, _nome_simbolico; TString _control_rec, _header, _trasf, _std, _stato, _marker, _nome_simbolico;
TString _files, _codcaus, _numdoc, _reg, _codpag, _tipodoc, _codcausm, _sigle; TString _files, _codcaus, _numdoc, _reg, _codpag, _tipodoc, _codcausm, _sigle;
TString _ocfpi, _ragsococc, _indocc, _capocc, _localocc, _provocc, _codvali; TString _ocfpi, _ragsococc, _indocc, _capocc, _localocc, _provocc, _codvali;
bool _esiste_ditta, _esiste_record, _inviato, _flag_bollato; bool _esiste_ditta, _esiste_record, _inviato, _flag_bollato;
long _ditta, _protiva, _uprotiva, _codcf, _numrec, _tot_rec; long _ditta, _protiva, _uprotiva, _codcf, _numrec, _tot_rec;
long _dim_tot, _dim_disk; long _dim_tot, _dim_disk;
long _numrec_cau,_numrec_clifo,_numrec_pcon,_numrec_pn,_numrec_iva; long _numrec_cau,_numrec_clifo,_numrec_pcon,_numrec_pn,_numrec_iva;
int _num,_annoes; int _num,_annoes;
TDate _data, _datadoc, _data74ter,_datalimsk,_dataregiva,_datareg; TDate _data, _datadoc, _data74ter,_datalimsk,_dataregiva,_datareg;
real _corrlire, _cambioi, _corrval; real _corrlire, _cambioi, _corrval;
public: public:
TString _titolo; TString _titolo;
virtual bool create(); virtual bool create();
virtual bool destroy(); virtual bool destroy();
virtual bool menu(MENU_TAG m); virtual bool menu(MENU_TAG m);
bool main_loop(); bool main_loop();
bool esiste_tabella_studio(); bool esiste_tabella_studio();
bool record_controllo(); bool record_controllo();
bool esegui_controlli(); bool esegui_controlli();
bool leggi_header(); bool leggi_header();
bool controlli(); bool controlli();
bool sub_controlli(); bool sub_controlli();
bool tabella_ditta(); bool tabella_ditta();
bool controlla_stato_invio(); bool controlla_stato_invio();
bool numero_data(); bool numero_data();
void leggi_record_controllo(); void leggi_record_controllo();
void codifica_ditta (TMask& m); void codifica_ditta (TMask& m);
void testata_mov_PN (); void testata_mov_PN ();
void testata_trasfer(long nreg, int nrig, TString& record); void testata_trasfer(long nreg, int nrig, TString& record);
void sola_iva(TString& record); void sola_iva(TString& record);
bool testata_mov_IVA(long numreg); bool testata_mov_IVA(long numreg);
void cerca_occasionale(); void cerca_occasionale();
void cerca_comune_occas(const TString& com); void cerca_comune_occas(const TString& com);
void apri_file_temp(); void apri_file_temp();
void chiudi_file_temp(); void chiudi_file_temp();
void crea_marker(TMask& m); void crea_marker(TMask& m);
void setta_parametri_record(TMask& m,const TString& flag); void setta_parametri_record(TMask& m,const TString& flag);
void setta_tabella_studio(TMask& m, bool flag_ditta = TRUE); void setta_tabella_studio(TMask& m, bool flag_ditta = TRUE);
void setta_tabella_ditta(TMask& m, const char* flag, bool comp = TRUE); void setta_tabella_ditta(TMask& m, const char* flag, bool comp = TRUE);
void crea_record_controllo(TMask& m); void crea_record_controllo(TMask& m);
bool invio_tempfile(TMask& m); bool invio_tempfile(TMask& m);
void causali2tempfile(TString& key,TMask& m); void causali2tempfile(TString& key,TMask& m);
void cancella_righe_causali(TString& codcaus); void cancella_righe_causali(TString& codcaus);
void scrivi_righe_causali(TString& codcaus, char uselab); void scrivi_righe_causali(TString& codcaus, char uselab);
void clifo2tempfile(TString& key,TMask& m); void clifo2tempfile(TString& key,TMask& m);
void pcon2tempfile(TString& key,TMask& m); void pcon2tempfile(TString& key,TMask& m);
void movPN2tempfile(TString& key,TMask& m); void movPN2tempfile(TString& key,TMask& m);
void scrivi_righePN(long numreg); void scrivi_righePN(long numreg);
void primanota_inviata(long numreg); void primanota_inviata(long numreg);
void movIVA2tempfile(TString& key,TMask& m); void movIVA2tempfile(TString& key,TMask& m);
bool occasionali(const TString& ocfpi); bool occasionali(const TString& ocfpi);
void iva_inviata(long numreg); void iva_inviata(long numreg);
bool invio_contabilita(); bool invio_contabilita();
bool invio_tab_cau(); bool invio_tab_cau();
bool invio_clifo (); bool invio_clifo ();
bool invio_pcon (); bool invio_pcon ();
bool invio_mov_PN (); bool invio_mov_PN ();
bool invio_mov_IVA(); bool invio_mov_IVA();
void aggiorna_header(TString& files); void aggiorna_header(TString& files);
void aggiorna_trasfer(TString& files); void aggiorna_trasfer(TString& files);
void negPC2negAS(TString& numero); void negPC2negAS(TString& numero);
void dec2integer(real& val, long dec); void dec2integer(real& val, long dec);
void aggiorna_marker(TString& token, int pos); void aggiorna_marker(TString& token, int pos);
void calcola_totale_record(); void calcola_totale_record();
void scrivi_telefono(TString& app); void scrivi_telefono(TString& app);
const char* cerca_provincia(const TString& comcf); const char* cerca_provincia(const TString& comcf);
static bool setta_maschera_hnd(TMask_field& f, KEY k); static bool setta_maschera_hnd(TMask_field& f, KEY k);
static bool messaggio_hnd (TMask_field& f, KEY k); static bool messaggio_hnd (TMask_field& f, KEY k);
int calcola_numero_dischi(TMask& m); int calcola_numero_dischi(TMask& m);
FILE* chiedi_disco(const char* name, int disk, char floppy, bool lettura); FILE* chiedi_disco(const char* name, int disk, char floppy, bool lettura);
bool scrivi_disco(char floppy, int disk, const char* work, FILE* i, TProgind& w); bool scrivi_disco(char floppy, int disk, const char* work, FILE* i, TProgind& w);
TInv_cont(char mov); TInv_cont(char mov);
}; };
HIDDEN TInv_cont& app() { return (TInv_cont &) main_app(); } HIDDEN TInv_cont& app() { return (TInv_cont &) main_app(); }

124
cg/cg6900a.uml
View File

@ -1,62 +1,62 @@
#include "cg6900a.h" #include "cg6900a.h"
PAGE "Invio contabilita'" -1 -1 76 11 PAGE "Invio contabilita'" -1 -1 76 11
NUMBER F_DITTAINV 5 NUMBER F_DITTAINV 5
BEGIN BEGIN
PROMPT 2 1 "Codice ditta inviante " PROMPT 2 1 "Codice ditta inviante "
FLAGS "Z" FLAGS "Z"
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
END END
STRING F_RAGSOC 50 STRING F_RAGSOC 50
BEGIN BEGIN
PROMPT 2 2 "Ragione sociale " PROMPT 2 2 "Ragione sociale "
FLAGS "D" FLAGS "D"
END END
NUMBER F_NUMULINV 3 NUMBER F_NUMULINV 3
BEGIN BEGIN
PROMPT 2 4 "Numero ultimo invio " PROMPT 2 4 "Numero ultimo invio "
FLAGS "RG" FLAGS "RG"
END END
DATE F_DATAULIN DATE F_DATAULIN
BEGIN BEGIN
PROMPT 44 4 "Data ultimo invio " PROMPT 44 4 "Data ultimo invio "
END END
STRING F_STATO 1 STRING F_STATO 1
BEGIN BEGIN
PROMPT 2 5 "Stato ultimo invio " PROMPT 2 5 "Stato ultimo invio "
END END
STRING F_USELAB 1 STRING F_USELAB 1
BEGIN BEGIN
PROMPT 27 5 "" PROMPT 27 5 ""
END END
STRING F_CHIAVE 15 STRING F_CHIAVE 15
BEGIN BEGIN
PROMPT 30 5 "" PROMPT 30 5 ""
END END
DATE F_DATALIM DATE F_DATALIM
BEGIN BEGIN
PROMPT 2 7 "Data limite invio " PROMPT 2 7 "Data limite invio "
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
END END
BUTTON DLG_OK 9 2 BUTTON DLG_OK 9 2
BEGIN BEGIN
PROMPT -12 -1 "" PROMPT -12 -1 ""
END END
BUTTON DLG_QUIT 9 2 BUTTON DLG_QUIT 9 2
BEGIN BEGIN
PROMPT -22 -1 "" PROMPT -22 -1 ""
END END
ENDPAGE ENDPAGE
ENDMASK ENDMASK

1934
cg/cg6901.cpp
View File

File diff suppressed because it is too large Load Diff

108
cg/cg6901.h
View File

@ -1,54 +1,54 @@
// Lista controllo archivi // Lista controllo archivi
#include <applicat.h> #include <applicat.h>
#include <printer.h> #include <printer.h>
#include <tabutil.h> #include <tabutil.h>
#include <utility.h> #include <utility.h>
#include <urldefid.h> #include <urldefid.h>
#include <lffiles.h> #include <lffiles.h>
#include <nditte.h> #include <nditte.h>
#include <mailbox.h> #include <mailbox.h>
#include <causali.h> #include <causali.h>
#include <rcausali.h> #include <rcausali.h>
#include <clifo.h> #include <clifo.h>
#include <pconti.h> #include <pconti.h>
#include <mov.h> #include <mov.h>
#include <rmov.h> #include <rmov.h>
#include <rmoviva.h> #include <rmoviva.h>
class TLista_archivi : public TApplication class TLista_archivi : public TApplication
{ {
TLocalisamfile* _ditte; TLocalisamfile* _ditte;
TLocalisamfile* _caus; TLocalisamfile* _caus;
TLocalisamfile* _rcaus; TLocalisamfile* _rcaus;
TLocalisamfile* _clifo; TLocalisamfile* _clifo;
TLocalisamfile* _pcon; TLocalisamfile* _pcon;
TLocalisamfile* _mov; TLocalisamfile* _mov;
TLocalisamfile* _rmov; TLocalisamfile* _rmov;
TLocalisamfile* _rmoviva; TLocalisamfile* _rmoviva;
TString _files, _ragsoc; TString _files, _ragsoc;
TDate _datalimite; TDate _datalimite;
long _ditta; long _ditta;
bool _errore_grave; bool _errore_grave;
int _risposta; int _risposta;
public: public:
TString _titolo; TString _titolo;
virtual bool create(); virtual bool create();
virtual bool destroy(); virtual bool destroy();
virtual bool menu(MENU_TAG m); virtual bool menu(MENU_TAG m);
bool set(); bool set();
bool tabella_ditta(); bool tabella_ditta();
void controlla_causali (char sigla); void controlla_causali (char sigla);
void controlla_clifo (char sigla); void controlla_clifo (char sigla);
void controlla_pcon (char sigla); void controlla_pcon (char sigla);
void controlla_PNIVA (char sigla); void controlla_PNIVA (char sigla);
void controlla_fatture (char sigla); void controlla_fatture (char sigla);
void setta_intestazione(char sigla); void setta_intestazione(char sigla);
bool controlla_valore (const TString& val,int lim); bool controlla_valore (const TString& val,int lim);
TLista_archivi() {}; TLista_archivi() {};
}; };

2606
cg/cg6902.cpp
View File

File diff suppressed because it is too large Load Diff

6
cg/pagament.cpp
View File

@ -1499,8 +1499,10 @@ void TPagamento::adjust_fixed_scad()
{ {
if (_fixd[0] > 0 && _fixd[0] < d.day()) if (_fixd[0] > 0 && _fixd[0] < d.day())
{ {
d.set_day(_fixd[0]); d.set_day(_fixd[0]);
d.set_month(d.month() == 12 ? 1 : d.month() + 1); bool chyear = d.month() == 12;
d.set_month(chyear? 1 : d.month() + 1);
if (chyear) d.set_year(d.year() + 1);
} }
} }
} }