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

Modifiche per introduzione TMultirectype

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@4556 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
augusto 1997-06-09 10:53:47 +00:00
parent 7a1bbd6b7f
commit 3e0c28053e
3 changed files with 147 additions and 81 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

101
mg/mg1100.cpp
View File

@ -6,17 +6,13 @@
#include <assoc.h> #include <assoc.h>
#include <checks.h> #include <checks.h>
#include <defmask.h> #include <defmask.h>
#include "..\mg\mglib01.h" #include "..\mg\mglib.h"
#include "..\cg\cglib.h" //#include "..\cg\cglib.h"
#include "..\ve\velib03.h" #include "..\ve\veconf.h"
#include "mg1100.h" #include "mg1100.h"
//******************** //********************
//******************** //********************
// maschera dell'applicazione "Gestione interattiva movimenti di magazzino" // maschera dell'applicazione "Gestione interattiva movimenti di magazzino"
@ -28,8 +24,8 @@ class TMask_movmag: public TMask {
real price_quant; real price_quant;
bool price_proposed; bool price_proposed;
real proposed_price(TString codart, real quant); real proposed_price(TString codart, real quant);
static bool handle_righeprezzo(TMask_field &f, KEY k); // notify delle righe static bool handle_righeprezzo(TMask_field &f, KEY k); // handler delle righe
static bool handle_codcaus(TMask_field &fld, KEY k); // handler delle righe static bool handle_codcaus(TMask_field &fld, KEY k); // handler della causale
static bool handle_datacomp(TMask_field &, KEY); // handler del numero di registrazione static bool handle_datacomp(TMask_field &, KEY); // handler del numero di registrazione
public: public:
TMask_movmag(TMag_livelli *l_m,TMov_mag * m_m); TMask_movmag(TMag_livelli *l_m,TMov_mag * m_m);
@ -57,44 +53,50 @@ TMask_movmag::TMask_movmag(TMag_livelli *l_m,TMov_mag * m_m)
((TSheet_field &)field(F_RIGHE)).sheet_mask().field(F_QUANT).set_handler(handle_righeprezzo); ((TSheet_field &)field(F_RIGHE)).sheet_mask().field(F_QUANT).set_handler(handle_righeprezzo);
((TSheet_field &)field(F_RIGHE)).set_userget(sheetrighe_get); ((TSheet_field &)field(F_RIGHE)).set_userget(sheetrighe_get);
((TSheet_field &)field(F_RIGHE)).set_userput(sheetrighe_put); ((TSheet_field &)field(F_RIGHE)).set_userput(sheetrighe_put);
((TSheet_field &)field(F_RIGHE)).set_lines_record(*m_m->rows_record()); ((TSheet_field &)field(F_RIGHE)).set_lines_record(m_m->body());
// setta i campi della maschera // setta i campi della maschera
// per la pagina giacenze // per la pagina giacenze
TSheet_field &fld_righe= (TSheet_field &)field(F_RIGHE); TSheet_field &fld_righe= (TSheet_field &)field(F_RIGHE);
// disabilita le colonne quando non sono utilizzati i livelli di giacenza // disabilita le colonne quando non sono utilizzati i livelli di giacenza
if (livelli_giac->enabled(1)) { if (livelli_giac->enabled(1)) {
fld_righe.sheet_mask().field(F_LIV1).show(); fld_righe.sheet_mask().field(F_LIV1).show();
fld_righe.set_column_header(fld_righe.cid2index(F_LIV1),livelli_giac->name(1)); fld_righe.set_column_header(fld_righe.cid2index(F_LIV1),livelli_giac->name(1));
fld_righe.sheet_mask().field(F_LIV1).set_prompt(livelli_giac->name(1)); fld_righe.sheet_mask().field(F_LIV1).set_prompt(livelli_giac->name(1));
} else { } else {
fld_righe.sheet_mask().field(F_LIV1).hide(); fld_righe.sheet_mask().field(F_LIV1).hide();
fld_righe.delete_column(fld_righe.cid2index(F_LIV1)); fld_righe.delete_column(fld_righe.cid2index(F_LIV1));
} }
if (livelli_giac->enabled(2)) { if (livelli_giac->enabled(2)) {
fld_righe.sheet_mask().field(F_LIV2).show(); fld_righe.sheet_mask().field(F_LIV2).show();
fld_righe.set_column_header(fld_righe.cid2index(F_LIV2),livelli_giac->name(2)); fld_righe.set_column_header(fld_righe.cid2index(F_LIV2),livelli_giac->name(2));
fld_righe.sheet_mask().field(F_LIV2).set_prompt(livelli_giac->name(2)); fld_righe.sheet_mask().field(F_LIV2).set_prompt(livelli_giac->name(2));
} else { } else {
fld_righe.sheet_mask().field(F_LIV2).hide(); fld_righe.sheet_mask().field(F_LIV2).hide();
fld_righe.delete_column(fld_righe.cid2index(F_LIV2)); fld_righe.delete_column(fld_righe.cid2index(F_LIV2));
} }
if (livelli_giac->enabled(3)) { if (livelli_giac->enabled(3)) {
fld_righe.sheet_mask().field(F_LIV3).show(); fld_righe.sheet_mask().field(F_LIV3).show();
fld_righe.set_column_header(fld_righe.cid2index(F_LIV3),livelli_giac->name(3)); fld_righe.set_column_header(fld_righe.cid2index(F_LIV3),livelli_giac->name(3));
fld_righe.sheet_mask().field(F_LIV3).set_prompt(livelli_giac->name(3)); fld_righe.sheet_mask().field(F_LIV3).set_prompt(livelli_giac->name(3));
} else { } else {
fld_righe.sheet_mask().field(F_LIV3).hide(); fld_righe.sheet_mask().field(F_LIV3).hide();
fld_righe.delete_column(fld_righe.cid2index(F_LIV3)); fld_righe.delete_column(fld_righe.cid2index(F_LIV3));
} }
if (livelli_giac->enabled(4)) { if (livelli_giac->enabled(4)) {
fld_righe.sheet_mask().field(F_LIV4).show(); fld_righe.sheet_mask().field(F_LIV4).show();
fld_righe.set_column_header(fld_righe.cid2index(F_LIV4),livelli_giac->name(4)); fld_righe.set_column_header(fld_righe.cid2index(F_LIV4),livelli_giac->name(4));
fld_righe.sheet_mask().field(F_LIV4).set_prompt(livelli_giac->name(4)); fld_righe.sheet_mask().field(F_LIV4).set_prompt(livelli_giac->name(4));
} else { } else {
fld_righe.sheet_mask().field(F_LIV4).hide(); fld_righe.sheet_mask().field(F_LIV4).hide();
fld_righe.delete_column(fld_righe.cid2index(F_LIV4)); fld_righe.delete_column(fld_righe.cid2index(F_LIV4));
} }
TConfig prassid(CONFIG_DITTA, "ve"); // apre il file di configurazione della ditta corrente
if (prassid.get_bool("GES", NULL, A_LISTINI))
field(F_CATVEN).enable(prassid.get_bool("GESLISCV"));
else
field(F_CATVEN).disable();
} }
@ -174,7 +176,7 @@ real TMask_movmag::proposed_price(TString codart,
TConfig cfgditta(CONFIG_DITTA); TConfig cfgditta(CONFIG_DITTA);
TCondizione_vendita cv(&cfgditta,&anamag,&umart); TCondizione_vendita cv(&cfgditta,&anamag,&umart);
cv.put_listino(get(F_CODCONDV),get(F_CATVEN),get(F_TIPOCF),get(F_CODCF)); cv.put_listino(get(F_CODCONDV),get(F_CATVEN));
cv.ricerca(codart,quant); cv.ricerca(codart,quant);
rv=cv.get_prezzo(); rv=cv.get_prezzo();
} }
@ -247,8 +249,9 @@ bool TApp_movmag::user_create()
{ {
_rmovmag = new TLocalisamfile(LF_RMOVMAG); _rmovmag = new TLocalisamfile(LF_RMOVMAG);
TMov_mag * m_m= new TMov_mag; // record del movimento di magazzino TMov_mag * m_m= new TMov_mag(); // record del movimento di magazzino
m_m->enable_autoload(LF_RMOVMAG);
// gestione giacenza a livelli // gestione giacenza a livelli
_livelli_giac= new TMag_livelli("FCG"); _livelli_giac= new TMag_livelli("FCG");
// maschera specifica con gli handler dei movimenti // maschera specifica con gli handler dei movimenti

6
mg/mg1100.h
View File

@ -22,6 +22,12 @@
#define F_CODCF 122 #define F_CODCF 122
#define F_CODCONDV 123 #define F_CODCONDV 123
#define H_NUMREG 131
#define H_DATAREG 132
#define H_ANNOES 133
#define H_DATACOMP 134
#define H_DESCR 135
#define G_DEFMOV 1 #define G_DEFMOV 1
#include "mg1100a.h" #include "mg1100a.h"

121
mg/mg1100.uml
View File

@ -16,7 +16,7 @@ NUMBER F_NUMREG 7
BEGIN BEGIN
// FLAGS "D" // FLAGS "D"
FIELD NUMREG FIELD NUMREG
PROMPT 2 2 "Numero di registrazione " PROMPT 2 2 "Operazione numero "
KEY 1 3 4 KEY 1 3 4
USE LF_MOVMAG USE LF_MOVMAG
INPUT NUMREG F_NUMREG INPUT NUMREG F_NUMREG
@ -25,6 +25,7 @@ BEGIN
DISPLAY "Data reg." DATAREG DISPLAY "Data reg." DATAREG
DISPLAY "Data comp." DATACOMP DISPLAY "Data comp." DATACOMP
OUTPUT F_NUMREG NUMREG OUTPUT F_NUMREG NUMREG
OUTPUT H_NUMREG NUMREG
OUTPUT F_DATAREG DATAREG OUTPUT F_DATAREG DATAREG
OUTPUT F_DATACOMP DATACOMP OUTPUT F_DATACOMP DATACOMP
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
@ -35,6 +36,7 @@ BEGIN
FLAGS "D" FLAGS "D"
PROMPT 2 3 "Esercizio di competenza " PROMPT 2 3 "Esercizio di competenza "
FIELD ANNOES FIELD ANNOES
MESSAGE COPY,H_ANNOES
END END
DATE F_DATAREG DATE F_DATAREG
@ -52,6 +54,7 @@ BEGIN
DISPLAY "Data comp." DATACOMP DISPLAY "Data comp." DATACOMP
OUTPUT F_NUMREG NUMREG OUTPUT F_NUMREG NUMREG
OUTPUT F_DATAREG DATAREG OUTPUT F_DATAREG DATAREG
OUTPUT H_DATAREG DATAREG
OUTPUT F_DATACOMP DATACOMP OUTPUT F_DATACOMP DATACOMP
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
END END
@ -66,7 +69,10 @@ BEGIN
INPUT NUMREG F_NUMREG INPUT NUMREG F_NUMREG
INPUT DATACOMP F_DATACOMP INPUT DATACOMP F_DATACOMP
COPY DISPLAY F_DATAREG COPY DISPLAY F_DATAREG
COPY OUTPUT F_DATAREG OUTPUT F_NUMREG NUMREG
OUTPUT F_DATAREG DATAREG
OUTPUT F_DATACOMP DATACOMP
OUTPUT H_DATACOMP DATACOMP
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
END END
@ -74,6 +80,7 @@ STRING F_DESCR 50 40
BEGIN BEGIN
PROMPT 2 4 "Descrizione " PROMPT 2 4 "Descrizione "
FIELD DESCR FIELD DESCR
MESSAGE COPY,H_DESCR
END END
LISTBOX F_RIFADOC 30 LISTBOX F_RIFADOC 30
@ -163,10 +170,12 @@ LISTBOX F_TIPOCF 10
BEGIN BEGIN
PROMPT 2 9 "Relativo a " PROMPT 2 9 "Relativo a "
FIELD TIPOCF FIELD TIPOCF
ITEM " |Nessuno"
MESSAGE HIDE,F_CODCLI|HIDE,F_CODFOR|RESET,F_CODCF|HIDE,F_RAGSOC
ITEM "C|Cliente" ITEM "C|Cliente"
MESSAGE SHOW,F_CODCLI|HIDE,F_CODFOR//|CHECK,F_CODCF//|RESET,F_CODFOR MESSAGE SHOW,F_CODCLI|HIDE,F_CODFOR|SHOW,F_RAGSOC
ITEM "F|Fornitore" ITEM "F|Fornitore"
MESSAGE HIDE,F_CODCLI|SHOW,F_CODFOR//|CHECK,F_CODCF//|RESET,F_CODCLI MESSAGE HIDE,F_CODCLI|SHOW,F_CODFOR|SHOW,F_RAGSOC
GROUP G_DEFMOV GROUP G_DEFMOV
END END
@ -183,8 +192,6 @@ BEGIN
DISPLAY "Ragione sociale@50" RAGSOC DISPLAY "Ragione sociale@50" RAGSOC
OUTPUT F_CODCF CODCF OUTPUT F_CODCF CODCF
MESSAGE EMPTY RESET,F_CODCF MESSAGE EMPTY RESET,F_CODCF
// OUTPUT F_CODCLI CODCF
// MESSAGE COPY,F_CODCF|CHECK,F_CODCF
CHECKTYPE NORMAL CHECKTYPE NORMAL
GROUP G_DEFMOV GROUP G_DEFMOV
END END
@ -201,8 +208,6 @@ BEGIN
DISPLAY "Ragione sociale@50" RAGSOC DISPLAY "Ragione sociale@50" RAGSOC
OUTPUT F_CODCF CODCF OUTPUT F_CODCF CODCF
MESSAGE EMPTY RESET,F_CODCF MESSAGE EMPTY RESET,F_CODCF
// OUTPUT F_CODFOR CODCF
// MESSAGE COPY,F_CODCF|CHECK,F_CODCF
CHECKTYPE NORMAL CHECKTYPE NORMAL
GROUP G_DEFMOV GROUP G_DEFMOV
END END
@ -220,7 +225,6 @@ BEGIN
OUTPUT F_CODCF CODCF OUTPUT F_CODCF CODCF
CHECKTYPE NORMAL CHECKTYPE NORMAL
MESSAGE COPY,F_CODCLI|COPY,F_CODFOR MESSAGE COPY,F_CODCLI|COPY,F_CODFOR
// MESSAGE EMPTY RESET,F_RAGSOC
END END
STRING F_RAGSOC 50 40 STRING F_RAGSOC 50 40
@ -239,30 +243,29 @@ LISTBOX F_TIPOCONDV 1 12
BEGIN BEGIN
PROMPT 2 12 "Condizione di vendita " PROMPT 2 12 "Condizione di vendita "
ITEM " |Nessuna" ITEM " |Nessuna"
MESSAGE RESET,F_CATVEN|HIDE,F_CATVEN
MESSAGE DISABLE,F_CODLIST|DISABLE,F_CODCONTR|DISABLE,F_CODOFF MESSAGE DISABLE,F_CODLIST|DISABLE,F_CODCONTR|DISABLE,F_CODOFF
MESSAGE ENABLE,F_TIPOCF|ENABLE,F_CODCLI|ENABLE,F_CODFOR|ENABLE,F_RAGSOC MESSAGE ENABLE,F_TIPOCF|RESET,F_TIPOCF
ITEM "L|Listino" ITEM "L|Listino"
MESSAGE SHOW,F_CATVEN
MESSAGE ENABLE,F_CODLIST|DISABLE,F_CODCONTR|DISABLE,F_CODOFF MESSAGE ENABLE,F_CODLIST|DISABLE,F_CODCONTR|DISABLE,F_CODOFF
MESSAGE RESET,F_CODCONTR|RESET,F_CODOFF MESSAGE RESET,F_CODCONTR|RESET,F_CODOFF
MESSAGE DISABLE,F_TIPOCF|DISABLE,F_CODCLI|DISABLE,F_CODFOR|DISABLE,F_RAGSOC MESSAGE DISABLE,F_TIPOCF|RESET,F_TIPOCF
ITEM "C|Contratto" ITEM "C|Contratto"
MESSAGE RESET,F_CATVEN|HIDE,F_CATVEN
MESSAGE DISABLE,F_CODLIST|ENABLE,F_CODCONTR|DISABLE,F_CODOFF MESSAGE DISABLE,F_CODLIST|ENABLE,F_CODCONTR|DISABLE,F_CODOFF
MESSAGE RESET,F_CODLIST|RESET,F_CODOFF MESSAGE RESET,F_CODLIST|RESET,F_CODOFF
MESSAGE DISABLE,F_TIPOCF|DISABLE,F_CODCLI|DISABLE,F_CODFOR|DISABLE,F_RAGSOC MESSAGE ENABLE,F_TIPOCF
ITEM "O|Offerta" ITEM "O|Offerta"
MESSAGE RESET,F_CATVEN|HIDE,F_CATVEN
MESSAGE DISABLE,F_CODLIST|DISABLE,F_CODCONTR|ENABLE,F_CODOFF MESSAGE DISABLE,F_CODLIST|DISABLE,F_CODCONTR|ENABLE,F_CODOFF
MESSAGE RESET,F_CODLIST|RESET,F_CODCONTR MESSAGE RESET,F_CODLIST|RESET,F_CODCONTR
MESSAGE DISABLE,F_TIPOCF|DISABLE,F_CODCLI|DISABLE,F_CODFOR|DISABLE,F_RAGSOC MESSAGE DISABLE,F_TIPOCF|RESET,F_TIPOCF
// GROUP G_DEFMOV // GROUP G_DEFMOV
END END
STRING F_CATVEN 2
BEGIN
PROMPT 0 0 ""
FLAGS "HG"
END
STRING F_CODCONDV 3 STRING F_CODCONDV 3
BEGIN BEGIN
@ -270,9 +273,23 @@ BEGIN
FLAGS "HG" FLAGS "HG"
END END
STRING F_CATVEN 2
BEGIN
FLAGS "D"
PROMPT 2 13 "Cat.ven."
FIELD CATVEN
USE CVE
INPUT CODTAB F_CATVEN
DISPLAY "Cat." CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_CATVEN CODTAB
MESSAGE CHECK,F_CODLIST
CHECKTYPE NORMAL
END
STRING F_CODLIST 3 STRING F_CODLIST 3
BEGIN BEGIN
PROMPT 2 13 "Codice listino " PROMPT 20 13 "Codice listino "
FIELD CODLIST FIELD CODLIST
USE LF_CONDV USE LF_CONDV
INPUT TIPO "L" INPUT TIPO "L"
@ -283,10 +300,11 @@ BEGIN
DISPLAY "Cod Cli/For" CODCF DISPLAY "Cod Cli/For" CODCF
DISPLAY "Codice" COD DISPLAY "Codice" COD
DISPLAY "Descr.@30" DESCR DISPLAY "Descr.@30" DESCR
OUTPUT F_TIPOCONDV TIPO // OUTPUT F_TIPOCONDV TIPO
OUTPUT F_CATVEN CATVEN
OUTPUT F_CODCF CODCF
OUTPUT F_CODLIST COD OUTPUT F_CODLIST COD
OUTPUT F_CATVEN CATVEN
OUTPUT F_TIPOCF TIPOCF
OUTPUT F_CODCF CODCF
OUTPUT F_CODCONDV COD OUTPUT F_CODCONDV COD
CHECKTYPE NORMAL CHECKTYPE NORMAL
// GROUP G_DEFMOV // GROUP G_DEFMOV
@ -294,7 +312,7 @@ END
STRING F_CODCONTR 3 STRING F_CODCONTR 3
BEGIN BEGIN
PROMPT 26 13 "Codice contratto " PROMPT 20 14 "Codice contratto "
FIELD CODCONT FIELD CODCONT
USE LF_CONDV USE LF_CONDV
INPUT TIPO "C" INPUT TIPO "C"
@ -307,8 +325,7 @@ BEGIN
DISPLAY "Cod Cli/For" CODCF DISPLAY "Cod Cli/For" CODCF
DISPLAY "Codice" COD DISPLAY "Codice" COD
DISPLAY "Descr.@30" DESCR DISPLAY "Descr.@30" DESCR
OUTPUT F_TIPOCONDV TIPO // OUTPUT F_TIPOCONDV TIPO
OUTPUT F_CATVEN CATVEN
OUTPUT F_TIPOCF TIPOCF OUTPUT F_TIPOCF TIPOCF
OUTPUT F_CODCF CODCF OUTPUT F_CODCF CODCF
OUTPUT F_CODCONTR COD OUTPUT F_CODCONTR COD
@ -320,7 +337,7 @@ END
STRING F_CODOFF 3 STRING F_CODOFF 3
BEGIN BEGIN
PROMPT 50 13 "Codice offerta " PROMPT 20 15 "Codice offerta "
FIELD CODCAMP FIELD CODCAMP
USE LF_CONDV USE LF_CONDV
INPUT TIPO "O" INPUT TIPO "O"
@ -330,7 +347,6 @@ BEGIN
DISPLAY "Descr.@30" DESCR DISPLAY "Descr.@30" DESCR
OUTPUT F_TIPOCONDV TIPO OUTPUT F_TIPOCONDV TIPO
OUTPUT F_CODCF CODCF OUTPUT F_CODCF CODCF
OUTPUT F_CATVEN CATVEN
OUTPUT F_CODOFF COD OUTPUT F_CODOFF COD
OUTPUT F_CODCONDV COD OUTPUT F_CODCONDV COD
CHECKTYPE NORMAL CHECKTYPE NORMAL
@ -341,18 +357,59 @@ ENDPAGE
PAGE "Righe" 11 60 14 PAGE "Righe" 11 60 14
GROUPBOX DLG_NULL 75 5
BEGIN
PROMPT 1 1 ""
FLAGS "R"
END
NUMBER H_NUMREG 7
BEGIN
FLAGS "D"
FIELD NUMREG
PROMPT 2 2 "Operazione numero "
END
NUMBER H_ANNOES 4
BEGIN
FLAGS "D"
PROMPT 2 3 "Esercizio di competenza "
END
DATE H_DATAREG
BEGIN
PROMPT 38 2 "Data di registrazione "
FLAGS "D"
END
DATE H_DATACOMP
BEGIN
PROMPT 38 3 "Data di competenza "
FLAGS "D"
END
STRING H_DESCR 50 40
BEGIN
PROMPT 2 4 "Descrizione "
FLAGS "D"
END
TEXT DLG_NULL TEXT DLG_NULL
BEGIN BEGIN
PROMPT 2 2 "Righe" PROMPT 2 6 "Righe"
GROUP G_DEFMOV GROUP G_DEFMOV
END END
SPREADSHEET F_RIGHE 77 15 SPREADSHEET F_RIGHE 77 12
BEGIN BEGIN
PROMPT 2 3 "RIGHE DI MOVIMENTO" PROMPT 2 7 "RIGHE DI MOVIMENTO"
FLAGS "A" FLAGS "A"
// USE LF_RMOVMAG KEY NRIG USE LF_RMOVMAG KEY NRIG
// INPUT NUMREG F_NUMREG INPUT NUMREG F_NUMREG
ITEM "CodArt" ITEM "CodArt"
ITEM "CodMag" ITEM "CodMag"
ITEM "CodDep" ITEM "CodDep"