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

Patch level :10.0

Browse Source 
Files correlati     :
Ricompilazione Demo : [ ]
Commento            :
stampa dipendenti pubblici di dinamica


git-svn-id: svn://10.65.10.50/branches/R_10_00@21536 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
luca 2011-01-28 11:59:19 +00:00
parent 2603a9d6bc
commit bd6cd28ca8
3 changed files with 134 additions and 26 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
ps/ps1001_forn_dippub.h
View File

@ -1,4 +1,10 @@
#define F_DA_CODCF 201
#define F_DA_RAGSOC 202
#define F_A_CODCF 203
#define F_A_RAGSOC 204
#define F_FIRM 201
#define F_DESFIRM 202
#define F_DA_CODCF 203
#define F_DA_RAGSOC 204
#define F_A_CODCF 205
#define F_A_RAGSOC 206
#define F_CODENTE 207
#define F_DESCRENTE 208
#define F_DA_DATA 209
#define F_A_DATA 210

61
ps/ps1001_forn_dippub.rep
View File

@ -4,40 +4,68 @@
<font face="Arial" size="8" />
<section type="Head" pattern="1">
<font italic="1" face="Arial" bold="1" size="8" />
<field x="1" y="0.5" type="Testo" width="10" pattern="1" text="Fornitore" />
<field x="44" y="0.5" type="Testo" width="10" pattern="1" text="Ente" />
<field x="82" y="0.5" type="Testo" width="10" pattern="1" text="Allegato 14" />
<field x="97" y="0.5" type="Testo" width="10" pattern="1" text="Allegato 15" />
<field border="1" x="1" y="1.5" type="Linea" width="116" height="0" pattern="1" />
<field x="2" type="Testo" width="15" pattern="1" text="Ente pubblico" />
<field x="3" y="1" type="Testo" width="10" pattern="1" text="Fornitore" />
<field x="47" y="1" type="Testo" width="10" pattern="1" text="Percipiente" />
<field x="60" y="1" type="Testo" width="10" pattern="1" text="Allegato 14" />
<field x="75" y="1" type="Testo" width="10" pattern="1" text="Allegato 15" />
<field border="1" x="1" y="2" type="Linea" width="116" height="0" pattern="1" />
</section>
<section type="Head" level="1" pattern="1">
<field border="1" radius="50" x="27" y="0.5" type="Testo" valign="center" align="center" shade_offset="50" width="60" height="2" pattern="2" text="FORNITORI DIPENDENTI PUBBLICI">
<font face="Arial" bold="1" size="12" />
</field>
<field x="1" y="3.5" type="Testo" width="30" pattern="1" text="Pagamenti effettuati nel periodo:">
<font face="Arial" bold="1" size="8" />
</field>
<field x="1" y="4.5" type="Testo" width="5" pattern="1" text="Dal:" />
<field x="6" y="4.5" type="Data" width="10" pattern="1">
<font face="Arial" bold="1" size="8" />
<source>#DADATA</source>
</field>
<field x="18" y="4.5" type="Testo" width="4" pattern="1" text="Al:" />
<field x="22" y="4.5" type="Data" width="10" pattern="1">
<font face="Arial" bold="1" size="8" />
<source>#DADATA</source>
</field>
<field border="1" x="1" y="5.5" type="Linea" width="116" height="0" pattern="1" />
</section>
<section type="Head" level="2" pattern="1">
<groupby>ENTE</groupby>
<font face="Arial" bold="1" size="8" />
<field border="1" x="1" y="1.75" type="Linea" width="116" height="0" pattern="1" />
<field x="2" y="0.5" type="Stringa" width="4" id="101" pattern="1">
<source>ENTE</source>
</field>
<field x="8" y="0.5" type="Stringa" width="50" id="102" pattern="1">
<prescript description="H2.102 PRESCRIPT">MESSAGE _TABLEREAD,%ENP,#101,S0</prescript>
</field>
</section>
<section type="Body" pattern="1" />
<section type="Body" level="1" pattern="1">
<field x="1" type="Numero" align="right" width="6" pattern="1">
<field x="3" type="Numero" align="right" width="6" pattern="1">
<source>CODCF</source>
</field>
<field x="8" type="Stringa" width="35" pattern="1">
<field x="10" type="Stringa" width="35" pattern="1">
<font face="Arial Narrow" size="8" />
<source>RAGSOC</source>
</field>
<field x="44" type="Stringa" width="35" pattern="1">
<font face="Arial Narrow" size="8" />
<source>ENTE</source>
<field x="47" type="Stringa" width="1" pattern="1">
<source>TIPOAPER</source>
</field>
<field x="82" type="Stringa" width="1" pattern="1">
<field x="49" type="Numero" align="right" width="5" pattern="1">
<source>CODANAGPER</source>
</field>
<field x="60" type="Stringa" width="1" pattern="1">
<source>CFVEN._ALL14</source>
</field>
<field x="84" type="Data" width="10" pattern="1">
<field x="62" type="Data" width="10" pattern="1">
<source>CFVEN._ULTAGG14</source>
</field>
<field x="97" type="Stringa" width="1" pattern="1">
<field x="75" type="Stringa" width="1" pattern="1">
<source>CFVEN._ALL15</source>
</field>
<field x="99" type="Data" width="10" pattern="1">
<field x="77" type="Data" width="10" pattern="1">
<source>CFVEN._ULTAGG15</source>
</field>
</section>
@ -54,8 +82,11 @@
</field>
</section>
<section type="Foot" level="1" pattern="1" />
<section type="Foot" level="2" pattern="1" />
<sql>USE CLIFO
SELECT (DIPPUBB="X")
SELECT (DIPPUBB="X")&#26;&#26;(BETWEEN(RPAG.DATAPAG,#DADATA,#ADATA))&#26;&#26;(BETWEEN(ENTE,#ENTE,#ENTE))
BY ENTE CODCF
JOIN RPAG INTO CODDITTA=#DITTA TIPOA==TIPOAPER CODANAGR==CODANAGPER
JOIN CFVEN INTO TIPOCF==TIPOCF CODCF==CODCF
FROM TIPOCF=F CODCF=#DACODCF
TO TIPOCF=F CODCF=#ACODCF</sql>

85
ps/ps1001_forn_dippub.uml
View File

@ -1,11 +1,38 @@
#include "ps1001_forn_dippub.h"
PAGE "Fornitori dipendenti pubblici" -1 -1 78 5
PAGE "Fornitori dipendenti pubblici" -1 -1 78 12
GROUPBOX DLG_NULL 76 3
BEGIN
PROMPT 1 1 "@bDitta"
END
NUMBER F_FIRM 5
BEGIN
PROMPT 2 2 ""
USE LF_NDITTE
INPUT CODDITTA F_FIRM
OUTPUT F_DESFIRM RAGSOC
CHECKTYPE REQUIRED
FLAGS "DF"
FIELD #DITTA
END
STRING F_DESFIRM 50
BEGIN
PROMPT 12 2 ""
FLAGS "D"
END
GROUPBOX DLG_NULL 76 5
BEGIN
PROMPT 1 4 "@bSelezione sui fornitori"
END
NUMBER F_DA_CODCF 6
BEGIN
PROMPT 1 1 "Da fornitore "
USE LF_CLIFO
PROMPT 2 5 "Dal "
USE LF_CLIFO SELECT DIPPUBB=="X"
INPUT TIPOCF "F"
INPUT CODCF F_DA_CODCF
DISPLAY "Codice@6R" CODCF
@ -21,8 +48,8 @@ END
STRING F_DA_RAGSOC 50
BEGIN
PROMPT 25 1 ""
USE LF_CLIFO KEY 2
PROMPT 20 5 ""
USE LF_CLIFO KEY 2 SELECT DIPPUBB=="X"
INPUT TIPOCF "F"
INPUT RAGSOC F_DA_RAGSOC
DISPLAY "Ragione sociale@50" RAGSOC
@ -36,7 +63,7 @@ END
NUMBER F_A_CODCF 6
BEGIN
PROMPT 1 2 "A fornitore "
PROMPT 2 6 "Al "
COPY USE F_DA_CODCF
INPUT TIPOCF "F"
INPUT CODCF F_A_CODCF
@ -49,7 +76,7 @@ END
STRING F_A_RAGSOC 50
BEGIN
PROMPT 25 2 ""
PROMPT 20 6 ""
COPY USE F_DA_RAGSOC
INPUT TIPOCF "F"
INPUT RAGSOC F_A_RAGSOC
@ -58,6 +85,50 @@ BEGIN
CHECKTYPE NORMAL
END
STRING F_CODENTE 4
BEGIN
PROMPT 2 7 "Ente "
HELP "Codice ente pubblico"
FLAGS "UZ"
USE %ENP
INPUT CODTAB F_CODENTE
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione @50" S0
OUTPUT F_CODENTE CODTAB
OUTPUT F_DESCRENTE S0
CHECKTYPE NORMAL
FIELD #ENTE
END
STRING F_DESCRENTE 50
BEGIN
PROMPT 20 7 ""
HELP "Descrizione ente pubblico"
USE %ENP KEY 2
INPUT S0 F_DESCRENTE
DISPLAY "Descrizione @50" S0
DISPLAY "Codice" CODTAB
COPY OUTPUT F_CODENTE
CHECKTYPE NORMAL
END
GROUPBOX DLG_NULL 76 3
BEGIN
PROMPT 1 9 "@bPagamenti percipiente"
END
DATE F_DA_DATA
BEGIN
PROMPT 2 10 "Dal "
FIELD #DADATA
END
DATE F_A_DATA
BEGIN
PROMPT 20 10 "Al "
FIELD #ADATA
END
ENDPAGE
TOOLBAR "" 0 0 0 2