Patch level :
Files correlati : fe0.exe fe0100a.msk Ricompilazione Demo : [ ] Commento : Ultima versione dichiarazione dati rilevanti git-svn-id: svn://10.65.10.50/branches/R_10_00@22406 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy
parent
d5967babb3
commit
b98a473b3d
726
fe/fe0100.cpp
726
fe/fe0100.cpp
File diff suppressed because it is too large
Load Diff
12
fe/fe0100a.h
12
fe/fe0100a.h
@ -1,9 +1,9 @@
|
||||
#define F_DITTA 301
|
||||
#define F_RAGSOCD 302
|
||||
|
||||
#define F_ANNO 303
|
||||
#define F_DESCATT 305
|
||||
#define F_SENDALL 306
|
||||
#define F_ANNO 301
|
||||
#define F_DESCATT 302
|
||||
#define F_SHOWALL 303
|
||||
#define F_SENDALL 304
|
||||
#define F_OUTFOLDER 305
|
||||
#define F_MAXREC 306
|
||||
|
||||
#define F_TIPOCF 310
|
||||
#define F_CODCF 311
|
||||
|
||||
142
fe/fe0100a.uml
142
fe/fe0100a.uml
@ -4,7 +4,8 @@ TOOLBAR "topbar" 0 0 0 2
|
||||
|
||||
BUTTON DLG_OK 2 2
|
||||
BEGIN
|
||||
PROMPT 1 1 "Selezione"
|
||||
PROMPT 1 1 "Aggiorna"
|
||||
PICTURE TOOL_CONVERT
|
||||
END
|
||||
|
||||
BUTTON DLG_SAVEREC 2 2
|
||||
@ -28,14 +29,15 @@ END
|
||||
|
||||
BUTTON DLG_ELABORA 2 2
|
||||
BEGIN
|
||||
PROMPT 1 4 "Genera"
|
||||
PICTURE TOOL_ELABORA
|
||||
PROMPT 1 4 "Invia"
|
||||
PICTURE TOOL_EXPORT
|
||||
END
|
||||
|
||||
BUTTON DLG_EXPORT 2 2
|
||||
BEGIN
|
||||
PROMPT 1 5 "Excel"
|
||||
PICTURE TOOL_EXCEL
|
||||
MODULE rs
|
||||
END
|
||||
|
||||
#include <helpbar.h>
|
||||
@ -44,30 +46,14 @@ ENDPAGE
|
||||
|
||||
PAGE "Dati rilevanti" 0 2 0 0
|
||||
|
||||
GROUPBOX DLG_NULL 78 6
|
||||
GROUPBOX DLG_NULL 78 5
|
||||
BEGIN
|
||||
PROMPT 1 0 "@bDitta"
|
||||
END
|
||||
|
||||
NUMBER F_DITTA 5
|
||||
BEGIN
|
||||
PROMPT 2 1 "Ditta "
|
||||
FLAGS "DF"
|
||||
END
|
||||
|
||||
STRING F_RAGSOCD 50
|
||||
BEGIN
|
||||
PROMPT 15 1 ""
|
||||
USE LF_NDITTE
|
||||
INPUT CODDITTA F_DITTA
|
||||
OUTPUT F_RAGSOCD RAGSOC
|
||||
CHECKTYPE REQUIRED
|
||||
FLAGS "D"
|
||||
PROMPT 1 0 "@bFiltri di visualizzazione"
|
||||
END
|
||||
|
||||
NUMBER F_ANNO 4
|
||||
BEGIN
|
||||
PROMPT 2 2 "Anno "
|
||||
PROMPT 2 1 "Anno "
|
||||
CHECKTYPE REQUIRED
|
||||
FLAGS "AU"
|
||||
GROUP 1
|
||||
@ -75,19 +61,19 @@ BEGIN
|
||||
WARNING "Anno non valido"
|
||||
END
|
||||
|
||||
BOOLEAN F_SENDALL
|
||||
LIST F_SHOWALL 1 25
|
||||
BEGIN
|
||||
PROMPT 15 2 "Invia anche operazioni escluse dall'obbligo di comunicazione"
|
||||
END
|
||||
|
||||
GROUPBOX DLG_NULL 78 4
|
||||
BEGIN
|
||||
PROMPT 1 6 "@bFiltro su selezione"
|
||||
PROMPT 33 1 "Mostra movimenti "
|
||||
ITEM "1|Rilevanti"
|
||||
ITEM "2|NON rilevanti"
|
||||
ITEM "4|Scartati"
|
||||
ITEM "7|Tutti"
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
LIST F_TIPOCF 1 10
|
||||
BEGIN
|
||||
PROMPT 2 7 ""
|
||||
PROMPT 2 2 ""
|
||||
ITEM "C|Cliente"
|
||||
ITEM "F|Fornitore"
|
||||
GROUP 1
|
||||
@ -95,8 +81,8 @@ END
|
||||
|
||||
NUMBER F_CODCF 6
|
||||
BEGIN
|
||||
PROMPT 16 7 ""
|
||||
USE CLIFO
|
||||
PROMPT 16 2 ""
|
||||
USE LF_CLIFO
|
||||
INPUT TIPOCF F_TIPOCF SELECT
|
||||
INPUT CODCF F_CODCF
|
||||
DISPLAY "Codice" CODCF
|
||||
@ -109,10 +95,10 @@ BEGIN
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
STRING F_RAGSOC 50
|
||||
STRING F_RAGSOC 50 49
|
||||
BEGIN
|
||||
PROMPT 26 7 ""
|
||||
USE CLIFO KEY 2
|
||||
PROMPT 26 2 ""
|
||||
USE LF_CLIFO KEY 2
|
||||
INPUT TIPOCF F_TIPOCF SELECT
|
||||
INPUT RAGSOC F_RAGSOC
|
||||
DISPLAY "Ragione Sociale@50" RAGSOC
|
||||
@ -123,29 +109,30 @@ END
|
||||
|
||||
STRING F_OCFPI 16
|
||||
BEGIN
|
||||
PROMPT 2 8 "Occ."
|
||||
USE OCCAS
|
||||
PROMPT 2 3 "Occ."
|
||||
USE LF_OCCAS
|
||||
INPUT CFPI F_OCFPI
|
||||
DISPLAY "Codice@16" CFPI
|
||||
DISPLAY "Ragione Sociale@50" RAGSOC
|
||||
OUTPUT F_OCFPI CFPI
|
||||
OUTPUT F_RAGOCC RAGSOC
|
||||
CHEKTYPE NORMAL
|
||||
ADD RUN cg0 -6
|
||||
GROUP 1
|
||||
MESSAGE EMPTY SHOW,F_RAGSOC|HIDE,F_RAGOCC
|
||||
MESSAGE HIDE,F_RAGSOC|SHOW,F_RAGOCC
|
||||
END
|
||||
|
||||
STRING F_RAGOCC 50
|
||||
STRING F_RAGOCC 50 49
|
||||
BEGIN
|
||||
PROMPT 26 8 ""
|
||||
PROMPT 26 3 ""
|
||||
FLAGS "H"
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
SPREADSHEET F_RIGHE
|
||||
BEGIN
|
||||
PROMPT 0 10 ""
|
||||
PROMPT 0 5 ""
|
||||
ITEM "Riga@6F"
|
||||
ITEM "Non\nInv.@2@F"
|
||||
ITEM "C/F@2F"
|
||||
@ -165,24 +152,69 @@ BEGIN
|
||||
ITEM "N. Reg.\nrettif.@7"
|
||||
ITEM "Partita IVA@15"
|
||||
ITEM "Codice Fiscale@17"
|
||||
DEFAULT "*" // Impedisce il salvataggio su profilo .ini
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
PAGE "Opzioni" 0 2 0 0
|
||||
|
||||
GROUPBOX DLG_NULL 78 5
|
||||
BEGIN
|
||||
PROMPT 1 1 "@bFiltri per invio"
|
||||
END
|
||||
|
||||
LIST F_SENDALL 1 25
|
||||
BEGIN
|
||||
PROMPT 2 2 "Movimenti "
|
||||
ITEM "1|Rilevanti"
|
||||
ITEM "7|Tutti"
|
||||
END
|
||||
|
||||
STRING F_OUTFOLDER 255 50
|
||||
BEGIN
|
||||
PROMPT 2 3 "Cartella "
|
||||
DSELECT
|
||||
CHECKTYPE REQUIRED
|
||||
WARNING "Specificare una cartella di destinazione valida"
|
||||
END
|
||||
|
||||
NUMBER F_MAXREC 5
|
||||
BEGIN
|
||||
PROMPT 2 4 "Numero massimo di record per file "
|
||||
NUM_EXPR (#THIS_FIELD>=100)&&(#THIS_FIELD<=15000)
|
||||
FLAGS "U"
|
||||
CHECKTYPE REQUIRED
|
||||
WARNING "Specificare una valore compreso tra 100 e 15000"
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
ENDMASK
|
||||
|
||||
PAGE "Riga" -1 -1 69 13
|
||||
|
||||
NUMBER A_RIGA 7
|
||||
BEGIN
|
||||
PROMPT 1 1 "Numero progressivo "
|
||||
PROMPT 1 0 "Numero progressivo "
|
||||
FLAGS "D"
|
||||
FIELD PROGR
|
||||
END
|
||||
|
||||
BOOLEAN A_IGNORA
|
||||
LIST A_IGNORA 2 55
|
||||
BEGIN
|
||||
PROMPT 31 1 "Esclusa da invio"
|
||||
PROMPT 1 1 "Non inv."
|
||||
ITEM "| 0. Rilevante al fine della dichiarazione"
|
||||
ITEM "1| 1. Importo inferiore al limite della comunicazione"
|
||||
ITEM "2| 2. Soggetto con codice nullo"
|
||||
ITEM "3| 3. Soggetto da non inserire in allegato"
|
||||
ITEM "4| 4. Soggetto residente in stato a fiscalità agevolata"
|
||||
ITEM "5| 5. Soggetto residente all'estero"
|
||||
ITEM "6| 6. Movimento intra"
|
||||
ITEM "7| 7. Data movimento fuori dai limiti della comunicazione"
|
||||
ITEM "8| 8. Soggetto all'articolo 8 (del dpr 26-10-1972)"
|
||||
ITEM "9| 9. Passaggi interni"
|
||||
ITEM "10|10. Altri motivi"
|
||||
FIELD IGNORA
|
||||
END
|
||||
|
||||
@ -197,7 +229,7 @@ END
|
||||
NUMBER A_CODCF 6
|
||||
BEGIN
|
||||
PROMPT 17 2 ""
|
||||
USE CLIFO
|
||||
USE LF_CLIFO
|
||||
INPUT TIPOCF A_TIPOCF SELECT
|
||||
INPUT CODCF A_CODCF
|
||||
DISPLAY "Codice" CODCF
|
||||
@ -207,13 +239,14 @@ BEGIN
|
||||
DISPLAY "Codice fiscale@16" COFI
|
||||
OUTPUT A_CODCF CODCF
|
||||
CHEKTYPE REQUIRED
|
||||
ADD RUN cg0 -1
|
||||
FIELD CODCF
|
||||
END
|
||||
|
||||
STRING A_OCFPI 16
|
||||
BEGIN
|
||||
PROMPT 34 2 "Occasionale "
|
||||
USE OCCAS
|
||||
USE LF_OCCAS
|
||||
INPUT CFPI A_OCFPI
|
||||
DISPLAY "Codice@16" CFPI
|
||||
DISPLAY "Ragione Sociale@50" RAGSOC
|
||||
@ -222,6 +255,7 @@ BEGIN
|
||||
OUTPUT A_OCFPI CFPI
|
||||
CHEKTYPE NORMAL
|
||||
GROUP 3
|
||||
ADD RUN cg0 -6
|
||||
FIELD OCFPI
|
||||
END
|
||||
|
||||
@ -254,7 +288,7 @@ NUMBER A_NUMREG 7
|
||||
BEGIN
|
||||
PROMPT 41 5 "N. operazione "
|
||||
FIELD NUMREG
|
||||
USE MOV SELECT (TIPO==#A_TIPOCF)&&(BETWEEN(CODCF,#A_CODCF,#A_CODCF))
|
||||
USE LF_MOV SELECT (TIPO==#A_TIPOCF)&&(BETWEEN(CODCF,#A_CODCF,#A_CODCF))
|
||||
JOIN LF_CLIFO INTO TIPOCF==TIPO CODCF==CODCF
|
||||
INPUT NUMREG A_NUMREG
|
||||
DISPLAY "Numero@7" NUMREG
|
||||
@ -265,6 +299,8 @@ BEGIN
|
||||
OUTPUT A_NUMREG NUMREG
|
||||
CHECKTYPE NORMAL
|
||||
ADD RUN cg2 -0
|
||||
MESSAGE EMPTY DISABLE,DLG_USER
|
||||
MESSAGE ENABLE,DLG_USER
|
||||
END
|
||||
|
||||
LIST A_MODPAG 1 20
|
||||
@ -346,9 +382,9 @@ BEGIN
|
||||
INPUT NUMREG A_NUMRETT
|
||||
COPY DISPLAY A_NUMREG
|
||||
OUTPUT A_NUMRETT NUMREG
|
||||
CHECKTYPE NORMAL
|
||||
CHECKTYPE SEARCH
|
||||
ADD RUN cg2 -0
|
||||
NUM_EXPR (#A_NUMRETT=0)||(#A_NUMRETT!=#A_NUMREG)
|
||||
NUM_EXPR (#A_NUMRETT=0)||(#A_NUMRETT=9999999)||(#A_NUMRETT!=#A_NUMREG)
|
||||
WARNING "Inserire un numero registrazione diverso da quello principale"
|
||||
END
|
||||
|
||||
@ -361,14 +397,20 @@ BEGIN
|
||||
PROMPT 1 1 ""
|
||||
END
|
||||
|
||||
BUTTON DLG_USER 2 2
|
||||
BEGIN
|
||||
PROMPT 2 1 "Collega"
|
||||
PICTURE TOOL_LINK
|
||||
END
|
||||
|
||||
BUTTON DLG_DELREC 2 2
|
||||
BEGIN
|
||||
PROMPT 2 1 ""
|
||||
PROMPT 3 1 ""
|
||||
END
|
||||
|
||||
BUTTON DLG_CANCEL 2 2
|
||||
BEGIN
|
||||
PROMPT 3 1 ""
|
||||
PROMPT 4 1 ""
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
@ -135,13 +135,6 @@ TMask* TFE_table_app::user_create_mask()
|
||||
else
|
||||
m = TTable_module_application::user_create_mask();
|
||||
|
||||
if (m != NULL)
|
||||
{
|
||||
TString str; m->get_caption(str);
|
||||
if (str.full())
|
||||
main_app().set_title(str);
|
||||
}
|
||||
|
||||
return m;
|
||||
}
|
||||
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user