campo-sirio/ci/ci2200a.uml

#include "ci2200a.h"

TOOLBAR "topbar" 0 0 0 2

BUTTON DLG_DEFAULT
BEGIN
  PROMPT 1 1 "Default"
  PICTURE TOOL_SMILE
END

BUTTON DLG_CERCA
BEGIN
  PROMPT 1 1 "Cerca"
  PICTURE TOOL_FINDREC
END

BUTTON DLG_SAVEREC 2 2
BEGIN
  PROMPT 1 1 "Salva"
  PICTURE TOOL_SAVEREC  
END

BUTTON DLG_RESET 2 2
BEGIN
  PROMPT 1 1 "Azzera"
  PICTURE TOOL_RESET  
END

#include <helpbar.h>

ENDPAGE

PAGE "Rilevazione consuntivi" 0 2 0 0

GROUPBOX DLG_NULL 78 7
BEGIN
  PROMPT  1 0 "@bSelezione"
END

NUMBER F_ANNO 4
BEGIN
  PROMPT 2 1 "Anno "
  FLAGS "A"
  CHECKTYPE REQUIRED
END

LISTBOX F_MESE 10
BEGIN 
  PROMPT 24 1 "Mese   "
  FLAGS "M"
END

STRING F_TPORA 2
BEGIN
  PROMPT 44 1 "Tipo ora "
  USE &ORE
  INPUT CODTAB F_TPORA  
  DISPLAY "Codice@16" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_TPORA CODTAB
END

LISTBOX F_RISOATT 1 12
BEGIN
  PROMPT 2 2 "@bTipo  "
  ITEM "T|Tutti"
    MESSAGE SHOW,1@|HIDE,2@|HIDE,3@
  ITEM "R|Risorsa"
    MESSAGE HIDE,1@|SHOW,2@|HIDE,3@
  ITEM "A|Attrezzatura"
    MESSAGE HIDE,1@|HIDE,2@|SHOW,3@
  FLAGS "Z"
END

STRING F_CODRIS 16
BEGIN  
  PROMPT 23 2 "Codice "
  USE RSS
  INPUT CODTAB F_CODRIS
  DISPLAY "Codice@16" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CODRIS CODTAB
  OUTPUT F_DESRIS S0
  GROUP 2
  CHECKTYPE NORMAL
END

STRING F_DESRIS 50 27
BEGIN
  PROMPT 50 2 ""
  FLAGS "D"
  GROUP 2
END

STRING F_CODATT 16
BEGIN  
  PROMPT 23 2 "Codice "
  USE ATR
  INPUT CODTAB F_CODATT
  DISPLAY "Codice@16" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CODATT CODTAB
  OUTPUT F_DESATT S0
  GROUP 3
  CHECKTYPE NORMAL
END

STRING F_DESATT 50 27
BEGIN
  PROMPT 50 27 ""
  FLAGS "D"
  GROUP 3
END

SPREADSHEET F_CALENDARIO -16 2
BEGIN
  PROMPT 1 7 ""
  ITEM "1@2"
  ITEM "2@2"
  ITEM "3@2"
  ITEM "4@2"
  ITEM "5@2"
  ITEM "6@2"
  ITEM "7@2"
  ITEM "8@2"
  ITEM "9@2"
  ITEM "10"
  ITEM "11"
  ITEM "12"
  ITEM "13"
  ITEM "14"
  ITEM "15"
  ITEM "16"
  ITEM "17"
  ITEM "18"
  ITEM "19"
  ITEM "20"
  ITEM "21"
  ITEM "22"
  ITEM "23"
  ITEM "24"
  ITEM "25"
  ITEM "26"
  ITEM "27"
  ITEM "28"
  ITEM "29"
  ITEM "30"
  ITEM "31"
END

SPREADSHEET F_SHEET -15 0
BEGIN
  PROMPT 1 10 ""
  ITEM "Tipo"
  ITEM "Codice@16"
  ITEM "Tipo\nOra@5"
  ITEM "CDC1"
  ITEM "CDC2"
  ITEM "CDC3"
  ITEM "CDC4"
  ITEM "CDC5"
  ITEM "CDC6"
  ITEM "CDC7"
  ITEM "CDC8"
  ITEM "CDC9"
  ITEM "CDC10"
  ITEM "CDC11"
  ITEM "CDC12"
  ITEM "Qta\nOre@5"
  ITEM "Costo@6"
  ITEM "Ore\ndisponibilit<69>"
  ITEM "Descrizione@50"
END

ENDPAGE
ENDMASK

PAGE "Calendario" -1 -1 78 13

STRING C_1 1
BEGIN
  PROMPT 2 4 " 1"
END

STRING C_2 1
BEGIN
  PROMPT 6 4 " 2"
END

STRING C_3 1
BEGIN
  PROMPT 10 4 " 3"
END

STRING C_4 1
BEGIN
  PROMPT 14 4 " 4"
END

STRING C_5 1
BEGIN
  PROMPT 18 4 " 5"
END

STRING C_6 1
BEGIN
  PROMPT 22 4 " 6"
END

STRING C_7 1
BEGIN
  PROMPT 26 4 " 7"
END

STRING C_8 1
BEGIN
  PROMPT 30 4 " 8"
END

STRING C_9 1
BEGIN
  PROMPT 34 4 " 9"
END

STRING C_10 1
BEGIN
  PROMPT 38 4 "10"
END

STRING C_11 1
BEGIN
  PROMPT 42 4 "11"
END

STRING C_12 1
BEGIN
  PROMPT 46 4 "12"
END

STRING C_13 1
BEGIN
  PROMPT 50 4 "13"
END

STRING C_14 1
BEGIN
  PROMPT 54 4 "14"
END

STRING C_15 1
BEGIN
  PROMPT 58 4 "15"
END

STRING C_16 1
BEGIN
  PROMPT 62 4 "16"
END

STRING C_17 1
BEGIN
  PROMPT 66 4 "17"
END

STRING C_18 1
BEGIN
  PROMPT 70 4 "18"
END

STRING C_19 1
BEGIN
  PROMPT 2 5 "19"
END

STRING C_20 1
BEGIN
  PROMPT 6 5 "20"
END

STRING C_21 1
BEGIN
  PROMPT 10 5 "21"
END

STRING C_22 1
BEGIN
  PROMPT 14 5 "22"  
END

STRING C_23 1
BEGIN
  PROMPT 18 5 "23"
END

STRING C_24 1
BEGIN
  PROMPT 22 5 "24"
END

STRING C_25 1
BEGIN
  PROMPT 26 5 "25"
END

STRING C_26 1
BEGIN
  PROMPT 30 5 "26"
END

STRING C_27 1
BEGIN
  PROMPT 34 5 "27"
END

STRING C_28 1
BEGIN
  PROMPT 38 5 "28"
END

STRING C_29 1
BEGIN
  PROMPT 42 5 "29"
END

STRING C_30 1
BEGIN
  PROMPT 46 5 "30"
END

STRING C_31 1
BEGIN
  PROMPT 50 5 "31"
END

ENDPAGE

TOOLBAR "" 0 0 0 2

BUTTON DLG_CANCEL 2 2
BEGIN
  PROMPT 4 1 "Annulla"
  PICTURE TOOL_CANCEL
END

ENDPAGE
ENDMASK

PAGE "Riga consuntivo" -1 -1 78 13

GROUPBOX DLG_NULL 76 12
BEGIN
  PROMPT 1 1 "@bRisorsa - Attrezzatura"
END

RADIOBUTTON S_RISOATT 1 74
BEGIN
  PROMPT 2 2 "@bTipo: "
  ITEM "R|Risorsa"
    MESSAGE SHOW,1@|HIDE,2@|RESET,2@
  ITEM "A|Attrezzatura"
    MESSAGE HIDE,1@|SHOW,2@|RESET,1@  
  FLAGS "GZ"
END

STRING S_CODRIS 16
BEGIN
  PROMPT 2 5 "Codice Risorsa      "
  USE RSS
  INPUT CODTAB S_CODRIS
  DISPLAY "Codice@16" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT S_CODRIS CODTAB
  OUTPUT S_DESRIS S0
  CHECKTYPE REQUIRED
  FLAGS "G"
  GROUP 1
  CHECKTYPE REQUIRED
END

STRING S_DESRIS 50
BEGIN
  PROMPT 2 6 "Descrizione         "
  CHECKTYPE NORMAL
  GROUP 1
END

STRING S_CODATT 16
BEGIN
  PROMPT 2 5 "Codice Attrezzatura "
  USE ATR
  INPUT CODTAB S_CODATT
  DISPLAY "Codice@16" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT S_CODATT CODTAB
  OUTPUT S_DESATT S0
  CHECKTYPE REQUIRED
  FLAGS "G"
  GROUP 2
END

STRING S_DESATT 50
BEGIN
  PROMPT 2 6 "Descrizione         "
  CHECKTYPE NORMAL
  GROUP 2
END

STRING S_TPORA 2
BEGIN
  PROMPT 59 7 "Tipo ora "
  USE &ORE
  INPUT CODTAB S_TPORA  
  DISPLAY "Codice@16" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT S_TPORA CODTAB
  CHECKTYPE REQUIRED
END

STRING S_CDC1 20
BEGIN
  PROMPT 2 8 "Cdc 1"
  FLAGS "HB"
END

STRING S_CDC2 20
BEGIN
  PROMPT 2 8 "Cdc 2"
  FLAGS "HB"
END

STRING S_CDC3 20
BEGIN
  PROMPT 2 8 "Cdc 2"
  FLAGS "HB"
END

STRING S_CDC4 20
BEGIN
  PROMPT 2 8 "Cdc 2"
  FLAGS "HB"
END

STRING S_CDC5 20
BEGIN
  PROMPT 2 9 "Cdc 2"
  FLAGS "HB"
END

STRING S_CDC6 20
BEGIN
  PROMPT 2 9 "Cdc 2"
  FLAGS "HB"
END

STRING S_CDC7 20
BEGIN
  PROMPT 2 9 "Cdc 2"
  FLAGS "HB"
END

STRING S_CDC8 20
BEGIN
  PROMPT 2 9 "Cdc 2"
  FLAGS "HB"
END

STRING S_CDC9 20
BEGIN
  PROMPT 2 10 "Cdc 2"
  FLAGS "HB"
END

STRING S_CDC10 20
BEGIN
  PROMPT 2 10 "Cdc 2"
  FLAGS "HB"
END

STRING S_CDC11 20
BEGIN
  PROMPT 2 10 "Cdc 2"
  FLAGS "HB"
END

STRING S_CDC12 20
BEGIN
  PROMPT 2 10 "Cdc 2"
  FLAGS "HB"
END

NUMBER S_QTAORE 6
BEGIN
  PROMPT 2 11 "Quantit<69> ore "
END

NUMBER S_COSTO 6 2
BEGIN
  PROMPT 30 11 "Prezzo "
END

NUMBER S_OREDIS 6
BEGIN
  PROMPT 50 11 "Quantit<69> ore "
END

ENDPAGE

TOOLBAR "" 0 0 0 2

BUTTON DLG_OK 2 2
BEGIN
  PROMPT 1 1 ""
END

BUTTON DLG_RESET 2 2
BEGIN
  PROMPT 2 1 "Azzera"
  MESSAGE RESET,S_QTAORE
  PICTURE TOOL_RESET
END

BUTTON DLG_CANCEL 2 2
BEGIN
  PROMPT 4 1 "Annulla"
  PICTURE TOOL_CANCEL
END

ENDPAGE
ENDMASK