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

Cambiata tabella num

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@3379 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
alex 1996-08-13 15:01:50 +00:00
parent 32efa772c4
commit 9dae858d7b
1 changed files with 132 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

132
ve/ve0100a.uml Executable file
View File

@ -0,0 +1,132 @@
#include "veuml.h"
TOOLBAR "" 0 20 60 2
#include "toolbar.h"
ENDPAGE
PAGE "Gestione documenti" 1 1 60 14
GROUPBOX DLG_NULL 78 5
BEGIN
PROMPT 1 0 ""
END
STRING F_CODNUM 4
BEGIN
PROMPT 2 1 "Cod. num. "
FIELD CODNUM
HELP "Codice numerazione"
USE %NUM
INPUT CODTAB F_CODNUM
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_CODNUM CODTAB
OUTPUT F_DESNUM S0
OUTPUT F_TIPIDOCS S2
CHECKTYPE FORCED
FLAG "UPA"
WARNING "Numerazione assente"
KEY 1
END
STRING F_DESNUM 50
BEGIN
PROMPT 25 1 ""
HELP "Descrizione numerazione"
USE %NUM KEY 2
INPUT S0 F_DESNUM
DISPLAY "Descrizione@50" S0
DISPLAY "Codice" CODTAB
COPY OUTPUT F_CODNUM
KEY 2
END
STRING F_TIPODOC 4
BEGIN
PROMPT 2 2 "Tipo doc. "
FIELD TIPODOC
HELP "Codice tipo documento"
USE %TIP
INPUT CODTAB F_TIPODOC
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_TIPODOC CODTAB
OUTPUT F_DESTIPODOC S0
CHECKTYPE FORCED
FLAG "UP"
END
STRING F_DESTIPODOC 50
BEGIN
PROMPT 25 2 ""
HELP "Descrizione tipo documento"
USE %TIP KEY 2
INPUT S0 F_DESTIPODOC
DISPLAY "Descrizione@50" S0
DISPLAY "Codice" CODTAB
COPY OUTPUT F_TIPODOC
END
NUMBER F_NDOC 6
BEGIN
PROMPT 2 3 "Numero doc. "
FIELD NDOC
USE LF_DOC
INPUT ANNO F_ANNO SELECT
INPUT PROVV F_PROVV SELECT
INPUT CODNUM F_CODNUM SELECT
INPUT NDOC F_NDOC
DISPLAY "Num." CODNUM
DISPLAY "Anno" ANNO
DISPLAY "Provv" PROVV
DISPLAY "Tipo" TIPODOC
DISPLAY "N.Doc. " NDOC
OUTPUT F_NDOC NDOC
OUTPUT F_STATO STATO
CHECKTYPE REQUIRED
KEY 1
FLAG "R"
END
LISTBOX F_PROVV 14
BEGIN
FIELD PROVV
PROMPT 25 3 "Numerazione "
ITEM "D|Definitiva "
ITEM "P|Provvisoria"
KEY 1
FLAGS "P"
END
STRING F_STATO 1
BEGIN
PROMPT 57 3 "Stato "
FIELD STATO
FLAG "D"
END
NUMBER F_ANNO 4
BEGIN
PROMPT 68 3 "Es. "
FIELD ANNO
CHECKTYPE REQUIRED
FLAG "A"
KEY 1
END
BOOLEAN F_ATTIVAANNO
BEGIN
PROMPT 2 6 "Attiva esercizio"
MESSAGE TRUE ENABLE,F_ANNO
MESSAGE FALSE DISABLE,F_ANNO
END
STRING F_TIPIDOCS 40
BEGIN
PROMPT 2 10 ""
FLAG "H"
END
ENDPAGE
ENDMASK