67 lines
1.1 KiB
Plaintext
67 lines
1.1 KiB
Plaintext
|
#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
|