campo-sirio/ci/ci0200a.uml

#include "ci0200a.h"

TOOLBAR "topbar" 0 0 0 2

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_DELREC 2 2
BEGIN
  PROMPT 1 1 "Canc"
  PICTURE TOOL_DELREC  
END

#include <helpbar.h>

ENDPAGE

PAGE "Risorse e Attrezzature" 0 2 0 0

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

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

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

STRING F_TPORA 2
BEGIN
  PROMPT 40 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 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 2 5 "Codice: "
  USE &ROA
  DISPLAY "Tipo@5" CODTAB[1,1]
  DISPALY "Codice@16" CODTAB[2,17]
  DISPLAY "Anno@5" CODTAB[18,21]
  DISPLAY "Mese@5" CODTAB[22,23]
  DISPLAY "Tipo\nora@5" CODTAB[24,25]
  OUTPUT F_CODICE CODTAB[2,17]
  GROUP 1
  CHECKTYPE NORMAL
END

STRING F_CODRIS 16
BEGIN  
  PROMPT 2 5 "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
BEGIN
  PROMPT 10 6 ""
  FLAGS "D"
  GROUP 2
END

STRING F_CODATT 16
BEGIN  
  PROMPT 2 5 "Codice: "
  FIELD CODTAB[1,16]
  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
BEGIN
  PROMPT 10 6 ""
  FLAGS "D"
  GROUP 3
END

SPREADSHEET F_SHEET -15 0
BEGIN
  PROMPT 1 8 ""
  ITEM "Tipo"
  ITEM "Codice@16"
  ITEM "Mese"
  ITEM "Tipo\nOra@5"
  ITEM "Valore\nUnitario@10"
  ITEM "Descrizione@50"
END

ENDPAGE
ENDMASK

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

GROUPBOX DLG_NULL 76 9
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

NUMBER S_ANNO 4
BEGIN
  PROMPT 2 7 "Anno "
  FLAGS "AD"
END

LISTBOX S_MESE 10
BEGIN 
  PROMPT 22 7 "Mese"
  FLAGS "M"
  FILED CODTAB[21,2]
  FLAGS "D"
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_VALUNI 6 3
BEGIN
  PROMPT 2 8 "Valore Unitario: "
  CHEKTYPE NORMAL
END

ENDPAGE

TOOLBAR "" 0 0 0 2

BUTTON DLG_OK 2 2
BEGIN
  PROMPT 1 1 ""
END

BUTTON DLG_DELREC 2 2
BEGIN
  PROMPT 2 1 "Elimina"
  MESSAGE EXIT,K_DEL
  PICTURE BMP_DELREC
END

BUTTON DLG_CANCEL 2 2
BEGIN
  PROMPT 4 1 ""
END

ENDPAGE
ENDMASK