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

Patch level :2.2 010

Browse Source 
Files correlati     :
Ricompilazione Demo : [ ]
Commento            :aggiunte maschere e report di stampa per attrezzature e risorse


git-svn-id: svn://10.65.10.50/trunk@13152 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
luca 2005-05-25 12:08:51 +00:00
parent 520f73114a
commit b4c3ae4090
4 changed files with 322 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

109
ve/vestatr.rep Executable file
View File

@ -0,0 +1,109 @@
<report name="vestatr" lpi="6">
<description>tabella attrezzature</description>
<font face="Courier New" size="10" />
<section type="Head">
<field type="Stringa" width="50" pattern="1">
<font italic="1" face="Courier New" bold="1" size="10" />
<source>#SYSTEM.RAGSOC</source>
</field>
<field y="1" type="Testo" valign="center" align="center" width="80" height="2" pattern="1" text="Tabella Attrezzature">
<font face="Courier New" bold="1" size="14" />
</field>
<field border="2" x="1" y="3.5" type="Linea" width="78" height="0" />
<field x="2" y="4" type="Testo" width="6" pattern="1" text="Codice">
<font face="Courier New" bold="1" size="10" />
</field>
<field x="20" y="4" type="Testo" width="12" pattern="1" text="Descrizione">
<font face="Courier New" bold="1" size="10" />
</field>
<field x="74" y="4" type="Testo" width="3" pattern="1" text="IVA">
<font face="Courier New" bold="1" size="10" />
</field>
<field x="2" y="5" type="Testo" width="9" pattern="1" text="Quantita'">
<font face="Courier New" bold="1" size="10" />
</field>
<field x="16" y="5" type="Testo" width="2" pattern="1" text="UM">
<font face="Courier New" bold="1" size="10" />
</field>
<field x="21" y="5" type="Testo" width="7" pattern="1" text="Tp.riga">
<font face="Courier New" bold="1" size="10" />
</field>
<field x="30" y="5" type="Testo" width="11" pattern="1" text="Prest.fatt.">
<font face="Courier New" bold="1" size="10" />
</field>
<field x="44" y="5" type="Testo" width="11" pattern="1" text="Dismissione">
<font face="Courier New" bold="1" size="10" />
</field>
<field x="58" y="5" type="Testo" width="6" pattern="1" text="Valuta">
<font face="Courier New" bold="1" size="10" />
</field>
<field x="72" y="5" type="Testo" width="6" pattern="1" text="Prezzo">
<font face="Courier New" bold="1" size="10" />
</field>
<field x="2" y="6" type="Testo" width="14" pattern="1" text="Conto acquisti">
<font face="Courier New" bold="1" size="10" />
</field>
<field border="2" x="1" y="7.5" type="Linea" width="78" height="0" />
</section>
<section type="Head" level="1" />
<section type="Body" />
<section type="Body" level="1">
<field x="2" type="Stringa" link="ATR.CODTAB[1,16]" width="16" pattern="1">
<source>CODTAB[1,16]</source>
</field>
<field x="20" type="Stringa" width="50" pattern="1">
<source>S0</source>
</field>
<field x="74" type="Stringa" width="4" pattern="1">
<source>S3[1,4]</source>
</field>
<field y="1" type="Numero" align="right" width="13" pattern="1">
<source>R1[1,13]</source>
</field>
<field x="16" y="1" type="Stringa" width="2" pattern="1">
<source>S7[1,2]</source>
</field>
<field x="21" y="1" type="Stringa" width="4" pattern="1">
<source>S8[1,4]</source>
</field>
<field x="30" y="1" type="Stringa" width="8" pattern="1">
<source>S5[1,8]</source>
</field>
<field x="44" y="1" type="Data" width="10" pattern="1">
<source>D0</source>
</field>
<field x="58" y="1" type="Stringa" width="4" pattern="1">
<source>S4[1,4]</source>
</field>
<field x="63" y="1" type="Numero" align="right" width="15" pattern="1">
<source>R0[1,15]</source>
</field>
<field x="2" y="2" type="Numero" align="right" width="3" pattern="1">
<source>I3[1,3]</source>
</field>
<field x="6" y="2" type="Numero" align="right" width="3" pattern="1">
<source>I4[1,3]</source>
</field>
<field x="10" y="2" type="Numero" align="right" width="6" pattern="1">
<source>I5[1,6]</source>
</field>
<field x="17" y="2" type="Stringa" width="50" pattern="1">
<source>300@.DESCR</source>
</field>
<field border="1" x="1" y="3.5" type="Linea" width="78" height="0" />
</section>
<section type="Foot" height="3">
<field border="2" x="1" y="0.5" type="Linea" width="93" height="0" />
<field x="2" y="1" type="Data" width="10">
<source>#SYSTEM.DATE</source>
</field>
<field x="90" y="1" type="Numero" align="right" width="3">
<source>#PAGE</source>
</field>
<field border="2" x="1" y="2.5" type="Linea" width="93" height="0" />
</section>
<section type="Foot" level="1" />
<sql>USE ATR
JOIN PCON ALIAS 300 INTO GRUPPO==I3 CONTO==I4 SOTTOCONTO==I5</sql>
</report>

38
ve/vestatr.uml Executable file
View File

@ -0,0 +1,38 @@
#include "../ba/ba3200.h"
PAGE "Stampa Attrezzature" -1 -1 50 8
STRING F_INIZIO1 16
BEGIN
PROMPT 2 1 "Da codice "
FLAGS "U"
HELP "Inserire il codice da cui iniziare la stampa. Se in bianco vuol dire dall'inizio"
USE ATR
INPUT CODTAB F_INIZIO1
DISPLAY "Cod. attrezzatura" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_INIZIO1 CODTAB
END
STRING F_FINE1 16
BEGIN
PROMPT 2 3 "A codice "
FLAGS "U"
HELP "Inserire il codice di fine. Se in bianco vuol dire l'ultimo"
COPY USE F_INIZIO1
INPUT CODTAB F_FINE1
COPY DISPLAY F_INIZIO1
OUTPUT F_FINE1 CODTAB
END
BUTTON DLG_OK 10 2
BEGIN
PROMPT -12 -1 ""
END
BUTTON DLG_QUIT 10 2
BEGIN
PROMPT -22 -1 ""
END
ENDPAGE
ENDMASK

137
ve/vestrss.rep Executable file
View File

@ -0,0 +1,137 @@
<report name="vestrss" lpi="6">
<description>tabella risorse</description>
<font face="Courier New" size="10" />
<section type="Head">
<field type="Stringa" width="50" pattern="1">
<font italic="1" face="Courier New" bold="1" size="10" />
<source>#SYSTEM.RAGSOC</source>
</field>
<field y="1" type="Testo" valign="center" align="center" width="80" height="2" pattern="1" text="Tabella Risorse">
<font face="Courier New" bold="1" size="14" />
</field>
<field border="2" x="1" y="3.5" type="Linea" width="78" height="0" />
<field x="1" y="4" type="Testo" width="4" text="Tipo">
<font face="Courier New" bold="1" size="10" />
</field>
<field x="17" y="4" type="Testo" width="6" pattern="1" text="Codice">
<font face="Courier New" bold="1" size="10" />
</field>
<field x="1" y="5" type="Testo" width="13" pattern="1" text="Co.For&#2F;Co.Fis">
<font face="Courier New" bold="1" size="10" />
</field>
<field x="17" y="5" type="Testo" width="15" pattern="1" text="Rag.soc. &#2F; Nome">
<font face="Courier New" bold="1" size="10" />
</field>
<field x="1" y="6" type="Testo" width="7" pattern="1" text="Tp.riga">
<font face="Courier New" bold="1" size="10" />
</field>
<field x="10" y="6" type="Testo" width="3" pattern="1" text="IVA">
<font face="Courier New" bold="1" size="10" />
</field>
<field x="16" y="6" type="Testo" width="6" pattern="1" text="Valuta">
<font face="Courier New" bold="1" size="10" />
</field>
<field x="31" y="6" type="Testo" width="6" pattern="1" text="Prezzo">
<font face="Courier New" bold="1" size="10" />
</field>
<field x="41" y="6" type="Testo" width="3" pattern="1" text="Qta">
<font face="Courier New" bold="1" size="10" />
</field>
<field x="47" y="6" type="Testo" width="2" pattern="1" text="UM">
<font face="Courier New" bold="1" size="10" />
</field>
<field x="51" y="6" type="Testo" width="11" pattern="1" text="Prest.fatt.">
<font face="Courier New" bold="1" size="10" />
</field>
<field x="64" y="6" type="Testo" width="4" pattern="1" text="Imp.">
<font face="Courier New" bold="1" size="10" />
</field>
<field x="70" y="6" type="Testo" width="5" pattern="1" text="Linea">
<font face="Courier New" bold="1" size="10" />
</field>
<field x="2" y="7" type="Testo" width="14" pattern="1" text="Conto acquisti">
<font face="Courier New" bold="1" size="10" />
</field>
<field border="2" x="1" y="8.5" type="Linea" width="78" height="0" />
</section>
<section type="Head" level="1" />
<section type="Body" />
<section type="Body" level="1">
<field x="1" type="Stringa" width="10" pattern="1">
<source>B0</source>
<prescript description="B1.0 PRESCRIPT">#THIS @
"X" =
IF
"Fornitore" #THIS !
ELSE
"Dipendente" #THIS !
THEN
</prescript>
</field>
<field x="17" type="Stringa" link="RSS.CODTAB" width="16" pattern="1">
<source>CODTAB</source>
</field>
<field x="1" y="1" type="Numero" align="right" width="6" pattern="1">
<source>I6</source>
</field>
<field x="17" y="1" type="Stringa" width="50" pattern="1">
<source>S0</source>
</field>
<field x="1" y="2" type="Stringa" width="4" pattern="1">
<source>S8</source>
</field>
<field x="10" y="2" type="Stringa" width="4" pattern="1">
<source>S3</source>
</field>
<field x="16" y="2" type="Stringa" width="4" pattern="1">
<source>S4</source>
</field>
<field x="24" y="2" type="Prezzo" align="right" width="15" pattern="1" text="#########,@@">
<source>R0</source>
</field>
<field x="40" y="2" type="Numero" align="right" width="5" pattern="1">
<source>R1</source>
</field>
<field x="47" y="2" type="Stringa" width="2" pattern="1">
<source>S7</source>
</field>
<field x="52" y="2" type="Stringa" width="8" pattern="1">
<source>S5</source>
</field>
<field x="64" y="2" type="Stringa" width="5" pattern="1">
<source>S3[5,9]</source>
</field>
<field x="70" y="2" type="Stringa" width="5" pattern="1">
<source>S3[10,14]</source>
</field>
<field x="2" y="3" type="Numero" align="right" width="3" pattern="1">
<source>I3[1,3]</source>
</field>
<field x="6" y="3" type="Numero" align="right" width="3" pattern="1">
<source>I4[1,3]</source>
</field>
<field x="10" y="3" type="Numero" align="right" width="6" pattern="1">
<source>I5[1,6]</source>
</field>
<field x="17" y="3" type="Stringa" width="50" pattern="1">
<source>300@.DESCR</source>
</field>
<field border="1" x="1" y="4.5" type="Linea" width="78" height="0" />
</section>
<section type="Foot" height="3">
<field border="2" x="1" y="0.5" type="Linea" width="93" height="0" />
<field x="2" y="1" type="Data" width="10">
<source>#SYSTEM.DATE</source>
</field>
<field x="90" y="1" type="Numero" align="right" width="3">
<source>#PAGE</source>
</field>
<field border="2" x="1" y="2.5" type="Linea" width="93" height="0" />
</section>
<section type="Foot" level="1" />
<sql>USE RSS
JOIN CLIFO ALIAS 200 INTO TIPOCF=='F' CODCF==CODTAB
JOIN ANAGR ALIAS 210 INTO TIPOA=='F' CODANAGR==CODTAB
JOIN PCON ALIAS 300 INTO GRUPPO==I3 CONTO==I4 SOTTOCONTO==I5</sql>
</report>

38
ve/vestrss.uml Executable file
View File

@ -0,0 +1,38 @@
#include "../ba/ba3200.h"
PAGE "Stampa Risorse" -1 -1 50 8
STRING F_INIZIO1 16
BEGIN
PROMPT 2 1 "Da codice "
FLAGS "U"
HELP "Inserire il codice da cui iniziare la stampa. Se in bianco vuol dire dall'inizio"
USE RSS
INPUT CODTAB F_INIZIO1
DISPLAY "Cod. risorsa" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_INIZIO1 CODTAB
END
STRING F_FINE1 16
BEGIN
PROMPT 2 3 "A codice "
FLAGS "U"
HELP "Inserire il codice di fine. Se in bianco vuol dire l'ultimo"
COPY USE F_INIZIO1
INPUT CODTAB F_FINE1
COPY DISPLAY F_INIZIO1
OUTPUT F_FINE1 CODTAB
END
BUTTON DLG_OK 10 2
BEGIN
PROMPT -12 -1 ""
END
BUTTON DLG_QUIT 10 2
BEGIN
PROMPT -22 -1 ""
END
ENDPAGE
ENDMASK