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

Modifiche varie prima del rilascio della Beta.

Browse Source 
Modificate maschere di tabelle + verig.uml + ve0300a.src


git-svn-id: svn://10.65.10.50/trunk@3940 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
pirro 1996-11-28 15:33:09 +00:00
parent 9de7010cf6
commit 94cf5a09ec
8 changed files with 25 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ve/batbcaa.uml
View File

@ -71,8 +71,8 @@ BEGIN
FIELD I2
USE LF_PCON SELECT (SOTTOCONTO!="") && (500@->INDBIL=="3")
JOIN LF_PCON ALIAS 500 INTO GRUPPO==GRUPPO CONTO==CONTO
INPUT GRUPPO F_CODCON SELECT
INPUT CONTO F_CODCON1 SELECT
INPUT GRUPPO F_CODCON
INPUT CONTO F_CODCON1
INPUT SOTTOCONTO F_CODCON2
DISPLAY "Gruppo " GRUPPO
DISPLAY "Conto " CONTO

4
ve/batbcra.uml
View File

@ -71,8 +71,8 @@ BEGIN
FIELD I2
USE LF_PCON SELECT (SOTTOCONTO!="") && (500@->INDBIL=="4")
JOIN LF_PCON ALIAS 500 INTO GRUPPO==GRUPPO CONTO==CONTO
INPUT GRUPPO F_CODCON SELECT
INPUT CONTO F_CODCON1 SELECT
INPUT GRUPPO F_CODCON
INPUT CONTO F_CODCON1
INPUT SOTTOCONTO F_CODCON2
DISPLAY "Gruppo " GRUPPO
DISPLAY "Conto " CONTO

12
ve/batbprs.uml
View File

@ -140,7 +140,7 @@ NUMBER F_CONTOV 3
BEGIN
PROMPT 22 14 ""
FIELD I1
USE LF_PCON SELECT INDBIL=="4"
USE LF_PCON SELECT (CONTO!="") && (SOTTOCONTO=="") && ((INDBIL=="4") || (INDBIL=="1") || (INDBIL=="2"))
INPUT GRUPPO F_GRUPPOV
INPUT CONTO F_CONTOV
DISPLAY "Gruppo" GRUPPO
@ -157,7 +157,7 @@ NUMBER F_SOTTOV 6
BEGIN
PROMPT 30 14 ""
FIELD I2
USE LF_PCON SELECT (SOTTOCONTO!="") && (500@->INDBIL=="4")
USE LF_PCON SELECT (SOTTOCONTO!="") && ((500@->INDBIL=="4") || (500@->INDBIL=="1") || (500@->INDBIL=="2"))
JOIN LF_PCON ALIAS 500 INTO GRUPPO==GRUPPO CONTO==CONTO
INPUT GRUPPO F_GRUPPOV SELECT
INPUT CONTO F_CONTOV SELECT
@ -179,7 +179,7 @@ STRING F_DESCRCONTOV 50
BEGIN
PROMPT 17 15 ""
FLAG "U"
USE LF_PCON KEY 2 SELECT (SOTTOCONTO!="") && (500@->INDBIL=="4")
USE LF_PCON KEY 2 SELECT (SOTTOCONTO!="") && ((500@->INDBIL=="4") || (500@->INDBIL=="1") || (500@->INDBIL=="2"))
JOIN LF_PCON ALIAS 500 INTO GRUPPO==GRUPPO CONTO==CONTO
INPUT DESCR F_DESCRCONTOV
DISPLAY "Descrizione@50" DESCR
@ -203,7 +203,7 @@ NUMBER F_CONTOA 3
BEGIN
PROMPT 22 16 ""
FIELD I4
USE LF_PCON SELECT INDBIL=="3"
USE LF_PCON SELECT (CONTO!="") && (SOTTOCONTO=="") && ((INDBIL=="3") || (INDBIL=="1") || (INDBIL=="2"))
INPUT GRUPPO F_GRUPPOA
INPUT CONTO F_CONTOA
DISPLAY "Gruppo" GRUPPO
@ -220,7 +220,7 @@ NUMBER F_SOTTOA 6
BEGIN
PROMPT 30 16 ""
FIELD I5
USE LF_PCON SELECT (SOTTOCONTO!="") && (500@->INDBIL=="3")
USE LF_PCON SELECT (SOTTOCONTO!="") && ((500@->INDBIL=="3") || (500@->INDBIL=="1") || (500@->INDBIL=="2"))
JOIN LF_PCON ALIAS 500 INTO GRUPPO==GRUPPO CONTO==CONTO
INPUT GRUPPO F_GRUPPOA SELECT
INPUT CONTO F_CONTOA SELECT
@ -242,7 +242,7 @@ STRING F_DESCRCONTOA 50
BEGIN
PROMPT 17 17 ""
FLAG "U"
USE LF_PCON KEY 2 SELECT (SOTTOCONTO!="") && (500@->INDBIL=="3")
USE LF_PCON KEY 2 SELECT (SOTTOCONTO!="") && ((500@->INDBIL=="3") || (500@->INDBIL=="1") || (500@->INDBIL=="2"))
JOIN LF_PCON ALIAS 500 INTO GRUPPO==GRUPPO CONTO==CONTO
INPUT DESCR F_DESCRCONTOA
DISPLAY "Descrizione@50" DESCR

4
ve/batbrfa.uml
View File

@ -166,8 +166,8 @@ BEGIN
FIELD I5
USE LF_PCON SELECT (SOTTOCONTO!="") && (500@->INDBIL=="4")
JOIN LF_PCON ALIAS 500 INTO GRUPPO==GRUPPO CONTO==CONTO
INPUT GRUPPO F_GRUPPOV SELECT
INPUT CONTO F_CONTOV SELECT
INPUT GRUPPO F_GRUPPOV
INPUT CONTO F_CONTOV
INPUT SOTTOCONTO F_SOTTOCV
DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO

12
ve/batbspp.uml
View File

@ -180,7 +180,7 @@ NUMBER F_CONTOV 3
BEGIN
PROMPT 22 15 ""
FIELD I1
USE LF_PCON SELECT INDBIL=="4"
USE LF_PCON SELECT (CONTO!="") && (SOTTOCONTO=="") && ((INDBIL=="4") || (INDBIL=="1") || (INDBIL=="2"))
INPUT GRUPPO F_GRUPPOV
INPUT CONTO F_CONTOV
DISPLAY "Gruppo" GRUPPO
@ -197,7 +197,7 @@ NUMBER F_SOTTOV 6
BEGIN
PROMPT 30 15 ""
FIELD I2
USE LF_PCON SELECT (SOTTOCONTO!="") && (500@->INDBIL=="4")
USE LF_PCON SELECT (SOTTOCONTO!="") && ((500@->INDBIL=="4") || (500@->INDBIL=="1") || (500@->INDBIL=="2"))
JOIN LF_PCON ALIAS 500 INTO GRUPPO==GRUPPO CONTO==CONTO
INPUT GRUPPO F_GRUPPOV
INPUT CONTO F_CONTOV
@ -219,7 +219,7 @@ STRING F_DESCRCONTOV 50
BEGIN
PROMPT 17 16 ""
FLAG "U"
USE LF_PCON KEY 2 SELECT (SOTTOCONTO!="") && (500@->INDBIL=="4")
USE LF_PCON KEY 2 SELECT (SOTTOCONTO!="") && ((500@->INDBIL=="4") || (500@->INDBIL=="1") || (500@->INDBIL=="2"))
JOIN LF_PCON ALIAS 500 INTO GRUPPO==GRUPPO CONTO==CONTO
INPUT DESCR F_DESCRCONTOV
DISPLAY "Descrizione@50" DESCR
@ -243,7 +243,7 @@ NUMBER F_CONTOA 3
BEGIN
PROMPT 22 17 ""
FIELD I4
USE LF_PCON SELECT INDBIL=="3"
USE LF_PCON SELECT (CONTO!="") && (SOTTOCONTO=="") && ((INDBIL=="3") || (INDBIL=="1") || (INDBIL=="2"))
INPUT GRUPPO F_GRUPPOA
INPUT CONTO F_CONTOA
DISPLAY "Gruppo" GRUPPO
@ -260,7 +260,7 @@ NUMBER F_SOTTOA 6
BEGIN
PROMPT 30 17 ""
FIELD I5
USE LF_PCON SELECT (SOTTOCONTO!="") && (500@->INDBIL=="3")
USE LF_PCON SELECT (SOTTOCONTO!="") && ((500@->INDBIL=="3") || (500@->INDBIL=="1") || (500@->INDBIL=="2"))
JOIN LF_PCON ALIAS 500 INTO GRUPPO==GRUPPO CONTO==CONTO
INPUT GRUPPO F_GRUPPOA
INPUT CONTO F_CONTOA
@ -282,7 +282,7 @@ STRING F_DESCRCONTOA 50
BEGIN
PROMPT 17 18 ""
FLAG "U"
USE LF_PCON KEY 2 SELECT (SOTTOCONTO!="") && (500@->INDBIL=="3")
USE LF_PCON KEY 2 SELECT (SOTTOCONTO!="") && ((500@->INDBIL=="3") || (500@->INDBIL=="1") || (500@->INDBIL=="2"))
JOIN LF_PCON ALIAS 500 INTO GRUPPO==GRUPPO CONTO==CONTO
INPUT DESCR F_DESCRCONTOA
DISPLAY "Descrizione@50" DESCR

2
ve/ve0300a.src
View File

@ -1408,7 +1408,7 @@ PROMPT="Importi netti "
GROUP=2400
X=2
Y=0
FIELDNAME=SPESEINC
FIELDNAME=PERCSPINC
MSKID=151
TYPE=T_NUMERO
PROMPT="% spese incasso "

4
ve/ve6200a.uml
View File

@ -11,7 +11,7 @@ STRING F_CODICE_ELAB 8
BEGIN
PROMPT 2 1 "Codice "
FLAG "U"
USE %ELD
USE %ELD SELECT S3 == "FB"
INPUT CODTAB F_CODICE_ELAB
DISPLAY "Codice@8" CODTAB
DISPLAY "Descrizione@50" S0
@ -25,7 +25,7 @@ END
STRING F_DESCR_ELAB 50
BEGIN
PROMPT 2 2 "Descrizione "
USE %ELD KEY 2
USE %ELD KEY 2 SELECT S3 == "FB"
INPUT S0 F_DESCR_ELAB
DISPLAY "Descrizione@50" S0
DISPLAY "Codice@8" CODTAB

4
ve/verig.uml
View File

@ -193,6 +193,7 @@ ENDIF
OUTPUT FR_CODIVA S3
MESSAGE DIRTY,FR_CODIVA|K_TAB,FR_CODIVA|DISABLE,FR_QTA
FIELD CODART
FLAGS "U"
IFDEF(CH_CODSPV)
CHECKTYPE CH_CODSPV
ELSEIF
@ -221,6 +222,7 @@ ENDIF
OUTPUT FR_CODIVA S3
MESSAGE DIRTY,FR_CODIVA|K_TAB,FR_CODIVA
FIELD CODART
FLAGS "U"
IFDEF(CH_CODSPQ)
CHECKTYPE CH_CODSPQ
ELSEIF
@ -246,6 +248,7 @@ ENDIF
OUTPUT FR_PERCSP R2
OUTPUT FR_CODIVA S3
FIELD CODART
FLAGS "U"
MESSAGE DIRTY,FR_CODIVA|K_TAB,FR_CODIVA
IFDEF(CH_CODSPP)
CHECKTYPE CH_CODSPP
@ -275,6 +278,7 @@ ENDIF
OUTPUT FR_CODIVA S3
MESSAGE DIRTY,FR_CODIVA|K_TAB,FR_CODIVA
FIELD CODART
FLAGS "U"
IFDEF(CH_CODPRS)
CHECKTYPE CH_CODPRS
ELSEIF