campo-sirio/ci/ci1300a.uml

#include "ci1300a.h"

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

PAGE "Rilevazione ore" -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"
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
  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
  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
  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
  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 3
BEGIN
  PROMPT 1 6 "@bFiltri su anno / mese"
END

NUMBER F_ANNO 4
BEGIN
  PROMPT 2 7 "Anno "
  CHECKTYPE REQUIRED
  FLAGS "A"
END

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

GROUPBOX -1 78 5
BEGIN
  PROMPT 1 9 "@bTipo ordinamento dati"
END

RADIOBUTTON F_ORDINAMENTO 40
BEGIN
  PROMPT 2 10 "Principale"
  ITEM "1|Commessa - CdC"
  ITEM "2|CdC - commessa"
  FLAGS "Z"
END

BOOLEAN F_SHOW_FASI
BEGIN
  PROMPT 55 11 "Dettaglio per fase"
END

ENDPAGE

ENDMASK