diff --git a/m770/772200a.h b/m770/772200a.h new file mode 100755 index 000000000..c3e1c6a3d --- /dev/null +++ b/m770/772200a.h @@ -0,0 +1,13 @@ +#define F_CODDITTA 101 +#define F_RAGSOC 102 +#define F_DATA 103 +#define F_LUOGO 104 +#define F_ATTESTA 105 +#define F_ANNO 107 +#define F_TIPODA 108 +#define F_CODDA 109 +#define F_RAGDA 110 +#define F_TIPOA 111 +#define F_CODA 112 +#define F_RAGA 113 + diff --git a/m770/772200a.rep b/m770/772200a.rep new file mode 100755 index 000000000..771d87a00 --- /dev/null +++ b/m770/772200a.rep @@ -0,0 +1,263 @@ + + + Certificazioni + +
+
+
+ CODANAGR + MESSAGE RESET,F2.101 +MESSAGE RESET,F2.102 +MESSAGE RESET,F2.103 +MESSAGE RESET,F2.104 +MESSAGE RESET,F2.105 + + + + + + + + + ANAGR.RAGSOC + + + + IF(#101='',ANAGR.CIVRES,ANAGR.CIVRF) + + + IF(#101='',ANAGR.CAPRES,ANAGR.CAPRF) + + + + COMUNI.DENCOM + + + + COMUNI.PROVCOM + + + + + + MESSAGE ISAMREAD,ANAFIS,CODANAGR=CODANAGR,DATANASC + + + + MESSAGE ISAMREAD,COMUNI,COM=#102,DENCOM + + + + ANAGR.COFI + + + + ANAGR.PAIV + + + + + #ANNO + + + + + #ATTESTA + + + + #LUOGO + + + + #DATA + + + + + + + #ANNO + + + + + + + + + + + + + + + + + + + + + + + + IF(#101='',ANAGR.INDRES,ANAGR.INDRF) + + + + MESSAGE ISAMREAD,COMUNI,COM=#201,DENCOM + + + MESSAGE ISAMREAD,COMUNI,COM=#201,PROVCOM + +
+ +
+ +
+
+
+ + + + + + + + + + + MESSAGE ISAMREAD,NDITTE,CODDITTA=CODDITTA,RAGSOC + + + + + + + + + + + + + + + + + + + + + + + + + + MESSAGE ISAMREAD,ANAGR,TIPOA=#199!CODANAGR=#198,INDRES + + + MESSAGE ISAMREAD,ANAGR,TIPOA=#199!CODANAGR=#198,CIVRES + + + MESSAGE ISAMREAD,ANAGR,TIPOA=#199!CODANAGR=#198,CAPRES + + + + MESSAGE ISAMREAD,COMUNI,COM=#206,DENCOM + + + MESSAGE ISAMREAD,COMUNI,COM=#206,PROVCOM + + + MESSAGE ISAMREAD,ANAGR,TIPOA=#199!CODANAGR=#198,COFI + + + MESSAGE ISAMREAD,ANAGR,TIPOA=#199!CODANAGR=#198,PAIV + +
+
+ + + + + MESSAGE ADD,F2.101 + + + MESSAGE ADD,F2.102 + + + MESSAGE ADD,F2.103 + + + MESSAGE ADD,F2.104 + + + MESSAGE ADD,F2.105 + + +
+ USE RPAG +SELECT DATAPAG[1,4]=#ANNO +BY CODDITTA TIPOA CODANAGR SCHPER.CODCAUS +JOIN SCHPER INTO CODDITTA==CODDITTA TIPOA==TIPOA CODANAGR==CODANAGR NPROG==NPROG +JOIN ANAGR INTO TIPOA==TIPOA CODANAGR==CODANAGR +JOIN COMUNI TO ANAGR INTO COM==COMRF(COMRES) +FROM CODDITTA=#CODDITTA TIPOA=#TIPODA CODANAGR=#CODANAGRDA +TO CODDITTA=#CODDITTA TIPOA=#TIPOA CODANAGR=#CODANAGRA + \ No newline at end of file diff --git a/m770/772200a.uml b/m770/772200a.uml index b6d4adb36..ff069f67a 100755 --- a/m770/772200a.uml +++ b/m770/772200a.uml @@ -1,7 +1,7 @@ // 772200a.uml -// Stampa certificazioni +// Stampa certificazioni dettagliate -#include "772200.h" +#include "772200a.h" TOOLBAR "topbar" 0 0 0 2 #include @@ -11,18 +11,19 @@ PAGE "Stampa certificazioni" 0 2 0 0 GROUPBOX DLG_NULL 78 3 BEGIN - PROMPT 1 0 "" + PROMPT 1 0 "" END NUMBER F_CODDITTA 5 BEGIN PROMPT 3 1 "Ditta " - FLAGS "GRD" + FLAGS "FD" USE LF_NDITTE KEY 1 CHECKTYPE REQUIRED INPUT CODDITTA F_CODDITTA OUTPUT F_CODDITTA CODDITTA OUTPUT F_RAGSOC RAGSOC + FIELD CODDITTA END STRING F_RAGSOC 50 @@ -35,35 +36,34 @@ DATE F_DATA BEGIN PROMPT 3 3 "Data " FLAGS "A" + FIELD DATA END STRING F_LUOGO 50 36 BEGIN PROMPT 33 3 "Luogo " + FIELD LUOGO END NUMBER F_ATTESTA 5 BEGIN PROMPT 3 4 "N.Attestazione " FLAGS "R" + FIELD ATTESTA END -LISTBOX F_DA 10 +NUMBER F_ANNO 4 BEGIN - PROMPT 3 6 "Periodo: Da " - FLAGS "M" -END - -LISTBOX F_A 10 -BEGIN - PROMPT 37 6 "A " - FLAGS "M" + PROMPT 3 5 "Anno " + CHECKTYPE REQUIRED + FIELD ANNO END STRING F_TIPODA 1 BEGIN PROMPT 3 8 "Da codice " FLAGS "U" + FIELD TIPODA END TEXT DLG_NULL @@ -75,10 +75,10 @@ NUMBER F_CODDA 5 BEGIN PROMPT 24 8 "" HELP "Codice anagrafico del percipiente da cui iniziare la stampa" - USE LF_PERC KEY 1 SELECT (CODDITTA=#F_CODDITTA) + USE LF_PERC JOIN LF_ANAG TO LF_PERC INTO TIPOA=TIPOA CODANAGR=CODANAGR - CHECKTYPE NORMAL - INPUT CODDITTA F_CODDITTA + CHECKTYPE SEARCH + INPUT CODDITTA F_CODDITTA SELECT INPUT TIPOA F_TIPODA INPUT CODANAGR F_CODDA DISPLAY "Tipo" TIPOA @@ -88,6 +88,7 @@ BEGIN OUTPUT F_CODDA CODANAGR OUTPUT F_RAGDA LF_ANAG->RAGSOC WARNING "Percipiente inesistente" + FIELD CODANAGRDA END STRING F_RAGDA 50 @@ -100,6 +101,7 @@ STRING F_TIPOA 1 BEGIN PROMPT 3 10 "A codice " FLAGS "U" + FIELD TIPOA END TEXT DLG_NULL @@ -111,20 +113,16 @@ NUMBER F_CODA 5 BEGIN PROMPT 24 10 "" HELP "Codice anagrafico del percipiente" - USE LF_PERC KEY 1 SELECT (CODDITTA=#F_CODDITTA) - JOIN LF_ANAG TO LF_PERC INTO TIPOA=TIPOA CODANAGR=CODANAGR - CHECKTYPE NORMAL - INPUT CODDITTA F_CODDITTA + COPY USE F_CODDA + CHECKTYPE SEARCH + INPUT CODDITTA F_CODDITTA SELECT INPUT TIPOA F_TIPOA INPUT CODANAGR F_CODA - DISPLAY "Tipo" TIPOA - DISPLAY "Codice" CODANAGR - DISPLAY "Ragione Sociale@50" LF_ANAG->RAGSOC + COPY DISPLAY F_CODDA OUTPUT F_TIPOA TIPOA OUTPUT F_CODA CODANAGR OUTPUT F_RAGA LF_ANAG->RAGSOC - NUM_EXPR {(#F_CODA==0)||(#F_CODA>=#F_CODDA)} - WARNING "Limite superiore errato" + FIELD CODANAGRA END STRING F_RAGA 50 @@ -133,24 +131,6 @@ BEGIN FLAGS "D" END -BOOLEAN F_MODULO -BEGIN - PROMPT 3 13 "Stampa su modulo " - FLAGS "GH" // Per ora lo ignoriamo - MESSAGE TRUE SHOW,F_LUNG|"8",F_LUNG|SHOW,F_INPS - MESSAGE FALSE HIDE,F_LUNG|HIDE,F_INPS -END - -NUMBER F_LUNG 1 -BEGIN - PROMPT 28 13 "Margine di lunghezza " -END - -BOOLEAN F_INPS -BEGIN - PROMPT 28 14 "Stampa importo contributi previdenziali" -END - ENDPAGE ENDMASK diff --git a/m770/772500a.rep b/m770/772500a.rep index 062c9268e..13cd27897 100755 --- a/m770/772500a.rep +++ b/m770/772500a.rep @@ -18,6 +18,7 @@ MESSAGE RESET,F2.105 + ANAGR.RAGSOC @@ -54,11 +55,13 @@ MESSAGE RESET,F2.105 ANAGR.PAIV - + + #ANNO + #ATTESTA @@ -69,10 +72,10 @@ MESSAGE RESET,F2.105 #DATA - + - + #ANNO @@ -120,7 +123,9 @@ MESSAGE RESET,F2.105 DATAPAG - + + RPAG.PERC + SCHPER.CODCAUS @@ -160,17 +165,18 @@ MESSAGE RESET,F2.105 - + - + + MESSAGE ISAMREAD,NDITTE,CODDITTA=CODDITTA,RAGSOC - + - - + + @@ -202,13 +208,13 @@ MESSAGE RESET,F2.105 MESSAGE ISAMREAD,ANAGR,TIPOA=#199!CODANAGR=#198,CAPRES -
USE RPAG SELECT DATAPAG[1,4]=#ANNO +BY CODDITTA TIPOA CODANAGR SCHPER.CODCAUS JOIN SCHPER INTO CODDITTA==CODDITTA TIPOA==TIPOA CODANAGR==CODANAGR NPROG==NPROG JOIN ANAGR INTO TIPOA==TIPOA CODANAGR==CODANAGR JOIN COMUNI TO ANAGR INTO COM==COMRF(COMRES) diff --git a/m770/77menu.men b/m770/77menu.men index 29179057e..f4c6923c1 100755 --- a/m770/77menu.men +++ b/m770/77menu.men @@ -17,7 +17,8 @@ Module = 0 Flags = "" Item_01 = "Selezione stampa", "776mod -2", "" Item_02 = "Schede percipienti", "772mod -0 D", "" -Item_03 = "Certificazioni", "772mod -1 D", "" -Item_04 = "Lista movimenti percipienti", "772mod -2 D", "" +Item_03 = "Certificazioni", "ba8 -4 772200a", "F" +Item_04 = "Certificazioni dettagliate", "ba8 -4 772500a", "F" +Item_05 = "Lista movimenti percipienti", "772mod -2 D", ""