diff --git a/build/ve1.vcxproj b/build/ve1.vcxproj index 8ba545d5e..a88816fde 100644 --- a/build/ve1.vcxproj +++ b/build/ve1.vcxproj @@ -191,6 +191,8 @@ + + %(AdditionalIncludeDirectories) %(PreprocessorDefinitions) @@ -213,6 +215,8 @@ + + @@ -221,6 +225,8 @@ + + @@ -246,9 +252,21 @@ - - - + + Designer + + + Designer + + + Designer + + + Designer + + + Designer + diff --git a/build/ve1.vcxproj.filters b/build/ve1.vcxproj.filters index 07e5db97b..110d82918 100644 --- a/build/ve1.vcxproj.filters +++ b/build/ve1.vcxproj.filters @@ -66,6 +66,12 @@ Sources + + Sources + + + Sources + @@ -92,6 +98,12 @@ Masks + + Masks + + + Masks + @@ -127,6 +139,12 @@ Headers + + Headers + + + Headers + @@ -193,6 +211,12 @@ Reports + + Reports + + + Reports + diff --git a/src/ve/ve1900.cpp b/src/ve/ve1900.cpp new file mode 100644 index 000000000..56da846b4 --- /dev/null +++ b/src/ve/ve1900.cpp @@ -0,0 +1,60 @@ +#include +#include +#include +#include + +#include "velib07.h" + +#include "ve1.h" +#include "ve1900a.h" +#include +#include + +class TMetodiPagamentoClienti_app : public TKlarkKent_app +{ +protected: + virtual void main_loop(); +}; + +void TMetodiPagamentoClienti_app::main_loop() +{ + TMask m("ve1900a"); + TDocument_report report; + + m.set(F_REPORT, "ve19001"); + ((TButton_tool&)m.field(DLG_PREVIEW)).set_exit_key('A'); + ((TButton_tool&)m.field(DLG_PRINT)).set_exit_key('P'); + + KEY k; + + while ((k = m.run()) != K_QUIT) + { + TReport_book book; + TFilename report_name = m.get(F_REPORT); + + if (report_name.blank()) + report_name = "ve19001"; + report.load(report_name); + + TISAM_recordset * recset = (TISAM_recordset*)report.recordset(); + + TString cod_pag = m.get(F_I_CONDPAG); + report.set_var("#CODPAG", cod_pag); + recset->set_var("#CODPAG", cod_pag); + + book.add(report); + if (book.pages() > 0) + if (k == 'A') + book.preview(); + else + book.print(); + } +} + + +int ve1900(int argc, char* argv[]) +{ + TMetodiPagamentoClienti_app app; + app.run(argc, argv, TR("Stampa Clienti con Metodo di Pagamento")); + return 0; +} \ No newline at end of file