201 lines
3.2 KiB
Plaintext
201 lines
3.2 KiB
Plaintext
|
#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<65>"
|
|||
|
|
ITEM "2|Marted<65>"
|
|||
|
|
ITEM "3|Mercoled<65>"
|
|||
|
|
ITEM "4|Gioved<65>"
|
|||
|
|
ITEM "5|Venerd<72>"
|
|||
|
|
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<65>"
|
|||
|
|
ITEM "2|Marted<65>"
|
|||
|
|
ITEM "3|Mercoled<65>"
|
|||
|
|
ITEM "4|Gioved<65>"
|
|||
|
|
ITEM "5|Venerd<72>"
|
|||
|
|
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
|