d030bbabe2
Files correlati : Ricompilazione Demo : [ ] Commento : Riportata la versione 3.1 patch 766 git-svn-id: svn://10.65.10.50/trunk@14628 c028cbd2-c16b-5b4b-a496-9718f37d4682
89 lines
1.3 KiB
Plaintext
Executable File
89 lines
1.3 KiB
Plaintext
Executable File
#include "777100a.h"
|
|
|
|
PAGE "Invio" -1 -1 72 10
|
|
|
|
NUMBER F_ANNO 4
|
|
BEGIN
|
|
PROMPT 47 2 "Anno dichiarazione "
|
|
FLAGS "D"
|
|
END
|
|
|
|
RADIOBUTTON F_SUPPORTO 1 16
|
|
BEGIN
|
|
PROMPT 1 1 "Tipo"
|
|
ITEM "T|Telematico"
|
|
MESSAGE SHOW,F_PATH|HIDE,F_DISK
|
|
ITEM "D|Dischetti"
|
|
MESSAGE HIDE,F_PATH|SHOW,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 "Anno" ANNODIC
|
|
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
|
|
|
|
BOOLEAN F_HEADERS
|
|
BEGIN
|
|
PROMPT 1 8 "Genera record di testata (tipo A, B, Z)"
|
|
END
|
|
|
|
BUTTON DLG_OK 10 2
|
|
BEGIN
|
|
PROMPT -12 -1 ""
|
|
END
|
|
|
|
BUTTON DLG_QUIT 10 2
|
|
BEGIN
|
|
PROMPT -22 -1 ""
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|