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   "
  ITEM "|"
  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_CODICE 16
BEGIN  
  PROMPT 23 2 "Codice "
  USE LF_RILORE
  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 23 3 "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 23 2 "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

STRING F_CODCOSTO 20 15
BEGIN
  PROMPT 2 3 "C.d.C. "
  USE CDC
  INPUT CODCOSTO F_CODCOSTO
  DISPLAY "Codice@16" CODCOSTO
  DISPLAY "Descrizione@50" DESCRIZ
  OUTPUT F_CODCOSTO CODCOSTO
END

STRING F_CODCMS 20 15
BEGIN
  PROMPT 2 4 "Cms.   "
  USE COMMESSE
  INPUT CODCMS F_CODCMS
  DISPLAY "Codice@16" CODCMS
  DISPLAY "Descrizione@50" DESCRIZ
  OUTPUT F_CODCMS CODCMS
END

STRING F_CODFASE 10 8
BEGIN
  PROMPT 2 5 "Fase   "
  USE FASI
  INPUT CODCMSFAS F_CODCMS SELECT
  INPUT CODFASE F_CODFASE
  DISPLAY "Codice@16" CODFASE
  DISPLAY "Descrizione@50" DESCRIZ
  OUTPUT F_CODFASE CODFASE
END

SPREADSHEET F_CALENDARIO -16 4
BEGIN
  PROMPT 1 7 ""
  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 -15 0
BEGIN
  PROMPT 1 12 ""
  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. "
  USE COMMESSE
  INPUT CODCMS C_CODCOSTO
  DISPLAY "Codice@16" CODCMS
  DISPLAY "Descrizione@50" DESCRIZ
  OUTPUT C_CODCOSTO CODCMS
  CHECKTYPE REQUIRED
END

STRING C_CODCMS 20 15
BEGIN
  PROMPT 30 2 "Cms. "
  USE COMMESSE
  INPUT CODCMS C_CODCMS
  DISPLAY "Codice@16" CODCMS
  DISPLAY "Descrizione@50" DESCRIZ
  OUTPUT C_CODCMS CODCMS
  CHECKTYPE REQUIRED
END

STRING C_CODFASE 10 8
BEGIN
  PROMPT 59 2 "Fase "
  USE FASI
  INPUT CODCMSFAS F_CODCMS SELECT
  INPUT CODFASE F_CODFASE
  DISPLAY "Codice@16" CODFASE
  DISPLAY "Descrizione@50" DESCRIZ
  OUTPUT F_CODFASE CODFASE
  CHECKTYPE REQUIRED
END

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: "
  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 "GZ"
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 "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 "
  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 "G"
  GROUP 2
  MESSAGE COPY,S_CODRIS
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

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