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

Patch level : 12.0 344

Browse Source 
Files correlati     : 
Commento            : 
- Aggiornata maschera delle impostazioni li, adesso riceve il tipo documento non numerazione.
- Aggiunta gestione note di credito

git-svn-id: svn://10.65.10.50/branches/R_10_00@23613 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
mtollari 2017-02-13 14:33:49 +00:00
parent 30b7d1a29e
commit ef9a155474
5 changed files with 103 additions and 95 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/li/li0300.cpp
View File

@ -63,7 +63,7 @@ void TDI_mask::save_config()
}
ini_set_string(CONFIG_DITTA, "li", "CODIVA", get(FLD_TABIVA_CODTAB));
ini_set_string(CONFIG_DITTA, "li", "TIPIDOC", tipidoc);
message_box(TR("Impostazioni salvate correttamente"));
}
class TDISettings_app : public TSkeleton_application

180
src/li/li0300a.uml
View File

@ -1,99 +1,99 @@
#include "li0300a.h"
TOOLBAR "topbar" 0 0 0 2
BUTTON DLG_SAVEREC 2 2
BEGIN
PROMPT 2 1 "~Registra"
MESSAGE EXIT,K_SAVE
PICTURE TOOL_SAVEREC
END
#include <cancelbar.h>
ENDPAGE
PAGE "Impostazioni dichiarazioni d'intento" 0 2 0 0
STRING FLD_TABIVA_CODTAB 4
BEGIN
PROMPT 2 1 "Codice IVA plafond: "
FIELD CODTAB
KEY 1
USE %IVA
FLAGS "U"
INPUT CODTAB FLD_TABIVA_CODTAB
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
DISPLAY "Tipo" S1
DISPLAY "%@5" R0
DISPLAY "Vent." S6
DISPLAY "Sospeso" B2
OUTPUT FLD_TABIVA_CODTAB CODTAB
HELP "Inserire il codice IVA"
CHECKTYPE REQUIRED
VALIDATE ZEROFILL_FUNC 2
END
#include "li0300a.h"
TOOLBAR "topbar" 0 0 0 2
BUTTON DLG_SAVEREC 2 2
BEGIN
PROMPT 2 1 "~Registra"
MESSAGE EXIT,K_SAVE
PICTURE TOOL_SAVEREC
END
#include <cancelbar.h>
ENDPAGE
PAGE "Impostazioni dichiarazioni d'intento" 0 2 0 0
STRING FLD_TABIVA_CODTAB 4
BEGIN
PROMPT 2 1 "Codice IVA plafond: "
FIELD CODTAB
KEY 1
USE %IVA
FLAGS "U"
INPUT CODTAB FLD_TABIVA_CODTAB
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
DISPLAY "Tipo" S1
DISPLAY "%@5" R0
DISPLAY "Vent." S6
DISPLAY "Sospeso" B2
OUTPUT FLD_TABIVA_CODTAB CODTAB
HELP "Inserire il codice IVA"
CHECKTYPE REQUIRED
VALIDATE ZEROFILL_FUNC 2
END
SPREADSHEET DOC_STATO 45 10
BEGIN
PROMPT 30 1 ""
ITEM "Tipo Numerazione"
ITEM "Da stato"
ITEM "A stato"
END
ENDPAGE
ENDMASK
PAGE "Riga tipo numerazione" -1 -1 78 8
STRING FLD_TIPODOC 4
BEGIN
PROMPT 2 1 "Codice Numerazione "
FIELD CODTAB
KEY 1
USE %NUM
FLAGS "U"
INPUT CODTAB FLD_TIPODOC
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT FLD_TIPODOC CODTAB
CHECKTYPE REQUIRED
END
STRING FLD_STATODOCDA 4
BEGIN
PROMPT 2 2 "Da Numerazione "
FIELD CODTAB
KEY 1
USE %STD
FLAGS "U"
INPUT CODTAB FLD_STATODOCA
DISPLAY "Stato" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT FLD_STATODOCDA CODTAB
//CHECKTYPE REQUIRED
END
STRING FLD_STATODOCA 4
BEGIN
PROMPT 2 3 "A Numerazione "
FIELD CODTAB
KEY 1
USE %STD
FLAGS "U"
INPUT CODTAB FLD_STATODOCA
DISPLAY "Stato" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT FLD_STATODOCA CODTAB
//CHECKTYPE REQUIRED
END
ENDPAGE
END
ENDPAGE
ENDMASK
PAGE "Riga tipo numerazione" -1 -1 78 8
STRING FLD_TIPODOC 4
BEGIN
PROMPT 2 1 "Tipo Documento "
FIELD TIPODOC
HELP "Codice tipo documento"
USE %TIP
INPUT CODTAB FLD_TIPODOC
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT FLD_TIPODOC CODTAB
CHECKTYPE REQUIRED
END
STRING FLD_STATODOCDA 4
BEGIN
PROMPT 2 2 "Da Numerazione "
FIELD CODTAB
KEY 1
USE %STD
FLAGS "U"
INPUT CODTAB FLD_STATODOCA
DISPLAY "Stato" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT FLD_STATODOCDA CODTAB
//CHECKTYPE REQUIRED
END
STRING FLD_STATODOCA 4
BEGIN
PROMPT 2 3 "A Numerazione "
FIELD CODTAB
KEY 1
USE %STD
FLAGS "U"
INPUT CODTAB FLD_STATODOCA
DISPLAY "Stato" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT FLD_STATODOCA CODTAB
NUM_EXPR #FLD_STATODOCA>=#FLD_STATODOCDA
//CHECKTYPE REQUIRED
END
ENDPAGE
TOOLBAR "Documento" 0 0 0 2
BUTTON DLG_OK 2 2

1
src/li/li0400a.h
View File

@ -29,3 +29,4 @@
#define F_PROTINTF 123
#define F_PROTINTS 124
#define F_NOTE 125
#define B_CHIUSA 126

6
src/li/li0400a.uml
View File

@ -229,6 +229,12 @@ BEGIN
FIELD TIPOOP
END
BOOLEAN B_CHIUSA
BEGIN
PROMPT 40 16 "Chiusa: "
FIELD CHIUSA
END
CURRENCY F_IMPORTO 18
BEGIN
PROMPT 1 17 "Importo "

9
src/li/lilib01.cpp
View File

@ -1,4 +1,5 @@
#include "lilib01.h"
#include <recarray.h>
#define FINO_A_PLAFOND 2
@ -7,10 +8,10 @@ void TLi_manager::elabTipiStati(TToken_string& tipi, TToken_string& stati)
for(int i = 0; i < tipidoc.items(); i++)
{
TToken_string statidoc(ini_get_string(CONFIG_DITTA, "li", tipidoc.get(i)), ',');
for(int j = 0; j < statidoc.items(); j++)
for(int j = statidoc.get_int(0); j <= statidoc.get_int(1); j++)
{
tipi.add(tipidoc.get(i));
stati.add(statidoc.get(j));
stati.add(j);
}
}
}
@ -62,7 +63,7 @@ const real TLi_manager::getPlaRes()
TLista_documenti din; // Legge tutti i documenti di input
TToken_string tipi, stati;
elabTipiStati(tipi, stati);
TDate ad(TString(year)<<"1201");
TDate ad(31, 12, year);
// Trovo tutti i documenti che mi interessano e sottraggo l'imponibile al plafond
din.read('D', tipocf, codcli, year, tipi, stati, iniDicInt, ad);
@ -76,7 +77,7 @@ const real TLi_manager::getPlaRes()
TRiepilogo_iva * totali = static_cast<TRiepilogo_iva *>(tabIva.get());
if(totali->cod_iva() == codiva)
{
resPlafond -= totali->imp_orig();
resPlafond -= cache().get("%TIP", din[i].tipo().codice()).get_bool("B7") ? -totali->imp_orig() : totali->imp_orig();
}
if(resPlafond < 0) break;
}