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
PROMPT 1 14 "Codice vidimazione "
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
BOOLEAN F_STAMPATO

23
ba/batblbu.uml
View File

@ -126,17 +126,36 @@ BEGIN
PROMPT 3 9 "Codice vidimazione "
FLAGS "UZ"
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
DATE F_DATAVID
BEGIN
PROMPT 3 10 "Data vidimazione "
PROMPT 3 11 "Data vidimazione "
FIELD D0
END
DATE F_DATASCAD
BEGIN
PROMPT 45 10 "Data scadenza "
PROMPT 45 11 "Data scadenza "
FIELD D1
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@
END
STRING F_CONSPRESSO 40
STRING F_CONSPRESSO 50
BEGIN
PROMPT 1 7 "Conservato presso "
HELP "Luogo dove verra' conservato il registro"
@ -151,6 +151,7 @@ BEGIN
HELP "Codice dell'attivita' della ditta"
CHECKTYPE REQUIRED
WARNING "Attivita' non prevista per questa ditta"
ADD RUN ba4 -4
END
NUMBER F_CODULC 3
@ -172,6 +173,7 @@ BEGIN
HELP "Codice dell'unita' locale della ditta"
WARNING "Unita' locale non prevista per questa ditta"
CHECKTYPE NORMAL
ADD RUN ba4 -3
END
NUMBER F_PAGSTAMP 5