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

Patch level :

Browse Source 
Files correlati     :
Ricompilazione Demo : [ ]
Commento            :


git-svn-id: svn://10.65.10.50/branches/R_10_00@21337 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
luca 2010-12-20 09:31:21 +00:00
parent f04d9078f6
commit 7c132ab381
3 changed files with 133 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ps/ps1001_forn_dippub.h Executable file
View File

@ -0,0 +1,4 @@
#define F_DA_CODCF 201
#define F_DA_RAGSOC 202
#define F_A_CODCF 203
#define F_A_RAGSOC 204

62
ps/ps1001_forn_dippub.rep Executable file
View File

@ -0,0 +1,62 @@
<?xml version="1.0" encoding="UTF-8" ?>
<report name="ps1001_forn_dippub" lpi="6">
<description>Fornitori dipendenti pubblici</description>
<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" />
</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>
</section>
<section type="Body" pattern="1" />
<section type="Body" level="1" pattern="1">
<field x="1" type="Numero" align="right" width="6" pattern="1">
<source>CODCF</source>
</field>
<field x="8" 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>
<field x="82" type="Stringa" width="1" pattern="1">
<source>CFVEN._ALL14</source>
</field>
<field x="84" type="Data" width="10" pattern="1">
<source>CFVEN._ULTAGG14</source>
</field>
<field x="97" type="Stringa" width="1" pattern="1">
<source>CFVEN._ALL15</source>
</field>
<field x="99" type="Data" width="10" pattern="1">
<source>CFVEN._ULTAGG15</source>
</field>
</section>
<section type="Foot" pattern="1">
<font italic="1" face="Arial" bold="1" size="8" />
<field border="1" x="1" y="0.5" type="Linea" width="116" height="0" pattern="1" />
<field x="3" y="1" type="Testo" width="12" pattern="1" text="Data stampa" />
<field x="15" y="1" type="Data" width="10" pattern="1">
<source>#SYSTEM.DATE</source>
</field>
<field x="100" y="1" type="Testo" width="4" pattern="1" text="Pag." />
<field x="104" y="1" type="Numero" align="right" width="3" pattern="1">
<source>#REPORT.PAGE</source>
</field>
</section>
<section type="Foot" level="1" pattern="1" />
<sql>USE CLIFO
SELECT (DIPPUBB="X")
JOIN CFVEN INTO TIPOCF==TIPOCF CODCF==CODCF
FROM TIPOCF=F CODCF=#DACODCF
TO TIPOCF=F CODCF=#ACODCF</sql>
</report>

67
ps/ps1001_forn_dippub.uml Executable file
View File

@ -0,0 +1,67 @@
#include "ps1001_forn_dippub.h"
PAGE "Fornitori dipendenti pubblici" -1 -1 78 5
NUMBER F_DA_CODCF 6
BEGIN
PROMPT 1 1 "Da fornitore "
USE LF_CLIFO
INPUT TIPOCF "F"
INPUT CODCF F_DA_CODCF
DISPLAY "Codice@6R" CODCF
DISPLAY "Sospeso@C" SOSPESO
DISPLAY "Ragione sociale@50" RAGSOC
DISPLAY "Codice fiscale@16" COFI
DISPLAY "Partita IVA@11" PAIV
OUTPUT F_DA_CODCF CODCF
OUTPUT F_DA_RAGSOC RAGSOC
CHECKTYPE NORMAL
FIELD #DACODCF
END
STRING F_DA_RAGSOC 50
BEGIN
PROMPT 25 1 ""
USE LF_CLIFO KEY 2
INPUT TIPOCF "F"
INPUT RAGSOC F_DA_RAGSOC
DISPLAY "Ragione sociale@50" RAGSOC
DISPLAY "Sospeso" SOSPESO
DISPLAY "Codice@R" CODCF
DISPLAY "Codice fiscale@16" COFI
DISPLAY "Partita IVA@11" PAIV
COPY OUTPUT F_DA_CODCF
CHECKTYPE NORMAL
END
NUMBER F_A_CODCF 6
BEGIN
PROMPT 1 2 "A fornitore "
COPY USE F_DA_CODCF
INPUT TIPOCF "F"
INPUT CODCF F_A_CODCF
COPY DISPLAY F_DA_CODCF
OUTPUT F_A_CODCF CODCF
OUTPUT F_A_RAGSOC RAGSOC
CHECKTYPE NORMAL
FIELD #ACODCF
END
STRING F_A_RAGSOC 50
BEGIN
PROMPT 25 2 ""
COPY USE F_DA_RAGSOC
INPUT TIPOCF "F"
INPUT RAGSOC F_A_RAGSOC
COPY DISPLAY F_DA_RAGSOC
COPY OUTPUT F_A_CODCF
CHECKTYPE NORMAL
END
ENDPAGE
TOOLBAR "" 0 0 0 2
#include <printbar.h>
ENDPAGE
ENDMASK