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

Corrette le ricerche sui gruppi/conti/sottoconti.

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@3129 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
angelo 1996-07-02 08:09:46 +00:00
parent 3702df8406
commit 908206c98f
1 changed files with 8 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
cg/cg5200a.uml
View File

@ -47,11 +47,10 @@ NUMBER F_GRUPPO 3
BEGIN BEGIN
PROMPT 26 3 "Gruppo " PROMPT 26 3 "Gruppo "
HELP "Codice del conto da visualizzare" HELP "Codice del conto da visualizzare"
WARNING "Gruppo inesistente"
FLAGS "R" FLAGS "R"
KEY 1 KEY 1
FIELD GRUPPO FIELD GRUPPO
USE LF_PCON KEY 1 SELECT CONTO="" USE LF_PCON SELECT CONTO=""
INPUT GRUPPO F_GRUPPO INPUT GRUPPO F_GRUPPO
DISPLAY "Gruppo" GRUPPO DISPLAY "Gruppo" GRUPPO
DISPLAY "Descrizione@50" DESCR DISPLAY "Descrizione@50" DESCR
@ -59,14 +58,15 @@ BEGIN
OUTPUT F_DESCR_CONTO DESCR OUTPUT F_DESCR_CONTO DESCR
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
VALIDATE CHECK_FIELD F_GRUPPO VALIDATE CHECK_FIELD F_GRUPPO
WARNING "Gruppo inesistente"
END END
NUMBER F_CONTO 3 NUMBER F_CONTO 3
BEGIN BEGIN
PROMPT 40 3 "Conto " PROMPT 40 3 "Conto "
HELP "Codice del conto da visualizzare" HELP "Codice del conto da visualizzare"
WARNING "Conto inesistente" //USE LF_PCON SELECT (CONTO!="") && (SOTTOCONTO="")
USE LF_PCON SELECT (CONTO!="") && (SOTTOCONTO="") USE LF_PCON SELECT SOTTOCONTO=""
FIELD CONTO FIELD CONTO
FLAGS "R" FLAGS "R"
KEY 1 KEY 1
@ -82,14 +82,15 @@ BEGIN
OUTPUT F_DESCR_CONTO DESCR OUTPUT F_DESCR_CONTO DESCR
CHECKTYPE NORMAL CHECKTYPE NORMAL
VALIDATE CHECK_FIELD F_CONTO VALIDATE CHECK_FIELD F_CONTO
WARNING "Conto inesistente o mancante" WARNING "Conto inesistente"
END END
NUMBER F_SOTTOCONTO 6 NUMBER F_SOTTOCONTO 6
BEGIN BEGIN
PROMPT 54 3 "Sottoconto " PROMPT 54 3 "Sottoconto "
HELP "Codice del conto da visualizzare" HELP "Codice del conto da visualizzare"
USE LF_PCON SELECT SOTTOCONTO!="" //USE LF_PCON SELECT SOTTOCONTO!=""
USE LF_PCON
FIELD SOTTOCONTO FIELD SOTTOCONTO
FLAGS "R" FLAGS "R"
KEY 1 KEY 1
@ -106,7 +107,7 @@ BEGIN
OUTPUT F_DESCR_CONTO DESCR OUTPUT F_DESCR_CONTO DESCR
CHECKTYPE NORMAL CHECKTYPE NORMAL
VALIDATE CHECK_FIELD F_SOTTOCONTO VALIDATE CHECK_FIELD F_SOTTOCONTO
WARNING "Conto inesistente" WARNING "Sottoconto inesistente"
GROUP 1 GROUP 1
END END