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

Cambiate alcune ricerche e posizione campi a video di alcune maschere

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@4030 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
pirro 1996-12-24 10:35:41 +00:00
parent 9d6307bb7e
commit 1ee9b644e5
3 changed files with 28 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
ve/ve2400.uml
View File

@ -56,7 +56,7 @@ BEGIN
FLAG "U"
USE GMC KEY 1 SELECT CODTAB ?= "???"
INPUT CODTAB F_GRMERC
DISPLAY "Codice" CODTAB
DISPLAY "Codice" CODTAB[1,3]
DISPLAY "Descrizione@50" S0
OUTPUT F_GRMERC CODTAB[1,3]
OUTPUT F_GRMERCD1 S0
@ -67,7 +67,7 @@ STRING F_GRMERCD1 50
BEGIN
PROMPT 23 5 ""
GROUP 1
USE GMC KEY 2
USE GMC KEY 2 SELECT CODTAB ?= "???"
INPUT S0 F_GRMERCD1
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
@ -82,7 +82,7 @@ BEGIN
FIELD LF_ANAMAG->GRMERC[4,5]
GROUP 1
FLAG "U"
USE GMC
USE GMC SELECT CODTAB[4,5] != ""
INPUT CODTAB[1,3] F_GRMERC
INPUT CODTAB[4,5] F_GRMERCB
DISPLAY "Codice" CODTAB
@ -97,7 +97,7 @@ STRING F_GRMERCD2 50
BEGIN
PROMPT 23 6 ""
GROUP 1
USE GMC KEY 2
USE GMC KEY 2 SELECT CODTAB[4,5] != ""
INPUT S0 F_GRMERCD2
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0

6
ve/ve4100.h
View File

@ -18,13 +18,13 @@
#define F_RAGSOC 210
#define F_CODICE_LCO 211
#define F_DESC_CODICE_LCO 212
// Primo sheet
// Primo sheet
#define F_FIELD 101
#define F_FROM 102
#define F_TO 103
#define F_DESCR 104
// Secondo sheet
// Secondo sheet
#define F_CODFORM 102
#define F_FORMULA 103

38
ve/ve4100.uml
View File

@ -29,7 +29,7 @@ BEGIN
ITEM "2|Descrizioni in lingua"
ITEM "3|Condizioni di vendita"
ITEM "4|Righe condizioni di vendita"
END
END
LIST F_KEY 10
BEGIN
@ -39,7 +39,7 @@ BEGIN
END
SPREADSHEET F_FIELDS 74 5
BEGIN
BEGIN
PROMPT 2 3 ""
ITEM "Campo@10"
ITEM "Da@30"
@ -88,7 +88,7 @@ BEGIN
PROMPT 2 2 "Unita' di misura "
FLAGS "U"
USE %UMS
JOIN %LIN INTO CODTAB==CODTAB
//JOIN %LIN INTO CODTAB==CODTAB
INPUT CODTAB F_UNITA_MISURA
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
@ -112,7 +112,7 @@ STRING F_LINGUA 1
BEGIN
PROMPT 2 3 "Lingua "
FLAGS "U"
USE %LIN
USE %LNG
INPUT CODTAB F_LINGUA
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
@ -124,7 +124,7 @@ END
STRING F_DESC_LINGUA 50
BEGIN
PROMPT 25 3 ""
USE %LIN KEY 2
USE %LNG KEY 2
INPUT S0 F_DESC_LINGUA
DISPLAY "Descrizione@50" S0
DISPLAY "Codice" CODTAB
@ -141,18 +141,21 @@ LIST F_TIPO_LCO 1 10
BEGIN
PROMPT 2 6 "Condizioni per "
ITEM "L|Listini"
MESSAGE ENABLE,F_CAT_VEN|ENABLE,F_DESC_CAT_VEN|CLEAR,F_TIPO_CF|CLEAR,F_CODICE_CF|CLEAR,F_RAGSOC
ITEM "C|Contratti"
MESSAGE ENABLE,F_TIPO_CF|ENABLE,F_CODICE_CF|ENABLE,F_RAGSOC|CLEAR,F_CAT_VEN|CLEAR,F_DESC_CAT_VEN
ITEM "O|Offerte"
MESSAGE CLEAR,F_CAT_VEN|CLEAR,F_DESC_CAT_VEN|CLEAR,F_TIPO_CF|CLEAR,F_CODICE_CF|CLEAR,F_RAGSOC
END
STRING F_CAT_VEN 4
BEGIN
STRING F_CAT_VEN 2
BEGIN
PROMPT 2 7 "Categoria "
FLAGS "U"
USE CVE
INPUT CODTAB F_CAT_VEN
DISPLAY "Codice"
DISPLAY "Descrizione@50"
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_CAT_VEN CODTAB
OUTPUT F_DESC_CAT_VEN S0
CHECKTYPE NORMAL
@ -163,8 +166,8 @@ BEGIN
PROMPT 25 7 ""
USE CVE KEY 2
INPUT S0 F_DESC_CAT_VEN
DISPLAY "Descrizione@50"
DISPLAY "Codice"
DISPLAY "Descrizione@50" S0
DISPLAY "Codice" CODTAB
COPY OUTPUT F_CAT_VEN
CHECKTYPE NORMAL
END
@ -172,6 +175,7 @@ END
RADIOBUTTON F_TIPO_CF 1 16
BEGIN
PROMPT 2 7 ""
ITEM "|Nessuno"
ITEM "C|Cliente"
ITEM "F|Fornitore"
END
@ -189,7 +193,7 @@ BEGIN
CHECKTYPE NORMAL
END
NUMBER F_RAGSOC 50
STRING F_RAGSOC 50
BEGIN
PROMPT 25 9 ""
USE LF_CLIFO KEY 2
@ -203,13 +207,13 @@ END
STRING F_CODICE_LCO 3
BEGIN
PROMPT 2 10 "Lis/Con/Off "
PROMPT 2 11 "Lis/Con/Off "
FLAGS "U"
USE LF_CONDV
INPUT TIPO F_TIPO_LCO SELECT
INPUT CATVEN F_CAT_VEN SELECT
lNPUT CATVEN F_CAT_VEN SELECT
INPUT TIPOCF F_TIPO_CF SELECT
INPUT CODCF F_CODICE_CF SELECT
INPUT CODCF F_CODICE_CF
INPUT COD F_CODICE_LCO
DISPLAY "Codice" COD
DISPLAY "Descrizione@50" DESCR
@ -253,7 +257,7 @@ STRING F_TO 50
BEGIN
PROMPT 1 4 "A "
FLAGS "B"
END
END
BUTTON DLG_OK 10 2
BEGIN
@ -285,7 +289,7 @@ END
STRING F_CODFORM 10
BEGIN
PROMPT 1 3 ""
PROMPT 1 3 ""
FLAGS "U"
USE %FRM
INPUT CODTAB F_CODFORM