campo-sirio/src/ci/ci1300a.uml

#include "ci1300a.h"

TOOLBAR "topbar" 0 0 0 2
#include <printbar.h>
ENDPAGE

PAGE "Rilevazione ore per Risorsa - Attrezzatura" -1 -1 0 0

GROUPBOX -1 78 5
BEGIN
  PROMPT 1 1 "@bFiltri su risorse / attrezzature"
END

LISTBOX F_RISOATT 1 12
BEGIN
  PROMPT 2 2 "@bTipo   "
  ITEM "R|Risorsa"
    MESSAGE HIDE,2@|SHOW,1@
  ITEM "A|Attrezzatura"
    MESSAGE HIDE,1@|SHOW,2@
  FLAGS "Z"
  FIELD #RISOATT
END

STRING F_DA_CODRIS 16
BEGIN  
  PROMPT 2 3 "Da codice "
  USE RSS
  INPUT CODTAB F_DA_CODRIS
  DISPLAY "Codice@16" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_DA_CODRIS CODTAB
  OUTPUT F_DA_DESRIS S0
  CHECKTYPE NORMAL
  FLAGS "U"
  GROUP 1
END

STRING F_DA_DESRIS 50 43
BEGIN
  PROMPT 32 3 ""
  USE RSS KEY 2
  INPUT S0 F_DA_DESRIS
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice@16" CODTAB
  COPY OUTPUT F_DA_CODRIS
  CHECKTYPE NORMAL
  GROUP 1
END

STRING F_A_CODRIS 16
BEGIN  
  PROMPT 2 4 "A codice  "
  USE RSS
  INPUT CODTAB F_A_CODRIS
  DISPLAY "Codice@16" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_A_CODRIS CODTAB
  OUTPUT F_A_DESRIS S0
  CHECKTYPE NORMAL
  FLAGS "U"  
	GROUP 1
END

STRING F_A_DESRIS 50 43
BEGIN
  PROMPT 32 4 ""
  USE RSS KEY 2
  INPUT S0 F_DA_DESRIS
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice@16" CODTAB
  COPY OUTPUT F_A_CODRIS
  CHECKTYPE NORMAL
  GROUP 1
END

STRING F_DA_CODATT 16
BEGIN  
  PROMPT 2 3 "Da codice "
  USE ATR
  INPUT CODTAB F_DA_CODATT
  DISPLAY "Codice@16" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_DA_CODATT CODTAB
  OUTPUT F_DA_DESATT S0
  CHECKTYPE NORMAL
	FLAGS "U"  
  GROUP 2
END

STRING F_DA_DESATT 50 43
BEGIN
  PROMPT 32 3 ""
  USE ATR KEY 2
  INPUT S0 F_DA_DESATT
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice@16" CODTAB
  COPY OUTPUT F_DA_CODATT
  CHECKTYPE NORMAL
  GROUP 2
END

STRING F_A_CODATT 16
BEGIN  
  PROMPT 2 4 "A codice  "
  USE ATR
  INPUT CODTAB F_A_CODATT
  DISPLAY "Codice@16" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_A_CODATT CODTAB
  OUTPUT F_A_DESATT S0
  FLAGS "U"
  CHECKTYPE NORMAL
  GROUP 2
END

STRING F_A_DESATT 50 43
BEGIN
  PROMPT 32 4 ""
  USE ATR KEY 2
  INPUT S0 F_A_DESATT
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice@16" CODTAB
  COPY OUTPUT F_A_CODATT
  CHECKTYPE NORMAL
  GROUP 2
END

GROUPBOX -1 78 4
BEGIN
  PROMPT 1 6 "@bFiltri su anno / mese"
END

LISTBOX F_TIPOSTAMPA 1 8
BEGIN
  PROMPT 2 7 "Tipo di stampa "
  ITEM "M|Mensile"
    MESSAGE SHOW,F_DA_MESE|SHOW,F_A_MESE
  ITEM "A|Annuale"
    MESSAGE HIDE,F_DA_MESE|HIDE,F_A_MESE
  FLAGS "Z"
  FIELD #TIPOSTAMPA
END

BOOLEAN F_BENEFICIARIO
BEGIN
  PROMPT 32 7 "Per Beneficiario"
  MESSAGE FALSE CLEAR,4@
  MESSAGE TRUE ENABLE,4@
  FIELD #BENEFICIARIO
END

NUMBER F_ANNO 4
BEGIN
  PROMPT 2 8 "Anno "
  CHECKTYPE REQUIRED
  FLAGS "A"
  FIELD #ANNO
  NUM_EXPR (#F_A_MESE>=#F_DA_MESE)
  WARNING "Il mese finale deve essere uguale o successivo a quello iniziale"
END

LISTBOX F_DA_MESE 10
BEGIN 
  PROMPT 17 8 "Da mese "
  FLAGS "AM"
END

LISTBOX F_A_MESE 10
BEGIN 
  PROMPT 42 8 "A mese "
  FLAGS "AM"
END

STRING F_CODTPL 5
BEGIN
  PROMPT 2 10 "Tipo lavoro    "
  USE TPL
  FLAGS "UZ"
  INPUT CODTAB F_CODTPL
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CODTPL CODTAB
  OUTPUT F_DESTPL S0
  GROUP 4
  CHECKTYPE REQUIRED
END

STRING F_DESTPL 50 44
BEGIN
  PROMPT 30 10 ""
  USE TPL
  INPUT S0 F_DESTPL
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice" CODTAB
  COPY OUTPUT F_CODTPL
  GROUP 4
  CHECKTYPE SEARCH
END

STRING F_CODFIN 6
BEGIN
  PROMPT 2 11 "Finanziatore   "
  USE LF_CLIFO
  INPUT TIPOCF "C"
  INPUT CODCF F_CODFIN
  DISPLAY "Codice" CODCF
  DISPLAY "Ragione Sociale@50" RAGSOC
  DISPLAY "Partita IVA@12" PAIV
  OUTPUT F_CODFIN CODCF
  OUTPUT F_RAGFIN RAGSOC
  CHECKTYPE REQUIRED
  FLAGS "R"
  GROUP 4
END

STRING F_RAGFIN 50 44
BEGIN
  PROMPT 30 11 ""
  USE LF_CLIFO KEY 2
  INPUT TIPOCF "C"
  INPUT RAGSOC F_RAGFIN
  DISPLAY "Ragione Sociale@50" RAGSOC
  DISPLAY "Codice" CODCF
  DISPLAY "Partita IVA@12" PAIV
  COPY OUTPUT F_CODFIN
  GROUP 4
END

BOOLEAN F_STAMPADATA
BEGIN
	PROMPT 2 12 "Non stampare la data"
END

LISTBOX F_ORDINAMENTO 25
BEGIN
  PROMPT 24 12 "@bStampa e ordina per:"
  ITEM "1|Commessa"  MESSAGE SHOW,3@
  ITEM "2|Commessa - CdC"  MESSAGE SHOW,3@
  ITEM "3|Commessa - Fase"  MESSAGE SHOW,3@
  ITEM "4|Commessa - CdC - Fase"  MESSAGE SHOW,3@
  ITEM "5|CdC"  MESSAGE HIDE,3@
  ITEM "6|CdC - Commessa"  MESSAGE HIDE,3@
  ITEM "7|CdC - Fase"  MESSAGE HIDE,3@
  ITEM "8|CdC - Commessa - Fase"  MESSAGE HIDE,3@
  FIELD #ORDINAMENTO
END

TEXT DLG_NULL
BEGIN
  PROMPT 2 13 "@bCommesse da considerare separatamente"
  GROUP 3
END

SPREADSHEET F_RIGHE 72 8
BEGIN
  PROMPT 2 14 ""
  ITEM "Codice@20"
  ITEM "Descrizione@50"
  GROUP 3
END

STRING DLG_PROFILE 50
BEGIN
  PROMPT 1 -1 "Profilo "
  PSELECT
END

ENDPAGE

ENDMASK

//maschera di riga dello sheet
PAGE "Riga commessa" -1 -1 72 3

STRING S_CODCMS 20
BEGIN
  PROMPT 1 1 "Codice      "
  USE LF_COMMESSE
  INPUT CODCMS S_CODCMS
  DISPLAY "Codice@20" CODCMS
  DISPLAY "Descrizione@50" DESCRIZ
  OUTPUT S_CODCMS CODCMS
  OUTPUT S_DESCRCMS DESCRIZ
  CHECKTYPE NORMAL
END

STRING S_DESCRCMS 50
BEGIN
  PROMPT 1 2 "Descrizione "
  USE LF_COMMESSE KEY 2
  INPUT DESCRIZ S_DESCRCMS
  DISPLAY "Descrizione@50" DESCRIZ
  DISPLAY "Codice@20" CODCMS
  COPY OUTPUT S_CODCMS
  CHECKTYPE NORMAL
END

ENDPAGE

TOOLBAR "topbar" 0 0 0 2

BUTTON DLG_OK 2 2
BEGIN
  PROMPT 1 1 ""
END

BUTTON DLG_DELREC 2 2
BEGIN
  PROMPT 2 1 ""
END

BUTTON DLG_CANCEL 2 2
BEGIN
  PROMPT 3 1 ""
END

ENDPAGE

ENDMASK