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

Corretti errori sull' interstazione registri

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@730 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
alex 1994-12-05 18:52:09 +00:00
parent 74475d0641
commit 4f161fd289
1 changed files with 23 additions and 54 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

77
ba/ba3300a.uml
View File

@ -16,8 +16,7 @@ BEGIN
OUTPUT F_ANNO CODTAB[1,4]
OUTPUT F_CODICE CODTAB[5,7]
OUTPUT F_REGISTRO S0
FLAGS "URZ"
CHECKTYPE REQUIRED
FLAGS "Z"
KEY 1
END
@ -30,54 +29,40 @@ END
STRING F_CODICE 3
BEGIN
PROMPT 3 4 "Codice Registro "
HELP "Codice del registro da numerare"
FLAGS "U"
COPY ALL F_ANNO
CHECKTYPE REQUIRED
KEY 1
PROMPT 3 4 "Codice Registro "
HELP "Codice del registro da numerare"
FLAGS "U"
COPY ALL F_ANNO
CHECKTYPE REQUIRED
KEY 1
WARNING "Registro assente"
END
STRING F_REGISTRO 50
BEGIN
PROMPT 3 6 "Registro "
HELP "Descrizione del registro da numerare"
USE REG KEY 2
INPUT S0 F_REGISTRO
DISPLAY "Descrizione@50" S0
DISPLAY "Anno " CODTAB[1,4]
DISPLAY "Codice Registro" CODTAB[5,7]
DISPLAY "Tipo" I0
COPY OUTPUT F_CODICE
CHECKTYPE REQUIRED
HELP "Descrizione del registro da numerare"
USE REG KEY 2
INPUT S0 F_REGISTRO
DISPLAY "Descrizione@50" S0
DISPLAY "Anno " CODTAB[1,4]
DISPLAY "Codice Registro" CODTAB[5,7]
DISPLAY "Tipo" I0
COPY OUTPUT F_CODICE
CHECKTYPE REQUIRED
WARNING "Registro assente"
END
STRING F_RAGSOC 50
BEGIN
PROMPT 3 7 "Ragione sociale "
FLAGS "U"
HELP "Ragione sociale dell'intestatario del registro"
// USE LF_NDITTE KEY 2
// INPUT RAGSOC F_RAGSOC
// DISPLAY "Ragione sociale @50" RAGSOC
// DISPLAY "Ditta" CODDITTA
// OUTPUT F_RAGSOC RAGSOC
// OUTPUT F_CODDITTA CODDITTA
STRING F_RAGSOC 60
BEGIN
PROMPT 3 7 "Ragione sociale "
HELP "Ragione sociale dell'intestatario del registro"
END
STRING F_INDIRIZZO 35
BEGIN
PROMPT 3 8 "Indirizzo "
HELP "Indirizzo dell'intestatario del registro"
// USE LF_UNLOC
// CHECKTYPE NORMAL
// INPUT CODULC "1"
// INPUT CODDITTA F_CODDITTA
// DISPLAY "Ditta" CODDITTA
// DISPLAY "Indirizzo @35" INDULC
// OUTPUT F_INDIRIZZO INDULC
// OUTPUT F_CODDITTA CODDITTA
// WARNING "Indirizzo assente"
END
STRING F_CIV 10
@ -114,35 +99,19 @@ STRING F_COFI 16
BEGIN
PROMPT 3 10 "Codice fiscale "
HELP "Codice fiscale dell'intestatario del registro"
// USE LF_ANAG KEY 2
// INPUT RAGSOC F_RAGSOC
// DISPLAY "Tipo" TIPOA
// DISPLAY "Codice" CODANAGR
// DISPLAY "Ragione sociale @50" RAGSOC
// OUTPUT F_RAGSOC RAGSOC
// OUTPUT F_COFI COFI
// OUTPUT F_PAIV PAIV
END
STRING F_PAIV 12
BEGIN
PROMPT 44 10 "Partita I.V.A "
HELP "Partita IVA dell'intestatario del registro"
// USE LF_ANAG KEY 2
// INPUT RAGSOC F_RAGSOC
// DISPLAY "Tipo" TIPOA
// DISPLAY "Codice" CODANAGR
// DISPLAY "Ragione sociale @50" RAGSOC
// OUTPUT F_RAGSOC RAGSOC
// OUTPUT F_COFI COFI
// OUTPUT F_PAIV PAIV
END
NUMBER F_NPAGINI 6
BEGIN
PROMPT 3 12 "Numero pagina iniziale "
HELP "Numero della prima pagina da numerare"
FLAGS "RU"
FLAGS "R"
NUM_EXPR {#THIS_FIELD >= 0}
WARNING "Numero pagina iniziale errato: non puo' essere negativo"
END