campo-sirio/ca/ca3700.uml

#include "ca3700.h"

TOOLBAR "" 0 -3 0 3

STRING DLG_PROFILE 50
BEGIN
  PROMPT 9 0 "Profilo "
  PSELECT
END

BUTTON DLG_PRINT 10 2
BEGIN
  PROMPT -12 -1 "~Stampa"
  MESSAGE EXIT,K_ENTER
END

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

ENDPAGE

PAGE "CdC/Cms/Fasi / Date" -1 -1 78 20

NUMBER F_CODDITTA 5
BEGIN
  PROMPT 1 1 "Ditta "
  FLAGS "FRD"
  USE LF_NDITTE KEY 1  
  CHECKTYPE REQUIRED
  INPUT CODDITTA F_CODDITTA
  DISPLAY "Codice" CODDITTA
  DISPLAY "Ragione sociale @50" RAGSOC
  OUTPUT F_CODDITTA CODDITTA 
  OUTPUT F_RAGSOC RAGSOC
END

STRING F_RAGSOC 50
BEGIN
  PROMPT 15 1 ""
  FLAGS "D"
END

DATE F_DATASTAMPA
BEGIN
  PROMPT 1 2 "Data stampa "
  FLAGS "A"
END

NUMBER F_ANNO 4
BEGIN
  PROMPT 25 2 "Esercizio "
  USE ESC
  INPUT CODTAB F_ANNO
  DISPLAY "Codice Esercizio" CODTAB
  DISPLAY "Data inizio esercizio" D0
  DISPLAY "Data fine esercizio  " D1
  OUTPUT F_ANNO CODTAB
  CHECKTYPE NORMAL
  CHECKTYPE NORMAL
  FLAGS "RZ"
  ADD NONE
END

SPREADSHEET F_RIGHE -1 -4
BEGIN
  PROMPT 0 4 "Centro di Costo / Commessa / Fase"
  ITEM "Cdc1"
  ITEM "Cdc2"
  ITEM "Cdc3"
  ITEM "Cdc4"
  ITEM "Cdc5"
  ITEM "Cdc6"
  ITEM "Cdc7"
  ITEM "Cdc8"
  ITEM "Cdc9"
  ITEM "Cdc10"
  ITEM "Cdc11"
  ITEM "Cdc12"
END

DATE F_DATAINI 
BEGIN
  PROMPT 2 19 "Dalla data "
END

DATE F_DATAFIN
BEGIN
  PROMPT 40 19 "Alla data "
END

STRING F_REPORT 256 64
BEGIN
  PROMPT 2 20 "Report "
  FLAGS "B"
  CHECKTYPE REQUIRED
END

ENDPAGE

PAGE "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@
END

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

GROUPBOX F_PDC0_INI 76 6
BEGIN
  PROMPT 1 9 "@bDa conto:"
  GROUP 4
END

GROUPBOX F_PDC0_FIN 76 6
BEGIN
  PROMPT 1 15 "@bA conto:"
  GROUP 4
END

ENDPAGE

PAGE "Num.doc. da escludere" -1 -1 78 20

SPREADSHEET F_RIGHE_NUM -1 -2
BEGIN
  PROMPT 1 2 ""
  ITEM "Numerazione"
  ITEM "Descrizione@50"
END

ENDPAGE

ENDMASK

PAGE "Riga Analitica" -1 -1 78 19

STRING S_CDC1 20
BEGIN
  PROMPT 1 2 "Cdc1"
  FLAGS "B"
  CHECKTYPE NORMAL
  GROUP 1
END

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

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

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

STRING S_CDC5 20
BEGIN
  PROMPT 1 3 "Cdc5"
  FLAGS "B"
  CHECKTYPE NORMAL
  GROUP 1
END

STRING S_CDC6 20
BEGIN
  PROMPT 21 3 "Cdc6"
  FLAGS "B"
  CHECKTYPE NORMAL
  GROUP 1
END

STRING S_CDC7 20
BEGIN
  PROMPT 41 3 "Cdc7"
  FLAGS "B"
  CHECKTYPE NORMAL
  GROUP 1
END

STRING S_CDC8 20
BEGIN
  PROMPT 61 3 "Cdc8"
  FLAGS "B"
  CHECKTYPE NORMAL
  GROUP 1
END

STRING S_CDC9 20
BEGIN
  PROMPT 1 4 "Cdc9"
  FLAGS "B"
  CHECKTYPE NORMAL
  GROUP 1
END

STRING S_CDC10 20
BEGIN
  PROMPT 21 4 "Cdc10"
  FLAGS "B"
  CHECKTYPE NORMAL
  GROUP 1
END

STRING S_CDC11 20
BEGIN
  PROMPT 41 4 "Cdc11"
  FLAGS "B"
  CHECKTYPE NORMAL
  GROUP 1
END

STRING S_CDC12 20
BEGIN
  PROMPT 61 4 "Cdc12"
  FLAGS "B"
  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


PAGE "Riga Numerazione" -1 -1 78 5

STRING SN_CODNUM 4
BEGIN
  PROMPT 1 1 "Codice numerazione "
  USE %NUM
  CHECKTYPE REQUIRED
  INPUT CODTAB SN_CODNUM
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT SN_CODNUM CODTAB
  OUTPUT SN_DESCR S0
  KEY 1
  FLAGS "UZ"
END

STRING SN_DESCR 50
BEGIN
  PROMPT 1 2 "Descrizione        "
  USE %NUM KEY 2
  INPUT S0 SN_DESCR
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice" CODTAB
  COPY OUTPUT SN_CODNUM
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