campo-sirio/src/ve/ve1900.cpp
Alessandro Bonazzi 5b712c35d8 Patch level :12.00 1350
Files correlati     : ve0.exe ve1.exe ve17001.rep ve1600.msk ve17002.rep
                      ve1700a.msk ve1800a.msk ve1900a.msk
Commento:
Aggiunta regitrazione di preventivo all'esportazione sintetica in excel
2024-09-16 22:42:41 +02:00

55 lines
1.0 KiB
C++

#include <applicat.h>
#include <progind.h>
#include <recset.h>
#include <reprint.h>
#include "velib07.h"
#include "ve1.h"
#include "ve1900a.h"
#include <defmask.h>
#include <toolfld.h>
class TMetodiPagamentoClienti_app : public TKlarkKent_app
{
protected:
virtual void main_loop();
};
void TMetodiPagamentoClienti_app::main_loop()
{
TMask m("ve1900a");
TDocument_report report;
KEY k;
while ((k = m.run()) != K_QUIT)
{
TReport_book book;
TFilename report_name = m.get(DLG_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 == K_VISUALIZE)
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;
}