campo-sirio/ci/ci2400a.uml

#include "ci2400a.h"

TOOLBAR "topbar" 0 0 0 2

BUTTON DLG_FINDREC
BEGIN
  PROMPT 1 1 "Carica"
  PICTURE TOOL_FINDREC
END


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

BUTTON DLG_NULL 2 2
BEGIN
  PROMPT 3 1 ""
END

BUTTON DLG_ELABORA 2 2
BEGIN
  PROMPT 4 1 "Contabilizza"
  PICTURE TOOL_ELABORA  
END

BUTTON DLG_EXPORT 2 2
BEGIN
  PROMPT 5 1 "Esporta"
  PICTURE TOOL_EXPORT
END

#include <helpbar.h>

ENDPAGE

PAGE "Consuntivazione ore" 0 2 0 0

CALENDAR F_CALENDAR -1 7
BEGIN
  PROMPT 80 0 ""
END

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

NUMBER F_ANNO 4
BEGIN
  PROMPT 2 1 "Anno "
  FLAGS "A"
  CHECKTYPE REQUIRED
  NUM_EXPR #F_ANNO>2000
  WARNING "Inserire un anno valido"
END

BOOLEAN C_MESE
BEGIN 
  PROMPT 16 1 "Mese"
END

LISTBOX F_MESE 2 11
BEGIN 
  PROMPT 24 1 ""
  FLAGS "AM"
END

BOOLEAN C_GIORNO
BEGIN 
  PROMPT 41 1 "Giorno"
END

DATE F_GIORNO
BEGIN 
  PROMPT 51 1 ""
  FLAGS "A"
END

BOOLEAN C_TPORA
BEGIN 
  PROMPT 66 1 "Ora"
END

STRING F_TPORA 2
BEGIN
  PROMPT 73 1 ""
  USE &ORE
  INPUT CODTAB F_TPORA  
  DISPLAY "Codice@16" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_TPORA CODTAB
  CHECKTYPE NORMAL
  FLAGS "U"
END

BOOLEAN C_RISOATT
BEGIN 
  PROMPT 2 2 ""
END

LISTBOX F_RISOATT 1 7
BEGIN
  PROMPT 5 2 ""
  ITEM "R|Risorsa"
    MESSAGE SHOW,2@|HIDE,3@
  ITEM "A|Attrez."
    MESSAGE HIDE,2@|SHOW,3@
END

BOOLEAN C_CODICE
BEGIN 
  PROMPT 16 2 ""
END

STRING F_CODRIS 16
BEGIN  
  PROMPT 19 2 ""
  USE RSS
  INPUT CODTAB F_CODRIS
  DISPLAY "Codice@16" CODTAB
  DISPLAY "Descrizione@50" S0
  DISPLAY "IVA@4" S3[1,4]
  OUTPUT F_CODRIS CODTAB
  OUTPUT F_DESRIS S0
  GROUP 2
	FLAGS "U"  
  CHECKTYPE NORMAL
END

STRING F_DESRIS 50 34
BEGIN
  PROMPT 41 2 ""
  USE RSS KEY 2
  INPUT S0 F_DESRIS
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice@16" CODTAB
  DISPLAY "IVA@4" S3[1,4]
  COPY OUTPUT F_CODRIS
  CHECKTYPE SEARCH
  GROUP 2
END

STRING F_CODATT 16
BEGIN  
  PROMPT 19 2 ""
  USE ATR
  INPUT CODTAB F_CODATT
  DISPLAY "Codice@16" CODTAB
  DISPLAY "Descrizione@50" S0
  DISPLAY "IVA@4" S3[1,4]
  OUTPUT F_CODATT CODTAB
  OUTPUT F_DESATT S0
  GROUP 3
	FLAGS "U"  
  CHECKTYPE NORMAL
END

STRING F_DESATT 50 34
BEGIN
  PROMPT 41 2 ""
  USE ATR KEY 2
  INPUT S0 F_DESRIS
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice@16" CODTAB
  DISPLAY "IVA@4" S3[1,4]
  COPY OUTPUT F_CODATT
  CHECKTYPE SEARCH
  GROUP 3
END

SPREADSHEET F_SHEET
BEGIN
  PROMPT 0 8 ""
  ITEM "Data@10"
  ITEM "R/A"
  ITEM "Codice@16"
  ITEM "Descrizione@20"
  ITEM "Tipo@5"
  ITEM "Ore@7"
  ITEM "Prezzo@7"
  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 "IVA"
  ITEM "List."
  ITEM "Note@30"
  ITEM "CUP@15"
  ITEM "CIG@10"
  ITEM "Stato" 
  ITEM "Inviata\nPaghe@6" 
  ITEM "ID@8"
END

ENDPAGE

ENDMASK

PAGE "Riga consuntivo" -1 -1 78 10

DATE S_DATA
BEGIN
  PROMPT 1 0 "Data "
  CHECKTYPE REQUIRED
  FIELD DADATA
END

LIST S_STATO 1 12
BEGIN
  PROMPT 39 0 "Stato "
  ITEM "1|Inserita"
  ITEM "5|Contabiliz."
  FLAGS "D"
END

BOOELAN S_INVPAG
BEGIN
  PROMPT 48 0 "Inv. paghe"
  FIELD INVPAG
  FLAGS "D"
END

NUMBER S_ID 8
BEGIN
  PROMPT 63 0 "ID "
  FLAGS "D"
  FIELD ID
END

LISTBOX S_RISOATT 1 7
BEGIN
  PROMPT 1 1 ""
  ITEM "R|Risorsa"
    MESSAGE SHOW,1@|HIDE,2@
  ITEM "A|Attrez."
    MESSAGE HIDE,1@|SHOW,2@
  FIELD TIPORA
END

STRING S_CODRIS 16
BEGIN
  PROMPT 18 1 ""
  COPY USE -F_CODRIS
  INPUT CODTAB S_CODRIS
  COPY DISPLAY -F_CODRIS
  OUTPUT S_CODRIS CODTAB
  OUTPUT S_DESRIS S0
  OUTPUT S_CODIVA S3[1,4]
  CHECKTYPE REQUIRED
  FLAGS "GU"
  GROUP 1
  CHECKTYPE REQUIRED
  FIELD CODICE
END

STRING S_DESRIS 50 33
BEGIN
  PROMPT 39 1 ""
  COPY USE -F_DESRIS
  INPUT S0 S_DESRIS
  COPY DISPLAY -F_DESRIS
  COPY OUTPUT S_CODRIS
  CHECKTYPE NORMAL
  GROUP 1
END

STRING S_CODATT 16
BEGIN
  PROMPT 18 1 ""
  COPY USE -F_CODATT
  INPUT CODTAB S_CODATT
  COPY DISPLAY -F_CODATT
  OUTPUT S_CODATT CODTAB
  OUTPUT S_DESATT S0
  OUTPUT S_CODIVA S3[1,4]
  CHECKTYPE REQUIRED
  FLAGS "GU"
  GROUP 2
  FIELD CODICE
  MESSAGE COPY,S_CODRIS
END

STRING S_DESATT 50 33
BEGIN
  PROMPT 39 1 ""
  COPY USE -F_DESATT
  INPUT S0 S_DESATT
  COPY DISPLAY -F_DESATT
  COPY OUTPUT S_CODATT
  CHECKTYPE NORMAL
  GROUP 2
END

STRING S_TPORA 2
BEGIN
  PROMPT 1 2 "ORE: Tipo "
  COPY USE -F_TPORA
  INPUT CODTAB S_TPORA  
  COPY DISPLAY -F_TPORA
  OUTPUT S_TPORA CODTAB
  CHECKTYPE REQUIRED
  FIELD TPORA
  FLAGS "U"
END

NUMBER S_QTAORE 7 2
BEGIN
  PROMPT 18 2 "Q.t<> "
  FIELD QTAORE
  CHECKTYPE REQUIRED
END

NUMBER S_COSTO 7 2
BEGIN
  PROMPT 34 2 "Prezzo "
  FIELD COSTO
END

STRING S_CODIVA 4
BEGIN
  PROMPT 50 2 "IVA "
  FLAGS "D"
END

STRING S_CODLIST 4
BEGIN
  PROMPT 61 2 "Listino "
  FLAGS "DUZ"
END

STRING S_NOTE 50
BEGIN
  PROMPT 1 3 "Note "
  FIELD NOTE
END

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

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

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

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

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

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

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

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

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

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

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

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

STRING S_CMSH 20
BEGIN
  PROMPT 1 80 "Commessa"
  FLAGS "H"
END

STRING S_CUP 15
BEGIN
  PROMPT 1 -2 "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
  CHECKTYPE NORMAL
  FIELD CUP
END

STRING S_CIG 10
BEGIN
  PROMPT 1 -1 "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
  CHECKTYPE NORMAL
  FIELD CIG
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 ""
  PICTURE TOOL_DELREC
END

#include <helpbar.h>

ENDPAGE

ENDMASK