f7efda87b4
Files correlati : pd6342.exe Ricompilazione Demo : [ ] Commento Habilita ripartizione ricorsiva step 2 git-svn-id: svn://10.65.10.50/branches/R_10_00@20928 c028cbd2-c16b-5b4b-a496-9718f37d4682
106 lines
1.5 KiB
Plaintext
Executable File
106 lines
1.5 KiB
Plaintext
Executable File
#include "pd6342300a.h"
|
|
#include "camask.h"
|
|
|
|
TOOLBAR "topbar" 0 0 0 2
|
|
|
|
BUTTON DLG_SAVEREC 10 2
|
|
BEGIN
|
|
PROMPT -23 -11 "~Salva"
|
|
PICTURE TOOL_SAVEREC
|
|
END
|
|
|
|
#include <elabar.h>
|
|
|
|
ENDPAGE
|
|
|
|
TOOLBAR "" 0 -2 0 2
|
|
|
|
STRING DLG_PROFILE 50
|
|
BEGIN
|
|
PROMPT 9 -11 "Profilo "
|
|
PSELECT
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
PAGE "Ripartizione\Compattamento movimenti" 0 0 0 2
|
|
|
|
GROUPBOX DLG_NULL 78 8
|
|
BEGIN
|
|
PROMPT 1 1 "@bParametri di elaborazione"
|
|
END
|
|
|
|
NUMBER F_ANNO 4
|
|
BEGIN
|
|
PROMPT 2 2 "Esercizio "
|
|
USE ESC
|
|
INPUT CODTAB F_ANNO
|
|
DISPLAY "Codice Esercizio" CODTAB
|
|
DISPLAY "Data inizio esercizio" D0
|
|
DISPLAY "Data fine esercizio " D1
|
|
OUTPUT F_ANNO CODTAB
|
|
OUTPUT F_DATAINI D0
|
|
OUTPUT F_DATAFIN D1
|
|
CHECKTYPE REQUIRED
|
|
FLAGS "RZ"
|
|
ADD NONE
|
|
END
|
|
|
|
LIST F_CLASSEMOV 22
|
|
BEGIN
|
|
PROMPT 36 2 "Classe movimento "
|
|
ITEM " |Tutti"
|
|
ITEM "N|Normali"
|
|
ITEM "P|Preventivo/Variazioni"
|
|
END
|
|
|
|
|
|
|
|
DATA F_DATAINI
|
|
BEGIN
|
|
PROMPT 2 3 "Dalla data "
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
DATA F_DATAFIN
|
|
BEGIN
|
|
PROMPT 42 3 "Alla data "
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
RADIOBUTTON F_COMPATTA 1 40
|
|
BEGIN
|
|
PROMPT 2 4 "Elaborazione richiesta"
|
|
ITEM " |Ripartizione"
|
|
MESSAGE ENABLE,F_DEFINITIVO
|
|
ITEM "X|Compattamento"
|
|
MESSAGE CLEAR,F_DEFINITIVO
|
|
FLAGS "Z"
|
|
END
|
|
|
|
BOOLEAN F_DEFINITIVO
|
|
BEGIN
|
|
PROMPT 2 7 "Blocca movimenti elaborati (DEFINITIVO e vale solo per ripartizione)"
|
|
END
|
|
|
|
GROUPBOX DLG_NULL 78 4
|
|
BEGIN
|
|
PROMPT 1 9 "@bFoglio Excel del calcolo"
|
|
END
|
|
|
|
STRING F_PATH 255 50
|
|
BEGIN
|
|
PROMPT 2 10 "Cartella "
|
|
DSELECT
|
|
END
|
|
|
|
STRING F_NAME 255 50
|
|
BEGIN
|
|
PROMPT 2 11 "File "
|
|
FSELECT "*.xls"
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|