#include "ps0920300a.h"

PAGE "Pianificazione impianti" -1 -1 80 14

GROUPBOX -1 78 4
  BEGIN
  PROMPT 1 1 "@bArea da pianificare"
  FLAGS ""
END

STRING F_DANUM 4
BEGIN
  PROMPT 2 2 "Numerazione "
  HELP "Codice numerazione"
  USE %NUM
  INPUT CODTAB F_DANUM
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_DANUM CODTAB
  OUTPUT F_DANUMDESC S0
  CHECKTYPE REQUIRED
  FLAGS "UPA"
  WARNING "Numerazione assente"
END

STRING F_DANUMDESC 50
BEGIN
  PROMPT 23 2 ""
  HELP "Descrizione numerazione"
  USE %NUM KEY 2
  INPUT S0 F_DANUMDESC
  DISPLAY "Descrizione@60" S0
  DISPLAY "Codice" CODTAB
  COPY OUTPUT F_DANUM
END

STRING F_DAIMP 5
BEGIN
  PROMPT 2 3 "Impianto   "  
  USE IMP
  INPUT CODTAB F_DAIMP
  DISPLAY "Codice@5" CODTAB
  DISPLAY "Descrizione@60" S0
  OUTPUT F_DAIMP CODTAB
  OUTPUT F_DAIMPDESC S0
  CHECKTYPE REQUIRED
  FLAGS "UZ"
  WARNING "E l'impianto?"
END

STRING F_DAIMPDESC 50
  BEGIN
  PROMPT 23 3 ""
  USE IMP KEY 2
  INPUT S0 F_DAIMPDESC
  DISPLAY "Descrizione@60" S0
  DISPLAY "Codice@5" CODTAB
  COPY OUTPUT F_DAIMP
END

GROUPBOX -1 78 4
  BEGIN
  PROMPT 1 6 "@bArea pianificata"
  FLAGS ""
END

STRING F_ANUM 4
BEGIN
  PROMPT 2 7 "Numerazione "
  HELP "Codice numerazione"
  COPY USE F_DANUM
  INPUT CODTAB F_ANUM
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_ANUM CODTAB
  OUTPUT F_ANUMDESC S0
  CHECKTYPE REQUIRED
  FLAG "UPA"
  WARNING "Numerazione assente"
END

STRING F_ANUMDESC 50
BEGIN
  PROMPT 23 7 ""
  HELP "Descrizione numerazione"
  USE %NUM KEY 2
  INPUT S0 F_ANUMDESC
  DISPLAY "Descrizione@60" S0
  DISPLAY "Codice" CODTAB
  COPY OUTPUT F_ANUM
END

STRING F_AIMP 5
BEGIN
  PROMPT 2 8 "Impianto   "  
  COPY USE F_DAIMP
  INPUT CODTAB F_AIMP
  DISPLAY "Codice@5" CODTAB
  DISPLAY "Descrizione@60" S0
  OUTPUT F_AIMP CODTAB
  OUTPUT F_AIMPDESC S0
  CHECKTYPE REQUIRED
  FLAGS "UZ"
  WARNING "E l'impianto?"
END

STRING F_AIMPDESC 50
  BEGIN
  PROMPT 23 8 ""
  USE IMP KEY 2
  INPUT S0 F_AIMPDESC
  DISPLAY "Descrizione@60" S0
  DISPLAY "Codice@5" CODTAB
  COPY OUTPUT F_AIMP
END

DATE F_DADATA
BEGIN
  PROMPT 2 10 "Dalla data "
  CHECKTYPE REQUIRED
END

DATE F_ADATA
BEGIN
  PROMPT 35 10 "Alla data "
  CHECKTYPE REQUIRED
END

NUMBER F_RITARDO 2
BEGIN
  PROMPT 2 11 "Giorni di ritardo "
  FLAGS "U"
END

STRING F_PROFILO 70 50
BEGIN
  PROMPT 8 -3 "Profilo "
  PSELECT
END

BUTTON DLG_OK 10 2
BEGIN 
  PROMPT -12 -1 ""
END  

BUTTON DLG_QUIT 10 2
BEGIN 
  PROMPT -22 -1 ""
END  

ENDPAGE

ENDMASK