campo-sirio/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
  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

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

NUMBER F_ANNO 4
BEGIN
  PROMPT 35 7 "Anno "
  CHECKTYPE REQUIRED
  FLAGS "A"
  FIELD #ANNO
END

LISTBOX F_MESE 10
BEGIN 
  PROMPT 50 7 "Mese   "
  FLAGS "M"
  FIELD #MESE
END

RADIOBUTTON F_ORDINAMENTO 40
BEGIN
  PROMPT 1 9 "@bStampa e ordina per:"
  ITEM "1|Commessa"
  ITEM "2|Commessa - CdC"
  ITEM "3|Commessa - Fase"
  ITEM "4|Commessa - CdC - Fase"
  ITEM "5|CdC"
  ITEM "6|CdC - Commessa"
  ITEM "7|CdC - Fase"
  ITEM "8|CdC - Commessa - Fase"
  FIELD #ORDINAMENTO
END

ENDPAGE

ENDMASK