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

Modifiche alle anagrafiche windows :

Browse Source 
terminate le modifiche all' anagrafica persone (aggiunto il campo CODUUE)


git-svn-id: svn://10.65.10.50/trunk@5610 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
alex 1997-11-13 14:22:35 +00:00
parent 815ebd0dfb
commit c27498f6a3
5 changed files with 35 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ba/ba4200.cpp
View File

@ -323,7 +323,7 @@ bool gest_uff_imp(TMask_field& f, KEY key)
{
msk.set(F_IMP_DENCOM, comuni.get("DENCOM"));
msk.set(F_IMP_PROVCOM, comuni.get("PROVCOM"));
msk.set(F_UFFUUE, comuni.get("CODUUE1"));
msk.set(F_UFFUUE, comuni.get("CODUUE1"),TRUE);
msk.check_field(F_UFFUUE);
TString s(comuni.get(N_IMPDIR1)) ;

18
ba/ba4200b.uml
View File

@ -1055,7 +1055,8 @@ END
STRING F_UFFUUE 3
BEGIN
PROMPT 1 7 "Ufficio unico "
FLAGS "ZGD"
FLAGS "ZG"
FIELD UFFUUE
USE %UUE
INPUT CODTAB F_UFFUUE
DISPLAY "Ufficio" CODTAB
@ -1064,6 +1065,8 @@ BEGIN
OUTPUT F_DENUUE S0
CHECKTYPE NORMAL
WARNING "Ufficio imposte assente"
MESSAGE EMPTY ENABLE,5@
MESSAGE CLEAR,5@| CLEAR,6@
END
STRING F_DENUUE 50 48
@ -1088,6 +1091,7 @@ OUTPUT F_CC_ESATTORIA S4
HELP "Numero dell'ufficio delle imposte dirette competente"
CHECKTYPE NORMAL
WARNING "Ufficio imposte assente"
GROUP 5
END
STRING F_DENUFFIIDD 50 48
@ -1100,6 +1104,7 @@ DISPLAY "Denominazione@50" S0
DISPLAY "Ufficio" CODTAB
DISPLAY "C.C.@8" S4
COPY OUTPUT F_UFFIIDD
GROUP 5
END
STRING F_NISCRIIDD 10
@ -1120,15 +1125,16 @@ DISPLAY "Denominazione@50" S0
OUTPUT F_UFFIVA CODTAB
OUTPUT F_DENUFFIVA S0
OUTPUT F_CC_ESATTORIA S4
HELP "Numero dell'ufficio delle imposte dirette competente"
CHECKTYPE NORMAL
WARNING "Ufficio imposte assente"
WARNING "Ufficio IVA assente"
GROUP 5
END
STRINF F_DENUFFIVA 50 48
BEGIN
PROMPT 23 10 " "
FLAGS "D"
GROUP 6
END
STRING F_UFFREG 3
@ -1140,12 +1146,14 @@ OUTPUT F_UFFREG CODTAB
OUTPUT F_DENUFFREG S0
CHECKTYPE NORMAL
FLAGS "UDG"
GROUP 6
END
STRING F_DENUFFREG 50 48
BEGIN
PROMPT 24 11 ""
FLAGS "D"
GROUP 6
END
NUMBER F_UFFCONC_P 3
@ -1159,12 +1167,14 @@ DISPLAY "Denominazione@50" S0
OUTPUT F_UFFCONC_P CODTAB
OUTPUT F_DENUFFCONC S0
CHECKTYPE NORMAL
GROUP 6
END
STRING F_DENUFFCONC 50 48
BEGIN
PROMPT 24 12 ""
FLAGS "D"
GROUP 6
END
NUMBER F_UFFSERV 3
@ -1176,12 +1186,14 @@ INPUT CODTAB F_UFFSERV
OUTPUT F_UFFSERV CODTAB
OUTPUT F_DENUFFSERV S0
CHECKTYPE NORMAL
GROUP 6
END
STRING F_DENUFFSERV 50 48
BEGIN
PROMPT 24 13 ""
FLAGS "D"
GROUP 6
END
GROUPBOX -1 78 4

18
ba/ba4200c.uml
View File

@ -1176,7 +1176,8 @@ END
STRING F_UFFUUE 3
BEGIN
PROMPT 1 7 "Ufficio unico "
FLAGS "ZGD"
FLAGS "ZG"
FIELD UFFUUE
USE %UUE
INPUT CODTAB F_UFFUUE
DISPLAY "Ufficio" CODTAB
@ -1184,6 +1185,8 @@ BEGIN
OUTPUT F_UFFUUE CODTAB
OUTPUT F_DENUUE S0
CHECKTYPE NORMAL
MESSAGE EMPTY ENABLE,5@
MESSAGE CLEAR,5@|CLEAR,6@
WARNING "Ufficio imposte assente"
END
@ -1209,6 +1212,7 @@ BEGIN
HELP "Codice ufficio delle imposte dirette competente"
CHECKTYPE NORMAL
WARNING "Ufficio imposte assente"
GROUP 5
END
STRINF F_DENUFFIIDD 50 48
@ -1221,6 +1225,7 @@ BEGIN
DISPLAY "Ufficio" CODTAB
DISPLAY "C.C.@8" S4
COPY OUTPUT F_UFFIIDD
GROUP 5
END
STRING F_NISCRIIDD 10
@ -1241,15 +1246,16 @@ BEGIN
OUTPUT F_UFFIVA CODTAB
OUTPUT F_DENUFFIVA S0
OUTPUT F_CC_ESATTORIA S4
HELP "Numero dell'ufficio delle imposte dirette competente"
CHECKTYPE NORMAL
WARNING "Ufficio imposte assente"
WARNING "Ufficio IVA assente"
GROUP 5
END
STRINF F_DENUFFIVA 50 48
BEGIN
PROMPT 23 10 " "
FLAGS "D"
GROUP 6
END
STRING F_UFFREG 3
@ -1263,12 +1269,14 @@ BEGIN
OUTPUT F_DENUFFREG S0
CHECKTYPE NORMAL
FLAGS "UDG"
GROUP 6
END
STRING F_DENUFFREG 50 48
BEGIN
PROMPT 24 11 ""
FLAGS "D"
GROUP 6
END
NUMBER F_UFFCONC_P 3
@ -1282,12 +1290,14 @@ BEGIN
OUTPUT F_UFFCONC_P CODTAB
OUTPUT F_DENUFFCONC S0
CHECKTYPE NORMAL
GROUP 6
END
STRING F_DENUFFCONC 50 48
BEGIN
PROMPT 24 12 ""
FLAGS "D"
GROUP 6
END
NUMBER F_UFFSERV 3
@ -1299,12 +1309,14 @@ BEGIN
OUTPUT F_UFFSERV CODTAB
OUTPUT F_DENUFFSERV S0
CHECKTYPE NORMAL
GROUP 6
END
STRING F_DENUFFSERV 50 48
BEGIN
PROMPT 24 13 ""
FLAGS "D"
GROUP 6
END
GROUPBOX -1 78 4

2
ba/f6.dir
View File

@ -1,3 +1,3 @@
6
1
%anagr|0|0|588|0|Anagrafica persone fisiche e giuridiche|100||
%anagr|0|0|591|0|Anagrafica persone fisiche e giuridiche|100||

3
ba/f6.trr
View File

@ -1,5 +1,5 @@
6
51
52
TIPOA|1|1|0|Tipo Anagrafica (F=Fisica G=Giuridica)
CODANAGR|3|5|0|Codice anagrafica
COFI|1|16|0|Codice fiscale
@ -44,6 +44,7 @@ DVARDF|5|8|0|Data variazione domicilio fiscale per le persone giuridiche
RFDIVERSA|8|1|0|Sede legale diversa da domicilio fiscale
UFFIIDD|9|3|0|Ufficio imposte dirette
UFFIVA|9|3|0|Ufficio IVA
UFFUUE|9|3|0|Ufficio unico delle entrate
TITCF|8|1|0|Titolare di conto fiscale
TIPOSTDEL|2|1|0|Tipo di delega
CODABI|10|5|0|Codice ABI banca