From a6909e62e76482fc18875faa584fe479ba7d9e62 Mon Sep 17 00:00:00 2001 From: alex Date: Fri, 15 Jan 2010 12:44:48 +0000 Subject: [PATCH] Patch level : 10.0 582 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 --- tc/tc1100.cpp | 48 ++++++++++++++++++++++++++++++++++++++---------- tc/tc1100a.h | 4 ++++ tc/tc1100a.uml | 40 +++++++++++++++++++++++++++++++++++----- tc/tctabmod.txt | 12 ++++++++++++ tc/tctbzca.uml | 4 ++-- tc/tczucau.uml | 8 +++----- 6 files changed, 94 insertions(+), 22 deletions(-) diff --git a/tc/tc1100.cpp b/tc/tc1100.cpp index 3817a964c..5123b47de 100755 --- a/tc/tc1100.cpp +++ b/tc/tc1100.cpp @@ -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]; diff --git a/tc/tc1100a.h b/tc/tc1100a.h index b6f4fd037..332377618 100755 --- a/tc/tc1100a.h +++ b/tc/tc1100a.h @@ -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 diff --git a/tc/tc1100a.uml b/tc/tc1100a.uml index 1f516d3f6..f11195c67 100755 --- a/tc/tc1100a.uml +++ b/tc/tc1100a.uml @@ -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 diff --git a/tc/tctabmod.txt b/tc/tctabmod.txt index 5fb8ede09..d018d9e9b 100755 --- a/tc/tctabmod.txt +++ b/tc/tctabmod.txt @@ -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 diff --git a/tc/tctbzca.uml b/tc/tctbzca.uml index f81e52fb2..e84b10c77 100755 --- a/tc/tctbzca.uml +++ b/tc/tctbzca.uml @@ -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 diff --git a/tc/tczucau.uml b/tc/tczucau.uml index efa4ae7a2..aac2f704d 100755 --- a/tc/tczucau.uml +++ b/tc/tczucau.uml @@ -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