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 10
BEGIN
  PROMPT  1 0 "@bSelezione"
END

LISTBOX F_INTERVALLO 1 6
BEGIN
  PROMPT 2 1 "@bIntervallo "
  ITEM "A|Anno"
  ITEM "M|Mese"
  ITEM "G|Giorno"
  FLAGS "Z"
END

NUMBER F_ANNO 4
BEGIN
  PROMPT 2 2 "Anno "
  CHECKTYPE REQUIRED
END

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

STRING F_TPORA 2
BEGIN
  PROMPT 44 2 "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 3 "@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 3 "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
	FLAGS "U"  
  CHECKTYPE NORMAL
END

STRING F_DESRIS 50 24
BEGIN
  PROMPT 50 3 ""
  USE RSS KEY 2
  INPUT S0 F_DESRIS
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice@16" CODTAB
  COPY OUTPUT F_CODRIS
  CHECKTYPE SEARCH
  GROUP 2
END

STRING F_CODATT 16
BEGIN  
  PROMPT 23 3 "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
	FLAGS "U"  
  CHECKTYPE NORMAL
END

STRING F_DESATT 50 24
BEGIN
  PROMPT 50 3 ""
  USE ATR KEY 2
  INPUT S0 F_DESRIS
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice@16" CODTAB
  COPY OUTPUT F_CODATT
  CHECKTYPE SEARCH
  GROUP 3
END

NUMBER F_OREDIS 6 2
BEGIN
  PROMPT 35 10 "Disponibilt<6C> "
  FLAG "D"
END

NUMBER F_ORECONS 6 2
BEGIN
  PROMPT 60 10 "Consuntivo "
  FLAG "D"
END

TREE F_CALENDARIO 10 12
BEGIN
  PROMPT 1 11 ""
END

SPREADSHEET F_SHEET 65 0
BEGIN
  PROMPT 15 11 ""
  ITEM "Canc"
  ITEM "Tipo"
  ITEM "Codice@16"
  ITEM "T.Ora@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 "Ore@7"
  ITEM "Listino" 
  ITEM "Costo@6"
  ITEM "Ore Prev."
  ITEM "CUP@15"
  ITEM "CIG@10"
  ITEM "Descrizione@50"
  ITEM "Rimborso"
  ITEM "ID@8"
END

ENDPAGE
ENDMASK

PAGE "Riga consuntivo" -1 -1 78 17

GROUPBOX DLG_NULL 76 16
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 "GU"
  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 "GU"
  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 7 2
BEGIN
  PROMPT 2 11 "Quantit<69> ore "
END

STRING S_CODLIST 4
BEGIN
  PROMPT 30 11 "Listino "
  USE &LIS  
  INPUT CODTAB S_CODLIST
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT S_CODLIST CODTAB
  FLAGS "UZ"
END

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

NUMBER S_OREPREV 7 2
BEGIN
  PROMPT 60 11 "Ore Prev."
  FLAGS "D"
END

STRING S_CMSH 20
BEGIN
  PROMPT 50 16 ""
  FLAGS "H"
END

STRING S_CUP 15
BEGIN
  PROMPT 2 12 "CUP      "
  USE LF_CFCMS KEY 2 SELECT TIPOCF=="C"
  JOIN %CUP INTO CODTAB==CUP
  JOIN LF_CLIFO INTO TIPOCF==TIPOCF CODCF==CODCF
  INPUT COMMESSA S_CMSH SELECT
	INPUT CUP S_CUP
	DISPLAY "Codice CUP@15" CUP
	DISPLAY "Descrizione@50" %CUP->S0
	DISPLAY "Codice Cliente" CODCF
	DISPLAY "Ragione Sociale@50" LF_CLIFO->RAGSOC
	OUTPUT S_CUP CUP
	OUTPUT S_DCUP %CUP->S0
  CHECKTYPE NORMAL
END

STRING S_DCUP 50 30
BEGIN
  PROMPT 40 12 ""
  FLAGS "D"
END

STRING S_CIG 10
BEGIN
  PROMPT 2 13 "CIG      "
  USE LF_CFCMS KEY 3 SELECT TIPOCF=="C"
  JOIN %CIG INTO CODTAB==CIG
  JOIN LF_CLIFO INTO TIPOCF==TIPOCF CODCF==CODCF
  INPUT  COMMESSA S_CMSH SELECT
	INPUT CIG S_CIG
	DISPLAY "Codice CIG@15" CIG
	DISPLAY "Descrizione@50" %CIG->S0
	DISPLAY "Codice Cliente" CODCF
	DISPLAY "Ragione Sociale@50" LF_CLIFO->RAGSOC
	OUTPUT S_CIG CIG
	OUTPUT S_DCIG %CIG->S0
  CHECKTYPE NORMAL
END

STRING S_DCIG 50 30
BEGIN
  PROMPT 40 13 ""
	FLAGS "D"
END

NUMBER S_ID 8
BEGIN
  PROMPT 2 14 "ID           "
  FLAGS "D"
END

BOOLEAN S_RIMBORSO
BEGIN
	PROMPT 31 14 "Rimborso"
END


BOOLEAN S_DEL
BEGIN
	PROMPT 2 15 "Elimina"
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