Patch level : 10.0 148
Files correlati : mg0.exe Ricompilazione Demo : [ ] Commento : Aggiunti i flag di lavanderia alle causali di magazzino git-svn-id: svn://10.65.10.50/trunk@17494 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
parent
696eabe624
commit
2955c4120a
@ -41,8 +41,12 @@
|
|||||||
#define F_STOP_PROD 148
|
#define F_STOP_PROD 148
|
||||||
#define F_MOV_SOSP 149
|
#define F_MOV_SOSP 149
|
||||||
#define F_SCAR_ALT 150
|
#define F_SCAR_ALT 150
|
||||||
#define F_CAMPOQTA 151
|
|
||||||
#define F_GIACCF 152
|
#define F_GIACCF 152
|
||||||
|
#define F_SGNDOTIN 153
|
||||||
|
#define F_SGNDOTOD 154
|
||||||
|
#define F_SGNDOTTM 155
|
||||||
|
#define F_SGNCONYR 156
|
||||||
|
#define F_SGNCONMN 157
|
||||||
|
|
||||||
#define G_SGNVAL 20
|
#define G_SGNVAL 20
|
||||||
#define G_SGNQTA 21
|
#define G_SGNQTA 21
|
||||||
|
@ -1,4 +1,5 @@
|
|||||||
#include "batbcau.h"
|
#include "batbcau.h"
|
||||||
|
#include <modaut.h>
|
||||||
|
|
||||||
TOOLBAR "Toolbar" 0 0 0 2
|
TOOLBAR "Toolbar" 0 0 0 2
|
||||||
|
|
||||||
@ -86,8 +87,6 @@ BEGIN
|
|||||||
ITEM "V|varie"
|
ITEM "V|varie"
|
||||||
ITEM "C|carico"
|
ITEM "C|carico"
|
||||||
ITEM "S|scarico"
|
ITEM "S|scarico"
|
||||||
// STR_EXPR (#F_TIPOMOV=="V")||(#F_RAGGF!="")
|
|
||||||
// WARNING "Necessario indicare il raggruppamento fiscale"
|
|
||||||
END
|
END
|
||||||
|
|
||||||
LISTBOX F_TIPOPR 16
|
LISTBOX F_TIPOPR 16
|
||||||
@ -99,30 +98,20 @@ BEGIN
|
|||||||
ITEM "L|Libero"
|
ITEM "L|Libero"
|
||||||
END
|
END
|
||||||
|
|
||||||
LISTBOX F_CAMPOQTA 6 21
|
|
||||||
BEGIN
|
|
||||||
PROMPT 2 9 "Q.tà sui documenti "
|
|
||||||
FIELD S5
|
|
||||||
ITEM "|Default"
|
|
||||||
ITEM "QTAGG1|Quantità aggiuntiva 1"
|
|
||||||
ITEM "QTAGG2|Quantità aggiuntiva 2"
|
|
||||||
ITEM "QTAGG3|Quantità aggiuntiva 3"
|
|
||||||
ITEM "QTAGG4|Quantità aggiuntiva 4"
|
|
||||||
ITEM "QTAGG5|Quantità aggiuntiva 5"
|
|
||||||
END
|
|
||||||
|
|
||||||
BOOL F_MOVQTA
|
BOOL F_MOVQTA
|
||||||
BEGIN
|
BEGIN
|
||||||
FIELD B0
|
FIELD B0
|
||||||
PROMPT 2 10 "Movimenta solo quantita'"
|
PROMPT 2 10 "Movimenta solo quantita'"
|
||||||
MESSAGE TRUE RESET,F_MOVVAL
|
MESSAGE FALSE ENABLE,F_MOVVAL
|
||||||
|
MESSAGE TRUE CLEAR,F_MOVVAL
|
||||||
END
|
END
|
||||||
|
|
||||||
BOOL F_MOVVAL
|
BOOL F_MOVVAL
|
||||||
BEGIN
|
BEGIN
|
||||||
FIELD B1
|
FIELD B1
|
||||||
PROMPT 42 10 "Movimenta solo valori"
|
PROMPT 42 10 "Movimenta solo valori"
|
||||||
MESSAGE TRUE RESET,F_MOVQTA
|
MESSAGE FALSE ENABLE,F_MOVQTA
|
||||||
|
MESSAGE TRUE CLEAR,F_MOVQTA
|
||||||
END
|
END
|
||||||
|
|
||||||
BOOL F_UPDTULC
|
BOOL F_UPDTULC
|
||||||
@ -135,6 +124,8 @@ BOOLEAN F_GIACCF
|
|||||||
BEGIN
|
BEGIN
|
||||||
FIELD B7
|
FIELD B7
|
||||||
PROMPT 42 11 "Aggiorna giacenze per cliente/fornitore "
|
PROMPT 42 11 "Aggiorna giacenze per cliente/fornitore "
|
||||||
|
MESSAGE FALSE CLEAR,LVAUT@
|
||||||
|
MESSAGE TRUE ENABLE,LVAUT@
|
||||||
END
|
END
|
||||||
|
|
||||||
|
|
||||||
@ -461,6 +452,55 @@ BEGIN
|
|||||||
GROUP G_SGNVAL
|
GROUP G_SGNVAL
|
||||||
END
|
END
|
||||||
|
|
||||||
|
LISTBOX F_SGNDOTIN 1
|
||||||
|
BEGIN
|
||||||
|
PROMPT 42 4 "Movimentazione dotazione iniziale "
|
||||||
|
FIELD S2[29,30]
|
||||||
|
ITEM "0| "
|
||||||
|
ITEM "+1|+"
|
||||||
|
ITEM "-1|-"
|
||||||
|
GROUP LVAUT
|
||||||
|
END
|
||||||
|
|
||||||
|
LISTBOX F_SGNDOTOD 1
|
||||||
|
BEGIN
|
||||||
|
PROMPT 42 5 " '' '' dotazione ordierna "
|
||||||
|
FIELD S2[31,32]
|
||||||
|
ITEM "0| "
|
||||||
|
ITEM "+1|+"
|
||||||
|
ITEM "-1|-"
|
||||||
|
GROUP LVAUT
|
||||||
|
END
|
||||||
|
|
||||||
|
LISTBOX F_SGNDOTTM 1
|
||||||
|
BEGIN
|
||||||
|
PROMPT 42 6 " '' '' dotazione temporanea "
|
||||||
|
FIELD S2[33,34]
|
||||||
|
ITEM "0| "
|
||||||
|
ITEM "+1|+"
|
||||||
|
ITEM "-1|-"
|
||||||
|
GROUP LVAUT
|
||||||
|
END
|
||||||
|
|
||||||
|
LISTBOX F_SGNCONYR 1
|
||||||
|
BEGIN
|
||||||
|
PROMPT 42 7 " '' '' consegnato anno "
|
||||||
|
FIELD S2[35,36]
|
||||||
|
ITEM "0| "
|
||||||
|
ITEM "+1|+"
|
||||||
|
ITEM "-1|-"
|
||||||
|
GROUP LVAUT
|
||||||
|
END
|
||||||
|
|
||||||
|
LISTBOX F_SGNCONMN 1
|
||||||
|
BEGIN
|
||||||
|
PROMPT 42 8 " '' '' consegnato mese "
|
||||||
|
FIELD S2[37,38]
|
||||||
|
ITEM "0| "
|
||||||
|
ITEM "+1|+"
|
||||||
|
ITEM "-1|-"
|
||||||
|
GROUP LVAUT
|
||||||
|
END
|
||||||
|
|
||||||
NUMBER F_SUMSIGN 4 0
|
NUMBER F_SUMSIGN 4 0
|
||||||
BEGIN
|
BEGIN
|
||||||
|
@ -50,6 +50,6 @@ USERVAL5|4|18|3|valore
|
|||||||
USER6|4|15|5|campo definito dall'utente
|
USER6|4|15|5|campo definito dall'utente
|
||||||
USERVAL6|4|18|3|valore
|
USERVAL6|4|18|3|valore
|
||||||
3
|
3
|
||||||
ANNOES+TIPOCF+CODCF+INDSPED+CODART+LIVELLO+NRIGA|
|
ANNOES+TIPOCF+CODCF+INDSPED+CODART+NRIGA|
|
||||||
ANNOES+TIPOCF+CODCF+INDSPED+CODART+LIVELLO|X
|
ANNOES+TIPOCF+CODCF+INDSPED+CODART+LIVELLO|X
|
||||||
ANNOES+CODART+LIVELLO+TIPOCF+CODCF+INDSPED|X
|
ANNOES+CODART+LIVELLO+TIPOCF+CODCF+INDSPED|X
|
||||||
|
@ -83,6 +83,8 @@ TMask_tabmag::TMask_tabmag(const char * _maskname, const TString &tabname)
|
|||||||
if (!main_app().has_module(DBAUT))
|
if (!main_app().has_module(DBAUT))
|
||||||
hide(F_DIBAEXPLOSION);
|
hide(F_DIBAEXPLOSION);
|
||||||
set_handler(F_SGNGIAC, sumsign_handler);
|
set_handler(F_SGNGIAC, sumsign_handler);
|
||||||
|
if (!main_app().has_module(LVAUT))
|
||||||
|
hide(-LVAUT);
|
||||||
} else
|
} else
|
||||||
if (tabname == "FCA") // FORMATO CODICE ARTICOLI
|
if (tabname == "FCA") // FORMATO CODICE ARTICOLI
|
||||||
{
|
{
|
||||||
|
13
mg/mglib.h
13
mg/mglib.h
@ -265,9 +265,9 @@ public:
|
|||||||
class TArticolo_giacenza_data : public TArticolo_giacenza
|
class TArticolo_giacenza_data : public TArticolo_giacenza
|
||||||
{
|
{
|
||||||
protected:
|
protected:
|
||||||
virtual int write(TBaseisamfile&) const;
|
virtual int write(TBaseisamfile&) const { return _iseof; }
|
||||||
virtual int rewrite(TBaseisamfile&) const;
|
virtual int rewrite(TBaseisamfile&) const { return _iseof; }
|
||||||
virtual int remove(TBaseisamfile&) const;
|
virtual int remove(TBaseisamfile&) const { return _iseof; }
|
||||||
|
|
||||||
public:
|
public:
|
||||||
void al(const TDate& data, const char* codmag = NULL, const char* livello = NULL,
|
void al(const TDate& data, const char* codmag = NULL, const char* livello = NULL,
|
||||||
@ -485,7 +485,12 @@ typedef enum
|
|||||||
s_user3,
|
s_user3,
|
||||||
s_user4,
|
s_user4,
|
||||||
s_user5,
|
s_user5,
|
||||||
s_user6
|
s_user6,
|
||||||
|
s_dotin,
|
||||||
|
s_dotod,
|
||||||
|
s_dottm,
|
||||||
|
s_consanno,
|
||||||
|
s_consmese
|
||||||
} TTipo_saldomag;
|
} TTipo_saldomag;
|
||||||
|
|
||||||
class TCausale_magazzino : public TRectype
|
class TCausale_magazzino : public TRectype
|
||||||
|
@ -1514,18 +1514,6 @@ TArticolo_giacenza::TArticolo_giacenza(const TRectype& rec)
|
|||||||
|
|
||||||
// Giacenze alla data
|
// Giacenze alla data
|
||||||
|
|
||||||
int TArticolo_giacenza_data::write(TBaseisamfile&) const
|
|
||||||
{
|
|
||||||
NFCHECK("Non e' possibile scrivere un Articolo con giacenza alla data");
|
|
||||||
return NOERR;
|
|
||||||
}
|
|
||||||
|
|
||||||
int TArticolo_giacenza_data::rewrite(TBaseisamfile& f) const
|
|
||||||
{ return write(f); }
|
|
||||||
|
|
||||||
int TArticolo_giacenza_data::remove(TBaseisamfile& f) const
|
|
||||||
{ return write(f); }
|
|
||||||
|
|
||||||
void TArticolo_giacenza_data::al(const TDate& data, const char* codmag, const char* livello,
|
void TArticolo_giacenza_data::al(const TDate& data, const char* codmag, const char* livello,
|
||||||
TTipo_valorizz tipo, const char* catven, const char* codlis)
|
TTipo_valorizz tipo, const char* catven, const char* codlis)
|
||||||
{
|
{
|
||||||
@ -1695,12 +1683,11 @@ int TCausale_magazzino::sgn(TTipo_saldomag tiposaldo) const
|
|||||||
case s_rim : index = 22; break;
|
case s_rim : index = 22; break;
|
||||||
case s_scart: index = 24; break;
|
case s_scart: index = 24; break;
|
||||||
case s_label: index = 26; break;
|
case s_label: index = 26; break;
|
||||||
case s_user1: index = 28; break;
|
case s_dotin: index = 28; break;
|
||||||
case s_user2: index = 30; break;
|
case s_dotod: index = 30; break;
|
||||||
case s_user3: index = 32; break;
|
case s_dottm: index = 32; break;
|
||||||
case s_user4: index = 34; break;
|
case s_consanno: index = 34; break;
|
||||||
case s_user5: index = 36; break;
|
case s_consmese: index = 36; break;
|
||||||
case s_user6: index = 38; break;
|
|
||||||
default : index = -1; break;
|
default : index = -1; break;
|
||||||
}
|
}
|
||||||
int segno = 0;
|
int segno = 0;
|
||||||
|
@ -666,6 +666,7 @@ bool TMov_mag::update_balances(bool lock)
|
|||||||
if (clifomag.read() != NOERR)
|
if (clifomag.read() != NOERR)
|
||||||
{
|
{
|
||||||
// non trovato: aggiungo
|
// non trovato: aggiungo
|
||||||
|
clifomag.setkey(1);
|
||||||
giac_putkey_clifo(clifomag, saldo);
|
giac_putkey_clifo(clifomag, saldo);
|
||||||
clifomag.put(CLIFOGIAC_NRIGA, 999);
|
clifomag.put(CLIFOGIAC_NRIGA, 999);
|
||||||
if (clifomag.read(_isgteq) == NOERR)
|
if (clifomag.read(_isgteq) == NOERR)
|
||||||
@ -674,13 +675,13 @@ bool TMov_mag::update_balances(bool lock)
|
|||||||
if (clifomag.get_int(CLIFOGIAC_ANNOES) == saldo.codes() &&
|
if (clifomag.get_int(CLIFOGIAC_ANNOES) == saldo.codes() &&
|
||||||
clifomag.get_char(CLIFOGIAC_TIPOCF) == saldo.tipocf() &&
|
clifomag.get_char(CLIFOGIAC_TIPOCF) == saldo.tipocf() &&
|
||||||
clifomag.get(CLIFOGIAC_CODCF) == saldo.codcf() &&
|
clifomag.get(CLIFOGIAC_CODCF) == saldo.codcf() &&
|
||||||
clifomag.get(CLIFOGIAC_INDSPED) == saldo.codindsp() &&
|
|
||||||
clifomag.get(CLIFOGIAC_CODART) == saldo.codart() &&
|
clifomag.get(CLIFOGIAC_CODART) == saldo.codart() &&
|
||||||
clifomag.get(CLIFOGIAC_LIVELLO ) == saldo.livello())
|
clifomag.get(CLIFOGIAC_LIVELLO ) == saldo.livello())
|
||||||
nriga = clifomag.get_int(CLIFOGIAC_NRIGA) + 1;
|
nriga = clifomag.get_int(CLIFOGIAC_NRIGA) + 1;
|
||||||
giac_putkey_clifo(clifomag, saldo);
|
giac_putkey_clifo(clifomag, saldo);
|
||||||
clifomag.put(CLIFOGIAC_NRIGA, nriga);
|
clifomag.put(CLIFOGIAC_NRIGA, nriga);
|
||||||
clifomag.write();
|
clifomag.write();
|
||||||
|
clifomag.setkey(2);
|
||||||
}
|
}
|
||||||
update_balances_clifo(clifomag.curr(), saldo);
|
update_balances_clifo(clifomag.curr(), saldo);
|
||||||
clifomag.rewrite();
|
clifomag.rewrite();
|
||||||
|
Loading…
x
Reference in New Issue
Block a user