campo-sirio/lv/lv2200a.uml

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

DATE F_DADATA
BEGIN
  PROMPT 2 2 "Visualizza i giri dal "
  FIELD DADATA
  CHECKTYPE REQUIRED
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"
  CHECKTYPE REQUIRED
END

STRING F_CODITI 3
BEGIN
  PROMPT 2 3 "Itinerario "
  FLAGS "UZ"
  USE &ITI
  INPUT CODTAB F_CODITI
  DISPLAY "Codice " CODTAB
  DISPLAY "Descrizione@50" 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

SPREADSHEET F_PLAN
BEGIN
   PROMPT 0 6 "Giri"
   ITEM "Data"
   ITEM "Giorno"
   ITEM "Itinerario"
   ITEM "Ordine\nfermata"
   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 78 20

GROUPBOX DLG_NULL 76 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 20 2 "Giorno "
  FLAG "D"
END

NUMBER F_S_ITI 3
BEGIN
  PROMPT 40 2 "Itinerario "
  FLAGS "Z"
  FIELD CODITI
  USE &ITI
  INPUT CODTAB F_S_ITI
  DISPLAY "Codice " CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_S_ITI CODTAB
  CHECKTYPE REQUIRED 
END

NUMBER F_S_RIGA 5
BEGIN
  PROMPT 60 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 ferm. "
  FIELD ORDFER
  CHECKTYPE NORMAL 
END

NUMBER F_S_FREQ 2
BEGIN
  PROMPT 54 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 24 3 "Mod. di pass. "
  ITEM "C|Consegna"
  ITEM "R|Ritiro"
  ITEM "E|Entrambi"
  FIELD MODPASS
END


GROUPBOX DLG_NULL 76 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 76 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 56 13 "@bDati bolla associata"
END

NUMBER F_S_ANNO 4
BEGIN
  PROMPT 57 14 "Anno doc. "
  FIELD ANNO
  FLAG "D"
END

STRING F_S_CODNUM 4
BEGIN
  PROMPT 57 15 "Documento "
  FIELD CODNUM
  FLAG "D"
END

NUMBER F_S_NDOC 7
BEGIN
  PROMPT 57  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