131 lines
1.9 KiB
Plaintext
Executable File
131 lines
1.9 KiB
Plaintext
Executable File
#include "pr1400.h"
|
|
|
|
PAGE "Stampa statistiche temporali" -1 -1 78 12
|
|
|
|
LISTBOX F_ORDINAMENTO 16
|
|
BEGIN
|
|
PROMPT 2 2 "Ordinamento per "
|
|
FLAGS "U"
|
|
ITEM "C|Codice"
|
|
MESSAGE HIDE,G_RAGSOC@|SHOW,G_CODAGE@
|
|
ITEM "R|Ragione sociale"
|
|
MESSAGE SHOW,G_RAGSOC@|HIDE,G_CODAGE@
|
|
END
|
|
|
|
GROUPBOX DLG_NULL 76 4
|
|
BEGIN
|
|
PROMPT 2 3 "Intervallo agenti"
|
|
END
|
|
|
|
STRING F_DAAGE 5
|
|
BEGIN
|
|
PROMPT 3 4 "Dall'agente "
|
|
FLAGS "UZ"
|
|
USE LF_AGENTI
|
|
INPUT CODAGE F_DAAGE
|
|
DISPLAY "Codice" CODAGE
|
|
DISPLAY "Descr@50" RAGSOC
|
|
OUTPUT F_DAAGE CODAGE
|
|
OUTPUT F_DESFROM RAGSOC
|
|
CHECKTYPE NORMAL
|
|
GROUP G_CODAGE
|
|
END
|
|
|
|
STRING F_DESFROM 50
|
|
BEGIN
|
|
PROMPT 25 4 ""
|
|
FLAGS "D"
|
|
GROUP G_CODAGE
|
|
END
|
|
|
|
STRING F_AAGE 5
|
|
BEGIN
|
|
PROMPT 3 5 "All'agente "
|
|
FLAGS "UZ"
|
|
COPY USE F_DAAGE
|
|
INPUT CODAGE F_AAGE
|
|
COPY DISPLAY F_DAAGE
|
|
OUTPUT F_AAGE CODAGE
|
|
OUTPUT F_DESTO RAGSOC
|
|
CHECKTYPE NORMAL
|
|
GROUP G_CODAGE
|
|
END
|
|
|
|
STRING F_DESTO 50
|
|
BEGIN
|
|
PROMPT 25 5 ""
|
|
FLAGS "D"
|
|
GROUP G_CODAGE
|
|
END
|
|
|
|
STRING F_DADES 50
|
|
BEGIN
|
|
PROMPT 3 4 "Dall'agente "
|
|
USE LF_AGENTI KEY 2
|
|
INPUT RAGSOC F_DADES
|
|
DISPLAY "Descr@50" RAGSOC
|
|
DISPLAY "Codice@20" CODAGE
|
|
OUTPUT F_DADES RAGSOC
|
|
CHECKTYPE NORMAL
|
|
GROUP G_RAGSOC
|
|
END
|
|
|
|
STRING F_ADES 50
|
|
BEGIN
|
|
PROMPT 3 5 "All'agente "
|
|
COPY USE F_DADES
|
|
INPUT RAGSOC F_ADES
|
|
COPY DISPLAY F_DADES
|
|
OUTPUT F_ADES RAGSOC
|
|
CHECKTYPE NORMAL
|
|
GROUP G_RAGSOC
|
|
END
|
|
|
|
GROUPBOX DLG_NULL 38 3
|
|
BEGIN
|
|
PROMPT 2 7 "Intervallo date"
|
|
END
|
|
|
|
DATE F_DATEFROM
|
|
BEGIN
|
|
PROMPT 3 8 "Da "
|
|
END
|
|
|
|
DATE F_DATETO
|
|
BEGIN
|
|
PROMPT 24 8 "A "
|
|
END
|
|
|
|
LISTBOX F_GROUPMONTH 2
|
|
BEGIN
|
|
PROMPT 42 8 "Mesi da raggruppare "
|
|
ITEM "1|1"
|
|
ITEM "2|2"
|
|
ITEM "3|3"
|
|
ITEM "4|4"
|
|
ITEM "5|5"
|
|
ITEM "6|6"
|
|
ITEM "7|7"
|
|
ITEM "8|8"
|
|
ITEM "9|9"
|
|
ITEM "10|10"
|
|
ITEM "11|11"
|
|
ITEM "12|12"
|
|
END
|
|
|
|
BUTTON DLG_PRINT 10 2
|
|
BEGIN
|
|
PROMPT -12 -1 "~Stampa"
|
|
MESSAGE EXIT,K_ENTER
|
|
END
|
|
|
|
BUTTON DLG_QUIT 10 2
|
|
BEGIN
|
|
PROMPT -22 -1 ""
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|
|
|