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

Errori MI4319 e MI4320

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@3546 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
alex 1996-09-09 08:46:24 +00:00
parent 43a1165373
commit 53cccfb5ea
1 changed files with 11 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
cg/cg4700a.uml
View File

@ -2,7 +2,7 @@
TOOLBAR "" 0 20 0 2
BUTTON DLG_SAVEREC 8 2
BUTTON DLG_SAVEREC 10 2
BEGIN
PROMPT -14 -1 "~Registra"
PICTURE BMP_SAVEREC
@ -10,20 +10,20 @@ PICTURE BMP_SAVERECDN
MESSAGE EXIT,K_SAVE
END
BUTTON DLG_FINDREC 8 2
BUTTON DLG_FINDREC 10 2
BEGIN
PROMPT -24 -1 "Ri~cerca"
PICTURE BMP_FINDREC
MESSAGE EXIT,K_F9
END
BUTTON DLG_CANCEL 8 2
BUTTON DLG_CANCEL 10 2
BEGIN
PROMPT -34 -1 ""
MESSAGE EXIT,K_ESC
END
BUTTON DLG_QUIT 8 2
BUTTON DLG_QUIT 10 2
BEGIN
PROMPT -44 -1 ""
MESSAGE EXIT,K_QUIT
@ -50,26 +50,26 @@ BEGIN
END
STRING F_RAGSOC 50
BEGIN
BEGIN
PROMPT 16 1 "Rag.Soc "
KEY 1
USE LF_NDITTE KEY 2
INPUT RAGSOC F_RAGSOC
INPUT RAGSOC F_RAGSOC
DISPLAY "Ragione sociale@50" RAGSOC
DISPLAY "Ditta" CODDITTA
COPY OUTPUT F_CODDITTA
COPY OUTPUT F_CODDITTA
WARNING "Ditta assente"
CHECKTYPE NORMAL
END
NUMBER F_ANNO 4
BEGIN
PROMPT 1 3 "Anno liquidazione "
PROMPT 1 3 "Anno liquidazione "
HELP "Introdurre l'anno liquidazione"
FIELD CODTAB[6,9]
CHECKTYPE REQUIRED
KEY 1
USE %LIA
USE %LIA
JOIN LF_NDITTE TO %LIA INTO CODDITTA=CODTAB[1,5]
INPUT CODTAB[1,5] F_CODDITTA
INPUT CODTAB[6,9] F_ANNO
@ -78,10 +78,10 @@ BEGIN
DISPLAY "Anno" CODTAB[6,9]
OUTPUT F_CODDITTA CODTAB[1,5]
OUTPUT F_ANNO CODTAB[6,9]
VALIDATE FIXLEN_FUNC 4
VALIDATE FIXLEN_FUNC 4
FLAGS "Z"
END
NUMBER F_ACCONTO 15
BEGIN
PROMPT 1 7 "Acconto dovuto "