root/campo-sirio
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

cosmesi

Browse Source 
git-svn-id: svn://10.65.10.50/branches/R_10_00@22817 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy 2013-03-03 21:50:30 +00:00
parent 4798589955
commit 9ad7adc80c
2 changed files with 16 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
ve/ve3200.cpp
View File

@ -25,9 +25,10 @@
class TStampa_condizioni_vendita: public TPrint_application { class TStampa_condizioni_vendita: public TPrint_application
{
TRelation *_rel; // relazione principale TRelation *_rel; // relazione principale
TString16 _condven; // stringa che indica il tipo di archivio TString4 _condven; // stringa che indica il tipo di archivio
bool _codlis_catven; // booleano di abilitazione della categoria di vendita nella chiave dei listini bool _codlis_catven; // booleano di abilitazione della categoria di vendita nella chiave dei listini
bool _codcon_codcf; // booleano di abilitazione del codice cliente/fornitore nella chiave dei contratti bool _codcon_codcf; // booleano di abilitazione del codice cliente/fornitore nella chiave dei contratti
bool _listval; // booleano di abilitazione della stampa dei listini in valuta bool _listval; // booleano di abilitazione della stampa dei listini in valuta
@ -37,7 +38,7 @@ class TStampa_condizioni_vendita: public TPrint_application {
bool _testastamp; // booleano di testata completa già stampata bool _testastamp; // booleano di testata completa già stampata
bool _gest_val, _gest_um, _gest_sca, _gest_so; // booleani per l'abilitazione di valute, unità di misura, scaglioni e sconti/omaggi bool _gest_val, _gest_um, _gest_sca, _gest_so; // booleani per l'abilitazione di valute, unità di misura, scaglioni e sconti/omaggi
bool _filter_by_grm; //Filtro per gruppo merceologico nel caso di stampa righe articoli bool _filter_by_grm; //Filtro per gruppo merceologico nel caso di stampa righe articoli
TString _codiva, _um, _descragg; TString4 _codiva, _um, _descragg;
TString _strprezzo, _stromaggio, _strstorico; //stringhe per la stampa del prezzo dell'articolo (normale, omaggiato e storico!) TString _strprezzo, _stromaggio, _strstorico; //stringhe per la stampa del prezzo dell'articolo (normale, omaggiato e storico!)
protected: protected:
@ -52,9 +53,7 @@ protected:
TString& curr2str(const char * fname, TString& str); TString& curr2str(const char * fname, TString& str);
public: public:
// @cmember Disabilita la verifica del modulo in chiave // @cmember Disabilita la verifica del modulo in chiave
virtual bool check_autorization() const virtual bool check_autorization() const { return false; }
{return FALSE;}
}; };
inline TStampa_condizioni_vendita& app() {return (TStampa_condizioni_vendita&) main_app();} inline TStampa_condizioni_vendita& app() {return (TStampa_condizioni_vendita&) main_app();}
@ -102,9 +101,11 @@ bool TStampa_condizioni_vendita::user_create() {
int indice = 0; // indice delle variabili di configurazione per le abilitazioni int indice = 0; // indice delle variabili di configurazione per le abilitazioni
_condven= "*"; // inizializzazione dell'indicatore del tipo di archivio _condven= "*"; // inizializzazione dell'indicatore del tipo di archivio
if (argc()>2) _condven= argv(2); // se c'è, prende il tipo di archivio dalla linea di comando if (argc()>2) _condven= argv(2); // se c'è, prende il tipo di archivio dalla linea di comando
else { else
{
TMask choose("ve3200"); // istanzia la maschera di scelta del tipo di archivio TMask choose("ve3200"); // istanzia la maschera di scelta del tipo di archivio
if (choose.run() == K_ENTER) _condven= choose.get(F_TIPOCV); // prende il tipo di archivio dalla maschera if (choose.run() == K_ENTER)
_condven= choose.get(F_TIPOCV); // prende il tipo di archivio dalla maschera
} }
_condven.upper(); // rende la stringa upper-case _condven.upper(); // rende la stringa upper-case
TConfig prassid(CONFIG_DITTA, "ve"); // apre il file di configurazione della ditta corrente TConfig prassid(CONFIG_DITTA, "ve"); // apre il file di configurazione della ditta corrente
@ -422,7 +423,8 @@ void TStampa_condizioni_vendita::preprocess_header() {
set_header(++i, ""); set_header(++i, "");
} }
void TStampa_condizioni_vendita::preprocess_footer() { void TStampa_condizioni_vendita::preprocess_footer()
{
reset_footer(); reset_footer();
int i= 1; // indice di linea int i= 1; // indice di linea
set_footer(i, ""); // salta una linea set_footer(i, ""); // salta una linea
@ -433,7 +435,7 @@ TString& TStampa_condizioni_vendita::curr2str(const char * fname, TString& str)
{ {
const TRectype& condv = current_cursor()->curr(LF_CONDV); const TRectype& condv = current_cursor()->curr(LF_CONDV);
const TRectype& rcondv = current_cursor()->curr(LF_RCONDV); const TRectype& rcondv = current_cursor()->curr(LF_RCONDV);
const TString8 codval = condv.get("CODVAL"); const TString& codval = condv.get("CODVAL");
TPrice prezzo(rcondv.get_real(fname), codval); TPrice prezzo(rcondv.get_real(fname), codval);
if (!_listval) //se non viene selezionato "listino in valuta" -> il prezzo viene espresso nella valuta della ditta if (!_listval) //se non viene selezionato "listino in valuta" -> il prezzo viene espresso nella valuta della ditta
prezzo.change_to_firm_val(); prezzo.change_to_firm_val();

2
ve/ve3200x.uml
View File

@ -59,7 +59,7 @@ END
NUMBER F_C_CODCF 6 // codice cliente/fornitore, solo contratti NUMBER F_C_CODCF 6 // codice cliente/fornitore, solo contratti
BEGIN BEGIN
PROMPT 22 1 "Codice " PROMPT 24 1 "Codice "
FLAG "GR" FLAG "GR"
USE LF_CLIFO USE LF_CLIFO
INPUT TIPOCF F_C_TIPOCF INPUT TIPOCF F_C_TIPOCF