#include "pd0777100b.h"

TOOLBAR "" 0 20 0 2

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

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

ENDPAGE

PAGE "Conversione conti" 0 -1 0 10

STRING F_CONTOOMASA 14
BEGIN
  PROMPT 2 2 "Conto OMASA          "
  FLAGS "D"
END

NUMBER F_GRUPPO 3
BEGIN
  PROMPT 2 4 "Conto corrispondente "
  USE LF_PCON KEY 1 SELECT (CONTO="")
  INPUT GRUPPO F_GRUPPO 
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_GRUPPO GRUPPO    
  CHECKTYPE NORMAL
END

NUMBER F_CONTO 3
BEGIN
  PROMPT 29 4 ""
  USE LF_PCON KEY 1 SELECT (SOTTOCONTO="")
  INPUT GRUPPO F_GRUPPO 
  INPUT CONTO  F_CONTO    
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Descrizione@50" DESCR   
  OUTPUT F_CONTO CONTO  
  OUTPUT F_GRUPPO GRUPPO
  CHECKTYPE NORMAL 
END

NUMBER F_SOTTOCONTO 6
BEGIN
  PROMPT 35 4 ""
  USE LF_PCON
  INPUT GRUPPO F_GRUPPO 
  INPUT CONTO  F_CONTO 
  INPUT SOTTOCONTO F_SOTTOCONTO
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Sottoconto" SOTTOCONTO
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_SOTTOCONTO SOTTOCONTO
  OUTPUT F_GRUPPO GRUPPO
  OUTPUT F_CONTO CONTO  
  OUTPUT F_DESCRIZIONE DESCR
  CHECKTYPE NORMAL
END

STRING F_DESCRIZIONE 50
BEGIN
  PROMPT 44 4 ""
  USE LF_PCON KEY 2
  INPUT DESCR F_DESCRIZIONE
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Sottoconto" SOTTOCONTO
  OUTPUT F_SOTTOCONTO SOTTOCONTO
  OUTPUT F_CONTO CONTO
  OUTPUT F_GRUPPO GRUPPO
  OUTPUT F_DESCRIZIONE DESCR
  CHECKTYPE NORMAL
END

ENDPAGE
ENDMASK