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

modifica a decodifica campi maschere

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@1988 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
pirro 1995-10-23 15:53:14 +00:00
parent c59d3540c2
commit a435ab4110
8 changed files with 1191 additions and 1158 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
ve/ve2100d.uml
View File

@ -37,7 +37,6 @@ STRING F_D_DESCR 50
BEGIN
PROMPT 2 4 "Descrizione "
FIELD LF_SCONTI->DESCR
FLAG "D"
END
GROUPBOX DLG_NULL 75 7

5
ve/ve2100i.h
View File

@ -5,3 +5,8 @@
#define F_I_ZONE 135
#define F_I_CONDPAG 136
#define F_I_SCONTO 137
#define F_I_DESVEN 138
#define F_I_DESSCCLI 139
#define F_I_DESZONE 140
#define F_I_DESCONPAG 141


52
ve/ve2100i.uml
View File

@ -39,7 +39,7 @@ END
STRING F_I_CATVEN 2
BEGIN
PROMPT 5 2 "Categoria vendite "
PROMPT 2 2 "Cat. vendite "
FIELD LF_SCONTI->CODART[1,2]
FLAG "U"
KEY 1
@ -48,26 +48,41 @@ BEGIN
DISPLAY "Cat. vend." CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_I_CATVEN CODTAB
OUTPUT F_I_DESVEN S0
CHECKTYPE REQUIRED
END
STRING F_I_DESVEN 50
BEGIN
PROMPT 24 2 ""
FLAG "D"
END
STRING F_I_SCCLIENTI 2
BEGIN
PROMPT 8 4 "Sconto cliente "
PROMPT 2 4 "Sconto cliente "
FIELD LF_SCONTI->CODART[3,4]
FLAG "U"
KEY 1
USE %SCO
INPUT CODTAB F_I_SCCLIENTI
DISPLAY "Sc. Cliente" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_I_SCCLIENTI CODTAB
USE LF_SCONTI
INPUT TIPO "D"
INPUT CODCAT F_I_SCCLIENTI
DISPLAY "Sc. Cliente" CODCAT
DISPLAY "Descrizione@50" DESCR
OUTPUT F_I_SCCLIENTI CODCAT
OUTPUT F_I_DESSCCLI DESCR
CHECKTYPE REQUIRED
END
STRING F_I_DESSCCLI 50
BEGIN
PROMPT 24 4 ""
FLAG "D"
END
STRING F_I_ZONE 2
BEGIN
PROMPT 18 6 "Zona "
PROMPT 2 6 "Zona "
FIELD LF_SCONTI->CODART[5,6]
FLAG "U"
KEY 1
@ -76,12 +91,19 @@ BEGIN
DISPLAY "Zona" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_I_ZONE CODTAB
OUTPUT F_I_DESZONE S0
CHECKTYPE REQUIRED
END
STRING F_I_DESZONE 50
BEGIN
PROMPT 24 6 ""
FLAG "D"
END
STRING F_I_CONDPAG 4
BEGIN
PROMPT 2 8 "Condizione pagamento "
PROMPT 2 8 "Cond. pagam. "
FIELD LF_SCONTI->CODART[7,10]
FLAG "U"
KEY 1
@ -90,13 +112,20 @@ BEGIN
DISPLAY "Cond. pag." CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_I_CONDPAG CODTAB
OUTPUT F_I_DESCONPAG S0
CHECKTYPE REQUIRED
END
GROUPBOX DLG_NULL 36 11
STRING F_I_DESCONPAG 50
BEGIN
PROMPT 24 8 ""
FLAG "D"
END
GROUPBOX DLG_NULL 78 11
BEGIN
PROMPT 0 0 ""
//FLAG "R"
FLAG "R"
END
STRING F_I_SCONTO 25
@ -108,3 +137,4 @@ END
ENDPAGE
ENDMASK


51
ve/ve2300x.uml
View File

@ -33,7 +33,7 @@ END
STRING F_R_L_DESVEN 50 // campo riservato ai listini
BEGIN
PROMPT 23 2 ""
PROMPT 25 2 ""
FLAG "D"
END
@ -68,7 +68,7 @@ END
STRING F_R_C_DESCF 50 // campo riservato ai contratti
BEGIN
PROMPT 23 2 ""
PROMPT 25 2 ""
FLAG "D"
END
@ -94,7 +94,7 @@ END
STRING F_R_L_DES 50 // campo riservato ai contratti
BEGIN
PROMPT 23 3 ""
PROMPT 25 3 ""
FLAG "D"
END
@ -123,7 +123,7 @@ END
STRING F_R_C_DES 50 // campo riservato ai listini
BEGIN
PROMPT 23 3 ""
PROMPT 25 3 ""
FLAG "D"
END
@ -188,63 +188,61 @@ BEGIN
FIELD LF_RCONDV->CODRIGA[1,3]
FLAG "U"
KEY 1
USE %GMC
USE GMC SELECT CODTAB[4,5] == ""
INPUT CODTAB[1,3] F_R_CODRIGA_G
DISPLAY "Gr. merc." CODTAB[1,3]
DISPLAY "Descrizione@50" S0
OUTPUT F_R_CODRIGA_G CODTAB[1,3]
OUTPUT F_R_DESRIGA_G S0
CHECKTYPE REQUIRED
MESSAGE COPY,F_R_CODRIGA_A
END
STRING F_R_DESRIGA_G 50
BEGIN
PROMPT 23 5 ""
PROMPT 25 5 ""
FLAG "D"
END
STRING F_R_CODRIGA_S 2
STRING F_R_CODRIGA_S 5
BEGIN
PROMPT 2 5 "Sottogr. merc. "
FIELD LF_RCONDV->CODRIGA[1,2]
PROMPT 2 5 "Sottogr.mer. "
FIELD LF_RCONDV->CODRIGA[1,5]
FLAG "U"
KEY 1
USE %GMC
INPUT CODTAB[4,5] F_R_CODRIGA_S
USE GMC SELECT CODTAB[4,5] != ""
INPUT CODTAB F_R_CODRIGA_S
DISPLAY "Gruppo merc." CODTAB[1,3]
DISPLAY "Sottogr. merc." CODTAB[4,5]
DISPLAY "Descrizione@50" S0
OUTPUT F_R_CODRIGA_S CODTAB[4,5]
OUTPUT F_R_CODRIGA_S CODTAB
OUTPUT F_R_DESRIGA_S S0
CHECKTYPE REQUIRED
MESSAGE COPY,F_R_CODRIGA_A
END
STRING F_R_DESRIGA_S 50
BEGIN
PROMPT 23 5 ""
PROMPT 25 5 ""
FLAG "D"
END
STRING F_R_CODRIGA_R 2
STRING F_R_CODRIGA_R 5
BEGIN
PROMPT 2 5 "Ragg.fiscale "
FIELD LF_RCONDV->CODRIGA[1,2]
FIELD LF_RCONDV->CODRIGA[1,5]
FLAG "U"
KEY 1
USE %RFA
USE RFA
INPUT CODTAB F_R_CODRIGA_R
DISPLAY "Ragg. fisc." CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_R_CODRIGA_R CODTAB
OUTPUT F_R_DESRIGA_R S0
CHECKTYPE REQUIRED
MESSAGE COPY,F_R_CODRIGA_A
END
STRING F_R_DESRIGA_R 50
BEGIN
PROMPT 23 5 ""
PROMPT 25 5 ""
FLAG "D"
END
@ -289,8 +287,8 @@ BEGIN
DISPLAY "U.M." UM
DISPLAY "N.S." NSCAGL
OUTPUT F_R_TIPORIGA TIPORIGA
OUTPUT F_R_CODRIGA_R CODRIGA[1,2]
OUTPUT F_R_CODRIGA_S CODRIGA[1,2]
OUTPUT F_R_CODRIGA_R CODRIGA[1,5]
OUTPUT F_R_CODRIGA_S CODRIGA[1,5]
OUTPUT F_R_CODRIGA_G CODRIGA[1,3]
OUTPUT F_R_CODRIGA_A CODRIGA
OUTPUT F_R_UM UM
@ -313,8 +311,8 @@ BEGIN
DISPLAY "Codice@20" CODRIGA
DISPLAY "N.S." NSCAGL
OUTPUT F_R_TIPORIGA TIPORIGA
OUTPUT F_R_CODRIGA_R CODRIGA[1,2]
OUTPUT F_R_CODRIGA_S CODRIGA[1,2]
OUTPUT F_R_CODRIGA_R CODRIGA[1,5]
OUTPUT F_R_CODRIGA_S CODRIGA[1,5]
OUTPUT F_R_CODRIGA_G CODRIGA[1,3]
OUTPUT F_R_CODRIGA_A CODRIGA
OUTPUT F_R_NSCAGL NSCAGL
@ -336,8 +334,8 @@ BEGIN
DISPLAY "U.M." UM
DISPLAY "N.S." NSCAGL
OUTPUT F_R_TIPORIGA TIPORIGA
OUTPUT F_R_CODRIGA_R CODRIGA[1,2]
OUTPUT F_R_CODRIGA_S CODRIGA[1,2]
OUTPUT F_R_CODRIGA_R CODRIGA[1,5]
OUTPUT F_R_CODRIGA_S CODRIGA[1,5]
OUTPUT F_R_CODRIGA_G CODRIGA[1,3]
OUTPUT F_R_CODRIGA_A CODRIGA
OUTPUT F_R_UM UM
@ -457,3 +455,4 @@ END
ENDPAGE
ENDMASK