#include "ci1400a.h"

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

PAGE "Rilevazione ore per Commessa - CdC" -1 -1 0 0

GROUPBOX -1 78 4
BEGIN
  PROMPT 1 1 "@bFiltri su Commesse / CdC"
END

LISTBOX F_CMSOCDC 1 16
BEGIN
  PROMPT 2 2 "@bTipo   "
  ITEM "C|Commessa"
    MESSAGE HIDE,2@|SHOW,1@|SHOW,3@
  ITEM "S|Centro di Costo"
    MESSAGE HIDE,1@|SHOW,2@|HIDE,3@
  FLAGS "Z"
  FIELD #CMSOCDC
END

STRING F_CODCMS 20
BEGIN  
  PROMPT 2 3 "Commessa "
  USE LF_COMMESSE
  INPUT CODCMS F_CODCMS
  DISPLAY "Codice@20" CODCMS
  DISPLAY "Descrizione@50" DESCRIZ
  OUTPUT F_CODCMS CODCMS
  OUTPUT F_DESCMS DESCRIZ
  CHECKTYPE NORMAL
  GROUP 1
END

STRING F_DESCMS 50 42
BEGIN
  PROMPT 34 3 ""
  USE LF_COMMESSE KEY 2
  INPUT DESCRIZ F_DESCMS
  DISPLAY "Descrizione@50" DESCRIZ
  DISPLAY "Codice@20" CODCMS
  COPY OUTPUT F_CODCMS
  CHECKTYPE NORMAL
  GROUP 1
END

STRING F_CODCDC 20
BEGIN  
  PROMPT 2 3 "CdC "
  USE LF_CDC
  INPUT CODCOSTO F_CODCDC
  DISPLAY "Codice@20" CODCOSTO
  DISPLAY "Descrizione@50" DESCRIZ
  OUTPUT F_CODCDC CODCOSTO
  OUTPUT F_DESCDC DESCRIZ
  CHECKTYPE NORMAL
  GROUP 2
END

STRING F_DESCDC 50 47
BEGIN
  PROMPT 29 3 ""
  USE LF_CDC KEY 2
  INPUT DESCRIZ F_DESCDC
  DISPLAY "Descrizione@50" DESCRIZ
  DISPLAY "Codice@20" CODCOSTO
  COPY OUTPUT F_CODCDC
  CHECKTYPE NORMAL
  GROUP 2
END

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

LISTBOX F_TIPOSTAMPA 10
BEGIN
  PROMPT 2 6 "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

NUMBER F_ANNO 4
BEGIN
  PROMPT 2 7 "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 7 "Da mese "
  FLAGS "AM"
END

LISTBOX F_A_MESE 10
BEGIN 
  PROMPT 42 7 "A Mese "
  FLAGS "AM"
END

TEXT DLG_NULL
BEGIN
  PROMPT 1 9 "@bCommesse da considerare separatamente"
  GROUP 3
END

SPREADSHEET F_RIGHE 78 -2
BEGIN
  PROMPT 1 10 ""
  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