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

Corretti errori 004319 004321

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@2068 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
alex 1995-11-02 14:15:04 +00:00
parent 786005529c
commit 82fd1934e3
1 changed files with 31 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

50
ab/ab0200a.uml
View File

@ -22,9 +22,10 @@ BEGIN
KEY 1 KEY 1
USE LF_ABPCON KEY 1 USE LF_ABPCON KEY 1
INPUT CODCBL F_CODICE INPUT CODCBL F_CODICE
DISPLAY "Codice@10" CODCBL DISPLAY "Codice@11" CODCBL
DISPLAY "Descrizione@80" DESCRIZ DISPLAY "Descrizione@40" DESCRIZ[1,40]
DISPLAY "Ind. bil. " INDBIL DISPLAY "I.B." INDBIL
DISPLAY "Codice opp.@11" CODCONTR
OUTPUT F_CODICE CODCBL OUTPUT F_CODICE CODCBL
OUTPUT F_DESCRIZ1 DESCRIZ[1,40] OUTPUT F_DESCRIZ1 DESCRIZ[1,40]
OUTPUT F_DESCRIZ2 DESCRIZ[41,] OUTPUT F_DESCRIZ2 DESCRIZ[41,]
@ -39,9 +40,10 @@ BEGIN
KEY 2 KEY 2
USE LF_ABPCON KEY 2 USE LF_ABPCON KEY 2
INPUT DESCRIZ[1,40] F_DESCRIZ1 INPUT DESCRIZ[1,40] F_DESCRIZ1
DISPLAY "Descrizione@80" DESCRIZ DISPLAY "Descrizione@40" DESCRIZ[1,40]
DISPLAY "Codice@10R" CODCBL DISPLAY "Codice@11" CODCBL
DISPLAY "Ind. bil. " INDBIL DISPLAY "I.B." INDBIL
DISPLAY "Codice opp.@11" CODCONTR
COPY OUTPUT F_CODICE COPY OUTPUT F_CODICE
HELP "Prima parte della descrizione" HELP "Prima parte della descrizione"
WARNING "Manca la descrizione" WARNING "Manca la descrizione"
@ -82,28 +84,38 @@ BEGIN
PROMPT 2 10 "Conto di sez.bil.opposta " PROMPT 2 10 "Conto di sez.bil.opposta "
HELP "Inserire il conto di sezione di bilancio opposta" HELP "Inserire il conto di sezione di bilancio opposta"
FIELD LF_ABPCON->CODCONTR FIELD LF_ABPCON->CODCONTR
USE LF_ABPCON KEY 1 USE LF_ABPCON
INPUT CODCBL F_CODCONTR INPUT CODCBL F_CODCONTR
DISPLAY "Codice@10" CODCBL DISPLAY "Codice@11" CODCBL
DISPLAY "Ind.bil" INDBIL DISPLAY "Descrizione@40" DESCRIZ[1,40]
DISPLAY "Descrizione@80" DESCRIZ DISPLAY "I.B." INDBIL
DISPLAY "Codice@11" CODCONTR
OUTPUT F_CODCONTR CODCBL OUTPUT F_CODCONTR CODCBL
OUTPUT F_DESCRCONTR1 DESCRIZ[1,33] OUTPUT F_DESCRCONTR1 DESCRIZ[1,40]
OUTPUT F_DESCRCONTR2 DESCRIZ[34,] OUTPUT F_DESCRCONTR2 DESCRIZ[41,]
CHECKTYPE NORMAL CHECKTYPE NORMAL
ADD RUN AB0 -1 #F_CODICE #F_INDBIL ADD RUN AB0 -1 #F_CODICE #F_INDBIL
FLAGS "Z" FLAGS "Z"
END END
STRING F_DESCRCONTR1 33 STRING F_DESCRCONTR1 40
BEGIN
PROMPT 41 10 ""
FLAGS "D"
END
STRING F_DESCRCONTR2 47
BEGIN BEGIN
PROMPT 27 11 "" PROMPT 27 11 ""
USE LF_ABPCON KEY 2
INPUT DESCRIZ F_DESCRCONTR1
DISPLAY "Descrizione@40" DESCRIZ[1,40]
DISPLAY "Codice@11" CODCBL
DISPLAY "I.B." INDBIL
DISPLAY "Codice@11" CODCONTR
OUTPUT F_CODCONTR CODCBL
OUTPUT F_DESCRCONTR1 DESCRIZ[1,40]
OUTPUT F_DESCRCONTR2 DESCRIZ[41,]
ADD RUN AB0 -1 #F_CODICE #F_INDBIL
END
STRING F_DESCRCONTR2 40
BEGIN
PROMPT 27 12 ""
FLAGS "D" FLAGS "D"
END END