campo-sirio/lv/lv0500a.uml

#include "lv0500a.h"

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

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

GROUPBOX DLG_NULL 76 4
BEGIN
	PROMPT 1 1 "@b Planning per Contratto"
END

NUMBER F_CODCF 6
BEGIN
  PROMPT 2 2 "Cliente   "
  FLAGS "UG"
  FIELD CODCF
  USE LF_LVCONDV
  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

STRING F_RAGSOCCLI 50
BEGIN
  PROMPT 22 2 ""
  FLAGS "D"
END

NUMBER F_CODCONT 6
BEGIN
  PROMPT 2 3 "Contratto "
  FLAGS "U"
  FIELD CODCONT
  COPY ALL F_CODCF
  CHECKTYPE FORCED
  KEY 1
END

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

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

SPREADSHEET F_PASPLAN 0 7
BEGIN
   PROMPT 0 5 "Passaggi planning per contratto"
   ITEM "Num."
   ITEM "Giorno"   
   ITEM "Itinerario"
   ITEM "Ordine\nfermata"
   ITEM "Ora\nprevista" 
   ITEM "Mod. pass."
   ITEM "Frequenza\nconsegne"
   ITEM "Giro\nstagionale"
   ITEM "Note@50"        
END

SPREADSHEET F_PERSOSP 0 7
BEGIN
   PROMPT 0 13 "Periodi di sospensione"
   ITEM "Codice"
   ITEM "Tipo\nsospensione"
   ITEM "Data\ninizio"   
   ITEM "Data\nfine"
   ITEM "Fattura" 
   ITEM "Importo da\nfatturare"
   ITEM "Percentuale da\nfatturare"
   ITEM "Note@50"        
END

ENDPAGE
ENDMASK

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

GROUPBOX DLG_NULL 76 5
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
  INPUT CODTAB F_S_ITI
  DISPLAY "Codice " CODTAB
  DISPLAY "Descrizione@50" 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_FLSTAG
BEGIN
  PROMPT 40 3 "Flag Stagionalit<69>"
  FIELD FLSTAG
END

GROUPBOX DLG_NULL 76 3
BEGIN
  PROMPT 1 5 "@bDettagli consegna"
END

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

NUMBER F_S_FREQ 3
BEGIN
  PROMPT 40 6 "Frequenza di consegna "
  FIELD FREQ
END

GROUPBOX DLG_NULL 76 5
BEGIN
  PROMPT 1 8 "@bNote"
END

MEMO F_S_NOTEPC 74 4
BEGIN 
  PROMPT 2 8 ""
  FIELD NOTE
END

GROUPBOX DLG_NULL 76 3
BEGIN
  PROMPT 1 13 "@bDettagli creazione passaggio"
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

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

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

NUMBER F_S_CODPER 6
BEGIN
  PROMPT 2 1 "Codice "
  FLAGS "ZDR"
  FIELD CODPER
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