campo-sirio/lv/lv0500a.uml

#include "lv0500a.h"

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

PAGE "Passaggi Planning per Contratto" 0 2 0 0

GROUPBOX DLG_NULL 80 3
BEGIN
  PROMPT 1 1 "@bDitta"
END

NUMBER F_CODDITTA 5
BEGIN
  PROMPT 3 2 "Codice "
  FLAGS "FD"
  USE LF_NDITTE
  CHECKTYPE NORMAL
  INPUT CODDITTA F_CODDITTA
  OUTPUT F_RAGSOCDITTA RAGSOC
END

STRING F_RAGSOCDITTA 50
BEGIN
  PROMPT 17 2 "Ragione "
  FLAGS "D"
END

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


NUMBER F_CODCF 6
BEGIN
  PROMPT 2 5 "Codice   " 
  FIELD CODCF
  FLAGS "BU"
  KEY 1
  USE LF_CLIFO SELECT TIPOCF = "C"
  INPUT CODCF F_CODCF
  DISPLAY "Codice" CODCF
  DISPLAY "Ragione Sociale@50" RAGSOC
  OUTPUT F_CODCF CODCF
  OUTPUT F_RAGSOC_CLI RAGSOC
  CHECKTYPE REQUIRED  
END

STRING F_RAGSOC_CLI 50
BEGIN
  PROMPT 20 5 ""
  FLAGS "D"
END

STRING F_CODCONT 3
BEGIN
  PROMPT 2 7 "Contratto N."
  FLAGS "BU"
  FIELD CODCONT
  KEY 1
  
  CHECKTYPE REQUIRED
END

STRING F_DES_CODCONT 50
BEGIN
  PROMPT 20 7 ""
  FLAGS "D"
END

STRING F_CODITI 3 
BEGIN
  PROMPT 2 9 "Itinerario  "
  FIELD CODITI
  FLAGS "U"
  KEY 1
  USE &ITI
  INPUT CODTAB F_CODITI
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@35" S0
  OUTPUT F_CODITI CODTAB
  OUTPUT F_DES_ITI S0
  CHECKTYPE REQUIRED
END 

STRING F_DES_ITI 35
BEGIN
  PROMPT 20 9 ""
  FLAGS "D"
END

NUMBER F_GGCONS 1 
BEGIN
  PROMPT 57 9 "Giorno Consegna"
  FIELD GGCONS
  KEY 1
  
  USE LF_LVPASPLAN KEY 1
  INPUT CODCF F_CODCF
  INPUT CODCONT F_CODCONT
  INPUT CODITI F_CODITI
  INPUT GGCONS F_GGCONS
  DISPLAY "Cliente" CODCF
  DISPLAY "Contratto" CODCONT
  DISPLAY "Itinerario" CODITI
  DISPLAY "Giorno" GGCONS
  DISPLAY "Ord.Fermata" ORDFERM
  DISPLAY "Frequenza" FREQ
  DISPLAY "Mod.Pass." MODPASS
  DISPLAY "Stagionalità" FLSTAG
  DISPLAY "Ora Arrivo" ORARPRV
  OUTPUT F_CODCF CODCF
  OUTPUT F_CODCONT CODCONT
  OUTPUT F_CODITI CODITI
  OUTPUT F_GGCONS GGCONS 
  
  CHECKTYPE REQUIRED
END

GROUPBOX DLG_NULL 80 5
BEGIN
  PROMPT 1 11 "@b Dettaglio"
END

STRING F_CODFRQCONS 2
BEGIN
  PROMPT 2 12 "Frequenza Consegne"
  FIELD FREQ
  FLAGS "U"
  USE &FRQ
  INPUT CODTAB F_CODFRQCONS
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@35" S0
  OUTPUT F_CODFRQCONS CODTAB
  OUTPUT F_DES_FRQCONS S0
END

STRING F_DES_FRQCONS 35
BEGIN
  PROMPT 26 12 ""
  FLAGS "D"
END


STRING F_MODPASS 1
BEGIN
  PROMPT 2 13 "Modalità Passaggio"
  FLAGS "U"
  FIELD MODPASS
  
  USE &MPS
  INPUT CODTAB F_MODPASS
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione @35" S0
  
  OUTPUT F_MODPASS CODTAB
  OUTPUT F_DES_MODPASS S0
  
END

STRING F_DES_MODPASS 35
BEGIN
  PROMPT 26 13 ""
  FLAGS "D" 
END

NUMBER F_ORDFERM 3
BEGIN
  PROMPT 2 14 "Ordine Fermata    "
  FIELD ORDFERM
END

BOOLEAN F_FLAGSTAG
BEGIN
  PROMPT 30 14 "Stagionalità"
  FIELD FLSTAG
END


NUMBER F_ORAARR 6
BEGIN
  PROMPT 47 14 "Ora di arrivo"
  FIELD ORARPRV
END

GROUPBOX DLG_NULL 80 5
BEGIN
  PROMPT 1 16 "@b Gestione Dati Ins.\Agg."
END

DATE F_DATAINS
BEGIN
  PROMPT 2 18 "Data Ins."
  FLAGS "DP"
  FIELD DTCREAZ
END

NUMBER F_ORAINS 6
BEGIN
  PROMPT 25 18 "Ora Ins."
  FIELD ORCREAZ
  FLAGS "D"
END

STRING F_USERINS 16
BEGIN
   PROMPT 44 18 "Utente Ins."
   FLAGS "D"
   FIELD UTCREAZ
END

DATE F_DATAAGG
BEGIN
  PROMPT 2 19 "Data Agg."
  FLAGS "ADP"
  FIELD DTULAGG
END

NUMBER F_ORAAGG 6
BEGIN
  PROMPT 25 19 "Ora Agg."
  FIELD ORULAGG
  FLAGS "D"
END

STRING F_USERAGG 16
BEGIN
   PROMPT 44 19 "Utente Agg."
   FLAGS "D"
   FIELD UTULAGG
END

ENDPAGE
ENDMASK