Corretti errori 004319 004321

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

View File

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