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

Patch level : 10.990

Browse Source 
Files correlati     : ve2.exe
Ricompilazione Demo : [ ]
Commento            :

Bug 0001851: Anagrafica di Magazzino

Aggiungere i campi e una tabella per il collegamento a Magic (E-Commerce)

Sono quattro campi gerarchici che identificano la categoria e relativa tabella
( Rif. PRASSI Napoli)
Il programma di anagrafica di magazzino deve funzionare esattamente come prima visto che son campi che si attivano con una configurazione nel ditta.ini paragrafo ve (Magic=X)


git-svn-id: svn://10.65.10.50/branches/R_10_00@22084 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
alex 2011-05-06 09:59:17 +00:00
parent e537b05f3b
commit 49df928972
5 changed files with 176 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
ve/ve2400.cpp
View File

@ -453,7 +453,7 @@ void TMask_anamag::create_user_fields()
} //if(c.get_bool...
} //for(int i...
if (user_fields == 0)
if (user_fields == 0 && !ini_get_bool(CONFIG_DITTA, "ve", "Magic"))
_disabled_user_page = PAGE_USER;
}
@ -524,6 +524,20 @@ TMask_anamag::TMask_anamag(TRelation * rel) : TMask("ve2400")
field(F_CODIVA).check_type(c.get_bool("IVA_OBBL", "ve") && app().has_module(VEAUT, CHK_DONGLE) ? CHECK_REQUIRED : CHECK_NORMAL);
if (c.get_bool("Magic", "ve"))
{
show(F_ECMAGIC1);
show(F_ECMAGIC2);
show(F_ECMAGIC3);
show(F_ECMAGIC4);
show(F_ECMAGIC_DESCR);
enable(F_ECMAGIC1);
enable(F_ECMAGIC2);
enable(F_ECMAGIC3);
enable(F_ECMAGIC4);
enable(F_ECMAGIC_DESCR);
}
first_focus(F_CODART);
}
}
@ -1837,6 +1851,8 @@ bool TAnagrafica_magazzino::user_create()
// crea l'oggetto per i parametri di livello giacenza
// apre la maschera e dispone gli sheet
_rel= new TRelation(LF_ANAMAG);
if (ini_get_bool(CONFIG_DITTA, "ve", "Magic"))
_rel->add("&ATM","CODTAB==" ANAMAG_CODART);
_msk= new TMask_anamag(_rel);

5
ve/ve2400.h
View File

@ -176,6 +176,11 @@
#define F_SCAPLA 325
#define F_SCALEG 326
#define F_SCAVET 327
#define F_ECMAGIC1 328
#define F_ECMAGIC2 329
#define F_ECMAGIC3 330
#define F_ECMAGIC4 331
#define F_ECMAGIC_DESCR 332
#define F_USER1 371
#define F_USER2 372

65
ve/ve2400.uml
View File

@ -1525,6 +1525,71 @@ BEGIN
GROUP G_DESART
END
STRING F_ECMAGIC1 5
BEGIN
PROMPT 2 4 "Categoria Magic 1 "
USE &CTM
INPUT CODTAB[1,5] F_ECMAGIC1
INPUT CODTAB[6,10] F_ECMAGIC2
INPUT CODTAB[11,15] F_ECMAGIC3
INPUT CODTAB[16,20] F_ECMAGIC4
DISPLAY "Categoria 1" CODTAB[1,5]
DISPLAY "Categoria 2" CODTAB[6,10]
DISPLAY "Categoria 3" CODTAB[11,15]
DISPLAY "Categoria 4" CODTAB[16,20]
DISPLAY "Descrizione@50" S0
OUTPUT F_ECMAGIC1 CODTAB[1,5]
OUTPUT F_ECMAGIC2 CODTAB[6,10]
OUTPUT F_ECMAGIC3 CODTAB[11,15]
OUTPUT F_ECMAGIC4 CODTAB[16,20]
OUTPUT F_ECMAGIC_DESCR S0
CHECKTYPE NORMAL
FIELD USER1
FLAGS "UHDZ"
END
STRING F_ECMAGIC2 5
BEGIN
PROMPT 29 4 "2 "
COPY ALL F_ECMAGIC1
CHECKTYPE NORMAL
FIELD USER2
FLAGS "UHDZ"
END
STRING F_ECMAGIC3 5
BEGIN
PROMPT 40 4 "3 "
COPY ALL F_ECMAGIC1
CHECKTYPE NORMAL
FIELD USER3
FLAGS "UHDZ"
END
STRING F_ECMAGIC4 5
BEGIN
PROMPT 51 4 "4 "
COPY ALL F_ECMAGIC1
CHECKTYPE NORMAL
FIELD USER4
FLAGS "UHDZ"
END
STRING F_ECMAGIC_DESCR 50
BEGIN
PROMPT 2 6 "Descrizione "
USE &CTM KEY 2
INPUT S0 F_ECMAGIC_DESCR
DISPLAY "Descrizione@50" S0
DISPLAY "Categoria 1" CODTAB[1,5]
DISPLAY "Categoria 2" CODTAB[6,10]
DISPLAY "Categoria 3" CODTAB[11,15]
DISPLAY "Categoria 4" CODTAB[16,20]
COPY OUTPUT F_ECMAGIC1
CHECKTYPE NORMAL
FLAGS "UHDZ"
END
ENDPAGE
ENDMASK

7
ve/vetbctm.h Executable file
View File

@ -0,0 +1,7 @@
//campi maschera ectbctm
#define F_CATEGORIA1 201
#define F_CATEGORIA2 202
#define F_CATEGORIA3 203
#define F_CATEGORIA4 204
#define F_CATEGORIA_DESCR 205

82
ve/vetbctm.uml Executable file
View File

@ -0,0 +1,82 @@
#include "vetbctm.h"
PAGE "Tabella Categorie Magic" -1 -1 78 6
STRING F_CATEGORIA1 5
BEGIN
PROMPT 1 1 "Categoria "
FLAGS "UZ"
USE &CTM
INPUT CODTAB[1,5] F_CATEGORIA1
INPUT CODTAB[6,10] F_CATEGORIA2
INPUT CODTAB[11,15] F_CATEGORIA3
INPUT CODTAB[16,20] F_CATEGORIA4
DISPLAY "Categoria 1" CODTAB[1,5]
DISPLAY "Categoria 2" CODTAB[6,10]
DISPLAY "Categoria 3" CODTAB[11,15]
DISPLAY "Categoria 4" CODTAB[16,20]
DISPLAY "Descrizione@50" S0
OUTPUT F_CATEGORIA1 CODTAB[1,5]
OUTPUT F_CATEGORIA2 CODTAB[6,10]
OUTPUT F_CATEGORIA3 CODTAB[11,15]
OUTPUT F_CATEGORIA4 CODTAB[16,20]
CHECKTYPE REQUIRED
FIELD CODTAB[1,5]
KEY 1
END
STRING F_CATEGORIA2 5
BEGIN
PROMPT 22 1 ""
FLAGS "UZ"
COPY ALL F_CATEGORIA1
CHECKTYPE NORMAL
VALIDATE REQIF_FUNC 1 F_CATEGORIA3
FIELD CODTAB[6,10]
KEY 1
END
STRING F_CATEGORIA3 5
BEGIN
PROMPT 31 1 ""
FLAGS "UZ"
COPY ALL F_CATEGORIA1
CHECKTYPE NORMAL
VALIDATE REQIF_FUNC 1 F_CATEGORIA4
FIELD CODTAB[11,15]
KEY 1
END
STRING F_CATEGORIA4 5
BEGIN
PROMPT 40 1 ""
FLAGS "UZ"
COPY ALL F_CATEGORIA1
CHECKTYPE NORMAL
FIELD CODTAB[16,20]
KEY 1
END
STRING F_CATEGORIA_DESCR 50
BEGIN
PROMPT 1 3 ""
USE &GMC KEY 2
INPUT S0 F_CATEGORIA_DESCR
DISPLAY "Descrizione@50" S0
DISPLAY "Categoria 1" CODTAB[1,5]
DISPLAY "Categoria 2" CODTAB[6,10]
DISPLAY "Categoria 3" CODTAB[11,15]
DISPLAY "Categoria 4" CODTAB[16,20]
COPY OUTPUT F_CATEGORIA1
CHECKTYPE NORMAL
KEY 2
FIELD S0
END
ENDPAGE
TOOLBAR "" 0 0 0 2
#include "relapbar.h"
ENDPAGE
ENDMASK