campo-sirio/ca/ca9400k1.uml

36 lines
653 B
Plaintext
Raw Normal View History

#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