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

Corretta formattazione

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@634 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
alex 1994-11-16 12:05:55 +00:00
parent 971509e7c7
commit 35da5cc118
1 changed files with 80 additions and 80 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

160
ba/batbvid.uml
View File

@ -1,80 +1,80 @@
#include "batbvid.h" #include "batbvid.h"
TOOLBAR "" 0 20 0 2 TOOLBAR "" 0 20 0 2
#include <toolbar.h> #include <toolbar.h>
ENDPAGE ENDPAGE
PAGE "Tabella Vidimazioni" -1 -1 78 18 PAGE "Tabella Vidimazioni" -1 -1 78 18
STRING F_CODICE 3 STRING F_CODICE 3
BEGIN BEGIN
PROMPT 4 1 "Codice vidimazione " PROMPT 4 1 "Codice vidimazione "
USE VID USE VID
FIELD VID->CODTAB FIELD VID->CODTAB
INPUT CODTAB F_CODICE INPUT CODTAB F_CODICE
DISPLAY "Codice" CODTAB DISPLAY "Codice" CODTAB
DISPLAY "Intestatario@50" S0 DISPLAY "Intestatario@50" S0
OUTPUT F_CODICE CODTAB OUTPUT F_CODICE CODTAB
OUTPUT F_INTESTA S0 OUTPUT F_INTESTA S0
OUTPUT F_DATAVID D0 OUTPUT F_DATAVID D0
OUTPUT F_UFFVID S1 OUTPUT F_UFFVID S1
OUTPUT F_NUMFOGLI I0 OUTPUT F_NUMFOGLI I0
OUTPUT F_PAGDA I1 OUTPUT F_PAGDA I1
OUTPUT F_PAGA I2 OUTPUT F_PAGA I2
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
KEY 1 KEY 1
END END
STRING F_INTESTA 50 STRING F_INTESTA 50
BEGIN BEGIN
PROMPT 4 3 "Intestatario " PROMPT 4 3 "Intestatario "
HELP "Inserire l' intestatario del codice di vidimazione" HELP "Inserire l' intestatario del codice di vidimazione"
FIELD VID->S0 FIELD VID->S0
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
END END
DATE F_DATAVID DATE F_DATAVID
BEGIN BEGIN
PROMPT 4 5 "Data vidimazione " PROMPT 4 5 "Data vidimazione "
FIELD VID->D0 FIELD VID->D0
FLAGS "A" FLAGS "A"
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
END END
STRING F_UFFVID 50 STRING F_UFFVID 50
BEGIN BEGIN
PROMPT 4 7 "Ufficio vidimazione " PROMPT 4 7 "Ufficio vidimazione "
FIELD VID->S1 FIELD VID->S1
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
END END
NUMBER F_NUMFOGLI 5 NUMBER F_NUMFOGLI 5
BEGIN BEGIN
PROMPT 4 9 "Numero fogli libro " PROMPT 4 9 "Numero fogli libro "
FIELD VID->I0 FIELD VID->I0
FLAGS "R" FLAGS "R"
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
END END
NUMBER F_PAGDA 5 NUMBER F_PAGDA 5
BEGIN BEGIN
PROMPT 4 11 "Dalla pagina " PROMPT 4 11 "Dalla pagina "
FIELD VID->I1 FIELD VID->I1
FLAGS "R" FLAGS "R"
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
END END
NUMBER F_PAGA 5 NUMBER F_PAGA 5
BEGIN BEGIN
PROMPT 30 11 "Alla pagina " PROMPT 30 11 "Alla pagina "
FIELD VID->I2 FIELD VID->I2
FLAGS "R" FLAGS "R"
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
NUM_EXPR {(#THIS_FIELD>=#F_PAGDA)} NUM_EXPR {(#THIS_FIELD>=#F_PAGDA)}
END END
ENDPAGE ENDPAGE
ENDMASK ENDMASK