#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 6
BEGIN
  PROMPT 1 1 "@bDati del giro"
END

DATE F_DADATA
BEGIN
  PROMPT 2 2 "Visualizza i giri dal "
  FIELD DADATA
  CHECKTYPE REQUIRED
  FLAGS "A"
END

DATE F_ADATA
BEGIN
  PROMPT 40 2 "al "
  FIELD ADATA
  VALIDATE DATE_CMP_FUNC >= F_DADATA
  WARNING "Inserire una data finale maggiore della data di inizio"
  FLAGS "A"
  CHECKTYPE NORMAL
END

STRING F_CODITI 3
BEGIN
  PROMPT 2 3 "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
END

STRING F_DESCRITI 50
BEGIN
  PROMPT 23 3 ""
  USE &ITI KEY 2
  INPUT S0 F_DESCRITI
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice " CODTAB
  COPY OUTPUT F_CODITI
END

NUMBER F_CODCF 6
BEGIN
  PROMPT 2 4 "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
  CHECKTYPE NORMAL
END

STRING F_RAGSOCCLI 50
BEGIN
  PROMPT 23 4 ""
  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 NORMAL
END

LISTBOX F_ORDGIRI 1 25
BEGIN
   PROMPT 2 5 "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 7 "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