campo-sirio/ab/ab2100.cpp
sauro 0556a09bb9 Aggiunti i seguenti file per la ricezione e trasferimento da AS400:
ab2100a.h   Definizione dei campi della maschera
ab2.ccp     Menu principale del modulo ab2
ab2.h       Definizione dei nomi delle applicazioni del menu
ab2100.cpp  Sottomenu che separa la ricezione dal trasferimento e implementazione
            delle classi principali
ab2100.h    Definizione delle costanti indicanti l'indice dei campi nel file di configurazione
ab2100a.uml Maschera
ab2101.cpp  Codice per la parte della ricezione
movdett.h   Definizione di costanti per il tracciato di lf_movdett
saldi.h     Definizione di costanti per il tracciato di lf_saldi

La parte riguardante la ricezione per voci, relazioni e sottorelazioni non e' ancora funzionante


git-svn-id: svn://10.65.10.50/trunk@5632 c028cbd2-c16b-5b4b-a496-9718f37d4682
1997-11-17 15:08:54 +00:00

70 lines
1.6 KiB
C++
Executable File

//AB2100.CPP: Ricezione-Trasferimetno tabelle
#include <xvt.h>
#include <checks.h>
#include "ab2100a.h"
#include "ab2.h"
#include "ab2100.h"
bool TRiceTras::create()
{
dispatch_e_menu(BAR_ITEM(1)); //Simula la scelta di una voce di menu
return TRUE;
}
TFile_text* TRiceTras::set_config_name(TString &config, const TMask &msk, const TFilename &percorso)
{
int tipo_ricezione = msk.get_int(F_TIPO_RICE);
switch (tipo_ricezione)
{
case 1:
{
config="ab2100a.ini";
_trasfile = new TABfile_text(percorso, config); //Leggo il file di configurazione
return _trasfile;
}
case 2:
{
config="ab2100a.ini"; /*DA CAMBIARE*/
_trasfile = new TFile_text(percorso, config); //Leggo il file di configurazione
return _trasfile;
}
case 3:
{
config=msk.get(F_PERCORSO_UTENTE); break;
_trasfile = new TFile_text(percorso, config); //Leggo il file di configurazione
return _trasfile;
}
}
return NULL;
}
bool TRiceTras::destroy() //Distruttore
{
return TRUE;
}
int ab2100(int argc, char **argv)
{
char *rt = argv[2]+1; //Leggo se è richiesta la ricezine (r/R) o il trasferimento (t/T)
*rt=toupper(*rt);
switch (*rt)
{
case 'R': //Ricezione
{
ab2101(argc,argv);
break;
}
case 'T': //Trasferimento
{
ab2102(argc,argv);
break;
}
default:
error_box ("Sintassi: \n -0 -R -<utente> per ricezione \n -0 -T -<utente> per trasferimetno");
}
return 0;
}