campo-sirio/ca/ca3601.uml

#include "ca3601.h"
#include "camask.h"

TOOLBAR "" 0 -2 0 2

BUTTON DLG_SAVEREC 10 2
BEGIN
  PROMPT -12 -1 ""
  PICTURE BMP_SAVEREC
  PICTURE BMP_SAVERECDN
END

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

ENDPAGE

PAGE "Configurazione conti" -1 -1 78 20

LIST F_PIANO 1 12
BEGIN
  PROMPT 1 1 "Piano dei conti "
  ITEM "A|Analitico"
    MESSAGE HIDE,5@|SHOW,6@
  ITEM "C|Contabile"
    MESSAGE HIDE,6@|SHOW,5@
  FLAGS "G"
END

/*GROUPBOX F_PRE0 76 4
BEGIN
  PROMPT 1 1 "@bPrefisso del piano dei conti analitico:"
  GROUP 6
END*/

TEXT -1
BEGIN
  PROMPT 1 5 "@bPiano dei conti contabile"
  GROUP 5
END

SPREADSHEET F_PDCC 78 -1
BEGIN
  PROMPT 1 3 "Pdcc"
  ITEM "Tipo"
  ITEM "Gruppo"
  ITEM "Conto"
  ITEM "Sottoconto"
  ITEM "Descrizione@50"
  GROUP 5
END

TEXT -1
BEGIN
  PROMPT 1 5 "@bPiano dei conti analitico"
  GROUP 6
END

SPREADSHEET F_PDCA 78 -1
BEGIN
  PROMPT 1 3 "Pdca"
  ITEM "Tipo"
  ITEM "Cdc2"
  ITEM "Cdc3"
  ITEM "Cdc4"
  ITEM "Cdc5"
  GROUP 6
END

ENDPAGE

ENDMASK

//----------------------Piano dei conti contabile------------------------------//
//-----------Pagina di riga dello sheet PDCC----------------------//

PAGE "Riga Piano dei conti contabile" -1 -1 78 8

LIST S_TIPO 1 18
BEGIN
  PROMPT 1 1 "Tipo        "
  ITEM "C|Costo"
  ITEM "P|Pagamento"
  ITEM "F|Ritenute fiscali"
  ITEM "S|Ritenute sociali"
END

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

NUMBER S_CDC3 3
BEGIN
  PROMPT 1 3 "Conto       "
  USE LF_PCON KEY 1 SELECT ((CONTO!="")&&(SOTTOCONTO=""))
  COPY INPUT S_CDC2
  INPUT CONTO S_CDC3
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Descrizione@50" DESCR
  OUTPUT S_CDC2 GRUPPO
  OUTPUT S_CDC3 CONTO
  CHECKTYPE NORMAL
  VALIDATE REQIF_FUNC 1 S_CDC4
END

NUMBER S_CDC4 6
BEGIN
  PROMPT 1 4 "Sottoconto  "
  USE LF_PCON KEY 1 SELECT SOTTOCONTO!=""
  COPY INPUT S_CDC3
  INPUT SOTTOCONTO S_CDC4
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Sottoconto" SOTTOCONTO
  DISPLAY "Descrizione@50" DESCR
  OUTPUT S_CDC4 SOTTOCONTO
  OUTPUT S_CDC3 CONTO
  OUTPUT S_CDC2 GRUPPO
  OUTPUT S_DESCRIZIONE DESCR
  CHECKTYPE NORMAL
END

STRING S_DESCRIZIONE 50
BEGIN
  PROMPT 1 5 "Descrizione "
  KEY 2
  USE LF_PCON KEY 2
  INPUT DESCR S_DESCRIZIONE
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Sottoconto" SOTTOCONTO
  COPY OUTPUT S_CDC4
  CHECKTYPE REQUIRED
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

//----------------------Piano dei conti analitico------------------------------//
//-----------Pagina di riga dello sheet PDCA----------------------//

PAGE "Riga Piano dei conti analitico" -1 -1 78 8

LIST S_TIPO 1 18
BEGIN
  PROMPT 1 1 "Tipo      "
  ITEM "C|Costo"
  ITEM "P|Pagamento"
  ITEM "F|Ritenute fiscali"
  ITEM "S|Ritenute sociali"
END

STRING S_CDC2 20
BEGIN
  PROMPT 1 2 "Cdc2"
  FLAGS "B"
  CHECKTYPE NORMAL
  GROUP 1
END

STRING S_CDC3 20
BEGIN
  PROMPT 1 3 "Cdc3"
  FLAGS "B"
  CHECKTYPE NORMAL
  GROUP 1
END

STRING S_CDC4 20
BEGIN
  PROMPT 1 4 "Cdc4"
  FLAGS "B"
  CHECKTYPE NORMAL
  GROUP 1
END

STRING S_CDC5 20
BEGIN
  PROMPT 1 5 "Cdc5"
  FLAGS "BG"
  CHECKTYPE NORMAL
  GROUP 1
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