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

28
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
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 _codcon_codcf; // booleano di abilitazione del codice cliente/fornitore nella chiave dei contratti
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 _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
TString _codiva, _um, _descragg;
TString4 _codiva, _um, _descragg;
TString _strprezzo, _stromaggio, _strstorico; //stringhe per la stampa del prezzo dell'articolo (normale, omaggiato e storico!)
protected:
@ -52,9 +53,7 @@ protected:
TString& curr2str(const char * fname, TString& str);
public:
// @cmember Disabilita la verifica del modulo in chiave
virtual bool check_autorization() const
{return FALSE;}
virtual bool check_autorization() const { return false; }
};
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
_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
else {
else
{
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
TConfig prassid(CONFIG_DITTA, "ve"); // apre il file di configurazione della ditta corrente
@ -422,20 +423,21 @@ void TStampa_condizioni_vendita::preprocess_header() {
set_header(++i, "");
}
void TStampa_condizioni_vendita::preprocess_footer() {
void TStampa_condizioni_vendita::preprocess_footer()
{
reset_footer();
int i= 1; // indice di linea
set_footer(i, ""); // salta una linea
set_footer(++i, "@125gPag @#"); // l'unica linea del footer contiene il numero di pagina
}
TString& TStampa_condizioni_vendita::curr2str(const char * fname, TString& str)
TString& TStampa_condizioni_vendita::curr2str(const char* fname, TString& str)
{
const TRectype& condv = current_cursor()->curr(LF_CONDV);
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);
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();
str = prezzo.string(TRUE);
@ -534,7 +536,7 @@ void TStampa_condizioni_vendita::set_page(int file, int) {
TLocalisamfile &condv= current_cursor()->file(LF_CONDV);
TString8 tiporiga= rcondv.get("TIPORIGA");
curr2str("PREZZO",_strprezzo);
curr2str("PREZZO", _strprezzo);
set_row(++i, "@1g@1s @3g@20s @77g@1s @79g@pn @101g#t@117g@pn",
FLD(LF_RCONDV, "TIPORIGA"), FLD(LF_RCONDV, "CODRIGA"),

2
ve/ve3200x.uml
View File

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