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

Aggiunta tabella tipo IVA cee da collegare a tabella codici IVA

Browse Source 
git-svn-id: svn://10.65.10.50/branches/R_10_00@22819 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy 2013-03-15 10:55:26 +00:00
parent ff77324017
commit eb127dd845
5 changed files with 97 additions and 49 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ba/ba1500.cpp
View File

@ -20,7 +20,7 @@ TInformazione_moduli::TInformazione_moduli()
: _unassigned_modules(0)
{
const TDongle& d = dongle();
for (word mod = CTAUT; mod < ENDAUT; mod++)
for (word mod = BAAUT+1; mod < ENDAUT; mod++)
{
TToken_string t = d.module_code2desc(mod);
if (t.len() > 2 && !t.starts_with("Modulo vario", true)) // Scarta moduli ignoti

51
ba/ba2800.cpp
View File

@ -689,7 +689,8 @@ void Tdninst_mask::merge_sheet()
int changed = 0;
FOR_EACH_SHEET_ROW(sheet, r, row)
{
const int key = row->get_int(_c_key);
const int key = row->get_int(_c_key);
c1 = row->get(_c_owner);
c2 = row->get(_c_dbowner);
c3 = row->get(_c_xmlowner);
@ -711,8 +712,8 @@ void Tdninst_mask::merge_sheet()
row->add(c1, _c_owner);
changed++;
msg = TR("Inserito cliente ");
msg << c1;
msg.cut(0) << key << " : ";
msg << TR("Inserito cliente ") << c1;
log.log(0, msg);
}
}
@ -727,8 +728,8 @@ void Tdninst_mask::merge_sheet()
row->add(o2, _c_oem);
changed++;
msg = TR("Aggiornato agente del cliente ");
msg << c1;
msg.cut(0) << key << " : ";
msg << TR("Aggiornato agente del cliente ") << c1;
log.log(0, msg);
}
}
@ -741,8 +742,9 @@ void Tdninst_mask::merge_sheet()
if (xvt_str_fuzzy_compare_ignoring_case(c1, c2) < 0.7)
{
msg = TR("Aggiornata ragione sociale da '");
msg << c1 << "' a '" << c2 << "'";
msg.cut(0) << key << " : ";
msg << TR("Aggiornata ragione sociale da '")
<< c1 << "' a '" << c2 << "'";
log.log(0, msg);
}
}
@ -754,8 +756,9 @@ void Tdninst_mask::merge_sheet()
{
row->add(d2, _c_suspend);
changed++;
msg = TR("Sospensione del cliente ");
msg << c1 << TR(" dal ") << d2;
msg.cut(0) << key << " : ";
msg << TR("Sospensione del cliente ")
<< c1 << TR(" dal ") << d2;
log.log(1, msg);
}
@ -765,8 +768,9 @@ void Tdninst_mask::merge_sheet()
{
row->add(d2, _c_killed);
changed++;
msg = TR("Disattivazione del cliente ");
msg << c1 << TR(" dal ") << d2;
msg.cut(0) << key << " : ";
msg << TR("Disattivazione del cliente ")
<< c1 << TR(" dal ") << d2;
log.log(2, msg);
}
}
@ -915,29 +919,8 @@ bool Tdninst_mask::on_field_event(TOperable_field& o, TField_event e, long jolly
}
break;
case DLG_ELABORA:
if (e == fe_button)
{
TMask q(TR("Elaborazione"), 1, 50, 10);
TToken_string options = TR("Aggiornare il DNINST in base al DB|Aggiornare il DB in base al DNINST");
q.add_radio(101, 0, TR("Operazione di aggiornamento"), 1, 1, 48, "0|1", options);
q.add_button(DLG_OK, 0, "", -12, -1, 10, 2);
q.add_button(DLG_CANCEL, 0, "", -22, -1, 10, 2);
if (q.run() == K_ENTER)
{
const int i = q.get_int(101);
if (yesno_box(options.get(i)))
{
switch (i)
{
case 1:
break;
default:
merge_sheet();
break;
}
}
}
}
if (e == fe_button && yesno_box(TR("Aggiornare il DNINST in base al DB")))
merge_sheet();
break;
case DLG_SAVEREC:
if (e == fe_button)

1
ba/batbiva.h
View File

@ -21,3 +21,4 @@
#define FLD_TABIVA_I1 122
#define FLD_DETRAZIONE 123
#define CHK_SERVIZI 124
#define FLD_DESCR_I1 125

43
ba/batbiva.uml
View File

@ -103,15 +103,41 @@ BEGIN
HELP "Inserire la percentuale teorica dell'imposta"
END
NUMBER FLD_TABIVA_I1 4
BEGIN
PROMPT 2 4 "Tipo CEE "
FIELD I1
FLAGS "UZ"
USE %TIC
INPUT CODTAB FLD_TABIVA_I1
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
DISPLAY "Sospeso@C" B2
OUTPUT FLD_TABIVA_I1 CODTAB
OUTPUT FLD_DESCR_I1 S0
CHECKTYPE NORMAL
END
STRING FLD_DESCR_I1 50
BEGIN
PROMPT 26 4 ""
USE %TIC KEY 2
INPUT S0 FLD_DESCR_I1
DISPLAY "Descrizione@50" S0
DISPLAY "Codice" CODTAB
DISPLAY "Sospeso@C" B2
COPY OUTPUT FLD_TABIVA_I1
CHECKTYPE NORMAL
END
GROUPBOX DLG_NULL 78 4
BEGIN
PROMPT 1 5 "@bComunicazione operazioni rilevanti ai fini dell'IVA"
PROMPT 1 6 "@bComunicazione operazioni rilevanti ai fini dell'IVA (Spesometro)"
END
LIST FLD_TABIVA_S7 1 35
BEGIN
PROMPT 2 6 "Cessioni "
PROMPT 2 7 "Cessioni "
FIELD S7
ITEM " |Non rilevante"
ITEM "1|1 - Imponibile"
@ -123,7 +149,7 @@ END
LIST FLD_TABIVA_S8 1 35
BEGIN
PROMPT 2 7 "Acquisti "
PROMPT 2 8 "Acquisti "
FIELD S8
ITEM " |Non rilevante"
ITEM "1|1 - Imponibile"
@ -133,17 +159,6 @@ BEGIN
ITEM "5|5 - Imponibile con IVA a Margine"
END
/* Reso obsoleto da ultime specifiche Spesometro di Settembre 2011
RADIOBUTTON CHK_SERVIZI 20
BEGIN
PROMPT 59 6 "Cessione / Acquisto"
ITEM " |Beni"
ITEM "X|Servizi"
FLAGS "Z"
FIELD B5
END
*/
STRING FLD_TABIVA_I3 3
BEGIN
PROMPT 3 10 "Riga vendite IVA11 per op.esenti e non imp. "

49
ba/batbtic.uml Normal file
View File

@ -0,0 +1,49 @@
#include "batbiva.h"
TOOLBAR "topbar" 0 0 0 2
#include <relapbar.h>
ENDPAGE
PAGE "Tipo IVA CEE" -1 -1 78 19
NUMBER FLD_TABIVA_CODTAB 4
BEGIN
PROMPT 1 1 "Codice "
KEY 1
USE %TIC
FLAGS "UZ"
INPUT CODTAB FLD_TABIVA_CODTAB
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
DISPLAY "Sospeso@C" B2
OUTPUT FLD_TABIVA_CODTAB CODTAB
OUTPUT FLD_TABIVA_S0 S0
CHECKTYPE REQUIRED
FIELD CODTAB
END
STRING FLD_TABIVA_S0 50
BEGIN
PROMPT 1 2 "Descrizione "
FIELD S0
KEY 2
USE %TIC KEY 2
INPUT S0 102
DISPLAY "Descrizione@50" S0
DISPLAY "Codice" CODTAB
DISPLAY "Sospeso@C" B2
COPY OUTPUT FLD_TABIVA_CODTAB
CHECKTYPE REQUIRED
END
BOOLEAN FLD_SOSPESO_B2
BEGIN
PROMPT 1 -2 "Codice sospeso non più utilizzabile"
FIELD B2
END
ENDPAGE
ENDMASK