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