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

Corretta la visualizzazione dei campi chiave nel passaggio

Browse Source 
da un archivio di provvigione all'altro


git-svn-id: svn://10.65.10.50/trunk@5152 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
augusto 1997-09-03 07:08:33 +00:00
parent 7d429c3625
commit 26226bd999
2 changed files with 35 additions and 27 deletions

12
pr/pr0600a.h

@ -30,4 +30,14 @@
#define F_TIMPORTO 128
#define F_TVALORE 129
#define G_CAMPICHIAVE 1
#define G_CLI 5
#define G_CATV 6
#define G_AGE 7
#define G_PAG 8
#define G_SCONTO 9
#define G_ZONA 10
#define G_ART 11
#define G_GMC 12
#define G_SMC 13
#define G_RFA 14

50
pr/pr0600a.uml

@ -80,14 +80,14 @@ BEGIN
OUTPUT F_CLIENTE CODCF
OUTPUT F_DESCR1 RAGSOC
CHECKTYPE FORCED
GROUP 1 5
GROUP G_CAMPICHIAVE 5
END
STRING F_DESCR1 50 39
BEGIN
PROMPT 41 6 ""
FLAGS "D"
GROUP 1 5
GROUP G_CAMPICHIAVE 5
END
STRING F_CATVEN 2
@ -102,14 +102,14 @@ BEGIN
OUTPUT F_CATVEN CODTAB
OUTPUT F_DESCR2 S0
CHECKTYPE FORCED
GROUP 1 6
GROUP G_CAMPICHIAVE 6
END
STRING F_DESCR2 50 39
BEGIN
PROMPT 41 7 ""
FLAGS "D"
GROUP 1 6
GROUP G_CAMPICHIAVE 6
END
STRING F_CODAGE 5
@ -124,14 +124,14 @@ BEGIN
OUTPUT F_CODAGE CODAGE
OUTPUT F_DESCR3 RAGSOC
CHECKTYPE FORCED
GROUP 1 7
GROUP G_CAMPICHIAVE 7
END
STRING F_DESCR3 50 39
BEGIN
PROMPT 41 8 ""
FLAGS "D"
GROUP 1 7
GROUP G_CAMPICHIAVE 7
END
STRING F_CODPAG 4
@ -146,14 +146,14 @@ BEGIN
OUTPUT F_CODPAG CODTAB
OUTPUT F_DESCR4 S0
CHECKTYPE FORCED
GROUP 1 8
GROUP G_CAMPICHIAVE 8
END
STRING F_DESCR4 50 39
BEGIN
PROMPT 41 9 ""
FLAGS "D"
GROUP 1 8
GROUP G_CAMPICHIAVE 8
END
STRING F_CODSCONTO 2
@ -168,14 +168,14 @@ BEGIN
OUTPUT F_CODSCONTO CODTAB
OUTPUT F_DESCR5 S0
CHECKTYPE FORCED
GROUP 1 9
GROUP G_CAMPICHIAVE 9
END
STRING F_DESCR5 50 39
BEGIN
PROMPT 41 10 ""
FLAGS "D"
GROUP 1 9
GROUP G_CAMPICHIAVE 9
END
STRING F_CODZONA 2
@ -190,14 +190,14 @@ BEGIN
OUTPUT F_CODZONA CODTAB
OUTPUT F_DESCR6 S0
CHECKTYPE FORCED
GROUP 1 10
GROUP G_CAMPICHIAVE 10
END
STRING F_DESCR6 50 39
BEGIN
PROMPT 41 11 ""
FLAGS "D"
GROUP 1 10
GROUP G_CAMPICHIAVE 10
END
STRING F_CODART 20
@ -212,14 +212,14 @@ BEGIN
OUTPUT F_CODART CODART
OUTPUT F_DESCR7 DESCR
CHECKTYPE FORCED
GROUP 1 11
GROUP G_CAMPICHIAVE 11
END
STRING F_DESCR7 50 39
BEGIN
PROMPT 41 12 ""
FLAGS "D"
GROUP 1 11
GROUP G_CAMPICHIAVE 11
END
STRING F_CODGMC 3
@ -234,14 +234,14 @@ BEGIN
OUTPUT F_CODGMC CODTAB[1,3]
OUTPUT F_DESCR8 S0
CHECKTYPE FORCED
GROUP 1 12
GROUP G_CAMPICHIAVE 12
END
STRING F_DESCR8 50 39
BEGIN
PROMPT 41 13 ""
FLAGS "D"
GROUP 1 12
GROUP G_CAMPICHIAVE 12
END
STRING F_CODSMC 5
@ -249,21 +249,22 @@ BEGIN
PROMPT 2 14 "Sottocat. merc. "
FLAGS "U"
KEY 1
USE GMC
USE GMC //SELECT CODTAB[4,5]!=""
INPUT CODTAB F_CODSMC
DISPLAY "Codice" CODTAB
DISPLAY "Cat." CODTAB[1,3]
DISPLAY "Sotto cat." CODTAB[4,5]
DISPLAY "Descrizione@50" S0
OUTPUT F_CODSMC CODTAB
OUTPUT F_DESCR9 S0
CHECKTYPE FORCED
GROUP 1 13
GROUP G_CAMPICHIAVE 13
END
STRING F_DESCR9 50 39
BEGIN
PROMPT 41 14 ""
FLAGS "D"
GROUP 1 13
GROUP G_CAMPICHIAVE 13
END
STRING F_CODRFA 5
@ -278,14 +279,14 @@ BEGIN
OUTPUT F_CODRFA CODTAB
OUTPUT F_DESCR10 S0
CHECKTYPE FORCED
GROUP 1 14
GROUP G_CAMPICHIAVE 14
END
STRING F_DESCR10 50 39
BEGIN
PROMPT 41 15 ""
FLAGS "D"
GROUP 1 14
GROUP G_CAMPICHIAVE 14
END
LISTBOX F_TIPO 20
@ -293,7 +294,7 @@ BEGIN
PROMPT 2 18 "Tipo provvigione "
FIELD TIPO
ITEM "P|Percentuale"
MESSAGE SHOW,F_PERCPROVV|HIDE,2@
MESSAGE SHOW,F_PERCPROVV|HIDE,F_IMPORTO|HIDE,F_TIMPORTO|HIDE,F_TVALORE
ITEM "I|Importo unitario"
MESSAGE HIDE,F_PERCPROVV|SHOW,F_IMPORTO|SHOW,F_TIMPORTO|HIDE,F_TVALORE
ITEM "V|Valore complessivo"
@ -311,13 +312,11 @@ END
TEXT F_TIMPORTO
BEGIN
PROMPT 2 19 "Importo unitario"
GROUP 2
END
TEXT F_TVALORE
BEGIN
PROMPT 2 19 "Valore complessivo "
GROUP 2
END
NUMBER F_IMPORTO 18 2
@ -325,7 +324,6 @@ BEGIN
PROMPT 38 19 ""
FIELD IMPORTO
PICTURE "###.###.###.###"
GROUP 2
END
ENDPAGE