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

Patch level : 10.0 582

Browse Source 
Files correlati     :  tc1.exe
Ricompilazione Demo : [ ]
Commento            :

Trasferimento a Zucchetti


git-svn-id: svn://10.65.10.50/trunk@19931 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
alex 2010-01-15 12:44:48 +00:00
parent 5c9f9e139b
commit a6909e62e7
6 changed files with 94 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

48
tc/tc1100.cpp
View File

@ -125,6 +125,7 @@ class TInvio : public TSkeleton_application
TString16 _descrdettaglio;
TDate _dataini, _datafin;
bool _totale, _finemov;
bool _trcau, _trcon, _triva, _trban;
protected:
virtual bool create(void);
@ -150,6 +151,10 @@ public:
TRecord_cache& conti() {return *_conti;}
TRiclassifica_cache & tabelle() { return * _tabelle;}
void log(int sev, const char* msg);
bool trcau() const { return _trcau; }
bool triva() const { return _triva; }
bool trcon() const { return _trcon; }
bool trban() const { return _trban; }
TInvio() {} ;
virtual ~TInvio() {} ;
@ -203,7 +208,9 @@ const TString& TInvio_file::bill2ricl(const char t, int gr, int co, long so)
if (gr > 0&& co >0 && so > 0)
{
if (t <= ' ')
if (t > ' ' || !app().trcon())
codricl.format("%d",so);
else
{
TToken_string cod("ZUCONTI");
cod.add(gr);
@ -225,8 +232,6 @@ const TString& TInvio_file::bill2ricl(const char t, int gr, int co, long so)
app().log(2, msg);
}
}
else
codricl.format("%d",so);
}
return codricl;
}
@ -278,18 +283,37 @@ void TInvio_file::validate(TCursor& cur,TRecord_text &rec, TToken_string &s, TSt
}
else if (code == "_CAUSALE")
{
valore = app().tabelle().sdecode("ZUCAU", str);
if (valore.blank())
valore = str;
const TRectype & mov = cur.curr(LF_MOV);
const bool prima_nota = mov.get(MOV_REG).blank();
if (prima_nota && valore.blank())
valore = "999";
else
{
if (app().trcau())
valore = app().tabelle().sdecode("ZUCAU", str);
else
{
if (valore.blank())
{
if (!prima_nota)
valore = str;
else
valore = "999";
}
}
}
}
else if (code == "_IVA" || code == "_NORMA")
{
valore = app().tabelle().sdecode("ZUIVA", str);
if (app().triva())
valore = app().tabelle().sdecode("ZUIVA", str);
if (code == "_NORMA")
{
valore = cache().get("&ZIV", str, "S7");
if (valore.blank())
valore = str.mid(2);
else
valore = cache().get("&ZIV", str, "S7");
}
else
if (valore.blank())
@ -297,7 +321,8 @@ void TInvio_file::validate(TCursor& cur,TRecord_text &rec, TToken_string &s, TSt
}
else if (code == "_BANCA")
{
valore = app().tabelle().sdecode("ZUBAN", str);
if (app().trban())
valore = app().tabelle().sdecode("ZUBAN", str);
if (valore.blank())
{
valore = str.mid(2, 3);
@ -750,6 +775,10 @@ void TInvio::invio_zucchetti()
_trasfile = new TInvio_file(filename);
_trasfile->open(filename,'w');
_log = new TLog_report("Trasferimento Zucchetti");
_trcau = _msk->get_bool(F_TRCAU);
_triva = _msk->get_bool(F_TRIVA);
_trcon = _msk->get_bool(F_TRCON);
_trban = _msk->get_bool(F_TRBAN);
i_zucchetti_testa();
@ -815,7 +844,6 @@ void TInvio::main_loop()
configfile.set("NUMEROINVIO", _msk->get(F_NUMEROINVIO),"OPZIONI");
configfile.set("DATA", _msk->get_date(F_DATAFIN),"OPZIONI");
configfile.set("PERCORSO", _msk->get(F_DESTINAZIONE),"OPZIONI");
configfile.set_paragraph("CAUSALI");
_dataini = _msk->get_date(F_DATAINI);
_datafin = _msk->get_date(F_DATAFIN);
const char tipoinvio = _msk->get(F_TIPOINVIO)[0];

4
tc/tc1100a.h
View File

@ -16,3 +16,7 @@
#define F_DATAFIN 124
#define F_RIPRISTINA 125
#define F_DATARIPRISTINO 126
#define F_TRCAU 127
#define F_TRCON 128
#define F_TRIVA 129
#define F_TRBAN 130

40
tc/tc1100a.uml
View File

@ -13,6 +13,16 @@ END
ENDPAGE
TOOLBAR "" 0 -2 0 2
STRING DLG_PROFILE 50
BEGIN
PROMPT 9 0 "Profilo "
PSELECT
END
ENDPAGE
PAGE "Invio dati contabilita' a Zucchetti" 0 2 0 0
GROUPBOX DLG_NULL 76 3
@ -91,30 +101,50 @@ BEGIN
PROMPT 2 11 "Destinazione "
END
BOOLEAN F_TRCAU
BEGIN
PROMPT 2 12 "Trascodifica causali"
END
BOOLEAN F_TRCON
BEGIN
PROMPT 2 13 "Trascodifica conti"
END
BOOLEAN F_TRIVA
BEGIN
PROMPT 2 14 "Trascodifica codici IVA"
END
BOOLEAN F_TRBAN
BEGIN
PROMPT 2 15 "Trascodifica banche"
END
NUMBER F_NUMEROINVIO 2
BEGIN
PROMPT 2 12 "Numero invio "
PROMPT 2 16 "Numero invio "
END
DATE F_DATAINI
BEGIN
PROMPT 20 12 "Data iniz. "
PROMPT 20 16 "Data iniz. "
END
DATE F_DATAFIN
BEGIN
PROMPT 44 12 "Data fin. "
PROMPT 44 16 "Data fin. "
END
BUTTON F_RIPRISTINA 20
BEGIN
PROMPT 2 14 "Annulla invio"
PROMPT 2 18 "Annulla invio"
MESSAGE SHOW,F_DATARIPRISTINO|ENABLE,F_DATARIPRISTINO
END
DATE F_DATARIPRISTINO
BEGIN
PROMPT 25 14 "Annulla invio fino al "
PROMPT 25 18 "Annulla invio fino al "
FLAGS "HD"
END

12
tc/tctabmod.txt
View File

@ -1407,6 +1407,18 @@ TC||TIV|900
TC||TIV|904
TC||TIV|910
TC||TIV|920
TC||ZCA|CO|Corrispettivi
TC||ZCA|CV|Corrispettivi ventilati
TC||ZCA|ER|Elenco rate PROFESS. Inc./Pag.
TC||ZCA|FA|Fattura di acquisto
TC||ZCA|FC|Fattura corrispettivi
TC||ZCA|FT|Fattura corrispettivi ventilati
TC||ZCA|FV|Fattura di vendita
TC||ZCA|GR|Gestione rate
TC||ZCA|PN|Prima nota
TC||ZCA|QA|Quadaratura acquisti PROFESS.
TC||ZCA|QI|Quadaratura e insoluti
TC||ZCA|SA|Saldaconto
TC||ZCO|10000|crediti vs soci richiamati
TC||ZCO|10001|decimi in sofferenza
TC||ZCO|10100|crediti vs soci da richiamare

4
tc/tctbzca.uml
View File

@ -11,7 +11,7 @@ BEGIN
PROMPT 1 1 "Causale Zucchetti"
END
NUMBER F_CODTAB 3
STRING F_CODTAB 3
BEGIN
PROMPT 2 2 "Codice "
USE &ZCA
@ -22,7 +22,7 @@ BEGIN
OUTPUT F_DESC S0
CHECKTYPE REQUIRED
FIELD CODTAB
VALIDATE FIXLEN_FUNC 3
FLAGS "UZ"
KEY 1
END

8
tc/tczucau.uml
View File

@ -20,7 +20,7 @@ BEGIN
KEY 1
END
NUMBER F_CODTAB 3
STRING F_CODTAB 3
BEGIN
PROMPT 2 2 ""
USE LF_MULTIREL
@ -65,7 +65,7 @@ END
STRING F_DESC 50
BEGIN
PROMPT 10 2 "Descrizione "
PROMPT 15 2 "Descrizione "
USE LF_CAUSALI KEY 2
INPUT DESCR F_DESC
DISPLAY "Descrizione@60" DESCR
@ -92,19 +92,17 @@ BEGIN
DISPLAY "Descrizione@50" S0
OUTPUT F_COD_CORR CODTAB
OUTPUT F_DESC_CORR S0
VALIDATE FIXLEN_FUNC 3
CHECKTYPE NORMAL
END
STRING F_DESC_CORR 50
BEGIN
PROMPT 2 25 ""
PROMPT 27 4 ""
USE &ZCA
INPUT S0 F_DESC_CORR
DISPLAY "Descrizione@50" S0
DISPLAY "Cod." CODTAB
COPY OUTPUT F_COD_CORR
KEY 1
END
ENDPAGE