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

Patch level : 10.0 944

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

Tabela norme nuova per il trasferimento Zucchetti


git-svn-id: svn://10.65.10.50/branches/R_10_00@21693 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
alex 2011-02-21 22:03:28 +00:00
parent ff7812458e
commit 5f32211267
7 changed files with 66 additions and 25 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
tc/tc1100.cpp
View File

@ -350,11 +350,6 @@ void TInvio_file::validate(TCursor& cur,TRecord_text &rec, TToken_string &s, TSt
{
if (valore.len() > 2) // Se e' piu' lungo di 2 la norma Zucchetti sono gli ultimi due
valore.ltrim(2);
else // Altrimenti cerco la Norma fissata sulla tabella IVA Zucchetti
{
const TString& codziv = valore.full() ? valore.left(2) : str.left(2);
valore = cache().get("&ZIV", codziv, "S7");
}
}
else
valore.cut(2);

1
tc/tcmenu.men
View File

@ -77,6 +77,7 @@ Item_01 = "Banche", "tc1 -1 &ZBA", ""
Item_02 = "Causali", "tc1 -1 &ZCA", ""
Item_03 = "Codici IVA", "tc1 -1 &ZIV", ""
Item_04 = "Conti", "tc1 -1 &ZCO", ""
Item_03 = "Codici Norma", "tc1 -1 &ZNO", ""
[TCMENU_008]
Caption = "Tabelle di Riclassificazione"

2
tc/tctbziv.h
View File

@ -1,3 +1,3 @@
#define F_CODTAB 101
#define F_DESC 102
#define F_NORMA 103

8
tc/tctbziv.uml
View File

@ -41,14 +41,6 @@ BEGIN
CHECKTYPE REQUIRED
END
NUMBER F_NORMA 2
BEGIN
PROMPT 2 7 "Codice Norma "
VALIDATE FIXLEN_FUNC 2
FIELD S7
FLAG "Z"
END
ENDPAGE
ENDMASK

46
tc/tctbzno.uml Executable file
View File

@ -0,0 +1,46 @@
#include "tctbziv.h"
TOOLBAR "topbar" 0 0 0 2
#include <relapbar.h>
ENDPAGE
PAGE "IVA" 0 2 0 0
GROUPBOX DLG_NULL 78 3
BEGIN
PROMPT 1 1 "Norme Zucchetti"
END
NUMBER F_CODTAB 2
BEGIN
PROMPT 2 2 "Codice Norma "
USE &ZNO
INPUT CODTAB F_CODTAB
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@60" S0
DISPLAY "Codice Norma" S7
OUTPUT F_CODTAB CODTAB
OUTPUT F_DESC S0
CHECKTYPE REQUIRED
FIELD CODTAB
VALIDATE FIXLEN_FUNC 2
FLAG "Z"
KEY 1
END
STRING F_DESC 50
BEGIN
PROMPT 2 5 "Descrizione "
USE &ZNO KEY 2
INPUT S0 F_DESC
DISPLAY "Descrizione@60" S0
DISPLAY "Codice" CODTAB
COPY OUTPUT F_CODTAB
FIELD S0
KEY 2
CHECKTYPE REQUIRED
END
ENDPAGE
ENDMASK

1
tc/tczu.h
View File

@ -8,3 +8,4 @@
#define F_CODTAB10 107
#define F_CODTAB11 108
#define F_COD_CORR1 109
#define F_DESC11 110

28
tc/tczuiva.uml
View File

@ -97,7 +97,6 @@ BEGIN
DISPLAY "Norma" S7
OUTPUT F_COD_CORR CODTAB
OUTPUT F_DESC_CORR S0
OUTPUT F_CODTAB11 S7
VALIDATE FIXLEN_FUNC 2
CHECKTYPE REQUIRED
END
@ -114,20 +113,27 @@ BEGIN
END
STRING F_CODTAB11 2
BEGIN
PROMPT 50 6 "Norma "
FLAGS "HG"
MESSAGE EMPTY ENABLE,F_COD_CORR1
MESSAGE DISABLE,F_COD_CORR1|COPY,F_COD_CORR1
END
STRING F_COD_CORR1 2
BEGIN
PROMPT 2 6 "Norma "
USE &ZNO
INPUT CODTAB F_CODTAB11
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_CODTAB11 CODTAB
OUTPUT F_DESC11 S0
FIELD DATA[3,4]
FLAGS "UZ"
VALIDATE FIXLEN_FUNC 2
CHECKTYPE REQUIRED
CHECKTYPE NORMAL
END
STRING F_DESC11 50
BEGIN
PROMPT 25 6 ""
USE &ZNO KEY 2
INPUT S0 F_DESC11
DISPLAY "Descrizione@50" S0
DISPLAY "Codice" CODTAB
COPY OUTPUT F_CODTAB11
END
ENDPAGE