Corretti errori 004319 004321
git-svn-id: svn://10.65.10.50/trunk@2068 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
parent
786005529c
commit
82fd1934e3
@ -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
|
||||
|
||||
|
Loading…
x
Reference in New Issue
Block a user