Patch level :10.0

Files correlati     :
Ricompilazione Demo : [ ]
Commento            :iniziata stampa fatturazione (e programma gestione stampe generiche in ve)


git-svn-id: svn://10.65.10.50/trunk@19510 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
luca 2009-10-26 15:28:39 +00:00
parent 3aed6539fb
commit 5c82392d90
5 changed files with 118 additions and 54 deletions

View File

@ -10,7 +10,7 @@ int main(int argc, char **argv)
case 1: ve3200(argc, argv); break; // antichissima stampa listini/contratti/offerte
case 3: ve3400(argc, argv); break; // stampa anagrafica di magazzino
case 4: ve3500(argc, argv); break; // moderna stampa condizioni di vendita
//case 8: ve3900(argc, argv); break; // stampe varie delle vendite (a=fatturato)
case 8: ve3900(argc, argv); break; // stampe varie delle vendite (a=fatturato)
default: ve3100(argc, argv); break; // stampa tabelle sconti (di riga/di documento/incondizionati)
}
return 0;

View File

@ -5,7 +5,7 @@ int ve3100(int argc, char* argv[]); // stampa tabelle sconti (di riga/di docume
int ve3200(int argc, char* argv[]); // antichissima stampa testate listini/contratti/offerte
int ve3400(int argc, char* argv[]); // stampa anagrafica di magazzino
int ve3500(int argc, char* argv[]); // moderna stampa condizioni di vendita
//int ve3900(int argc, char* argv[]); //stampe varie vendite
int ve3900(int argc, char* argv[]); //stampe varie vendite
#endif

37
ve/ve3900.cpp Executable file
View File

@ -0,0 +1,37 @@
#include <applicat.h>
#include <utility.h>
#include "velib07.h"
#include "../ba/ba8500.h"
///////////////////////////////////////////////////////////
// TGeneral_sell
///////////////////////////////////////////////////////////
class TGeneral_sell : public TKlarkKent_app
{
protected:
virtual bool create();
};
bool TGeneral_sell::create()
{
//controlla che solo il producer AGA possa usare questo programma
if (!is_power_reseller())
{
return error_box(TR("Programma non autorizzato!"));
//se non paghi ti stronco!!!
const TDate oggi(TODAY);
if (oggi >= 20091220)
return false;
}
return TKlarkKent_app::create();
}
int ve3900(int argc, char* argv[])
{
TGeneral_sell app;
app.run(argc, argv, TR("Stampe Acquisti/Vendite"));
return 0;
}

View File

@ -8,25 +8,43 @@
<section type="Head" level="1">
<font face="Arial" bold="1" size="8" />
<prescript description="H1 PRESCRIPT">MESSAGE RESET,F1.100|RESET,F1.110|RESET,F1.120|RESET,F1.130|RESET,F1.140</prescript>
<field border="2" radius="200" x="24" y="0.5" type="Rettangolo" width="32" height="3" pattern="1" />
<field border="2" radius="75" x="24" y="0.5" type="Rettangolo" shade_offset="50" width="32" height="3" />
<field x="25" y="1.5" type="Testo" align="center" width="30" height="1.5" pattern="1" text="STAMPA FATTURATO">
<font face="Arial" size="12" />
<font face="Arial" bold="1" size="12" />
</field>
<field x="2" y="4" type="Stringa" width="20" pattern="1" text="dalla data: ">
<font face="Arial" size="10" />
<field x="1" y="5" type="Testo" width="10" pattern="1" text="Numerazione:" />
<field x="20" y="5" type="Testo" width="6" pattern="1" text="Tipo:" />
<field x="33" y="5" type="Testo" width="6" pattern="1" text="Anno:" />
<field x="45" y="5" type="Testo" width="8" pattern="1" text="Dalla data:" />
<field x="68" y="5" type="Testo" width="8" pattern="1" text="Alla data:" />
<field border="2" x="1" y="6.5" type="Linea" width="88" height="0" pattern="1" />
<field x="11.5" y="5" type="Stringa" width="4" id="101" pattern="1">
<font face="Arial" size="8" />
<source>#CODNUM</source>
</field>
<field x="24" y="5" type="Stringa" width="4" id="102" pattern="1">
<font face="Arial" size="8" />
<source>#TIPODOC</source>
</field>
<field x="38" y="5" type="Numero" align="right" width="4" id="103" pattern="1">
<font face="Arial" size="8" />
<source>#ANNO</source>
</field>
<field x="53" y="5" type="Data" width="10" id="104" pattern="1">
<font face="Arial" size="8" />
<source>#DADATA</source>
</field>
<field x="24" y="4" type="Stringa" width="18.5" pattern="1" text="alla data: ">
<font face="Arial" size="10" />
<field x="76" y="5" type="Data" align="right" width="10" id="105" pattern="1">
<font face="Arial" size="8" />
<source>#ADATA</source>
</field>
</section>
<section repeat="1" keep_with_next="1" type="Head" level="2" height="3">
<groupby>CODCF</groupby>
<font face="Arial" bold="1" size="10" />
<font face="Arial" bold="1" size="9" />
<prescript description="H2 PRESCRIPT">MESSAGE RESET,F2.100|RESET,F2.110|RESET,F2.120|RESET,F2.130|RESET,F2.140
MESSAGE RESET,B1</prescript>
<field x="0.5" type="Testo" width="8" pattern="1" text="Cliente" />
<field x="0.5" y="0.25" type="Testo" width="8" pattern="1" text="Cliente" />
<field x="2" y="1.75" type="Testo" width="4" height="0.75" pattern="1" text="Tipo">
<font italic="1" face="Arial" size="8" />
</field>
@ -36,46 +54,46 @@ MESSAGE RESET,B1</prescript>
<field x="14" y="1.75" type="Testo" align="center" width="10" height="0.75" pattern="1" text="Data">
<font italic="1" face="Arial" size="8" />
</field>
<field x="29" y="1.75" type="Testo" align="right" width="13" height="0.75" pattern="1" text="Imp. Netto non Sc.">
<field x="25" y="1.75" type="Testo" align="right" width="13" height="0.75" pattern="1" text="Imp. Netto non Sc.">
<font italic="1" face="Arial" size="8" />
</field>
<field x="48" y="1.75" type="Testo" align="right" width="5" height="0.75" pattern="1" text="Sconto ">
<field x="42" y="1.75" type="Testo" align="right" width="5" height="0.75" pattern="1" text="Sconto ">
<font italic="1" face="Arial" size="8" />
</field>
<field x="56.5" y="1.75" type="Testo" align="right" width="10" height="0.75" pattern="1" text="Imp. Netto Scon.">
<field x="51" y="1.75" type="Testo" align="right" width="10" height="0.75" pattern="1" text="Imp. Netto Scon.">
<font italic="1" face="Arial" size="8" />
</field>
<field x="68" y="1.75" type="Testo" align="right" width="10" height="0.75" pattern="1" text="Imposta">
<field x="62" y="1.75" type="Testo" align="right" width="8" height="0.75" pattern="1" text="Imposta">
<font italic="1" face="Arial" size="8" />
</field>
<field x="25.75" y="1.8" type="Testo" width="2" height="0.75" pattern="1" text="St">
<field x="24.25" y="1.8" type="Testo" width="2" height="0.75" pattern="1" text="St">
<font italic="1" face="Arial" size="8" />
</field>
<field x="80.87" y="1.81" type="Testo" align="right" width="10" height="0.75" pattern="1" text="Tot. Documento">
<field x="73.37" y="1.81" type="Testo" align="right" width="10" height="0.75" pattern="1" text="Tot. Documento">
<font italic="1" face="Arial" size="8" />
</field>
<field border="1" y="2.75" type="Linea" width="92" height="0" pattern="1" />
<field x="8" type="Stringa" width="7" id="101" pattern="1">
<field border="1" y="2.75" type="Linea" width="88" height="0" pattern="1" />
<field x="8" y="0.25" type="Stringa" width="7" id="101" pattern="1">
<source>CODCF</source>
</field>
<field x="16" type="Stringa" width="50" id="102" pattern="1">
<field x="16" y="0.25" type="Stringa" width="50" id="102" pattern="1">
<prescript description="H2.102 PRESCRIPT">MESSAGE ISAMREAD,20,TIPOCF=C!CODCF=#101,RAGSOC</prescript>
</field>
</section>
<section type="Body" />
<section type="Body" level="1">
<section type="Body" level="1" height="1">
<font face="Arial" size="8" />
<postscript description="B1 POSTSCRIPT">MESSAGE RESET,B1</postscript>
<field x="26" type="Stringa" width="1" pattern="1">
<field x="25" type="Stringa" width="1" pattern="1">
<source>DOC.STATO</source>
</field>
<field x="106" type="Stringa" hidden="1" width="10" pattern="1">
<field x="91" type="Stringa" hidden="1" width="4" pattern="1">
<source>CODNUM</source>
</field>
<field x="2" type="Stringa" width="4" id="50" pattern="1">
<source>TIPODOC</source>
</field>
<field x="92" type="Stringa" hidden="1" width="4" id="55" pattern="1">
<field x="84" type="Stringa" hidden="1" width="4" id="55" pattern="1">
<source>ANNO</source>
</field>
<field x="6" type="Numero" align="right" link="NDOC" width="7" id="60" pattern="1">
@ -84,26 +102,33 @@ MESSAGE RESET,B1</prescript>
<field x="14" type="Data" width="10" id="65" pattern="1">
<source>DATADOC</source>
</field>
<field x="96" type="Stringa" hidden="1" width="10" id="68" pattern="1">
<source>IF(TIPODOC='NAC',-1,1)</source>
<field x="89" type="Stringa" hidden="1" width="1" id="68" pattern="1">
<prescript description="B1.68 PRESCRIPT">MESSAGE TABLEREAD,%TPD,CODTAB=#50,B7</prescript>
<postscript description="B1.68 POSTSCRIPT">#THIS @
"X" = IF
-1
ELSE
1
THEN
#THIS !</postscript>
</field>
<field x="31" type="Valuta" align="right" width="11" id="70" pattern="1" hide_zero="1" text="###.###.###,@@">
<source>#68*33.TOTLORDO</source>
<field x="27" type="Valuta" align="right" width="12" id="70" pattern="1" hide_zero="1" text="###.###.###,@@">
<source>#68*TOTLORDO</source>
<prescript description="B1.70 PRESCRIPT">MESSAGE ADD,F2.100|ADD,F1.100</prescript>
</field>
<field x="43" type="Valuta" align="right" width="10" id="75" pattern="1" hide_zero="1" text="###.###.###,@@">
<field x="40" type="Valuta" align="right" width="8" id="75" pattern="1" hide_zero="1" text="###.###.###,@@">
<source>#68*33.SCONTOD</source>
<prescript description="B1.75 PRESCRIPT">MESSAGE ADD,F2.110|ADD,F1.110</prescript>
</field>
<field x="54" type="Valuta" align="right" width="13" id="80" pattern="1" hide_zero="1" text="###.###.###,@@">
<field x="49" type="Valuta" align="right" width="12" id="80" pattern="1" hide_zero="1" text="###.###.###,@@">
<source>#68*33.IMPONIBILI</source>
<prescript description="B1.80 PRESCRIPT">MESSAGE ADD,F2.120|ADD,F1.120</prescript>
</field>
<field x="68" type="Valuta" align="right" width="10" id="85" pattern="1" hide_zero="1" text="###.###.###,@@">
<field x="62" type="Valuta" align="right" width="8" id="85" pattern="1" hide_zero="1" text="###.###.###,@@">
<source>#68*33.IMPOSTE</source>
<prescript description="B1.85 PRESCRIPT">MESSAGE ADD,F2.130|ADD,F1.130</prescript>
</field>
<field x="78.5" type="Valuta" align="right" width="13" id="90" pattern="1" text="###.###.###,@@">
<field x="71" type="Valuta" align="right" width="12" id="90" pattern="1" text="###.###.###,@@">
<source>#68*33.TOTDOC</source>
<prescript description="B1.90 PRESCRIPT">MESSAGE ADD,F2.140|ADD,F1.140</prescript>
</field>
@ -119,37 +144,37 @@ MESSAGE RESET,B1</prescript>
</field>
</section>
<section type="Foot" level="1">
<font face="Arial" bold="1" size="11" />
<field border="2" type="Linea" width="92" height="0" pattern="1" />
<field x="0.5" y="0.25" type="Testo" width="21.5" pattern="1" text="TOTALE GENERALE" />
<field x="29" y="0.25" type="Valuta" align="right" width="13" id="100" pattern="1" hide_zero="1" text="###.###.###,@@">
<font face="Arial" bold="1" size="10" />
<font italic="1" face="Arial" bold="1" size="8" />
<field border="2" y="0.5" type="Linea" width="92" height="0" pattern="1" />
<field x="7" y="1" type="Testo" width="18" pattern="1" text="TOTALE GENERALE" />
<field x="27" y="1" type="Valuta" align="right" width="12" id="100" pattern="1" hide_zero="1" text="###.###.###,@@">
<font face="Arial" bold="1" size="8" />
</field>
<field x="43" y="0.25" type="Valuta" align="right" width="10" id="110" pattern="1" hide_zero="1" text="###.###.###,@@">
<font face="Arial" bold="1" size="10" />
<field x="40" y="1" type="Valuta" align="right" width="8" id="110" pattern="1" hide_zero="1" text="###.###.###,@@">
<font face="Arial" bold="1" size="8" />
</field>
<field x="54" y="0.25" type="Valuta" align="right" width="13" id="120" pattern="1" hide_zero="1" text="###.###.###,@@">
<font face="Arial" bold="1" size="10" />
<field x="49" y="1" type="Valuta" align="right" width="12" id="120" pattern="1" hide_zero="1" text="###.###.###,@@">
<font face="Arial" bold="1" size="8" />
</field>
<field x="68" y="0.25" type="Valuta" align="right" width="10" id="130" pattern="1" hide_zero="1" text="###.###.###,@@">
<font face="Arial" bold="1" size="10" />
<field x="62" y="1" type="Valuta" align="right" width="8" id="130" pattern="1" hide_zero="1" text="###.###.###,@@">
<font face="Arial" bold="1" size="8" />
</field>
<field x="78.5" y="0.25" type="Valuta" align="right" width="13" id="140" pattern="1" hide_zero="1" text="###.###.###,@@">
<font face="Arial" bold="1" size="10" />
<field x="71" y="1" type="Valuta" align="right" width="12" id="140" pattern="1" hide_zero="1" text="###.###.###,@@">
<font face="Arial" bold="1" size="8" />
</field>
</section>
<section type="Foot" level="2" height="3">
<field border="1" y="0.25" type="Rettangolo" shade_offset="50" width="92" height="1.5" />
<field x="11" y="0.5" type="Testo" width="16.5" pattern="1" text="Totale Cliente" />
<field x="29" y="0.5" type="Valuta" align="right" width="13" id="100" pattern="1" hide_zero="1" text="###.###.###,@@" />
<field x="43" y="0.5" type="Valuta" align="right" width="10" id="110" pattern="1" hide_zero="1" text="###.###.###,@@" />
<field x="54" y="0.5" type="Valuta" align="right" width="13" id="120" pattern="1" hide_zero="1" text="###.###.###,@@" />
<field x="68" y="0.5" type="Valuta" align="right" width="10" id="130" pattern="1" hide_zero="1" text="###.###.###,@@" />
<field x="78.5" y="0.5" type="Valuta" align="right" width="13" id="140" pattern="1" hide_zero="1" text="###.###.###,@@" />
<field x="4.5" y="0.5" type="Testo" width="14" pattern="1" text="Totale Cliente" />
<field x="27" y="0.5" type="Valuta" align="right" width="12" id="100" pattern="1" hide_zero="1" text="###.###.###,@@" />
<field x="40" y="0.5" type="Valuta" align="right" width="8" id="110" pattern="1" hide_zero="1" text="###.###.###,@@" />
<field x="49" y="0.5" type="Valuta" align="right" width="12" id="120" pattern="1" hide_zero="1" text="###.###.###,@@" />
<field x="62" y="0.5" type="Valuta" align="right" width="8" id="130" pattern="1" hide_zero="1" text="###.###.###,@@" />
<field x="71" y="0.5" type="Valuta" align="right" width="12" id="140" pattern="1" hide_zero="1" text="###.###.###,@@" />
</section>
<sql>USE DOC KEY 3
SELECT (BETWEEN(STATO,#DASTATO,#ASTATO))&#26;&#26;(CODNUM=#CODNUM)&#26;&#26;(TIPODOC=#TIPODOC)&#26;&#26;(BETWEEN(CODCF,#DACLIFO,#ACLIFO))
BY CODCF NDOC
FROM DATADOC=#DADATA PROVV='D' ANNO=#ANNO
TO DATADOC=#ADATA PROVV='D' ANNO=#ANNO </sql>
SELECT (BETWEEN(STATO,#DASTATO,#ASTATO))&#26;&#26;(BETWEEN(TIPODOC,#TIPODOC,#TIPODOC))&#26;&#26;(BETWEEN(CODCF,#DACLIFO,#ACLIFO))
BY CODCF NDOC TIPODOC
FROM DATADOC=#DADATA PROVV='D' ANNO=#ANNO CODNUM=#CODNUM
TO DATADOC=#ADATA PROVV='D' ANNO=#ANNO CODNUM=#CODNUM</sql>
</report>

View File

@ -139,12 +139,14 @@ DATE F_DADATA
BEGIN
PROMPT 2 7 "Da data "
FIELD #DADATA
CHECKTYPE REQUIRED
END
DATE F_ADATA
BEGIN
PROMPT 2 8 "A data "
FIELD #ADATA
CHECKTYPE REQUIRED
END