a31c61d184
Files correlati : Ricompilazione Demo : [ ] Commento :eliminato quell'aborto di ve7; trasformato in ps0077 tanto per non perdere i programmi git-svn-id: svn://10.65.10.50/trunk@18345 c028cbd2-c16b-5b4b-a496-9718f37d4682
93 lines
1.5 KiB
Plaintext
Executable File
93 lines
1.5 KiB
Plaintext
Executable File
#include "ps0077100a.h"
|
|
|
|
PAGE "Contabilizzazione documenti" -1 -1 78 14
|
|
|
|
STRING F_CODICE_ELAB 8
|
|
BEGIN
|
|
PROMPT 2 2 "Codice elaborazione "
|
|
FLAG "U"
|
|
USE %ELD SELECT I0 == 3
|
|
INPUT CODTAB F_CODICE_ELAB
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione@55" S0
|
|
OUTPUT F_CODICE_ELAB CODTAB
|
|
OUTPUT F_DESC_ELAB S0
|
|
CHECKTYPE REQUIRED
|
|
WARNING "E' necessario specificare il codice elaborazione"
|
|
END
|
|
|
|
STRING F_DESC_ELAB 50 39
|
|
BEGIN
|
|
PROMPT 35 2 ""
|
|
USE %ELD KEY 2 SELECT I0 == 3
|
|
INPUT S0 F_DESC_ELAB
|
|
DISPLAY "Descrizione@55" S0
|
|
DISPLAY "Codice" CODTAB
|
|
COPY OUTPUT F_CODICE_ELAB
|
|
END
|
|
|
|
GROUPBOX DLG_NULL 32 4
|
|
BEGIN
|
|
PROMPT 1 4 "Date intervallo documenti"
|
|
END
|
|
|
|
DATE F_DATA_INI
|
|
BEGIN
|
|
PROMPT 2 5 "Inizio "
|
|
VALIDATE NOT_EMPTY_FUNC
|
|
WARNING "La data di inizio intervallo e' obbligatoria"
|
|
END
|
|
|
|
DATE F_DATA_FIN
|
|
BEGIN
|
|
PROMPT 2 6 "Fine "
|
|
VALIDATE NOT_EMPTY_FUNC
|
|
WARNING "La data di fine intervallo e' obbligatoria"
|
|
END
|
|
|
|
STRING F_OUTPUT 50
|
|
BEGIN
|
|
PROMPT 2 8 "Output "
|
|
END
|
|
|
|
NUMBER F_CODDITTA 5
|
|
BEGIN
|
|
PROMPT 2 9 "Codice ditta T&S "
|
|
END
|
|
|
|
NUMBER F_GRUPPO 2
|
|
BEGIN
|
|
PROMPT 2 10 "Codice gruppo cassa "
|
|
END
|
|
|
|
NUMBER F_CONTO 2
|
|
BEGIN
|
|
PROMPT 2 11 "Codice conto cassa "
|
|
END
|
|
|
|
NUMBER F_SOTTOCONTO 3
|
|
BEGIN
|
|
PROMPT 2 12 "Codice sottoc.cassa "
|
|
END
|
|
|
|
BUTTON DLG_OK 10 2
|
|
BEGIN
|
|
PROMPT -13 -1 ""
|
|
FLAGS "D"
|
|
END
|
|
|
|
BUTTON DLG_USER 10 2
|
|
BEGIN
|
|
PROMPT -23 -1 "~Selezione"
|
|
PICTURE BMP_SELECT
|
|
END
|
|
|
|
BUTTON DLG_CANCEL 10 2
|
|
BEGIN
|
|
PROMPT -33 -1 ""
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|