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

fe/fe0100a.h

@@ -1,9 +1,9 @@
-#define F_DITTA     301
+#define F_ANNO      301
-#define F_RAGSOCD   302
+#define F_DESCATT   302
-
+#define F_SHOWALL   303
-#define F_ANNO      303
+#define F_SENDALL   304
-#define F_DESCATT   305
+#define F_OUTFOLDER 305
-#define F_SENDALL   306
+#define F_MAXREC    306
 
 #define F_TIPOCF    310
 #define F_CODCF     311

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"
+  PROMPT 1 4 "Invia"
-  PICTURE TOOL_ELABORA
+  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"
+  PROMPT 1 0 "@bFiltri di visualizzazione"
-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"
 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"
+  PROMPT 33 1 "Mostra movimenti "
-END
+  ITEM "1|Rilevanti"
-
+  ITEM "2|NON rilevanti"
-GROUPBOX DLG_NULL 78 4
+  ITEM "4|Scartati"
-BEGIN
+  ITEM "7|Tutti"
-  PROMPT 1 6 "@bFiltro su selezione"
+  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 ""
+  PROMPT 16 2 ""
-  USE CLIFO
+  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 ""
+  PROMPT 26 2 ""
-  USE CLIFO KEY 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."
+  PROMPT 2 3 "Occ."
-  USE OCCAS
+  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,6 +152,40 @@ 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
@@ -175,14 +196,25 @@ 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

fe/fe0200.cpp

@@ -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;
 }