#include "ps0920600a.h"

TOOLBAR "topbar" 0 0 0 2

#include <relapbar.h>

ENDPAGE

PAGE "Scelte per cliente" 0 2 0 0 

NUMBER F_CLIFO 6
BEGIN
  PROMPT 1 1 "Cliente "
  USE &PS0920SCE 
  JOIN LF_CLIFO INTO TIPOCF="C" CODCF=CODTAB
  INPUT CODTAB F_CLIFO
  DISPLAY "Codice" CODTAB
  DISPLAY "Ragione Sociale@50" LF_CLIFO->RAGSOC
  DISPLAY "I Scelta" S1
  DISPLAY "II Scelta" S2
  DISPLAY "Tono d'uscita" S4
  OUTPUT F_CLIFO CODTAB
  OUTPUT F_RAGSOC LF_CLIFO->RAGSOC
  CHECKTYPE REQUIRED
  FLAGS "GZ"
  KEY 1
  FIELD CODTAB
  MESSAGE EMPTY ENABLE,F_RAGSOC
  MESSAGE DISABLE,F_RAGSOC
END

STRING F_RAGSOC 50
BEGIN
  PROMPT 9 2 ""
  USE LF_CLIFO KEY 2
  INPUT TIPOCF "C"
  INPUT RAGSOC F_RAGSOC
  DISPLAY "Ragione Sociale@50" RAGSOC
  DISPLAY "Codice" CODCF
  OUTPUT F_CLIFO CODCF
  OUTPUT F_RAGSOC RAGSOC
  CHEKCTYPE NORMAL
  KEY 2
END

STRING F_SCELTA1 4
BEGIN
  PROMPT 1 3 "Prima Scelta   "
  FIELD S1
END

STRING F_SCELTA2 4
BEGIN
  PROMPT 1 4 "Seconda Scelta "
  FIELD S2
  CHECKTYPE REQUIRED
END

STRING F_TONO2 8
BEGIN
  PROMPT 1 5 "Tono d'uscita  "
  FIELD S4
END

ENDPAGE 

ENDMASK