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

Corrette ricerche e aggiunte descrizioni

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@1058 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy 1995-03-01 16:01:32 +00:00
parent ba75ce1b8c
commit 370f3972ce
3 changed files with 149 additions and 109 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
ba/batbinl.uml
View File

@ -162,6 +162,25 @@ STRING F_CODVID 3
BEGIN BEGIN
PROMPT 1 14 "Codice vidimazione " PROMPT 1 14 "Codice vidimazione "
FIELD CODVID FIELD CODVID
FLAGS "UZ"
USE %VID
INPUT CODTAB F_CODVID
DISPLAY "Codice" CODTAB
DISPLAY "Intestatario@50" S0
OUTPUT F_CODVID CODTAB
OUTPUT F_DESVID S0
CHECKTYPE NORMAL
END
STRING F_DESVID 50
BEGIN
PROMPT 1 15 "Intestatario "
USE %VID KEY 2
INPUT S0 F_DESVID
DISPLAY "Intestatario@50" S0
DISPLAY "Codice" CODTAB
COPY OUTPUT F_CODVID
CHECKTYPE NORMAL
END END
BOOLEAN F_STAMPATO BOOLEAN F_STAMPATO

23
ba/batblbu.uml
View File

@ -126,17 +126,36 @@ BEGIN
PROMPT 3 9 "Codice vidimazione " PROMPT 3 9 "Codice vidimazione "
FLAGS "UZ" FLAGS "UZ"
FIELD S4 FIELD S4
USE %VID
INPUT CODTAB F_CODVID
DISPLAY "Codice" CODTAB
DISPLAY "Intestatario@50" S0
OUTPUT F_CODVID CODTAB
OUTPUT F_DESVID S0
OUTPUT F_DATAVID D0
CHECKTYPE NORMAL
END
STRING F_DESVID 50
BEGIN
PROMPT 3 10 "Intestatario "
USE %VID KEY 2
INPUT S0 F_DESVID
DISPLAY "Intestatario@50" S0
DISPLAY "Codice" CODTAB
COPY OUTPUT F_CODVID
CHECKTYPE NORMAL
END END
DATE F_DATAVID DATE F_DATAVID
BEGIN BEGIN
PROMPT 3 10 "Data vidimazione " PROMPT 3 11 "Data vidimazione "
FIELD D0 FIELD D0
END END
DATE F_DATASCAD DATE F_DATASCAD
BEGIN BEGIN
PROMPT 45 10 "Data scadenza " PROMPT 45 11 "Data scadenza "
FIELD D1 FIELD D1
END END

4
ba/batbreg.uml
View File

@ -128,7 +128,7 @@ BEGIN
MESSAGE HIDE,2@|HIDE,3@|HIDE,4@|HIDE,5@|HIDE,6@|HIDE,7@|HIDE,8@|HIDE,9@|SHOW,10@ MESSAGE HIDE,2@|HIDE,3@|HIDE,4@|HIDE,5@|HIDE,6@|HIDE,7@|HIDE,8@|HIDE,9@|SHOW,10@
END END
STRING F_CONSPRESSO 40 STRING F_CONSPRESSO 50
BEGIN BEGIN
PROMPT 1 7 "Conservato presso " PROMPT 1 7 "Conservato presso "
HELP "Luogo dove verra' conservato il registro" HELP "Luogo dove verra' conservato il registro"
@ -151,6 +151,7 @@ BEGIN
HELP "Codice dell'attivita' della ditta" HELP "Codice dell'attivita' della ditta"
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
WARNING "Attivita' non prevista per questa ditta" WARNING "Attivita' non prevista per questa ditta"
ADD RUN ba4 -4
END END
NUMBER F_CODULC 3 NUMBER F_CODULC 3
@ -172,6 +173,7 @@ BEGIN
HELP "Codice dell'unita' locale della ditta" HELP "Codice dell'unita' locale della ditta"
WARNING "Unita' locale non prevista per questa ditta" WARNING "Unita' locale non prevista per questa ditta"
CHECKTYPE NORMAL CHECKTYPE NORMAL
ADD RUN ba4 -3
END END
NUMBER F_PAGSTAMP 5 NUMBER F_PAGSTAMP 5