From 5c82392d901771e459547c5e8c1ba78cb19d01c1 Mon Sep 17 00:00:00 2001 From: luca Date: Mon, 26 Oct 2009 15:28:39 +0000 Subject: [PATCH] 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 --- ve/ve3.cpp | 2 +- ve/ve3.h | 2 +- ve/ve3900.cpp | 37 ++++++++++++++ ve/ve3900a.rep | 129 +++++++++++++++++++++++++++++-------------------- ve/ve3900a.uml | 2 + 5 files changed, 118 insertions(+), 54 deletions(-) create mode 100755 ve/ve3900.cpp diff --git a/ve/ve3.cpp b/ve/ve3.cpp index 33e457ff1..cd66551c0 100755 --- a/ve/ve3.cpp +++ b/ve/ve3.cpp @@ -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; diff --git a/ve/ve3.h b/ve/ve3.h index 5f40fa20d..812a79bf5 100755 --- a/ve/ve3.h +++ b/ve/ve3.h @@ -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 diff --git a/ve/ve3900.cpp b/ve/ve3900.cpp new file mode 100755 index 000000000..3ca560de6 --- /dev/null +++ b/ve/ve3900.cpp @@ -0,0 +1,37 @@ +#include +#include + +#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; +} diff --git a/ve/ve3900a.rep b/ve/ve3900a.rep index 9b2f36e4b..bc4b9224f 100755 --- a/ve/ve3900a.rep +++ b/ve/ve3900a.rep @@ -8,25 +8,43 @@
MESSAGE RESET,F1.100|RESET,F1.110|RESET,F1.120|RESET,F1.130|RESET,F1.140 - + - + - - + + + + + + + + + #CODNUM + + + + #TIPODOC + + + + #ANNO + + + #DADATA - - + + #ADATA
CODCF - + MESSAGE RESET,F2.100|RESET,F2.110|RESET,F2.120|RESET,F2.130|RESET,F2.140 MESSAGE RESET,B1 - + @@ -36,46 +54,46 @@ MESSAGE RESET,B1 - + - + - + - + - + - + - - + + CODCF - + MESSAGE ISAMREAD,20,TIPOCF=C!CODCF=#101,RAGSOC
-
+
MESSAGE RESET,B1 - + DOC.STATO -
- - - - - + + + + + - - + + - - + + - - + + - - + +
- - - - - - + + + + + +
USE DOC KEY 3 -SELECT (BETWEEN(STATO,#DASTATO,#ASTATO))(CODNUM=#CODNUM)(TIPODOC=#TIPODOC)(BETWEEN(CODCF,#DACLIFO,#ACLIFO)) -BY CODCF NDOC -FROM DATADOC=#DADATA PROVV='D' ANNO=#ANNO -TO DATADOC=#ADATA PROVV='D' ANNO=#ANNO +SELECT (BETWEEN(STATO,#DASTATO,#ASTATO))(BETWEEN(TIPODOC,#TIPODOC,#TIPODOC))(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 \ No newline at end of file diff --git a/ve/ve3900a.uml b/ve/ve3900a.uml index d1a07c355..e58214752 100755 --- a/ve/ve3900a.uml +++ b/ve/ve3900a.uml @@ -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