212 lines
3.0 KiB
Plaintext
Executable File
212 lines
3.0 KiB
Plaintext
Executable File
#include "scselmsk.h"
|
|
#include "sc2100a.h"
|
|
|
|
PAGE "Stampa estratti conto" -1 -1 68 18
|
|
|
|
NUMBER F_CODDITTA 5
|
|
BEGIN
|
|
PROMPT 1 1 "Cod. "
|
|
FLAGS "DFR"
|
|
USE LF_NDITTE
|
|
INPUT CODDITTA F_CODDITTA
|
|
OUTPUT F_RAGSOC RAGSOC
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
STRING F_RAGSOC 50 46
|
|
BEGIN
|
|
PROMPT 13 1 "R.S. "
|
|
FLAGS "D"
|
|
END
|
|
|
|
GROUPBOX DLG_NULL 68 8
|
|
BEGIN
|
|
PROMPT 0 2 ""
|
|
END
|
|
|
|
NUMBER F_CODPROF 4
|
|
BEGIN
|
|
PROMPT 1 3 "Profilo "
|
|
FLAGS "Z"
|
|
USE LF_FORM
|
|
INPUT TIPOPROF BASE_EC_PROFILE
|
|
INPUT CODPROF[1,4] F_CODPROF
|
|
INPUT CODPROF[5,5] F_LINPROF
|
|
DISPLAY "Codice" CODPROF[1,4]
|
|
DISPLAY "Lingua" CODPROF[5,5]
|
|
DISPLAY "Descrizione@50" DESC
|
|
OUTPUT F_CODPROF CODPROF[1,4]
|
|
OUTPUT F_LINPROF CODPROF[5,5]
|
|
OUTPUT F_DESPROF DESC
|
|
// CHECKTYPE REQUIRED
|
|
FIELD ANTICLEAR
|
|
WARNING "Codice profilo o lingua errato"
|
|
END
|
|
|
|
STRING F_LINPROF 1
|
|
BEGIN
|
|
PROMPT 18 3 ""
|
|
FLAGS "U"
|
|
USE %LNG
|
|
INPUT CODTAB F_LINPROF
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT F_LINPROF CODTAB
|
|
COPY ALL F_CODPROF
|
|
CHECKTYPE NORMAL
|
|
WARNING "Codice lingua errato"
|
|
END
|
|
|
|
STRING F_DESPROF 50 40
|
|
BEGIN
|
|
PROMPT 25 3 ""
|
|
FLAGS "D"
|
|
END
|
|
|
|
|
|
DATE F_DATALIMOP
|
|
BEGIN
|
|
PROMPT 1 4 "Data limite operazione "
|
|
// FLAGS "A"
|
|
// CHECKTYPE REQUIRED
|
|
END
|
|
|
|
DATE F_DATALIMSC
|
|
BEGIN
|
|
PROMPT 1 5 "Data limite scaduto "
|
|
FLAGS "A"
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
NUMBER F_GIORISCH 3
|
|
BEGIN
|
|
PROMPT 1 6 "Giorni calcolo rischio "
|
|
GROUP 1
|
|
END
|
|
|
|
BOOLEAN F_STAMPCHIU
|
|
BEGIN
|
|
PROMPT 1 7 "Stampa partite chiuse"
|
|
MESSAGE FALSE DISABLE,F_DATACHIU
|
|
MESSAGE TRUE ENABLE,F_DATACHIU
|
|
END
|
|
|
|
DATE F_DATACHIU
|
|
BEGIN
|
|
PROMPT 25 7 "dal "
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING F_LUOGOSEND 50 32
|
|
BEGIN
|
|
PROMPT 1 8 "Luogo d'invio "
|
|
END
|
|
|
|
DATE F_DATASEND
|
|
BEGIN
|
|
PROMPT 50 8 "data "
|
|
FLAGS "A"
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
RADIOBUTTON SC_CLIFO 20
|
|
BEGIN
|
|
PROMPT 0 10 "Selezione"
|
|
ITEM "C|Clienti" MESSAGE ENABLE,1@
|
|
ITEM "F|Fornitori" MESSAGE CLEAR,1@
|
|
END
|
|
|
|
RADIOBUTTON SC_SORTCF 20
|
|
BEGIN
|
|
PROMPT 25 10 "Ordinamento"
|
|
ITEM "1|Per codice" MESSAGE HIDE,2@|SHOW,3@
|
|
ITEM "2|Per ragione sociale" MESSAGE HIDE,3@|SHOW,2@
|
|
END
|
|
|
|
BUTTON SC_SELECT 10 1
|
|
BEGIN
|
|
PROMPT 51 11 "~Selezione"
|
|
END
|
|
|
|
BUTTON SC_RESET 10 1
|
|
BEGIN
|
|
PROMPT 51 12 "~Azzera"
|
|
END
|
|
|
|
NUMBER SC_CFCODFR 5
|
|
BEGIN
|
|
PROMPT 1 14 "Da codice "
|
|
GROUP 3
|
|
END
|
|
|
|
BUTTON SC_CFBUTFR 2 1
|
|
BEGIN
|
|
PROMPT 31 14 ""
|
|
PICTURE 109
|
|
GROUP 3
|
|
END
|
|
|
|
NUMBER SC_CFCODTO 5
|
|
BEGIN
|
|
PROMPT 36 14 "a codice "
|
|
GROUP 3
|
|
END
|
|
|
|
BUTTON SC_CFBUTTO 2 1
|
|
BEGIN
|
|
PROMPT 51 14 ""
|
|
PICTURE 109
|
|
GROUP 3
|
|
END
|
|
|
|
STRING SC_CFDESFR 50 30
|
|
BEGIN
|
|
PROMPT 1 14 "Da ragione sociale "
|
|
GROUP 2
|
|
FLAGS "H"
|
|
END
|
|
|
|
BUTTON SC_CFDESBUTFR 2 1
|
|
BEGIN
|
|
PROMPT 51 14 ""
|
|
PICTURE 109
|
|
GROUP 2
|
|
FLAGS "H"
|
|
END
|
|
|
|
STRING SC_CFDESTO 50 30
|
|
BEGIN
|
|
PROMPT 1 15 "A ragione sociale "
|
|
GROUP 2
|
|
FLAGS "H"
|
|
END
|
|
|
|
BUTTON SC_CFDESBUTTO 2 1
|
|
BEGIN
|
|
PROMPT 51 15 ""
|
|
PICTURE 109
|
|
GROUP 2
|
|
FLAGS "H"
|
|
END
|
|
|
|
NUMBER SC_NSEL 3
|
|
BEGIN
|
|
PROMPT 56 14 "N. "
|
|
FLAGS "D"
|
|
END
|
|
|
|
BUTTON DLG_PRINT 10 2
|
|
BEGIN
|
|
PROMPT -12 -1 ""
|
|
MESSAGE EXIT,K_ENTER
|
|
END
|
|
|
|
BUTTON DLG_QUIT 10 2
|
|
BEGIN
|
|
PROMPT -22 -1 ""
|
|
END
|
|
|
|
|
|
ENDPAGE
|
|
ENDMASK
|