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_NEWREC 2 2
BEGIN
  PROMPT 1 1 "Nuovo"  
  PICTURE TOOL_NEWREC  
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 "Risorse e Attrezzature" 0 2 0 0

GROUPBOX DLG_NULL 78 7
BEGIN
  PROMPT  1 0 "@bDati Risorsa - Attrezzatura"
END

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

LISTBOX F_MESE 10
BEGIN 
  PROMPT 23 1 "Mese"
  ITEM "|"
  FLAGS "M"
END

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

RADIOBUTTON F_RISOATT 1 76
BEGIN
  PROMPT 3 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_CODICE 16
BEGIN  
  PROMPT 3 5 "Codice: "
  USE CIRILROA
  SELECT TIPO='D'
  DISPLAY "Tipo@5" TIPORA
  DISPALY "Codice@16" CODICE
  DISPLAY "Anno@5" ANNO
  DISPLAY "Mese@5" MESE
  DISPLAY "Tipo\nora@5" TPORA
  OUTPUT F_RISOATT TIPORA
  OUTPUT F_CODICE CODICE
  GROUP 1
  CHECKTYPE NORMAL
END

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

STRING F_CODATT 16
BEGIN  
  PROMPT 3 5 "Codice: "
  FIELD CODTAB[1,16]
  USE ATR
  INPUT CODTAB F_CODATT
  DISPLAY "Codice@16" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CODATT CODTAB
  GROUP 3
  CHECKTYPE NORMAL
END

GROUPBOX DLG_NULL 78 3
BEGIN
  PROMPT  1 7 "@bDati Analitici"
END

STRING F_CODCOSTO 20 15
BEGIN
  PROMPT 2 8 "C.d.C. "
END

STRING F_CODCMS 20 15
BEGIN
  PROMPT 31 8 "Cms. "
END

STRING F_CODFASE 10 8
BEGIN
  PROMPT 60 8 "Fase "
END

SPREADSHEET F_CALENDARIO -16 4
BEGIN
  PROMPT 1 10 ""
  ITEM "Centro di\nCosto@8F"
  ITEM "Codice\nCommessa@8F"
  ITEM "Codice\nFase@5F"
  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 -10 0
BEGIN
  PROMPT 1 15 ""
  ITEM "Tipo"
  ITEM "Codice@16"
  ITEM "Tipo\nOra@5"
  ITEM "Qta\nOre@5"
  ITEM "Costo@6"
  ITEM "Ore\ndisponibilit<69>"
END

ENDPAGE
ENDMASK

PAGE "Calendario" -1 -1 78 13

GROUPBOX DLG_NULL 76 3
BEGIN
  PROMPT 1 1 "@bDati Analitici"
END

STRING C_CODCOSTO 20 15
BEGIN
  PROMPT 2 2 "C.d.C. "
END

STRING C_CODCMS 20 15
BEGIN
  PROMPT 30 2 "Cms. "
END

STRING C_CODFASE 10 8
BEGIN
  PROMPT 59 2 "Fase "
END

STRING C_1 1
BEGIN
  PROMPT 2 4 "1"
END

STRING C_2 1
BEGIN
  PROMPT 2 4 "1"
END

STRING C_3 1
BEGIN
  PROMPT 2 4 "1"
END

STRING C_4 1
BEGIN
  PROMPT 2 4 "1"
END

STRING C_5 1
BEGIN
  PROMPT 2 4 "1"
END

STRING C_6 1
BEGIN
  PROMPT 2 4 "1"
END

STRING C_7 1
BEGIN
  PROMPT 2 4 "1"
END

STRING C_8 1
BEGIN
  PROMPT 2 4 "1"
END

STRING C_9 1
BEGIN
  PROMPT 2 4 "1"
END

STRING C_10 1
BEGIN
  PROMPT 2 4 "1"
END

STRING C_11 1
BEGIN
  PROMPT 2 4 "1"
END

STRING C_12 1
BEGIN
  PROMPT 2 4 "1"
END

STRING C_13 1
BEGIN
  PROMPT 2 4 "1"
END

STRING C_14 1
BEGIN
  PROMPT 2 4 "1"
END

STRING C_15 1
BEGIN
  PROMPT 2 4 "1"
END

STRING C_16 1
BEGIN
  PROMPT 2 4 "1"
END

STRING C_17 1
BEGIN
  PROMPT 2 4 "1"
END

STRING C_18 1
BEGIN
  PROMPT 2 4 "1"
END

STRING C_19 1
BEGIN
  PROMPT 2 4 "1"
END

STRING C_20 1
BEGIN
  PROMPT 2 4 "1"
END

STRING C_21 1
BEGIN
  PROMPT 2 4 "1"
END

STRING C_22 1
BEGIN
  PROMPT 2 4 "1"  
END

STRING C_23 1
BEGIN
  PROMPT 2 4 "1"
END

STRING C_24 1
BEGIN
  PROMPT 2 4 "1"
END

STRING C_25 1
BEGIN
  PROMPT 2 4 "1"
END

STRING C_26 1
BEGIN
  PROMPT 2 4 "1"
END

STRING C_27 1
BEGIN
  PROMPT 2 4 "1"
END

STRING C_28 1
BEGIN
  PROMPT 2 4 "1"
END

STRING C_29 1
BEGIN
  PROMPT 2 4 "1"
END

STRING C_30 1
BEGIN
  PROMPT 2 4 "1"
END

STRING C_31 1
BEGIN
  PROMPT 2 4 "1"
END

ENDPAGE
ENDMASK

PAGE "Dettaglio Risorsa - Attrezzatura" -1 -1 78 13

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

RADIOBUTTON S_RISOATT 1 74
BEGIN
  PROMPT 2 2 "@bTipo: "
  FIELD CODTAB[0,1]
  ITEM "R|Risorsa"
    MESSAGE SHOW,1@|HIDE,2@|RESET,2@
  ITEM "A|Attrezzatura"
    MESSAGE HIDE,1@|SHOW,2@|RESET,1@  
  FLAGS "GDZ"
END

STRING S_CODRIS 16
BEGIN
  PROMPT 2 5 "Codice Risorsa      "
  FIELD CODTAB[1,16]
  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 "GD"
  GROUP 1
END

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

STRING S_CODATT 16
BEGIN
  PROMPT 2 5 "Codice Attrezzatura "
  FIELD CODTAB[1,16]
  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 "GD"
  GROUP 2
END

STRING S_DESATT 50
BEGIN
  PROMPT 2 6 "Descrizione         "
  CHECKTYPE NORMAL
  FLAGS "D"
  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
  FLAGS "D"
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 EXIT,K_DEL
  PICTURE TOOL_RESET
END

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

ENDPAGE
ENDMASK