a7867e4a1c
Files correlati : Ricompilazione Demo : [ ] Commento : Corrette alcune diciture sul programma di Invio: non piu' 770 ma Gestione percipienti git-svn-id: svn://10.65.10.50/trunk@7029 c028cbd2-c16b-5b4b-a496-9718f37d4682
77 lines
1.2 KiB
Plaintext
Executable File
77 lines
1.2 KiB
Plaintext
Executable File
#include "777100a.h"
|
|
|
|
PAGE "Invio" -1 -1 72 10
|
|
|
|
RADIOBUTTON F_SUPPORTO 1 16
|
|
BEGIN
|
|
PROMPT 1 1 "Tipo"
|
|
ITEM "D|Dischetti"
|
|
MESSAGE DISABLE,F_PATH|ENABLE,F_DISK
|
|
ITEM "T|Telematico"
|
|
MESSAGE ENABLE,F_PATH|DISABLE,F_DISK
|
|
END
|
|
|
|
LIST F_DISK 2 8
|
|
BEGIN
|
|
PROMPT 20 2 ""
|
|
ITEM "A:|Disco A"
|
|
ITEM "B:|Disco B"
|
|
END
|
|
|
|
STRING F_PATH 50
|
|
BEGIN
|
|
PROMPT 20 3 ""
|
|
END
|
|
|
|
NUMBER F_DADITTA 5
|
|
BEGIN
|
|
PROMPT 1 5 "Da ditta "
|
|
USE LF_BASE
|
|
JOIN LF_NDITTE INTO CODDITTA=CODDITTA
|
|
INPUT CODDITTA F_DADITTA
|
|
DISPLAY "Ditta" CODDITTA
|
|
DISPLAY "Ragione sociale@50" LF_NDITTE->RAGSOC
|
|
OUTPUT F_DADITTA CODDITTA
|
|
OUTPUT F_DADESC LF_NDITTE->RAGSOC
|
|
CHECKTYPE SEARCH
|
|
END
|
|
|
|
STRING F_DADESC 50
|
|
BEGIN
|
|
PROMPT 20 5 ""
|
|
FLAGS "D"
|
|
END
|
|
|
|
NUMBER F_ADITTA 5
|
|
BEGIN
|
|
PROMPT 1 6 "A ditta "
|
|
COPY USE F_DADITTA
|
|
INPUT CODDITTA F_ADITTA
|
|
COPY DISPLAY F_DADITTA
|
|
OUTPUT F_ADITTA CODDITTA
|
|
OUTPUT F_ADESC LF_NDITTE->RAGSOC
|
|
CHECKTYPE SEARCH
|
|
NUM_EXPR (#F_ADITTA=0)||(#F_ADITTA>=#F_DADITTA)
|
|
WARNING "La ditta finale deve seguire quella iniziale"
|
|
END
|
|
|
|
STRING F_ADESC 50
|
|
BEGIN
|
|
PROMPT 20 6 ""
|
|
FLAGS "D"
|
|
END
|
|
|
|
BUTTON DLG_OK 10 2
|
|
BEGIN
|
|
PROMPT -12 -1 ""
|
|
END
|
|
|
|
BUTTON DLG_QUIT 10 2
|
|
BEGIN
|
|
PROMPT -22 -1 ""
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|