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

Corrretti errori 004272 004269 004270

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@2049 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
alex 1995-10-30 18:27:38 +00:00
parent 0ef4009c84
commit 8dff4736ef
2 changed files with 20 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
ab/ab0200a.uml
View File

@ -24,11 +24,12 @@ BEGIN
INPUT CODCBL F_CODICE
DISPLAY "Codice@10" CODCBL
DISPLAY "Descrizione@80" DESCRIZ
DISPLAY "Ind. bil. " INDBIL
OUTPUT F_CODICE CODCBL
OUTPUT F_DESCRIZ1 DESCRIZ[1,40]
OUTPUT F_DESCRIZ2 DESCRIZ[41,]
CHECKTYPE REQUIRED
FLAGS "R"
FLAGS "Z"
END
STRING F_DESCRIZ1 40
@ -39,7 +40,8 @@ BEGIN
USE LF_ABPCON KEY 2
INPUT DESCRIZ[1,40] F_DESCRIZ1
DISPLAY "Descrizione@80" DESCRIZ
DISPLAY "Codice@10" CODCBL
DISPLAY "Codice@10R" CODCBL
DISPLAY "Ind. bil. " INDBIL
COPY OUTPUT F_CODICE
HELP "Prima parte della descrizione"
WARNING "Manca la descrizione"
@ -90,7 +92,7 @@ BEGIN
OUTPUT F_DESCRCONTR2 DESCRIZ[34,]
CHECKTYPE NORMAL
ADD RUN AB0 -1 #F_CODICE #F_INDBIL
FLAGS "R"
FLAGS "Z"
END
STRING F_DESCRCONTR1 33

20
ab/batbpdb.uml
View File

@ -23,11 +23,11 @@ BEGIN
USE %PDB KEY 1
INPUT CODTAB F_CODTAB
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
DISPLAY "Giorno inizio" I0
DISPLAY "Mese inizio" I1
DISPLAY "Giorno fine" I2
DISPLAY "Mese fine" I3
DISPLAY "Descrizione@40" S0
DISPLAY "Inizio" I0
DISPLAY "@2" I1
DISPLAY "Fine" I2
DISPLAY "@2" I3
OUTPUT F_CODTAB CODTAB
OUTPUT F_DESCR S0
CHECKTYPE REQUIRED
@ -37,6 +37,16 @@ STRING F_DESCR 50
BEGIN
PROMPT 2 2 "Descrizione "
HELP "Descrizione del codice tabella periodi di bilancio"
KEY 2
USE %PDB KEY 2
INPUT S0 F_DESCR
DISPLAY "Descrizione@40" S0
DISPLAY "Codice" CODTAB
DISPLAY "Inizio" I0
DISPLAY "@2" I1
DISPLAY "Fine" I2
DISPLAY "@2" I3
COPY OUTPUT F_CODTAB
CHECKTYPE REQUIRED
FIELD %PDB->S0
END