Correzioni alla tabella vecchi codici attivita'

git-svn-id: svn://10.65.10.50/trunk@1380 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
alex 1995-05-22 09:55:51 +00:00
parent 683c0c481e
commit 4d64f7d25c
2 changed files with 67 additions and 68 deletions

View File

@ -1,57 +1,56 @@
#include "batbois.h" #include "batbois.h"
TOOLBAR "" 0 20 0 2 TOOLBAR "" 0 20 0 2
#include <toolbar.h> #include <toolbar.h>
ENDPAGE ENDPAGE
PAGE "Vecchi codici attivita'" -1 -1 78 7 PAGE "Vecchi codici attivita'" -1 -1 78 7
STRING FLD_TABOIS_CODTAB 4 STRING FLD_TABOIS_CODTAB 4
BEGIN BEGIN
PROMPT 2 1 "Codice " PROMPT 2 1 "Codice "
FIELD %OIS->CODTAB[1,4] FIELD %OIS->CODTAB[1,4]
HELP "Codice del vecchio codice attivit…" HELP "Codice del vecchio codice attivit…"
USE %OIS USE %OIS
CHECKTYPE REQUIRED INPUT CODTAB[1,4] FLD_TABOIS_CODTAB
INPUT CODTAB[1,4] FLD_TABOIS_CODTAB INPUT CODTAB[5,] FLD_TABOIS_ADD
INPUT CODTAB[5,] FLD_TABOIS_ADD DISPLAY "Codice" CODTAB[1,4]
DISPLAY "Codice" CODTAB[1,4] DISPLAY "Subcodice" CODTAB[5,]
DISPLAY "Subcodice" CODTAB[5,] DISPLAY "Descrizione@40" S0
DISPLAY "Descrizione@40" S0 OUTPUT FLD_TABOIS_CODTAB CODTAB[1,4]
OUTPUT FLD_TABOIS_CODTAB CODTAB[1,4] OUTPUT FLD_TABOIS_ADD CODTAB[5,]
OUTPUT FLD_TABOIS_ADD CODTAB[5,] OUTPUT FLD_TABOIS_S0 S0
OUTPUT FLD_TABOIS_S0 S0 KEY 1
KEY 1 FLAGS "RZ"
FLAGS "RZ" END
END
STRING FLD_TABOIS_ADD 1
STRING FLD_TABOIS_ADD 1 BEGIN
BEGIN PROMPT 22 1 "Subcodice "
PROMPT 22 1 "Subcodice " HELP "Subcodice del vecchio codice attivit…"
HELP "Subcodice del vecchio codice attivit…" FIELD %OIS->CODTAB[5,]
FIELD %OIS->CODTAB[5,] COPY ALL FLD_TABOIS_CODTAB
COPY ALL FLD_TABOIS_CODTAB KEY 1
CHECKTYPE REQUIRED FLAGS "U"
KEY 1 VALIDATE AUTOEXIT_FUNC 1 FLD_TABOIS_CODTAB
FLAGS "U" END
END
STRING FLD_TABOIS_S0 40
STRING FLD_TABOIS_S0 40 BEGIN
BEGIN PROMPT 2 3 "Descrizione "
PROMPT 2 3 "Descrizione " FIELD %OIS->S0
FIELD %OIS->S0 HELP "Descrizione del vecchio codice attivit… "
HELP "Descrizione del vecchio codice attivit… " USE %OIS KEY 2
USE %OIS KEY 2 CHECKTYPE REQUIRED
CHECKTYPE REQUIRED INPUT S0 FLD_TABOIS_S0
INPUT S0 FLD_TABOIS_S0 DISPLAY "Descrizione@40" S0
DISPLAY "Descrizione@40" S0 DISPLAY "Codice" CODTAB[1,4]
DISPLAY "Codice" CODTAB[1,4] DISPLAY "Subcodice" CODTAB[5,]
DISPLAY "Subcodice" CODTAB[5,] OUTPUT FLD_TABOIS_CODTAB CODTAB[1,4]
OUTPUT FLD_TABOIS_CODTAB CODTAB[1,4] OUTPUT FLD_TABOIS_ADD CODTAB[5,]
OUTPUT FLD_TABOIS_ADD CODTAB[5,] OUTPUT FLD_TABOIS_S0 S0
OUTPUT FLD_TABOIS_S0 S0 KEY 2
KEY 2 END
END
ENDPAGE
ENDPAGE ENDMASK
ENDMASK

View File

@ -1,11 +1,11 @@
#define FLD_TABUCC_CODTAB 100 #define FLD_TABUCC_CODTAB 100
#define FLD_TABUCC_S0 101 #define FLD_TABUCC_S0 101
#define FLD_TABUCC_S1 102 #define FLD_TABUCC_S1 102
#define FLD_TABUCC_S2 103 #define FLD_TABUCC_S2 103
#define FLD_TABUCC_S6 104 #define FLD_TABUCC_S6 104
#define FLD_TABUCC_S6_COMUNI_DENCOM 105 #define FLD_TABUCC_S6_COMUNI_DENCOM 105
#define FLD_TABUCC_S6_COMUNI_PROVCOM 109 #define FLD_TABUCC_S6_COMUNI_PROVCOM 109
#define FLD_TABUCC_S3 106 #define FLD_TABUCC_S3 106
#define FLD_TABUCC_S5 107 #define FLD_TABUCC_S5 107
#define FLD_TABUCC_S4 108 #define FLD_TABUCC_S4 108
#define FLD_TABUCC_S7_CAP 111 #define FLD_TABUCC_S7_CAP 111