campo-sirio/src/ca/ca9400k1.uml
mtollari 1b14ec9415 Spostamento cartella sorgenti
git-svn-id: svn://10.65.10.50/branches/R_10_00@23236 c028cbd2-c16b-5b4b-a496-9718f37d4682
2016-09-09 13:59:02 +00:00

36 lines
653 B
Plaintext
Executable File

#include "ca9400k.h"
TOOLBAR "topbar" 0 0 0 2
#include <printbar.h>
ENDPAGE
PAGE "Stampa riclassificazione conti da analitici a contabili" 0 2 0 0
STRING F_DACONTO 20
BEGIN
PROMPT 2 2 "Da conto analitico "
USE LF_PCONANA KEY 1
INPUT CODCONTO F_DACONTO
DISPLAY "Codice conto analitico" CODCONTO
DISPLAY "Descrizione@50" DESCR
OUTPUT F_DACONTO CODCONTO
FIELD DACONTO
KEY 1
END
STRING F_ACONTO 20
BEGIN
PROMPT 2 4 "A conto analitico "
USE LF_PCONANA KEY 1
INPUT CODCONTO F_ACONTO
DISPLAY "Codice conto analitico" CODCONTO
DISPLAY "Descrizione@50" DESCR
OUTPUT F_ACONTO CODCONTO
FIELD ACONTO
KEY 2
END
ENDPAGE
ENDMASK