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

Patch level :10.0 250

Browse Source 
Files correlati     :
Ricompilazione Demo : [ ]
Commento            :
la tabella TPD (tipi documento per la contabilità, usata nelle causali) è una tabella di CG (verrà messa in cg9 e viene precaricata con cgtabcom.txt)


git-svn-id: svn://10.65.10.50/trunk@18400 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
luca 2009-03-03 12:12:42 +00:00
parent edda54f248
commit 517eb2ba5c
4 changed files with 159 additions and 0 deletions

59
cg/cgsttpd.rep Executable file

@ -0,0 +1,59 @@
<report libraries="cgsttpd" name="cgsttpd" lpi="6">
<font face="Courier New" size="10" />
<section keep_with_next="1" type="Head">
<field type="Testo" valign="center" align="center" width="96" height="2" text="Tabella Tipi Documento">
<font face="Courier New" bold="1" size="14" />
</field>
<field border="2" x="1" y="2.5" type="Linea" width="93" height="0" />
<field x="2" y="3" type="Testo" width="4" text="Tipo">
<font face="Courier New" bold="1" size="10" />
</field>
<field x="9" y="3" type="Testo" width="12" text="Descrizione">
<font face="Courier New" bold="1" size="10" />
</field>
<field x="61" y="3" type="Testo" width="6" text="Natura">
<font face="Courier New" bold="1" size="10" />
</field>
<field x="77" y="3" type="Testo" width="13" text="Corrispettivi">
<font face="Courier New" bold="1" size="10" />
</field>
<field border="2" x="1" y="4.5" type="Linea" width="93" height="0" />
</section>
<section keep_with_next="1" type="Head" level="1" />
<section keep_with_next="1" type="Body" />
<section keep_with_next="1" type="Body" level="1">
<field x="2" type="Stringa" link="%TPD.CODTAB" width="2">
<source>CODTAB</source>
</field>
<field x="9" type="Stringa" width="50">
<source>S0</source>
</field>
<field x="61" type="Array" width="13">
<source>I0</source>
<list>
<li Value="Altro" Code=" " />
<li Value="Vendite" Code="1" />
<li Value="Acquisti" Code="2" />
<li Value="IVA in genere" Code="3" />
</list>
</field>
<field x="83" type="Stringa" width="1">
<source>B0</source>
</field>
</section>
<section keep_with_next="1" 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 keep_with_next="1" type="Foot" level="1" />
<sql>USE %TPD
FROM CODTAB=#FROM
TO CODTAB=#TO</sql>
</report>

35
cg/cgsttpd.uml Executable file

@ -0,0 +1,35 @@
#include "../ba/ba3200.h"
TOOLBAR "topbar" 0 0 0 2
#include <printbar.h>
ENDPAGE
PAGE "Stampa tipi documenti" 0 2 0 0
STRING F_INIZIO1 2
BEGIN
PROMPT 2 1 "Da tipo documento "
USE %TPD
INPUT CODTAB F_INIZIO1
DISPLAY "Tipo" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_INIZIO1 CODTAB
FLAGS "U"
FIELD FROM
GROUP 1
END
STRING F_FINE1 2
BEGIN
PROMPT 2 2 "A tipo documento "
COPY USE F_INIZIO1
INPUT CODTAB F_FINE1
COPY DISPLAY F_INIZIO1
OUTPUT F_FINE1 CODTAB
FLAGS "U"
FIELD TO
GROUP 2
END
ENDPAGE
ENDMASK

4
cg/cgtbtpd.h Executable file

@ -0,0 +1,4 @@
#define F_TIPODOC 101
#define F_DESCRIZIONE 102
#define F_NATURA 103
#define F_CORRISP 104

61
cg/cgtbtpd.uml Executable file

@ -0,0 +1,61 @@
#include "../ba/ba3100.h"
#include "cgtbtpd.h"
TOOLBAR "topbar" 0 0 0 2
#include <relapbar.h>
ENDPAGE
PAGE "Tipi documento" 0 2 0 0
STRING F_TIPODOC 2
BEGIN
PROMPT 4 2 "Tipo documento "
FIELD LF_TABCOM->CODTAB
HELP "Inserire il tipo documento"
USE %TPD
CHECKTYPE REQUIRED
INPUT CODTAB F_TIPODOC
DISPLAY "Tipo" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_TIPODOC CODTAB
FLAGS "U"
KEY 1
END
STRING F_DESCRIZIONE 50
BEGIN
PROMPT 4 4 "Descrizione "
FIELD LF_TABCOM->S0
HELP "Inserire la descrizione del documento"
USE %TPD KEY 2
CHECKTYPE REQUIRED
INPUT S0 F_DESCRIZIONE
DISPLAY "Descrizione@50" S0
DISPLAY "Codice" CODTAB
OUTPUT F_TIPODOC CODTAB
OUTPUT F_DESCRIZIONE S0
KEY 2
END
LIST F_NATURA 20
BEGIN
PROMPT 4 6 "Natura documento "
FIELD LF_TABCOM->I0
HELP "Indicare la natura del documento"
ITEM " |Altro" MESSAGE DISABLE,F_CORRISP|RESET,F_CORRISP
ITEM "1|Vendite" MESSAGE ENABLE,F_CORRISP
ITEM "2|Acquisti" MESSAGE DISABLE,F_CORRISP|RESET,F_CORRISP
ITEM "9|IVA in genere" MESSAGE ENABLE,F_CORRISP
GROUP GR_RECORD_PROTECTED
END
BOOLEAN F_CORRISP
BEGIN
PROMPT 4 8 "Corrispettivi "
FIELD LF_TABCOM->B0
HELP "Indicare se si tratta di registro dei corrispettivi"
GROUP GR_RECORD_PROTECTED
END
ENDPAGE
ENDMASK