f50543a411
Files correlati : ha3 ha3100a.msk Ricompilazione Demo : [ ] Commento : Aggiunto il programma di gestione giri git-svn-id: svn://10.65.10.50/branches/R_10_00@21809 c028cbd2-c16b-5b4b-a496-9718f37d4682
201 lines
3.2 KiB
Plaintext
Executable File
201 lines
3.2 KiB
Plaintext
Executable File
#include "ha3100a.h"
|
|
|
|
TOOLBAR "" 0 0 0 2
|
|
|
|
BUTTON DLG_FINDREC 2 2
|
|
BEGIN
|
|
PROMPT 3 1 "Ricerca"
|
|
PICTURE TOOL_FINDREC
|
|
END
|
|
|
|
BUTTON DLG_SAVEREC 2 2
|
|
BEGIN
|
|
PROMPT 1 1 "Salva"
|
|
PICTURE TOOL_SAVEREC
|
|
END
|
|
|
|
#include <helpbar.h>
|
|
ENDPAGE
|
|
|
|
PAGE "Gestione giri" 0 2 0 0
|
|
|
|
GROUPBOX DLG_NULL 80 5
|
|
BEGIN
|
|
PROMPT 1 1 "@bFitri"
|
|
END
|
|
|
|
STRING F_AGENTE 5
|
|
BEGIN
|
|
PROMPT 2 2 "Filtra agente "
|
|
USE LF_AGENTI
|
|
INPUT CODAGE F_AGENTE
|
|
DISPLAY "Codice" CODAGE
|
|
DISPLAY "Ragione Sociale@50" RAGSOC
|
|
OUTPUT F_AGENTE CODAGE
|
|
OUTPUT F_DESAGENTE RAGSOC
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING F_DESAGENTE 50
|
|
BEGIN
|
|
PROMPT 27 2 ""
|
|
USE LF_AGENTI KEY 2
|
|
INPUT RAGSOC F_DESAGENTE
|
|
DISPLAY "Ragione Sociale@50" RAGSOC
|
|
DISPLAY "Codice" CODAGE
|
|
COPY OUTPUT F_AGENTE
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
NUMBER F_CLIENTE 6
|
|
BEGIN
|
|
PROMPT 2 3 "Filtra cliente"
|
|
FLAGS "ZU"
|
|
USE LF_CLIFO
|
|
INPUT TIPOCF "C"
|
|
INPUT CODCF F_CLIENTE
|
|
DISPLAY "Codice" CODCF
|
|
DISPLAY "Ragione Sociale@50" RAGSOC
|
|
OUTPUT F_CLIENTE CODCF
|
|
OUTPUT F_DESCLIENTE RAGSOC
|
|
CHECKTYPE NORMAL
|
|
ADD RUN cg0 -1
|
|
END
|
|
|
|
STRING F_DESCLIENTE 50
|
|
BEGIN
|
|
PROMPT 27 3 ""
|
|
USE LF_CLIFO KEY 2
|
|
INPUT TIPOCF "C"
|
|
INPUT RAGSOC F_DESCLIENTE
|
|
DISPLAY "Ragione Sociale@50" RAGSOC
|
|
DISPLAY "Codice" CODCF
|
|
COPY OUTPUT F_CLIENTE
|
|
CHECKTYPE NORMAL
|
|
ADD RUN cg0 -1
|
|
END
|
|
|
|
LISTBOX F_GIORNO 1 10
|
|
BEGIN
|
|
PROMPT 2 4 "Giorno "
|
|
ITEM "0|"
|
|
ITEM "1|Lunedì"
|
|
ITEM "2|Martedì"
|
|
ITEM "3|Mercoledì"
|
|
ITEM "4|Giovedì"
|
|
ITEM "5|Venerdì"
|
|
ITEM "6|Sabato"
|
|
ITEM "7|Domenica"
|
|
END
|
|
|
|
SPREADSHEET F_SHEET 0 -1
|
|
BEGIN
|
|
PROMPT 1 6 "Giri"
|
|
ITEM "Canc."
|
|
ITEM "Agente@6"
|
|
ITEM "Ragione Sociale@25"
|
|
ITEM "Giorno@10"
|
|
ITEM "Cliente@6"
|
|
ITEM "Ragione Sociale@25"
|
|
ITEM "Ordine\nPassaggio@9"
|
|
ITEM "Ora\nPassaggio@9"
|
|
END
|
|
|
|
ENDPAGE
|
|
ENDMASK
|
|
|
|
TOOLBAR "" 0 0 0 2
|
|
|
|
#include <stdbar.h>
|
|
|
|
ENDPAGE
|
|
|
|
PAGE "Giri" 0 2 0 0
|
|
|
|
GROUPBOX DLG_NULL 80 8
|
|
BEGIN
|
|
PROMPT 1 0 "@bRiga"
|
|
END
|
|
|
|
BOOLEAN S_CANC
|
|
BEGIN
|
|
PROMPT 2 1 "Cancellare"
|
|
END
|
|
|
|
STRING S_AGENTE 5
|
|
BEGIN
|
|
PROMPT 2 2 "Agente "
|
|
USE LF_AGENTI
|
|
INPUT CODAGE S_AGENTE
|
|
DISPLAY "Codice" CODAGE
|
|
DISPLAY "Ragione Sociale@50" RAGSOC
|
|
OUTPUT S_AGENTE CODAGE
|
|
OUTPUT S_RAGSOC RAGSOC
|
|
CHECTYPE REQUIRED
|
|
END
|
|
|
|
STRING S_RAGSOC 50
|
|
BEGIN
|
|
PROMPT 19 2 ""
|
|
USE LF_AGENTI KEY 2
|
|
INPUT RAGSOC S_RAGSOC
|
|
DISPLAY "Ragione Sociale@50" RAGSOC
|
|
DISPLAY "Codice" CODAGE
|
|
COPY OUTPUT S_AGENTE
|
|
CHECTYPE NORMAL
|
|
END
|
|
|
|
LISTBOX S_GIORNO 1 10
|
|
BEGIN
|
|
PROMPT 2 3 "Giorno "
|
|
ITEM "1|Lunedì"
|
|
ITEM "2|Martedì"
|
|
ITEM "3|Mercoledì"
|
|
ITEM "4|Giovedì"
|
|
ITEM "5|Venerdì"
|
|
ITEM "6|Sabato"
|
|
ITEM "7|Domenica"
|
|
END
|
|
|
|
NUMBER S_CLIENTE 6
|
|
BEGIN
|
|
PROMPT 2 4 "Cliente "
|
|
FLAGS "ZU"
|
|
USE LF_CLIFO
|
|
INPUT TIPOCF "C"
|
|
INPUT CODCF S_CLIENTE
|
|
DISPLAY "Codice" CODCF
|
|
DISPLAY "Ragione Sociale@50" RAGSOC
|
|
OUTPUT S_CLIENTE CODCF
|
|
OUTPUT S_CLIRAGSOC RAGSOC
|
|
CHECKTYPE REQUIRED
|
|
ADD RUN cg0 -1
|
|
END
|
|
|
|
STRING S_CLIRAGSOC 50
|
|
BEGIN
|
|
PROMPT 19 4 ""
|
|
USE LF_CLIFO KEY 2
|
|
INPUT TIPOCF "C"
|
|
INPUT RAGSOC S_CLIRAGSOC
|
|
DISPLAY "Ragione Sociale@50" RAGSOC
|
|
DISPLAY "Codice" CODCF
|
|
COPY OUTPUT S_CLIENTE
|
|
CHECKTYPE NORMAL
|
|
ADD RUN cg0 -1
|
|
END
|
|
|
|
NUMBER S_ORDPASS 3
|
|
BEGIN
|
|
PROMPT 2 6 "Ordine di passaggio "
|
|
END
|
|
|
|
STRING S_ORAPASS 5
|
|
BEGIN
|
|
PROMPT 35 6 "Ora arrivo "
|
|
PICTURE "@@:@@"
|
|
END
|
|
|
|
ENDPAGE
|
|
ENDMASK
|