Patch level :10.0 250
Files correlati : Ricompilazione Demo : [ ] Commento : spostata in avanti la scadenza tassanica 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@18401 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
luca
parent
517eb2ba5c
commit
688b8c1565
@ -801,7 +801,7 @@ bool is_tassan()
|
|||||||
bool yes = false;
|
bool yes = false;
|
||||||
if (dongle().number() == 202)
|
if (dongle().number() == 202)
|
||||||
{
|
{
|
||||||
const TDate morte(28, 02, 2009); // Giorno della morte del programma
|
const TDate morte(28, 03, 2009); // Giorno della morte del programma
|
||||||
const TDate oggi(TODAY);
|
const TDate oggi(TODAY);
|
||||||
yes = oggi >= morte;
|
yes = oggi >= morte;
|
||||||
}
|
}
|
||||||
|
|||||||
@ -1,59 +0,0 @@
|
|||||||
|
|
||||||
<report libraries="basttpd" name="basttpd" 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>
|
|
||||||
@ -1,35 +0,0 @@
|
|||||||
#include "ba3200.h"
|
|
||||||
|
|
||||||
PAGE "Stampa tipi documenti" -1 -1 50 6
|
|
||||||
|
|
||||||
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
|
|
||||||
|
|
||||||
TOOLBAR "topbar" 0 0 0 2
|
|
||||||
#include <printbar.h>
|
|
||||||
ENDPAGE
|
|
||||||
ENDMASK
|
|
||||||
@ -1,4 +0,0 @@
|
|||||||
#define F_TIPODOC 101
|
|
||||||
#define F_DESCRIZIONE 102
|
|
||||||
#define F_NATURA 103
|
|
||||||
#define F_CORRISP 104
|
|
||||||
@ -1,61 +0,0 @@
|
|||||||
#include "ba3100.h"
|
|
||||||
#include "batbtpd.h"
|
|
||||||
|
|
||||||
TOOLBAR "topbar" 0 0 0 2
|
|
||||||
#include <relapbar.h>
|
|
||||||
ENDPAGE
|
|
||||||
|
|
||||||
PAGE "Tipi documento" -1 -1 78 12
|
|
||||||
|
|
||||||
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
|
|
||||||
Loading…
x
Reference in New Issue
Block a user