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