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

28
ve/ve4100.uml
View File

@ -88,7 +88,7 @@ BEGIN
PROMPT 2 2 "Unita' di misura " PROMPT 2 2 "Unita' di misura "
FLAGS "U" FLAGS "U"
USE %UMS USE %UMS
JOIN %LIN INTO CODTAB==CODTAB //JOIN %LIN INTO CODTAB==CODTAB
INPUT CODTAB F_UNITA_MISURA INPUT CODTAB F_UNITA_MISURA
DISPLAY "Codice" CODTAB DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0 DISPLAY "Descrizione@50" S0
@ -112,7 +112,7 @@ STRING F_LINGUA 1
BEGIN BEGIN
PROMPT 2 3 "Lingua " PROMPT 2 3 "Lingua "
FLAGS "U" FLAGS "U"
USE %LIN USE %LNG
INPUT CODTAB F_LINGUA INPUT CODTAB F_LINGUA
DISPLAY "Codice" CODTAB DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0 DISPLAY "Descrizione@50" S0
@ -124,7 +124,7 @@ END
STRING F_DESC_LINGUA 50 STRING F_DESC_LINGUA 50
BEGIN BEGIN
PROMPT 25 3 "" PROMPT 25 3 ""
USE %LIN KEY 2 USE %LNG KEY 2
INPUT S0 F_DESC_LINGUA INPUT S0 F_DESC_LINGUA
DISPLAY "Descrizione@50" S0 DISPLAY "Descrizione@50" S0
DISPLAY "Codice" CODTAB DISPLAY "Codice" CODTAB
@ -141,18 +141,21 @@ LIST F_TIPO_LCO 1 10
BEGIN BEGIN
PROMPT 2 6 "Condizioni per " PROMPT 2 6 "Condizioni per "
ITEM "L|Listini" 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" 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" 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 END
STRING F_CAT_VEN 4 STRING F_CAT_VEN 2
BEGIN BEGIN
PROMPT 2 7 "Categoria " PROMPT 2 7 "Categoria "
FLAGS "U" FLAGS "U"
USE CVE USE CVE
INPUT CODTAB F_CAT_VEN INPUT CODTAB F_CAT_VEN
DISPLAY "Codice" DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" DISPLAY "Descrizione@50" S0
OUTPUT F_CAT_VEN CODTAB OUTPUT F_CAT_VEN CODTAB
OUTPUT F_DESC_CAT_VEN S0 OUTPUT F_DESC_CAT_VEN S0
CHECKTYPE NORMAL CHECKTYPE NORMAL
@ -163,8 +166,8 @@ BEGIN
PROMPT 25 7 "" PROMPT 25 7 ""
USE CVE KEY 2 USE CVE KEY 2
INPUT S0 F_DESC_CAT_VEN INPUT S0 F_DESC_CAT_VEN
DISPLAY "Descrizione@50" DISPLAY "Descrizione@50" S0
DISPLAY "Codice" DISPLAY "Codice" CODTAB
COPY OUTPUT F_CAT_VEN COPY OUTPUT F_CAT_VEN
CHECKTYPE NORMAL CHECKTYPE NORMAL
END END
@ -172,6 +175,7 @@ END
RADIOBUTTON F_TIPO_CF 1 16 RADIOBUTTON F_TIPO_CF 1 16
BEGIN BEGIN
PROMPT 2 7 "" PROMPT 2 7 ""
ITEM "|Nessuno"
ITEM "C|Cliente" ITEM "C|Cliente"
ITEM "F|Fornitore" ITEM "F|Fornitore"
END END
@ -189,7 +193,7 @@ BEGIN
CHECKTYPE NORMAL CHECKTYPE NORMAL
END END
NUMBER F_RAGSOC 50 STRING F_RAGSOC 50
BEGIN BEGIN
PROMPT 25 9 "" PROMPT 25 9 ""
USE LF_CLIFO KEY 2 USE LF_CLIFO KEY 2
@ -203,13 +207,13 @@ END
STRING F_CODICE_LCO 3 STRING F_CODICE_LCO 3
BEGIN BEGIN
PROMPT 2 10 "Lis/Con/Off " PROMPT 2 11 "Lis/Con/Off "
FLAGS "U" FLAGS "U"
USE LF_CONDV USE LF_CONDV
INPUT TIPO F_TIPO_LCO SELECT 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 TIPOCF F_TIPO_CF SELECT
INPUT CODCF F_CODICE_CF SELECT INPUT CODCF F_CODICE_CF
INPUT COD F_CODICE_LCO INPUT COD F_CODICE_LCO
DISPLAY "Codice" COD DISPLAY "Codice" COD
DISPLAY "Descrizione@50" DESCR DISPLAY "Descrizione@50" DESCR