campo-sirio/ca/ca0400a.uml

#include "ca0400a.h"

TOOLBAR "topbar" 0 0 0 2

#include <relapbar.h>

ENDPAGE

PAGE "Piano dei conti" 0 0 0 2

GROUPBOX DLG_NULL 78 6
BEGIN
  PROMPT 2 0 ""
END

STRING F_TESTATA 30
BEGIN
  PROMPT 3 7 "Testata per stampe  "
  FIELD TESTATA
END

RADIOBUTTON F_SEZSALDI 1 16
BEGIN
  PROMPT 2 9 "Sezione saldi"
  ITEM "D|Dare"
  ITEM "A|Avere"
  FIELD SEZSALDI
END

RADIOBUTTON F_INDBIL 1 24
BEGIN
  PROMPT 40 9 "Indicatore di bilancio"
  ITEM "0|0. Non definito"
  ITEM "1|1. Attivita'"
  ITEM "2|2. Passivita'"
  ITEM "3|3. Costi"
  ITEM "4|4. Ricavi"
//  ITEM "5|5. Conti d'ordine"
  FIELD INDBIL
END

BOOLEAN F_SOSPESO
BEGIN
  PROMPT 2 13 "Sospeso"
  FIELD SOSPESO
END

ENDPAGE

PAGE "Piano dei conti contabile" -1 -1 64 6

TEXT DLG_NULL
BEGIN
  PROMPT 1 2 "@bConti di contabilit<69> collegati"
END

SPREADSHEET F_SHEET 79 -1
BEGIN
  PROMPT 1 3 ""
  ITEM "Gruppo"
  ITEM "Conto"
  ITEM "Sottoconto"
  ITEM "Descrizione@50"
END

ENDPAGE

ENDMASK

PAGE "Sheet" -1 -1 78 8

NUMBER FR_GRUPPO 3
BEGIN
  PROMPT 1 1 "Gruppo     "
  USE LF_PCON SELECT CONTO==""
  INPUT GRUPPO FR_GRUPPO
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Descrizione@50" DESCR
  OUTPUT FR_GRUPPO GRUPPO
  OUTPUT FR_DESCRG DESCR
  CHECKTYPE REQUIRED
END

STRING FR_DESCRG 50
BEGIN
  PROMPT 25 1 ""
  USE LF_PCON KEY 2 SELECT CONTO==""
  INPUT DESCR FR_DESCRG
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Gruppo" GRUPPO
  COPY OUTPUT FR_GRUPPO
  CHECKTYPE SEARCH
END

NUMBER FR_CONTO 3 
BEGIN
  PROMPT 1 3 "Conto      "
  USE LF_PCON SELECT SOTTOCONTO==""
  INPUT GRUPPO FR_GRUPPO
  INPUT CONTO FR_CONTO
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Descrizione@50" DESCR
  OUTPUT FR_GRUPPO GRUPPO
  OUTPUT FR_CONTO CONTO
  OUTPUT FR_DESCRC DESCR
  CHECKTYPE REQUIRED
END

STRING FR_DESCRC 50
BEGIN
  PROMPT 25 3 ""
  USE LF_PCON KEY 2 SELECT SOTTOCONTO==""
  INPUT DESCR FR_DESCRC
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  COPY OUTPUT FR_CONTO
  CHECKTYPE SEARCH
END

NUMBER FR_SOTTOCONTO 6
BEGIN
  PROMPT 1 5 "Sottoconto "
  USE LF_PCON
  INPUT GRUPPO FR_GRUPPO
  INPUT CONTO FR_CONTO
  INPUT SOTTOCONTO FR_SOTTOCONTO
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Sottoconto" SOTTOCONTO
  DISPLAY "Descrizione@50" DESCR
  OUTPUT FR_GRUPPO GRUPPO
  OUTPUT FR_CONTO CONTO
  OUTPUT FR_SOTTOCONTO SOTTOCONTO
  OUTPUT FR_DESCRS DESCR
  CHECKTYPE NORMAL
END

STRING FR_DESCRS 50
BEGIN
  PROMPT 25 5 ""
  USE LF_PCON KEY 2
  INPUT DESCR FR_DESCRS
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Sottoconto" SOTTOCONTO
  COPY OUTPUT FR_SOTTOCONTO
  CHECKTYPE SEARCH
END

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

BUTTON DLG_DELREC 10 2
BEGIN
  PROMPT -23 -1 ""
END

BUTTON DLG_CANCEL 10 2
BEGIN
  PROMPT -33 -1 ""
END

ENDPAGE

ENDMASK