campo-sirio/ps/ps0920300a.uml

#include "ps0920300a.h"

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

PAGE "Pianificazione impianti" -1 -1 80 16

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

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

STRING F_NUMDESC 50
BEGIN
  PROMPT 23 2 ""
  HELP "Descrizione numerazione"
  USE %NUM KEY 2
  INPUT S0 F_NUMDESC
  DISPLAY "Descrizione@60" S0
  DISPLAY "Codice" CODTAB
  COPY OUTPUT F_NUM
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 3
  BEGIN
  PROMPT 1 6 "@bArea da pianificare"
  FLAGS ""
END

STRING F_AIMP 5
BEGIN
  PROMPT 2 7 "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 7 ""
  USE IMP KEY 2
  INPUT S0 F_AIMPDESC
  DISPLAY "Descrizione@60" S0
  DISPLAY "Codice@5" CODTAB
  COPY OUTPUT F_AIMP
END

STRING F_LIN 5
BEGIN
  PROMPT 2 10 "Linea      "  
  USE LNP
  INPUT CODTAB F_LIN 
  DISPLAY "Codice" CODTAB 
  DISPLAY "Descrizione@60" S0 
  OUTPUT F_LIN CODTAB 
  OUTPUT F_LINDESC S0 
  CHECKTYPE REQUIRED
  FLAGS "UZ"
  WARNING "E la linea ? "
END

STRING F_LINDESC 50
BEGIN
  PROMPT 23 10 ""
  USE LNP KEY 2 
  INPUT S0 F_LINDESC 
  DISPLAY "Descrizione@60" S0 
  DISPLAY "Codice" CODTAB 
  OUTPUT F_LINDESC S0 
  OUTPUT F_LIN CODTAB 
END

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

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

NUMBER F_RITARDO 2
BEGIN
  PROMPT 2 13 "GG.Ritardo "
  FLAGS "U"
END

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

ENDPAGE

ENDMASK