cbb608d183
Files correlati : Ricompilazione Demo : [ ] Commento : Riportata la versione 1.5 fino alla patch 811 git-svn-id: svn://10.65.10.50/trunk@8985 c028cbd2-c16b-5b4b-a496-9718f37d4682
97 lines
3.3 KiB
C++
Executable File
97 lines
3.3 KiB
C++
Executable File
#include <applicat.h>
|
|
#include <mask.h>
|
|
#include <progind.h>
|
|
|
|
#include "velib.h"
|
|
|
|
#include "ve6200a.h"
|
|
|
|
class TFatturazione_bolle_app : public TSkeleton_application
|
|
{
|
|
protected: // TApplication
|
|
virtual void main_loop();
|
|
};
|
|
|
|
void TFatturazione_bolle_app::main_loop()
|
|
{
|
|
open_files(LF_TABCOM, LF_TAB, LF_CLIFO, LF_OCCAS, LF_INDSP, LF_CFVEN, LF_DOC, LF_RIGHEDOC, LF_ANAMAG, LF_MOVMAG, LF_RMOVMAG, LF_CONDV, LF_SVRIEP, LF_AGENTI, LF_PERCPROV, 0);
|
|
TMask m("ve6200a");
|
|
while (m.run() == K_ENTER)
|
|
{
|
|
TIndwin iw(48, "Inizializzazione ...\n ", TRUE, FALSE, 48);
|
|
|
|
const TDate data_elab = m.get(F_DATA_ELAB);
|
|
const int anno = data_elab.year();
|
|
|
|
const long dc = m.get_long(F_CODICE_CLIFO_DA);
|
|
const long ac = m.get_long(F_CODICE_CLIFO_A);
|
|
const long da = m.get_long(F_CODICE_AGENTE_DA);
|
|
const long aa = m.get_long(F_CODICE_AGENTE_A);
|
|
const long dz = m.get_long(F_CODICE_ZONA_DA);
|
|
const long az = m.get_long(F_CODICE_ZONA_A);
|
|
|
|
const TDate dd = m.get(F_DATA_DOCUMENTO_DA);
|
|
TString st_da = m.get(F_DATA_DOCUMENTO_A);
|
|
const TDate ad = st_da.not_empty() ? (const char*)st_da : data_elab;
|
|
const TString& codnum = m.get(F_CODICE_NUMERAZIONE);
|
|
const long dn = m.get_long(F_NUMERO_DOCUMENTO_DA);
|
|
const long an = m.get_long(F_NUMERO_DOCUMENTO_A);
|
|
|
|
TFatturazione_bolle eld(m.get(F_CODICE_ELAB));
|
|
TToken_string tipidoc(24), statidoc(10);
|
|
eld.tipi_validi(tipidoc);
|
|
eld.stati_validi(statidoc);
|
|
|
|
TLista_clienti clienti;
|
|
const int tot_cli = clienti.leggi(dc, ac, da, aa, dz, az);
|
|
|
|
TString msg(80);
|
|
for (int c = 0; c < tot_cli && !iw.iscancelled(); c++)
|
|
{
|
|
const long codcli = clienti[c]; // Codice cliente in esame
|
|
msg = "Elaborazione dei documenti del cliente ";
|
|
msg << codcli << " ...";
|
|
iw.set_text(msg); // Messaggio sul cliente
|
|
do_events(); // Attende visualizzazione
|
|
|
|
TLista_documenti din, dout; // Legge tutti i documenti di input
|
|
din.read('D', 'C', codcli, anno, tipidoc, statidoc, dd, ad, codnum, dn, an);
|
|
if (din.items() == 0)
|
|
continue;
|
|
|
|
// Crea documenti di output
|
|
bool ok = eld.elabora(din, dout, data_elab);
|
|
if (ok)
|
|
{
|
|
msg << '\n' << din.items() << " documenti raggruppati in " << dout.items();
|
|
iw.set_text(msg); // Messaggio sul cliente
|
|
do_events(); // Attende visualizzazione
|
|
|
|
int err = dout.write(); // Scrive documenti di output
|
|
if (err == NOERR)
|
|
{
|
|
err = din.rewrite(); // Aggiorna stato dei documenti di input
|
|
if (err != NOERR)
|
|
ok = error_box("Errore %d durante la scrittura dei documenti raggruppati!", err);
|
|
}
|
|
else
|
|
ok = error_box("Errore %d durante l'aggiornamento dei documenti da raggruppare!", err);
|
|
}
|
|
else
|
|
{
|
|
ok = error_box("I documenti relativi al cliente %ld non sono stati elaborati.",
|
|
codcli);
|
|
}
|
|
if (!ok) // In case di errore ...
|
|
break; // ... termina qui l'elaborazione.
|
|
}
|
|
}
|
|
}
|
|
|
|
int ve6200 (int argc, char **argv)
|
|
{
|
|
TFatturazione_bolle_app a;
|
|
a.run (argc, argv, "Fatturazione Bolle");
|
|
return TRUE;
|
|
}
|