#include #include #include "ve2300.h" #define DESTROY(x) { _msk->field(x).reset_key(1); _msk->hide(x); } #define CREATE(x) { _msk->field(x).set_key(1); _msk->show(x); } #define KILL(x) { _msk->field(x).reset_key(1); _msk->disable(x); } #define REVIVE(x) { _msk->field(x).set_key(1); _msk->enable(x); } class TRighe_condizioni_vendita: public TRelation_application { TMask *_msk; // maschera principale TRelation *_rel; // relazione principale TString16 _rcondven; // stringa che indica il tipo di archivio bool _codlis_catven; // booleano di abilitazione del campo CATVEN bool _codcon_codcf; // booleano di abilitazioni dei campi TIPOCF e CODCF bool _gest_um; // variabile di abilitazione delle unità di misura virtual bool user_create(); virtual bool user_destroy(); virtual TMask *get_mask(int) { return _msk; } // punto d'aggancio tra la maschera della rel.app. e la maschera principale dell'applicazione virtual bool changing_mask(int) { return FALSE; } // ritorna il flag di cambio maschera a seconda dei modi di funzionamento, in questa applicazione la maschera è una sola quindi il flag è FALSE virtual bool changing_keys() const { return TRUE; } // ritorna il flag di rigenerazione della lista delle chiavi ad ogni find(), in questa applicazione le chiavi cambiano continuamente quindi il flag è TRUE virtual TRelation *get_relation() const { return _rel; } // punto d'aggancio tra la relazione della rel.app. e la relazione principale dell'applicazione static void hide_and_show_codriga(void); // procedura di abilitazione/disabilitazione dei tre campi CODRIGA (codice riga) static bool handle_tiporiga(TMask_field &, KEY); // handler del campo TIPORIGA (articolo, gruppo merc., ragg. fiscale) static bool handle_cod(TMask_field &, KEY); // handler del campo COD (codice listino, numero contratto, codice offerta) virtual int write(const TMask &); // metodo usato per scrivere il record sul file virtual int rewrite(const TMask &); // metodo usato per aggiornare il record sul file public: TRighe_condizioni_vendita() {} virtual ~TRighe_condizioni_vendita() {} }; TRighe_condizioni_vendita &app() { // funzione che ritorna il riferimento alla classe principale dell'applicazione return (TRighe_condizioni_vendita &)main_app(); } bool TRighe_condizioni_vendita::user_create() { bool gotcha= FALSE; // booleano di avvenuta inizializzazione _rcondven= "*"; // inizializzazione dell'indicatore del tipo di archivio if (argc()>2) { // se c'è, prende il tipo di archivio dalla linea di comando TString temp(argv(2)); _rcondven= temp.left(1); // prende solo il primo carattere } else { TMask choose("VE2300"); // istanzia la maschera di scelta del tipo di archivio if (choose.run() == K_ENTER) _rcondven= choose.get(F_TIPORCV); // prende il tipo di archivio dalla maschera } _rcondven.upper(); // rende la stringa upper-case _msk= new TMask("VE2300X"); TConfig prassid(CONFIG_DITTA, "ve"); // apre il file di configurazione della ditta corrente switch (_rcondven[0]) { case 'L': // listini DESTROY(F_R_C_TIPOCF); // settaggio dei campi da eliminare... DESTROY(F_R_C_CODCF); DESTROY(F_R_C_COD); DESTROY(F_R_O_COD); _msk->hide(F_R_C_DESCF); _msk->hide(F_R_C_DES); _msk->hide(F_R_O_DES); _msk->hide(F_R_C_RICERCA); _msk->hide(F_R_O_RICERCA); // _msk->hide(F_R_CO_CODLOTTO); _msk->hide(F_R_O_ARTES); _codlis_catven= prassid.get_bool("GESLISCV"); // setta il booleano di abilitazione di CATVEN if (!_codlis_catven) KILL(F_R_L_CATVEN); // disabilita condizionalmente le categorie di vendita set_search_field(F_R_L_RICERCA); // impostazione del campo di ricerca _msk->set_handler(F_R_L_COD, handle_cod); // impostazione dell'handler sul campo di controllo della testata gotcha= TRUE; break; case 'C': // contratti DESTROY(F_R_L_CATVEN); // settaggio dei campi da eliminare... DESTROY(F_R_L_COD); DESTROY(F_R_O_COD); _msk->hide(F_R_L_DESVEN); _msk->hide(F_R_L_DES); _msk->hide(F_R_O_DES); _msk->hide(F_R_L_RICERCA); _msk->hide(F_R_O_RICERCA); _msk->hide(F_R_O_ARTES); _codcon_codcf= prassid.get_bool("GESCONCC"); // setta il booleano di abilitazione di TIPOCF e CODCF if (!_codcon_codcf) { // disabilita i campi di gestione clienti/fornitori in base al flag. di config. KILL(F_R_C_TIPOCF); KILL(F_R_C_CODCF); } set_search_field(F_R_C_RICERCA); // impostazione del campo di ricerca _msk->set_handler(F_R_C_COD, handle_cod); // impostazione dell'handler sul campo di controllo della testata gotcha= TRUE; break; case 'O': // offerte DESTROY(F_R_L_CATVEN); // settaggio dei campi da eliminare... DESTROY(F_R_C_TIPOCF); DESTROY(F_R_C_CODCF); DESTROY(F_R_L_COD); DESTROY(F_R_C_COD); _msk->hide(F_R_C_DESCF); _msk->hide(F_R_L_DESVEN); _msk->hide(F_R_L_DES); _msk->hide(F_R_C_DES); _msk->hide(F_R_L_RICERCA); _msk->hide(F_R_C_RICERCA); set_search_field(F_R_O_RICERCA); // impostazione del campo di ricerca _msk->set_handler(F_R_O_COD, handle_cod); // impostazione dell'handler sul campo di controllo della testata gotcha= TRUE; break; default: // messaggio di errore se si indica un archivio non valido error_box("Indicare l'archivio sulla linea di comando (L, C o O) oppure selezionarla dalla maschera di partenza"); break; } if (gotcha) { // se è stato selezionato correttamente un archivio completa l'inizializzazione _rel= new TRelation(LF_RCONDV); // apre la relazione (un unico file) _msk->set(F_R_TIPO, _rcondven); // settaggio del campo di tipo archivio _msk->set_handler(F_R_TIPORIGA, handle_tiporiga); // impostazione dell'handler sul campo di selezione del tipo della riga _gest_um= TRUE; // abilita la gestione delle unità di misura (di default) hide_and_show_codriga(); // invoca la procedura di controllo della mutua esclusione dei tre campi CODRIGA } return (gotcha); } bool TRighe_condizioni_vendita::user_destroy() { delete _rel; delete _msk; return TRUE; } void TRighe_condizioni_vendita::hide_and_show_codriga() { TMask *_msk= app()._msk; // prende il puntatore alla maschera principale dell'applicazione if (_msk->query_mode()) { // se la maschera è in modo query procede con i controlli... short id_campi_1[4]= { F_R_CODRIGA_A, F_R_CODRIGA_G, F_R_CODRIGA_S, F_R_CODRIGA_R }; // vettore degli identificatori dei tre campi CODRIGA in mutua esclusione short id_campi_2[4]= { F_R_DESRIGA_A, F_R_DESRIGA_G, F_R_DESRIGA_S, F_R_DESRIGA_R }; // vettore degli identificatori dei tre campi CODRIGA in mutua esclusione char tag_campi[4]= { 'A', 'G', 'S', 'R' }; // vettore dei tag di TIPORIGA per i tre campi CODRIGA in mutua esclusione bool &_gest_um= app()._gest_um; // prende il riferimento al booleano di abilitazione delle unità di misura TString &_rcondven= app()._rcondven; // prende il riferimento alla stringa di tipo di archivio char tag_campo= toupper(_msk->get(F_R_TIPORIGA)[0]); // prende il tag del campo da abilitare in TIPORIGA for (int i=0; i<4; i++) { // ciclo sui tre campi CODRIGA if (tag_campo == tag_campi[i]) { CREATE(id_campi_1[i]); _msk->show(id_campi_2[i]); } // il campo indicato con il tag viene reso visibile else { DESTROY(id_campi_1[i]); _msk->hide(id_campi_2[i]); } // i campi non corrispondenti al tag vengono resi invisibili } if (_gest_um && (tag_campo=='A')) { REVIVE(F_R_UM); } // se la gest. delle u.m. è abilitata, il campo viene attivato se la riga è un articolo... else { KILL(F_R_UM); } // ...altrimenti viene disattivato } } bool TRighe_condizioni_vendita::handle_tiporiga(TMask_field &fld, KEY k) { if (k==K_SPACE) hide_and_show_codriga(); // invoca la procedura di controllo della mutua esclusione dei tre campi CODRIGA return TRUE; } bool TRighe_condizioni_vendita::handle_cod(TMask_field &fld, KEY k) { if ((k==K_TAB) && fld.get().not_empty()) { bool &_gest_um= app()._gest_um; // prende il riferimento al booleano di abilitazione delle unità di misura TString &_rcondven= app()._rcondven; // prende il riferimento alla stringa di indicazione del tipo di archivio TMask *_msk= app()._msk; // prende il puntatore alla maschera principale dell'applicazione TLocalisamfile condv(LF_CONDV); // apre il file della testata (condizioni di vendita) condv.put("TIPO", _rcondven); // riempie il campo "TIPO" switch (_rcondven[0]) { case 'L': // riempie il resto della chiave dei listini condv.put("CATVEN", _msk->get(F_R_L_CATVEN)); condv.put("COD", _msk->get(F_R_L_COD)); break; case 'C': // riempie il resto della chiave dei contratti condv.put("TIPOCF", _msk->get(F_R_C_TIPOCF)); condv.put("CODCF", _msk->get(F_R_C_CODCF)); condv.put("COD", _msk->get(F_R_C_COD)); break; case 'O': // riempie il resto della chiave delle offerte condv.put("COD", _msk->get(F_R_O_COD)); break; } if (condv.read()==NOERR) { // se la lettura è andata a buon fine abilita/disabilita i campi della maschera in base ai booleani della testata _gest_um= condv.get_bool("GESTUM"); // legge lo stato di abilitazione della gestione delle unità di misura hide_and_show_codriga(); // lancia la funzione che si occupa di abilitare/disabilitare il campo "unità di misura" if (!condv.get_bool("GESTSCAGL")) { KILL(F_R_NSCAGL); // disabilita il campo "numero scaglione" _msk->disable(F_R_QLIM); // disabilita il campo "quantità limite scaglione" } else { REVIVE(F_R_NSCAGL); // abilita il campo "numero scaglione" _msk->enable(F_R_QLIM); // abilita il campo "quantità limite scaglione" } if (!condv.get_bool("GESTSCO")) { _msk->disable(F_R_SCONTO); // disabilita il campo "sconto" _msk->disable(F_R_QOM); // disabilita il campo "quantità art. omaggio" _msk->disable(F_R_QBASE); // disabilita il campo "quantità base x sconto" _msk->disable(F_R_CODARTOM); // disabilita il campo "codice articolo omaggio" _msk->disable(F_R_PROMAGGIO); // disabilita il campo "prezzo omaggio" _msk->disable(F_R_UMOM); // disabilita il campo "unità di misura art. omaggio" } else { _msk->enable(F_R_SCONTO); // abilita il campo "sconto" _msk->enable(F_R_QOM); // abilita il campo "quantità art. omaggio" _msk->enable(F_R_QBASE); // abilita il campo "quantità base x sconto" _msk->enable(F_R_CODARTOM); // abilita il campo "codice articolo omaggio" _msk->enable(F_R_PROMAGGIO); // abilita il campo "prezzo omaggio" _msk->enable(F_R_UMOM); // abilita il campo "unità di misura art. omaggio" } return TRUE; } else { error_box("Non esiste una testata corrispondente alla chiave specificata"); return FALSE; } } else return TRUE; } int TRighe_condizioni_vendita::write(const TMask &m) { m.autosave(_rel); // scrive il contenuto della maschera nel record della relazione if (_rcondven != "C") { // se non si sta lavorando sui contratti il campo TIPOCF deve essere svuotato sul file TLocalisamfile &f= _rel->lfile(); // prende il file principale della relazione TRectype &r= f.curr(); // prende il record corrente del file principale f.zero("TIPOCF"); // svuota il campo TIPOCF } _rel->write(); // invoca la scrittura della relazione return (_rel->status()); // ritorna lo stato della relazione } int TRighe_condizioni_vendita::rewrite(const TMask &m) { m.autosave(_rel); // scrive il contenuto della maschera nel record della relazione if (_rcondven != "C") { // se non si sta lavorando sui contratti il campo TIPOCF deve essere svuotato sul file TLocalisamfile &f= _rel->lfile(); // prende il file principale della relazione TRectype &r= f.curr(); // prende il record corrente del file principale f.zero("TIPOCF"); // svuota il campo TIPOCF } _rel->rewrite(); // invoca la riscrittura della relazione return (_rel->status()); // ritorna lo stato della relazione } int ve2300(int argc, char* argv[]) { TRighe_condizioni_vendita a; a.run(argc, argv, "Righe condizioni vendita "); return 0; }