campo-sirio/lv/lv0500a.uml

#include "lv0500a.h"

TOOLBAR "" 0 0 0 2
#include "relapbar.h"
ENDPAGE

PAGE "Passaggi per Contratto" -1 -1 78 10

GROUPBOX DLG_NULL 76 5
BEGIN
	PROMPT 1 1 "@bPassaggi per Contratto"
END

NUMBER F_CODCF 6
BEGIN
  PROMPT 2 2 "Cliente   "
  FLAGS "UG"
  FIELD CODCF
  USE LF_CLIFO 
  INPUT TIPOCF "C"
  INPUT CODCF F_CODCF
  DISPLAY "Codice" CODCF
  DISPLAY "Ragione Sociale@50" RAGSOC
  OUTPUT F_CODCF CODCF
  OUTPUT F_RAGSOCCLI RAGSOC
  CHECKTYPE REQUIRED
  KEY 1
END

STRING F_RAGSOCCLI 50
BEGIN
  PROMPT 22 2 ""
  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 REQUIRED
END

NUMBER F_CODCONT 6
BEGIN
  PROMPT 2 3 "Contratto "
  FLAGS "U"
  FIELD CODCONT
  USE LF_LVCONDV SELECT BETWEEN(CODCF,#F_CODCF,#F_CODCF)
  JOIN LF_CLIFO INTO TIPOCF="C" CODCF=CODCF
  INPUT CODCF F_CODCF  
  INPUT CODCONT F_CODCONT  
  DISPLAY "Codice Cliente" CODCF
  DISPLAY "Contratto@8" CODCONT
  DISPLAY "Inizio@10" DATAIN   
  DISPLAY "Fine@10" DATASC   
  DISPLAY "Cliente@50" LF_CLIFO->RAGSOC
  OUTPUT F_CODCONT CODCONT
  OUTPUT F_CODCF CODCF
  OUTPUT F_RAGSOCCLI LF_CLIFO->RAGSOC
  OUTPUT F_VALIDA DATAIN
  OUTPUT F_VALIA DATASC
  CHECKTYPE FORCED
  KEY 1
END

DATE F_VALIDA
BEGIN
  PROMPT 22 3 "Valido dal "
  FLAGS "D"
END

DATE F_VALIA
BEGIN
  PROMPT 45 3 "al "
  FLAGS "D"
END

LISTBOX F_ORDGIRI 1 25
BEGIN
   PROMPT 2 4 "Criterio ordinamento giri      "
   ITEM  "0|Ordine di generazione"
   ITEM  "1|Ordine di fermata"
   ITEM  "2|Orario di passaggio"
   FLAGS "DG"
END

SPREADSHEET F_PASPLAN 0 7
BEGIN
  PROMPT 0 7 "Passaggi per contratto"
  ITEM "Num.@4"
  ITEM "Giorno@9"   
  ITEM "Cod.\nitinerario@11"
  ITEM "Descrizione@20"
  ITEM "Ordine\nfermata@8"
  ITEM "Ora\nprevista@9"
  ITEM "Mod. pass.@11" 
  ITEM "Frequenza\nconsegne@10"
  ITEM "Descrizione@20"
  ITEM "Passaggio\nstagionale@10"
  ITEM "Valido dal@11"
  ITEM "al@11"
  ITEM "Note@50"
  USE LF_LVPASPLAN KEY NRIGA
  INPUT CODCF F_CODCF
  INPUT CODCONT F_CODCONT 
  FLAGS "A"      
END

SPREADSHEET F_PERSOSP 0 7
BEGIN
  PROMPT 0 15 "Periodi di sospensione"
  ITEM "Tipo"
  ITEM "Data\ninizio"   
  ITEM "Data\nfine"
  ITEM "Fattura" 
  ITEM "Importo da\nfatturare"
  ITEM "Percentuale da\nfatturare"
  ITEM "Note@50"    
  USE LF_LVPERISOSP KEY CODPER
  INPUT CODCF F_CODCF
  INPUT CODCONT F_CODCONT
  FLAGS "A"
END

ENDPAGE
ENDMASK

PAGE "Passaggi per contratto" -1 -1 78 20

GROUPBOX DLG_NULL 76 6
BEGIN
  PROMPT 1 0 "@bDati Itinerario"
END

NUMBER F_S_GGCONS 1
BEGIN
  PROMPT 2 1 "Giorno     "
  SHEET "Codice|Giorno@10"
  INPUT F_S_GGCONS
  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"
  OUTPUT F_S_GGCONS
  OUTPUT F_S_STRGGCONS
  FIELD GGCONS
  CHECKTYPE REQUIRED
END

STRING F_S_STRGGCONS 10
BEGIN
  PROMPT 20 1 ""
  FLAGS "D"
END

NUMBER F_S_ITI 3
BEGIN
  PROMPT 2 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
  OUTPUT F_S_DESITI S0
  CHECKTYPE REQUIRED 
END

STRING F_S_DESITI 50
BEGIN
  PROMPT 20 2 ""
  FLAGS "D"
END

NUMBER F_S_ORDFER 3
BEGIN
  FLAGS "U"
  PROMPT 2 3 "N. Fermata "
  FIELD ORDFERM
  CHECKTYPE NORMAL
END

STRING F_S_ORA 5
BEGIN
  PROMPT 20 3 "Ora arrivo "
  PICTURE "@@:@@"
  FIELD ORARPRV
END

BOOLEAN F_S_STAG
BEGIN
  PROMPT 2 4 "Stagionale"
  FIELD FLSTAG
  MESSAGE FALSE CLEAR,F_S_DASTAG|CLEAR,F_S_ASTAG
  MESSAGE TRUE ENABLE,F_S_DASTAG|ENABLE,F_S_ASTAG
END

STRING F_S_DASTAG 5
BEGIN
  PROMPT 15 4 "Valido dal "
  FIELD DTSTAGIN
  CHECKTYPE REQUIRED
END

STRING F_S_ASTAG 5
BEGIN
  PROMPT 40 4 " al "
  FIELD DTSTAGSC
  CHECKTYPE REQUIRED
END

GROUPBOX DLG_NULL 76 4
BEGIN
  PROMPT 1 6 "@bDettagli consegna"
END

LIST F_S_MODPAS 10
BEGIN
  PROMPT 2 7 "Modalit<69> di passaggio "
  ITEM "E|Entrambi"
  ITEM "C|Consegna"
  ITEM "R|Ritiro"  
  FIELD MODPASS
END

NUMBER F_S_FREQ 2
BEGIN
  PROMPT 2 8 "Freq. consegna "
  USE &FRQ
  INPUT CODTAB F_S_FREQ
  DISPLAY "Codice " CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_S_FREQ CODTAB
  OUTPUT F_S_DESFRQ S0
  FLAGS "Z"
  CHECKTYPE REQUIRED
  FIELD FREQ
END

STRING F_S_DESFRQ 50
BEGIN
  PROMPT 23 8 ""
  FLAGS "D"
END


GROUPBOX DLG_NULL 76 4
BEGIN
  PROMPT 1 10 "@bNote"
END

MEMO F_S_NOTEPC 74 3
BEGIN 
  PROMPT 2 10 ""
  FIELD NOTE
END

GROUPBOX DLG_NULL 76 3
BEGIN
  PROMPT 1 14 "@bDettagli creazione passaggio"
END

STRING F_S_UTENTEC 16
BEGIN
  PROMPT 2 15 "Utente "
  FIELD UTCREAZ
  FLAGS "D"
END

DATE F_S_DATAC
BEGIN
  PROMPT 27 15 "Data "
  FIELD DTCREAZ
  FLAGS "D"
END

STRING F_S_ORAC 5
BEGIN
  PROMPT 45 15 "Ora "
  PICTURE "@@:@@"
  FIELD ORCREAZ
  FLAGS "D"
END

GROUPBOX DLG_NULL 76 3
BEGIN
  PROMPT 1 17 "@bDettagli ultimo aggiornamento"
END

STRING F_S_UTENTEUA 16
BEGIN
  PROMPT 2 18 "Utente "
  FIELD UTCREAZ
  FLAGS "D"
END

DATE F_S_DATAUA
BEGIN
  PROMPT 27 18 "Data "
  FIELD DTCREAZ
  FLAGS "D"
END

STRING F_S_ORAUA 5
BEGIN
  PROMPT 45 18 "Ora "
  PICTURE "@@:@@"
  FIELD ORCREAZ
  FLAGS "D"
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_CANCEL 2 2
BEGIN
  PROMPT 4 1 ""
END

ENDPAGE
ENDMASK

PAGE "Periodi di sospensione" -1 -1 78 20

GROUPBOX DLG_NULL 76 5
BEGIN
  PROMPT 1 0 "@bDati periodo di sospensione"
END

STRING F_S_TPSOSP 3
BEGIN
  PROMPT 2 2 "Tipo   "
  FIELD TPSOSP
  USE &TSP
  INPUT CODTAB F_S_TPSOSP
  INPUT S0 F_S_DTPSOSP
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_S_TPSOSP CODTAB
  OUTPUT F_S_DTPSOSP S0
  CHECKTYPE REQUIRED
END

STRING F_S_DTPSOSP 50
BEGIN
  PROMPT 16 2 ""
  USE &TSP
  INPUT S0 F_S_DTPSOSP
  INPUT CODTAB F_S_TPSOSP
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice" CODTAB
  COPY OUTPUT F_S_TPSOSP
  CHECKTYPE REQUIRED
END

DATE F_S_DADATA
BEGIN
  PROMPT 2 3 "Consegne sospese dal "
  FIELD DATAINI
  CHECKTYPE REQUIRED
END

DATE F_S_ADATA
BEGIN
  PROMPT 40 3 "al "
  FIELD DATAFIN
  CHECKTYPE REQUIRED
END

GROUPBOX DLG_NULL 76 4
BEGIN
  PROMPT 1 5 "@bDati fatturazione"
END

BOOLEAN F_S_FLFAT
BEGIN
  PROMPT 2 6 "Flag Fatturazione"
  FIELD FLFATT
  MESSAGE FALSE CLEAR,F_S_IMPFAT|CLEAR,F_S_PERFAT
  MESSAGE TRUE ENABLE,F_S_IMPFAT|ENABLE,F_S_PERFAT
END

CURRENCY F_S_IMPFAT
BEGIN
  PROMPT 2 7 "Importo da fatturare "
  FLAGS "U"
  FIELD IMPFATT
END

NUMBER F_S_PERFAT 6 2
BEGIN
  PROMPT 43 7 "Percentuale da fatturare "
  FLAGS "U"
  FIELD PERCFATT
END

GROUPBOX DLG_NULL 76 4
BEGIN
  PROMPT 1 9 "@bNote"
END

MEMO F_S_NOTEPS 74 3
BEGIN 
  PROMPT 2 9 ""
  FIELD NOTE
END

GROUPBOX DLG_NULL 76 3
BEGIN
  PROMPT 1 13 "@bDettagli creazione periodo di sospensione"
END

STRING F_S_UTENTEC 16
BEGIN
  PROMPT 2 14 "Utente "
  FIELD UTCREAZ
  FLAGS "D"
END

DATE F_S_DATAC
BEGIN
  PROMPT 27 14 "Data "
  FIELD DTCREAZ
  FLAGS "D"
END

STRING F_S_ORAC 5
BEGIN
  PROMPT 45 14 "Ora "
  PICTURE "@@:@@"
  FIELD ORCREAZ
  FLAGS "D"
END

GROUPBOX DLG_NULL 76 3
BEGIN
  PROMPT 1 16 "@bDettagli ultimo aggiornamento"
END

STRING F_S_UTENTEUA 16
BEGIN
  PROMPT 2 17 "Utente "
  FIELD UTCREAZ
  FLAGS "D"
END

DATE F_S_DATAUA
BEGIN
  PROMPT 27 17 "Data "
  FIELD DTCREAZ
  FLAGS "D"
END

STRING F_S_ORAUA 5
BEGIN
  PROMPT 45 17 "Ora "
  PICTURE "@@:@@"
  FIELD ORCREAZ
  FLAGS "D"
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_CANCEL 2 2
BEGIN
  PROMPT 4 1 ""
END

ENDPAGE
ENDMASK