Patch level :10.0

Files correlati     :
Ricompilazione Demo : [ ]
Commento            :implementata la clifogiac. Funzionera'?


git-svn-id: svn://10.65.10.50/trunk@17222 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
luca 2008-09-11 11:02:58 +00:00
parent 94f60ab34b
commit 3b202a25b5
3 changed files with 188 additions and 154 deletions

View File

@ -1,5 +1,4 @@
#include <modaut.h>
#include <progind.h>
#include <relapp.h>
#include <reputils.h>
#include <tabutil.h>
@ -50,37 +49,47 @@ bool TClifo_giac_mask::notify_sheet_giac(TSheet_field &f, int i, KEY k)
{
TClifo_giac_mask & m = (TClifo_giac_mask&)f.mask();
const bool gestmag = main_app().has_module(MGAUT) && m.magazzini().gestmag();
if (gestmag)
{
switch (k)
{
case (K_ENTER): // fine modifica
{
real ck(f.cell(i,f.cid2index(F_RIM)));
ck+=real(f.cell(i,f.cid2index(F_ACQ)));
ck+=real(f.cell(i,f.cid2index(F_ENTR)));
ck-=real(f.cell(i,f.cid2index(F_VEN)));
ck-=real(f.cell(i,f.cid2index(F_USC)));
ck-=real(f.cell(i,f.cid2index(F_ACL)));
ck+=real(f.cell(i,f.cid2index(F_INCL)));
ck-=real(f.cell(i,f.cid2index(F_INPRODF)));
ck+=real(f.cell(i,f.cid2index(F_INPRODC)));
ck-=real(f.cell(i,f.cid2index(F_SCARTI)));
ck-=real(f.cell(i,f.cid2index(F_GIAC)));
//controlla che l'indsped di una nuova riga non sia gia' presente, senno' avrebbe 2 record con la stessa..
//..chiave visto che la testata e' uguale per tutti
const int indsped = atoi(f.cell(i, f.cid2index(F_INDSPED)));
for (int j = 0; j < f.items(); j++)
{
if (i != j)
{
const int jndsped = atoi(f.cell(j, f.cid2index(F_INDSPED)));
if (indsped == jndsped)
return f.error_box(FR("L'indirizzo della riga %d e' lo stesso di quello della riga %d"), i+1, j+1);
}
} //for (int j = 0...
if (!ck.is_zero())
{
f.error_box("La giacenza deve essere pari a RIM+(ACQ+ENTR)-(VEN+USC)-(ACL-INCL)-(PRODF-PRODC) - SCARTI)");
return FALSE;
}
}
break;
real ck(f.cell(i,f.cid2index(F_RIM)));
ck+=real(f.cell(i,f.cid2index(F_ACQ)));
ck+=real(f.cell(i,f.cid2index(F_ENTR)));
ck-=real(f.cell(i,f.cid2index(F_VEN)));
ck-=real(f.cell(i,f.cid2index(F_USC)));
ck-=real(f.cell(i,f.cid2index(F_ACL)));
ck+=real(f.cell(i,f.cid2index(F_INCL)));
ck-=real(f.cell(i,f.cid2index(F_INPRODF)));
ck+=real(f.cell(i,f.cid2index(F_INPRODC)));
ck-=real(f.cell(i,f.cid2index(F_SCARTI)));
ck-=real(f.cell(i,f.cid2index(F_GIAC)));
if (!ck.is_zero())
{
f.error_box("La giacenza deve essere pari a RIM+(ACQ+ENTR)-(VEN+USC)-(ACL-INCL)-(PRODF-PRODC) - SCARTI)");
return FALSE;
} //if(!ck.is_zero())...
}
break;
default:
break;
}
} //if(gestmag...
//campi presi da altri campi della maschera per..
//..essere visualizzati nella pag. giacenze
@ -107,7 +116,7 @@ bool TClifo_giac_mask::notify_sheet_giac(TSheet_field &f, int i, KEY k)
bool TClifo_giac_mask::handle_sheet_giac_valgiac(TMask_field &f, KEY k)
{
if (k==K_TAB && f.dirty())
if (k == K_TAB && f.dirty())
{
TMask& m = f.mask();
real q=m.get_real(F_RIM)+m.get_real(F_ACQ);
@ -128,7 +137,7 @@ bool TClifo_giac_mask::handle_autoinsert_livgiac(TMask_field &fld, KEY k)
if (k == K_TAB && fld.focusdirty() && !fld.empty())
{
TClifo_giac_mask & mask = (TClifo_giac_mask&)fld.mask().get_sheet()->mask();
const int levnum=fld.dlg()-F_LIV1+1;
const int levnum = fld.dlg() - F_LIV1 + 1;
return mask.livelli_giac->autoinsert(levnum, fld);
}
return true;
@ -138,8 +147,8 @@ void TClifo_giac_mask::sheetgiac_get(TSheet_field &fld_righe, int item)
{
TClifo_giac_mask &m = (TClifo_giac_mask&)fld_righe.mask();
// prende il record della riga corrente dal record array
TRectype &rec= fld_righe.record()->row(item, TRUE);
TToken_string &row= fld_righe.row(item-1);
TRectype &rec = fld_righe.record()->row(item, TRUE);
TToken_string &row = fld_righe.row(item-1);
// codici di livello
row.add( m.livelli_giac->unpack_grpcode(rec.get("LIVELLO") ,1),fld_righe.cid2index(F_LIV1) );
row.add( m.livelli_giac->unpack_grpcode(rec.get("LIVELLO") ,2),fld_righe.cid2index(F_LIV2) );
@ -152,7 +161,7 @@ void TClifo_giac_mask::sheetgiac_get(TSheet_field &fld_righe, int item)
void TClifo_giac_mask::sheetgiac_put(TSheet_field &fld_righe, int item)
{
TClifo_giac_mask &m = (TClifo_giac_mask&)fld_righe.mask();
TToken_string &row= fld_righe.row(item-1);
TToken_string &row= fld_righe.row(item - 1);
TRectype &recrighe= fld_righe.record()->row(item, TRUE);
// codici livello
@ -216,10 +225,11 @@ void TClifo_giac_mask::set_parametered_fields()
}
// abilita la gestione delle ubicazioni (manuale/su tabella)
const bool ubi = gestmag && magazzini().gestubi_man();
fld_giac.sheet_mask().field(F_UBICAZ).show(!ubi);
fld_giac.sheet_mask().field(F_UBICAZD).show(!ubi);
fld_giac.sheet_mask().field(F_UBICAZ2).show(ubi);
if (magazzini().gestubi_man())
{
fld_giac.sheet_mask().field(F_UBICAZ).check_type(CHECK_SEARCH);
fld_giac.sheet_mask().field(F_UBICAZD).check_type(CHECK_SEARCH);
}
}
@ -238,6 +248,7 @@ TClifo_giac_mask::TClifo_giac_mask(TRelation * rel) : TMask("mg0400a")
set_parametered_fields();
}
//--------------------------------------------------------------------------------------------------------------------------//
//--------------------------------------------
// APPLICAZIONE
//--------------------------------------------
@ -251,17 +262,19 @@ protected:
virtual bool user_destroy();
virtual TMask *get_mask(int) { return _msk; }
TISAM_recordset recset_giacenze(const char tipocf, const long codcf, const TString& codart, const int annoes);
TString query_giacenze(const TMask& m);
virtual int read(TMask& m);
void fill_giacenze(const char tipocf, const long codcf, const TString& codart, const int annoes);
virtual bool find(word key = 0);
void fill_giacenze(const TMask& m);
virtual bool remove();
int remove_giacenze(const char tipocf, const long codcf, const TString& codart, const int annoes);
virtual int write(const TMask& m);
virtual int rewrite(const TMask& m);
int write_giacenze(TSheet_field& sheet_giac, const char tipocf, const long codcf, const TString& codart, const int annoes);
int find_codindsp(TSheet_field& s,const int codindsp) const;
int write_giacenze(const TMask& m);
public:
virtual TRelation *get_relation() const { return _rel; }
@ -269,17 +282,20 @@ public:
virtual ~TClifo_giac() {}
};
//-------------------------------------------
// Metodo comune per riempire un recordset
//-------------------------------------------
TISAM_recordset TClifo_giac::recset_giacenze(const char tipocf, const long codcf, const TString& codart, const int annoes)
//-----------------------------------------------------------------------------
// Metodo comune per riempire una stringa da usare come query nei vari recset
//-----------------------------------------------------------------------------
TString TClifo_giac::query_giacenze(const TMask& m)
{
TISAM_recordset giacenze("USE CLIFOGIAC\nSELECT CODART=#CODART\nFROM TIPOCF=#TIPOCF CODCF=#CODCF ANNOES=#ANNOES\nTO TIPOCF=#TIPOCF CODCF=#CODCF ANNOES=#ANNOES");
giacenze.set_var("#CODART", TVariant(codart));
TString4 str_tipocf; str_tipocf << tipocf;
giacenze.set_var("#TIPOCF", TVariant(str_tipocf));
giacenze.set_var("#CODCF", codcf);
giacenze.set_var("#ANNOES", (long)annoes);
const char tipocf = m.get(F_TIPOCF)[0];
const long codcf = m.get_long(F_CODCF);
const TString80 codart = m.get(F_CODART);
const int annoes = m.get_int(F_ANNOES);
TString& giacenze = get_tmp_string();
giacenze << "USE CLIFOGIAC KEY 3\n"
<< "\nFROM ANNOES=" << annoes << " CODART=" << codart << " TIPOCF=" << tipocf << " CODCF=" << codcf
<< "\nTO ANNOES=" << annoes << " CODART=" << codart << " TIPOCF=" << tipocf << " CODCF=" << codcf ;
return giacenze;
}
@ -288,14 +304,13 @@ TISAM_recordset TClifo_giac::recset_giacenze(const char tipocf, const long codcf
// Metodi READ
//------------------
//FILL_GIACENZE: metodo x riempire lo sheet della maschera con tutti i record che soddisfano la chiave incompleta
void TClifo_giac::fill_giacenze(const char tipocf, const long codcf, const TString& codart, const int annoes)
void TClifo_giac::fill_giacenze(const TMask& m)
{
//e usiamo 'sti recordset che sono comodi e capibili...quasi
TISAM_recordset giacenze = recset_giacenze(tipocf, codcf, codart, annoes);
TISAM_recordset giacenze(query_giacenze(m));
int items = giacenze.items();
TProgind pi(giacenze.items(), TR("Ricerca giacenze per indirizzo di spedizione..."), true, true);
TSheet_field& sheet = _msk->sfield(F_SHEETGIAC);
//riempie lo sheet con i record che soddisfano la chiave parziale applicata per avere il recordset
TSheet_field& sheet = m.sfield(F_SHEETGIAC);
TMask& sheetmask = sheet.sheet_mask();
TRelation& rel = *giacenze.cursor()->relation(); //accesso alle righe
@ -304,10 +319,7 @@ void TClifo_giac::fill_giacenze(const char tipocf, const long codcf, const TStri
if (giacenze.items() > 0)
{
for (bool ok = giacenze.move_first(); ok; ok = giacenze.move_next())
{
if (!pi.addstatus(1))
break;
{
TToken_string& row = sheet.row(-1); //crea una nuova riga dello sheet
//scandisco nella maschera tutti i campi che hanno un field
@ -319,41 +331,88 @@ void TClifo_giac::fill_giacenze(const char tipocf, const long codcf, const TStri
}
sheet.check_row(sheet.items()-1); //fa fare alla maschera la decodifica dei codici e aggiorna la TToken_string
}
sheet.force_update(); //forza l'update dello sheet, in modo da rendere visibili i cambiamneti fatti
sheet.force_update(); //forza l'update dello sheet, in modo da rendere visibili i cambiamenti fatti
}
return;
}
bool TClifo_giac::find(word key)
{
bool ok = false;
const char tipocf = _msk->get(F_TIPOCF)[0];
const long codcf = _msk->get_long(F_CODCF);
const TString80 codart = _msk->get(F_CODART);
const int annoes = _msk->get_int(F_ANNOES);
TLocalisamfile clifogiac(LF_CLIFOGIAC);
clifogiac.put(CLIFOGIAC_ANNOES, annoes);
clifogiac.put(CLIFOGIAC_CODART, codart);
clifogiac.put(CLIFOGIAC_TIPOCF, tipocf);
clifogiac.put(CLIFOGIAC_CODCF, codcf);
clifogiac.setkey(3);
ok = clifogiac.read(_isgteq) == NOERR;
return ok;
}
int TClifo_giac::read(TMask& m)
{
// int err = TRelation_application::read(m);
// return err;
//recupero i dati della testata
const char tipocf = m.get(F_TIPOCF)[0];
const long codcf = m.get_long(F_CODCF);
const TString80 codart = m.get(F_CODART);
const int annoes = m.get_int(F_ANNOES);
fill_giacenze(tipocf, codcf, codart, annoes);
fill_giacenze(m);
return NOERR;
}
//------------------
// Metodi WRITE
//------------------
//WRITE_GIACENZE:scrive i dati sul file 166 (CLIFOGIAC)
int TClifo_giac::write_giacenze(TSheet_field& sheet_giac, const char tipocf, const long codcf, const TString& codart,
const int annoes)
int TClifo_giac::find_codindsp(TSheet_field& s,const int codindsp) const
{
TISAM_recordset giacenze = recset_giacenze(tipocf, codcf, codart, annoes);
int items = giacenze.items();
int r=-1;
//per ogni riga dello sheet, legge codindsp,
//e se esiste interrompe restituendo un valore positivo,
//se no arriva fino in fondo e resituisci -1
for (r = s.items()-1; r >= 0; r--)
{
const int indsped = s.row(r).get_int(s.cid2index(F_INDSPED));
if (codindsp == indsped)
break;
}
return r;
}
//WRITE_GIACENZE:scrive i dati sul file 166 (CLIFOGIAC)
int TClifo_giac::write_giacenze(const TMask& m)
{
TISAM_recordset giacenze(query_giacenze(m));
int err = NOERR;
TLocalisamfile& clifogiac = giacenze.cursor()->file();
//Maschera di sheet
//si prende lo sheet sulla maschera principale...
TSheet_field& sheet_giac = m.sfield(F_SHEETGIAC);
//per ogni riga del recordset
for (bool ok = giacenze.move_first(); ok; ok = giacenze.move_next())
{
//leggo indirizzo spedizione unico campo chiave sulla riga dello sheet
const int codindsp = giacenze.get(CLIFOGIAC_INDSPED).as_int();
//tutte le righe del TISAM_recordset che NON SONO nel TRecord_array vanno eliminate dal file
if (find_codindsp(sheet_giac, codindsp) < 0)
clifogiac.remove();
}
//prende i dati dalla maschera principale
const char tipocf = m.get(F_TIPOCF)[0];
const long codcf = m.get_long(F_CODCF);
const TString80 codart = m.get(F_CODART);
const int annoes = m.get_int(F_ANNOES);
//..e quindi la maschera di sheet
TMask& msk = sheet_giac.sheet_mask();
//per ogni riga dello sheet
@ -390,32 +449,12 @@ int TClifo_giac::write_giacenze(TSheet_field& sheet_giac, const char tipocf, con
int TClifo_giac::write(const TMask& m)
{
//int err = TRelation_application::write(m);
//return err;
const char tipocf = m.get(F_TIPOCF)[0];
const long codcf = m.get_long(F_CODCF);
const TString80 codart = m.get(F_CODART);
const int annoes = m.get_int(F_ANNOES);
TSheet_field& sheet_giac = m.sfield(F_SHEETGIAC);
return write_giacenze(sheet_giac, tipocf, codcf, codart, annoes);
return write_giacenze(m);
}
int TClifo_giac::rewrite(const TMask& m)
{
//int err = TRelation_application::rewrite(m);
//return err;
const char tipocf = m.get(F_TIPOCF)[0];
const long codcf = m.get_long(F_CODCF);
const TString80 codart = m.get(F_CODART);
const int annoes = m.get_int(F_ANNOES);
TSheet_field& sheet_giac = m.sfield(F_SHEETGIAC);
return write_giacenze(sheet_giac, tipocf, codcf, codart, annoes);
return write_giacenze(m);
}
//------------------
@ -424,8 +463,11 @@ int TClifo_giac::rewrite(const TMask& m)
//REMOVE_GIACENZE: elimina tutte le righe dello sheet per il clifo,l'articolo e l'anno passati
int TClifo_giac::remove_giacenze(const char tipocf, const long codcf, const TString& codart, const int annoes)
{
TISAM_recordset giacenze = recset_giacenze(tipocf, codcf, codart, annoes);
int items = giacenze.items();
TString query_giacenze;
query_giacenze << "USE CLIFOGIAC KEY 3\n"
<< "\nFROM ANNOES=" << annoes << " CODART=" << codart << " TIPOCF=" << tipocf << " CODCF=" << codcf
<< "\nTO ANNOES=" << annoes << " CODART=" << codart << " TIPOCF=" << tipocf << " CODCF=" << codcf ;
TISAM_recordset giacenze(query_giacenze);
int err = NOERR;
//l'accoppamento delle righe va fatto proprio sul file, quindi sotto con il localisamfile..
@ -440,18 +482,13 @@ int TClifo_giac::remove_giacenze(const char tipocf, const long codcf, const TStr
}
bool TClifo_giac::remove()
{
//bool ok = TRelation_application::remove();
//return ok;
//recupero i dati della testata
const char tipocf = _msk->get(F_TIPOCF)[0];
const long codcf = _msk->get_long(F_CODCF);
const TString80 codart = _msk->get(F_CODART);
const int annoes = _msk->get_int(F_ANNOES);
const TRectype rec = _rel->curr();
const char tipocf = rec.get_char(CLIFOGIAC_TIPOCF);
const long codcf = rec.get_long(CLIFOGIAC_CODCF);
const TString80 codart = rec.get(CLIFOGIAC_CODART);
const int annoes = rec.get_int(CLIFOGIAC_ANNOES);
//variabili per lavorare sugli sheet
TSheet_field& sheet_giac = _msk->sfield(F_SHEETGIAC);
return remove_giacenze(tipocf, codcf, codart, annoes) > 0;
}
@ -461,9 +498,14 @@ bool TClifo_giac::remove()
bool TClifo_giac::user_create()
{
_rel = new TRelation(LF_CLIFOGIAC);
_msk = new TClifo_giac_mask(_rel);
const bool gestmag = _msk->magazzini().gestmag();
if (!gestmag)
{
return error_box(TR("Per utilizzare questo programma e' NECESSARIO attivare la Gestione del magazzino!"));
}
return true;
}

View File

@ -21,41 +21,39 @@
#define F_LOTTORIOR 110
#define F_LOTTOIRIOR 111
#define F_GIORNIRIOR 112
#define F_GIAC 113
#define F_VALGIAC 114
#define F_RIM 115
#define F_VRIM 116
#define F_ACQ 117
#define F_VACQ 118
#define F_ENTR 119
#define F_VENTR 120
#define F_VEN 121
#define F_VVEN 122
#define F_USC 123
#define F_VUSC 124
#define F_ORDF 125
#define F_VORDF 126
#define F_ORDC 127
#define F_VORDC 128
#define F_SCARTI 129
#define F_VSCARTI 130
#define F_INPRODC 131
#define F_INPRODF 132
#define F_ACL 133
#define F_INCL 134
#define F_LABELS 135
#define F_NDIST 136
#define F_GIAC 113
#define F_VALGIAC 114
#define F_RIM 115
#define F_VRIM 116
#define F_ACQ 117
#define F_VACQ 118
#define F_ENTR 119
#define F_VENTR 120
#define F_VEN 121
#define F_VVEN 122
#define F_USC 123
#define F_VUSC 124
#define F_ORDF 125
#define F_VORDF 126
#define F_ORDC 127
#define F_VORDC 128
#define F_SCARTI 129
#define F_VSCARTI 130
#define F_INPRODC 131
#define F_INPRODF 132
#define F_ACL 133
#define F_INCL 134
#define F_LABELS 135
#define F_NDIST 136
// colonne non visibili dello Sheet
#define F_UBICAZD 154
#define F_DESL1 155
#define F_DESL2 156
#define F_DESL3 157
#define F_DESL4 158
#define F_UBICAZD 154
#define F_DESL1 155
#define F_DESL2 156
#define F_DESL3 157
#define F_DESL4 158
// campi richiesti da quei rompicazzo di Xfirpo
#define F_CODARTR 159
#define F_DESCRR 160
#define F_CODARTR 159
#define F_DESCRR 160
// campi doppi
#define F_UBICAZ2 207

View File

@ -107,6 +107,7 @@ BEGIN
ITEM "Liv3@10"
ITEM "Liv4@10"
ITEM "Data rif.@10"
ITEM "Ubicazione"
ITEM "Livello rior.@10"
ITEM "Scorta min.@10"
ITEM "Lotto rior.@10"
@ -254,25 +255,18 @@ BEGIN
FIELD DATARIF
END
// ubicazione introdotta da tabella ubicazioni
STRING F_UBICAZ 10
//ubicazione introdotta da tabella ubicazioni (accensione/spegnimento gestito da programma)
STRING F_UBICAZ 3
BEGIN
PROMPT 2 4 "Ubicazione "
FIELD UBICAZ
USE UBI
INPUT CODTAB F_UBICAZ
DISPLAY "Codice" CODTAB[1,3]
DISPLAY "Codice" CODTAB
DISPLAY "Ubicazione@50 " S0
OUTPUT F_UBICAZ CODTAB
OUTPUT F_UBICAZD S0
CHECKTYPE NORMAL
STR_EXPR (#F_UBICAZ[4,10]=="")
END
// ubicazione introdotta direttamente o da tabella
STRING F_UBICAZ2 10
BEGIN
PROMPT 2 4 "Ubicazione "
FLAGS "Z"
FIELD UBICAZ
END