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

Correzioni alla tabella vecchi codici attivita'

Browse Source 
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

113
ba/batbois.uml
View File

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

22
ba/batbucc.h
View File

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