439 lines
7.3 KiB
Plaintext
Executable File
439 lines
7.3 KiB
Plaintext
Executable File
#include "lv2200a.h"
|
|
|
|
TOOLBAR "" 0 0 0 2
|
|
BUTTON DLG_DELREC 2 2
|
|
BEGIN
|
|
PROMPT 3 1 "Elimina"
|
|
PICTURE BMP_DELREC
|
|
END
|
|
|
|
BUTTON DLG_INFO 2 2
|
|
BEGIN
|
|
PROMPT 4 1 "Info"
|
|
MESSAGE EXIT,K_F2
|
|
PICTURE BMP_INFO
|
|
END
|
|
|
|
BUTTON DLG_HELP 2 2
|
|
BEGIN
|
|
PROMPT 5 1 "Help"
|
|
MESSAGE EXIT,K_F1
|
|
PICTURE BMP_HELP
|
|
END
|
|
|
|
BUTTON DLG_QUIT 2 2
|
|
BEGIN
|
|
PROMPT 6 1 "Fine"
|
|
MESSAGE EXIT,K_QUIT
|
|
PICTURE BMP_QUIT
|
|
END
|
|
ENDPAGE
|
|
|
|
PAGE "Visualizzazione e modifica giri" -1 -1 76 20
|
|
|
|
GROUPBOX DLG_NULL 76 7
|
|
BEGIN
|
|
PROMPT 1 1 "@bDati del giro"
|
|
END
|
|
|
|
STRING F_CODITI 3
|
|
BEGIN
|
|
PROMPT 2 2 "Itinerario "
|
|
FLAGS "UZ"
|
|
USE &ITI
|
|
JOIN &AUT TO &ITI ALIAS 1000 INTO CODTAB==S1
|
|
JOIN &MEZ TO &ITI ALIAS 2000 INTO CODTAB==S2
|
|
INPUT CODTAB F_CODITI
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
DISPLAY "Autista" S1
|
|
DISPLAY "Descrizione Autista@50" 1000@->S0
|
|
DISPLAY "Targa@8" S2
|
|
DISPLAY "Descrizione Mezzo@50" 2000@->S0
|
|
OUTPUT F_CODITI CODTAB
|
|
OUTPUT F_DESCRITI S0
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING F_DESCRITI 50
|
|
BEGIN
|
|
PROMPT 23 2 ""
|
|
USE &ITI KEY 2
|
|
INPUT S0 F_DESCRITI
|
|
DISPLAY "Descrizione@50" S0
|
|
DISPLAY "Codice " CODTAB
|
|
COPY OUTPUT F_CODITI
|
|
CHECKTYPE SEARCH
|
|
END
|
|
|
|
NUMBER F_CODCF 6
|
|
BEGIN
|
|
PROMPT 2 3 "Cliente "
|
|
FLAGS "U"
|
|
USE LF_CLIFO KEY 1
|
|
INPUT TIPOCF "C"
|
|
INPUT CODCF F_CODCF
|
|
DISPLAY "Codice " CODCF
|
|
DISPLAY "Ragione sociale@50" RAGSOC
|
|
OUTPUT F_CODCF CODCF
|
|
OUTPUT F_RAGSOCCLI RAGSOC
|
|
OUTPUT F_RICALT RICALT
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING F_RAGSOCCLI 50
|
|
BEGIN
|
|
PROMPT 24 3 ""
|
|
USE LF_CLIFO KEY 2
|
|
INPUT TIPOCF "C"
|
|
INPUT RAGSOC F_RAGSOCCLI
|
|
DISPLAY "Ragione sociale@50" RAGSOC
|
|
DISPLAY "Codice " CODCF
|
|
COPY OUTPUT F_CODCF
|
|
CHECKTYPE SEARCH
|
|
END
|
|
|
|
STRING F_RICALT 30
|
|
BEGIN
|
|
PROMPT 2 4 "Ricerca Alt."
|
|
USE LF_CLIFO KEY 6
|
|
INPUT TIPOCF "C"
|
|
INPUT RICALT F_RICALT
|
|
DISPLAY "Ricerca alternativa@30" RICALT
|
|
DISPLAY "Sospeso" SOSPESO
|
|
DISPLAY "Ragione sociale@50" RAGSOC
|
|
COPY OUTPUT F_CODCF
|
|
HELP "Chiave di ricerca alternativa"
|
|
END
|
|
|
|
DATE F_DADATA
|
|
BEGIN
|
|
PROMPT 2 5 "Visualizza i giri dal "
|
|
FIELD DADATA
|
|
CHECKTYPE REQUIRED
|
|
FLAGS "A"
|
|
END
|
|
|
|
DATE F_ADATA
|
|
BEGIN
|
|
PROMPT 40 5 "al "
|
|
FIELD ADATA
|
|
VALIDATE DATE_CMP_FUNC >= F_DADATA
|
|
WARNING "Inserire una data finale maggiore della data di inizio"
|
|
FLAGS "A"
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
LISTBOX F_ORDGIRI 1 25
|
|
BEGIN
|
|
PROMPT 2 6 "Criterio ordinamento giri "
|
|
ITEM "0|Ordine di generazione"
|
|
ITEM "1|Ordine di fermata"
|
|
ITEM "2|Orario di passaggio"
|
|
FLAGS "DG"
|
|
END
|
|
|
|
SPREADSHEET F_PLAN
|
|
BEGIN
|
|
PROMPT 0 8 "Giri"
|
|
ITEM "Data"
|
|
ITEM "Giorno@10"
|
|
ITEM "Itinerario@11"
|
|
ITEM "Ordine\nfermata@8"
|
|
ITEM "Ora\nprevista@9"
|
|
ITEM "Codice\nCliente@6"
|
|
ITEM "Ragione sociale@50"
|
|
ITEM "Contratto"
|
|
ITEM "Freq.\nConsegne"
|
|
ITEM "Mod. pass."
|
|
ITEM "Autista"
|
|
ITEM "Mezzo"
|
|
ITEM "Anno\ndoc."
|
|
ITEM "Tipo\ndoc."
|
|
ITEM "Numero\ndoc."
|
|
ITEM "Consegna\nstandard"
|
|
ITEM "Per.\nsosp."
|
|
ITEM "Per.\nsosp. var."
|
|
ITEM "Num.\nriga@5"
|
|
END
|
|
|
|
ENDPAGE
|
|
ENDMASK
|
|
|
|
PAGE "Giri" -1 -1 80 20
|
|
|
|
GROUPBOX DLG_NULL 78 4
|
|
BEGIN
|
|
PROMPT 1 1 "@bDati giro"
|
|
END
|
|
|
|
DATE F_S_DATA
|
|
BEGIN
|
|
PROMPT 2 2 "Data "
|
|
FIELD DTCONS
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
STRING F_S_GIORNO 10
|
|
BEGIN
|
|
PROMPT 19 2 "Giorno "
|
|
FLAG "D"
|
|
END
|
|
|
|
NUMBER F_S_ITI 3
|
|
BEGIN
|
|
PROMPT 44 2 "Itinerario "
|
|
FLAGS "Z"
|
|
FIELD CODITI
|
|
USE &ITI
|
|
JOIN &AUT TO &ITI ALIAS 1000 INTO CODTAB==S1
|
|
JOIN &MEZ TO &ITI ALIAS 2000 INTO CODTAB==S2
|
|
INPUT CODTAB F_S_ITI
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
DISPLAY "Autista" S1
|
|
DISPLAY "Descrizione Autista@50" 1000@->S0
|
|
DISPLAY "Targa@8" S2
|
|
DISPLAY "Descrizione Mezzo@50" 2000@->S0
|
|
OUTPUT F_S_ITI CODTAB
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
NUMBER F_S_RIGA 5
|
|
BEGIN
|
|
PROMPT 67 2 "Riga "
|
|
FLAGS "DG"
|
|
MESSAGE EMPTY ENABLE,F_S_CODCONT
|
|
MESSAGE DISABLE,F_S_CODCONT
|
|
FIELD CODRIGA
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
NUMBER F_S_ORDFER 3
|
|
BEGIN
|
|
FLAGS "U"
|
|
PROMPT 2 3 "Ordine fer. "
|
|
FIELD ORDFER
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING F_S_ORA 5
|
|
BEGIN
|
|
PROMPT 19 3 "Ora arrivo "
|
|
PICTURE "@@:@@"
|
|
FIELD ORARPRV
|
|
END
|
|
|
|
NUMBER F_S_FREQ 2
|
|
BEGIN
|
|
PROMPT 61 3 "Freq. cons. "
|
|
USE &FRQ
|
|
INPUT CODTAB F_S_FREQ
|
|
DISPLAY "Codice " CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT F_S_FREQ CODTAB
|
|
FLAGS "Z"
|
|
CHECKTYPE REQUIRED
|
|
FIELD FREQ
|
|
END
|
|
|
|
LIST F_S_MODPASS 10
|
|
BEGIN
|
|
PROMPT 38 3 "Mod. pas. "
|
|
ITEM "C|Consegna"
|
|
ITEM "R|Ritiro"
|
|
ITEM "E|Entrambi"
|
|
FIELD MODPASS
|
|
END
|
|
|
|
|
|
GROUPBOX DLG_NULL 78 4
|
|
BEGIN
|
|
PROMPT 1 5 "@bDati cliente"
|
|
END
|
|
|
|
NUMBER F_S_CODCF 6
|
|
BEGIN
|
|
PROMPT 2 6 "Cliente "
|
|
FLAGS "DUG"
|
|
FIELD CODCF
|
|
USE LF_CLIFO KEY 1
|
|
INPUT TIPOCF "C"
|
|
INPUT CODCF F_S_CODCF
|
|
DISPLAY "Codice " CODCF
|
|
DISPLAY "Ragione sociale@50" RAGSOC
|
|
OUTPUT F_S_CODCF CODCF
|
|
OUTPUT F_S_RAGSOCCLI RAGSOC
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
STRING F_S_RAGSOCCLI 50
|
|
BEGIN
|
|
PROMPT 22 6 ""
|
|
FLAGS "D"
|
|
END
|
|
|
|
NUMBER F_S_CODCONT 6
|
|
BEGIN
|
|
PROMPT 2 7 "Contratto "
|
|
FLAGS "U"
|
|
USE LF_LVCONDV
|
|
JOIN LF_CLIFO INTO TIPOCF="C" CODCF=CODCF
|
|
INPUT CODCF F_S_CODCF
|
|
INPUT CODCONT F_S_CODCONT
|
|
DISPLAY "Codice@6" CODCONT
|
|
DISPLAY "Cliente@50" LF_CLIFO->RAGSOC
|
|
DISPLAY "Codice Cliente" CODCF
|
|
OUTPUT F_S_CODCONT CODCONT
|
|
OUTPUT F_S_CODCF CODCF
|
|
OUTPUT F_S_RAGSOCCLI LF_CLIFO->RAGSOC
|
|
FIELD CODCONT
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
GROUPBOX DLG_NULL 78 4
|
|
BEGIN
|
|
PROMPT 1 9 "@bDettagli trasporto"
|
|
END
|
|
|
|
STRING F_S_CODAUT 6
|
|
BEGIN
|
|
PROMPT 2 10 "Autista "
|
|
FLAGS "UZ"
|
|
USE &AUT
|
|
INPUT CODTAB F_S_CODAUT
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT F_S_CODAUT CODTAB
|
|
OUTPUT F_S_DESAUT S0
|
|
CHECKTYPE REQUIRED
|
|
FIELD CODAUT
|
|
END
|
|
|
|
STRING F_S_DESAUT 50
|
|
BEGIN
|
|
PROMPT 22 10 ""
|
|
USE &AUT KEY 2
|
|
INPUT S0 F_S_DESAUT
|
|
DISPLAY "Descrizione@50" S0
|
|
DISPLAY "Codice" CODTAB
|
|
COPY OUTPUT F_S_CODAUT
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
STRING F_S_CODMEZ 8
|
|
BEGIN
|
|
PROMPT 2 11 "Targa "
|
|
FLAGS "U"
|
|
USE &MEZ
|
|
INPUT CODTAB F_S_CODMEZ
|
|
DISPLAY "Codice@8" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT F_S_CODMEZ CODTAB
|
|
OUTPUT F_S_DESMEZ S0
|
|
FIELD CODMEZ
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
STRING F_S_DESMEZ 50
|
|
BEGIN
|
|
PROMPT 22 11 ""
|
|
USE &MEZ KEY 2
|
|
INPUT S0 F_S_DESMEZ
|
|
DISPLAY "Descrizione@50" S0
|
|
DISPLAY "Codice@8" CODTAB
|
|
COPY OUTPUT F_S_CODMEZ
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
GROUPBOX DLG_NULL 20 5
|
|
BEGIN
|
|
PROMPT 59 13 "@bDati bolla associata"
|
|
END
|
|
|
|
NUMBER F_S_ANNO 4
|
|
BEGIN
|
|
PROMPT 60 14 "Anno doc. "
|
|
FIELD ANNO
|
|
FLAG "D"
|
|
END
|
|
|
|
STRING F_S_CODNUM 4
|
|
BEGIN
|
|
PROMPT 60 15 "Documento "
|
|
FIELD CODNUM
|
|
FLAG "D"
|
|
END
|
|
|
|
NUMBER F_S_NDOC 7
|
|
BEGIN
|
|
PROMPT 60 16 "Numero "
|
|
FIELD NDOC
|
|
FLAG "DG"
|
|
MESSAGE EMPTY DISABLE,F_S_BOLLA
|
|
MESSAGE ENABLE,F_S_BOLLA
|
|
END
|
|
|
|
GROUPBOX DLG_NULL 53 5
|
|
BEGIN
|
|
PROMPT 1 13 "@bDettagli giro"
|
|
END
|
|
|
|
BOOLEAN F_S_PASSTD
|
|
BEGIN
|
|
PROMPT 2 14 "Consegna standard "
|
|
FIELD CONSSTD
|
|
FLAG "D"
|
|
END
|
|
|
|
NUMBER F_S_PERSOSP 2
|
|
BEGIN
|
|
PROMPT 2 15 "Periodo di sospensione "
|
|
FIELD PERSOSP
|
|
FLAG "D"
|
|
END
|
|
|
|
NUMBER F_S_PERSOSPVAR 2
|
|
BEGIN
|
|
PROMPT 2 16 "Periodo di sospensione variato "
|
|
FIELD PERSOSPVAR
|
|
USE LF_LVPERISOSP
|
|
INPUT CODCF F_S_CODCF SELECT
|
|
INPUT CODCONT F_S_CODCONT SELECT
|
|
INPUT CODPER F_S_PERSOSPVAR
|
|
DISPLAY "Codice @6" CODPER
|
|
DISPLAY "Da @10" DATAINI
|
|
DISPLAY "a @10" DATAFIN
|
|
OUTPUT F_S_PERSOSPVAR CODPER
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
TOOLBAR "" 0 0 0 2
|
|
|
|
BUTTON DLG_OK 2 2
|
|
BEGIN
|
|
PROMPT 1 1 ""
|
|
END
|
|
|
|
BUTTON DLG_DELREC 2 2
|
|
BEGIN
|
|
PROMPT 2 1 "Elimina"
|
|
MESSAGE EXIT,K_DEL
|
|
PICTURE BMP_DELREC
|
|
END
|
|
|
|
BUTTON DLG_USER 2 2
|
|
BEGIN
|
|
PROMPT 3 1 "Bolla"
|
|
PICTURE BMP_LINK
|
|
END
|
|
|
|
BUTTON DLG_CANCEL 2 2
|
|
BEGIN
|
|
PROMPT 4 1 ""
|
|
END
|
|
|
|
ENDPAGE
|
|
ENDMASK |