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

Corretto errore MI4013

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@475 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
alex 1994-10-27 13:33:43 +00:00
parent d2d8caf956
commit 86f781e5e8
1 changed files with 51 additions and 52 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

103
include/bagn002.uml
View File

@ -1,30 +1,30 @@
#include "bagn002.h"
PAGE "Selezione Ditta" -1 -1 64 7
NUMBER F_CODDITTA 5
BEGIN
PROMPT 1 1 "Codice "
HELP "Inserire il codice della ditta"
FLAGS "FR"
USE LF_NDITTE KEY 1
CHECKTYPE NORMAL
INPUT CODDITTA F_CODDITTA
DISPLAY "Codice" CODDITTA
DISPLAY "Ragione sociale@50" RAGSOC
OUTPUT F_CODDITTA CODDITTA
OUTPUT F_RAGSOC RAGSOC
KEY 1
#include "bagn002.h"
PAGE "Selezione Ditta" -1 -1 64 7
NUMBER F_CODDITTA 5
BEGIN
PROMPT 1 1 "Codice "
HELP "Codice della ditta"
FLAGS "FR"
USE LF_NDITTE KEY 1
CHECKTYPE NORMAL
INPUT CODDITTA F_CODDITTA
DISPLAY "Codice" CODDITTA
DISPLAY "Ragione sociale@50" RAGSOC
OUTPUT F_CODDITTA CODDITTA
OUTPUT F_RAGSOC RAGSOC
KEY 1
GROUP 1
END
END
LIST F_TIPO 20
BEGIN
PROMPT 40 1 ""
ITEM "0|Ditte"
BEGIN
PROMPT 40 1 ""
ITEM "0|Ditte"
MESSAGE ENABLE,1@
ITEM "1|Dati comuni"
ITEM "1|Dati comuni"
MESSAGE CLEAR,1@|"0",F_CODDITTA
ITEM "2|Dati standard"
MESSAGE CLEAR,1@|"0",F_CODDITTA
@ -32,31 +32,30 @@ BEGIN
END
STRING F_RAGSOC 50
BEGIN
PROMPT 1 3 "Rag. Soc. "
USE LF_NDITTE KEY 2
HELP "Inserire la ragione sociale della ditta"
INPUT RAGSOC F_RAGSOC
INPUT CODDITTA F_CODDITTA
DISPLAY "Codice" CODDITTA
DISPLAY "Ragione sociale@50" RAGSOC
OUTPUT F_CODDITTA CODDITTA
OUTPUT F_RAGSOC RAGSOC
KEY 2
GROUP 1
END
BUTTON DLG_OK 9 2
BEGIN
PROMPT -12 -1 ""
END
BUTTON DLG_CANCEL 9 2
BEGIN
PROMPT -22 -1 ""
END
ENDPAGE
ENDMASK
STRING F_RAGSOC 50
BEGIN
PROMPT 1 3 "Rag. Soc. "
USE LF_NDITTE KEY 2
HELP "Ragione sociale della ditta"
INPUT RAGSOC F_RAGSOC
INPUT CODDITTA F_CODDITTA
DISPLAY "Ragione sociale@50" RAGSOC
DISPLAY "Codice" CODDITTA
COPY OUTPUT F_CODDITTA
KEY 2
GROUP 1
END
BUTTON DLG_OK 9 2
BEGIN
PROMPT -12 -1 ""
END
BUTTON DLG_CANCEL 9 2
BEGIN
PROMPT -22 -1 ""
END
ENDPAGE
ENDMASK