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

75
ba/ba3300a.uml
View File

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