#include "ca9400k.h"

PAGE "Stampa riclassificazione conti da analitici a contabili" -1 -1 64 10

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

BUTTON DLG_PRINT 10 2
BEGIN 
  PROMPT -12 -1 ""
END  

BUTTON DLG_QUIT 10 2
BEGIN 
  PROMPT -22 -1 ""
END

ENDPAGE

ENDMASK