Corretto errore MI4013

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

View File

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