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

Modifiche varie per nuove impaginazioni, correzioni sui titoli delle

Browse Source 
maschere e tolti i VALIDATE AUTOEXIT


git-svn-id: svn://10.65.10.50/trunk@2892 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
angelo 1996-05-23 13:30:36 +00:00
parent a4026fe241
commit 1019aae9ac
6 changed files with 35 additions and 33 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

52
ba/bastsua.uml
View File

@ -2,16 +2,16 @@
PAGE "Stampa Tabella Gestione Subagenti" -1 -1 58 8
STRING F_INIZIO1 2
STRING F_INIZIO1 5
BEGIN
PROMPT 2 1 "Da cod. agente "
HELP "Inserire il codice d'inizio "
FIELD LF_TABCOM->CODTAB[1,2]
USE %AGE
INPUT CODTAB[1,2] F_INIZIO1
DISPLAY "Codice Agente" CODTAB[1,2]
FIELD LF_TABCOM->CODTAB[1,5]
USE AGE
INPUT CODTAB[1,5] F_INIZIO1
DISPLAY "Codice Agente" CODTAB[1,5]
DISPLAY "Descrizione@50" S0
OUTPUT F_INIZIO1 CODTAB[1,2]
OUTPUT F_INIZIO1 CODTAB[1,5]
GROUP 1
END
@ -19,28 +19,28 @@ STRING F_INIZIO2 2
BEGIN
PROMPT 28 1 "Da cod. subagente "
HELP "Inserire il codice d'inizio "
FIELD LF_TABCOM->CODTAB[3,4]
USE %SUA
INPUT CODTAB[1,2] F_INIZIO1
INPUT CODTAB[3,4] F_INIZIO2
DISPLAY "Codice Agente" CODTAB[1,2]
DISPLAY "Codice SubAgente" CODTAB[3,4]
FIELD LF_TABCOM->CODTAB[6,7]
USE SUA
INPUT CODTAB[1,5] F_INIZIO1
INPUT CODTAB[6,7] F_INIZIO2
DISPLAY "Codice Agente" CODTAB[1,5]
DISPLAY "Codice SubAgente" CODTAB[6,7]
DISPLAY "Descrizione@50" S0
OUTPUT F_INIZIO1 CODTAB[1,2]
OUTPUT F_INIZIO2 CODTAB[3,4]
OUTPUT F_INIZIO1 CODTAB[1,5]
OUTPUT F_INIZIO2 CODTAB[6,7]
GROUP 1
END
STRING F_FINE1 2
STRING F_FINE1 5
BEGIN
PROMPT 2 3 "A codice agente "
HELP "Inserire il codice di fine "
FIELD LF_TABCOM->CODTAB[1,2]
FIELD LF_TABCOM->CODTAB[1,5]
COPY USE F_INIZIO1
INPUT CODTAB[1,2] F_FINE1
INPUT CODTAB[1,5] F_FINE1
COPY DISPLAY F_INIZIO1
OUTPUT F_FINE1 CODTAB[1,2]
OUTPUT F_FINE1 CODTAB[1,5]
GROUP 2
END
@ -49,15 +49,15 @@ STRING F_FINE2 2
BEGIN
PROMPT 28 3 "A codice subagente "
HELP "Inserire il codice di fine "
FIELD LF_TABCOM->CODTAB[3,4]
USE %SUA
INPUT CODTAB[1,2] F_FINE1
INPUT CODTAB[3,4] F_FINE2
DISPLAY "Codice Agente" CODTAB[1,2]
DISPLAY "Codice SubAgente" CODTAB[3,4]
FIELD LF_TABCOM->CODTAB[6,7]
USE SUA
INPUT CODTAB[1,5] F_FINE1
INPUT CODTAB[6,7] F_FINE2
DISPLAY "Codice Agente" CODTAB[1,5]
DISPLAY "Codice SubAgente" CODTAB[6,7]
DISPLAY "Descrizione@50" S0
OUTPUT F_FINE1 CODTAB[1,2]
OUTPUT F_FINE2 CODTAB[3,4]
OUTPUT F_FINE1 CODTAB[1,5]
OUTPUT F_FINE2 CODTAB[6,7]
GROUP 2
END

4
ba/batbban.uml
View File

@ -28,6 +28,7 @@ BEGIN
OUTPUT F_CODICEABI CODTAB[1,5]
OUTPUT H_DENOMABI S0
MESSAGE COPY,H_CODICEABI
CHECKTYPE REQUIRED
END
NUMBER F_CODICECAB 5
@ -48,8 +49,9 @@ BEGIN
OUTPUT F_DENOM S0
MESSAGE SHOW,F_ISTIT|SHOW,F_CODICEDIP|HIDE,H_DENOMABI|SHOW,F_DENOM
MESSAGE EMPTY HIDE,F_ISTIT|HIDE,F_CODICEDIP|SHOW,H_DENOMABI|HIDE,F_DENOM
VALIDATE AUTOEXIT_FUNC 2 F_CODICEABI F_CODICECAB
// VALIDATE AUTOEXIT_FUNC 2 F_CODICEABI F_CODICECAB
GROUP GR_SEARCH
CHECKTYPE NORMAL
END
NUMBER F_CODICEDIP 4

2
ba/batbclr.uml
View File

@ -41,7 +41,7 @@ BEGIN
FLAGS "U"
FIELD CODTAB[2,2]
USE %CLR
INPUT CODTAB[1,1] F_CODICERATA
INPUT CODTAB[1,1] F_CODICERATA SELECT
INPUT CODTAB[2,2] F_CODICEALFA
DISPLAY "Tipo pagamento" CODTAB[1,1]
DISPLAY "Classificazione" CODTAB[2,2]

2
ba/batbcpg.uml
View File

@ -53,7 +53,7 @@ BEGIN
ITEM "10|Altro"
END
LIST F_INIZIOSCAD 12
LIST F_INIZIOSCAD 14
BEGIN
PROMPT 4 7 "Inizio scadenze "
FIELD LF_TABCOM->S7

2
ba/batbitl.rpt
View File

@ -2,7 +2,7 @@
80
Tabella dei libri sociali
1|@2g%s|Cod.
1|@8g%s|Descriozione
1|@8g%s|Descrizione
[Rows]
1|CODTAB|@2g@5,ls

6
ba/batbivd.uml
View File

@ -38,7 +38,7 @@ BEGIN
CHECKTYPE NORMAL
HELP "Lettera secondo la IV dir. CEE"
GROUP GR_SEARCH
VALIDATE AUTOEXIT_FUNC 2 F_LETT F_NUM
// VALIDATE AUTOEXIT_FUNC 2 F_LETT F_NUM
END
STRING F_DESCR_LETT 70 50
@ -66,7 +66,7 @@ BEGIN
OUTPUT F_DESCR_CLAS S0
CHECKTYPE NORMAL
HELP "Classe secondo la IV dir. CEE (numero romano)"
VALIDATE AUTOEXIT_FUNC 2 F_LETT F_NUM
// VALIDATE AUTOEXIT_FUNC 2 F_LETT F_NUM
END
STRING F_DESCR_CLAS 70 50
@ -95,7 +95,7 @@ BEGIN
OUTPUT F_CLASSE CODTAB[3,6]
OUTPUT F_DESCR S0
HELP "Numero (arabo) secondo la IV dir. CEE"
VALIDATE AUTOEXIT_FUNC 2 F_LETT F_NUM
// VALIDATE AUTOEXIT_FUNC 2 F_LETT F_NUM
END
TEXT DLG_NULL