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_IDCONTR 3
BEGIN
  PROMPT 2 7 "Contratto N."
  FLAGS "BU"
  FIELD IDCONTR
  KEY 1
  
  CHECKTYPE REQUIRED
END

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

NUMBER F_GGCONS 1 
BEGIN
  PROMPT 2 9 "Giorno Consegna"
  FIELD GGCONS
  KEY 1
  CHECKTYPE REQUIRED
END


STRING F_CODITI 3 
BEGIN
  PROMPT 22 9 "Cod.Itinerario"
  FIELD CODITI
  FLAGS "U"
  KEY 1
  USE &ITI SELECT COD="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 42 9 ""
  FLAGS "D"
END

GROUPBOX DLG_NULL 80 6
BEGIN
  PROMPT 1 12 "@b Dettaglio"
END

STRING F_CODFRQCONS 2
BEGIN
  PROMPT 2 14 "Frequenza Consegne"
  FIELD CODFRQCONS
  FLAGS "U"
  USE &FRQ SELECT COD="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 14 ""
  FLAGS "D"
END


STRING F_MODPASS 1
BEGIN
  PROMPT 2 15 "Modalit<69> Passaggio"
  FLAGS "U"
  FIELD MODPASS
  
  USE &MPS SELECT COD="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 15 ""
  FLAGS "D" 
END

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

BOOLEAN F_FLAGSTAG
BEGIN
  PROMPT 30 16 "Stagionalit<69>"
  FIELD FLAGSTAG
END


NUMBER F_ORAARR 4
BEGIN
  PROMPT 47 16 "Ora di arrivo"
  FIELD ORAARR
END

GROUPBOX DLG_NULL 80 3
BEGIN
  PROMPT 1 19 "@b Dati Aggiornamento"
END

DATE F_DATAAGG
BEGIN
  PROMPT 2 20 "Data Agg."
  FLAGS "ADP"
  FIELD DATAAGG
END

NUMBER F_ORAAGG 4
BEGIN
  PROMPT 25 20 "Ora Agg."
  FIELD ORAARR
  FLAGS "D"
END

STRING F_USERAGG 16
BEGIN
   PROMPT 40 20 "Utente Agg."
   FLAGS "D"
   FIELD USERAGG
END


ENDPAGE
ENDMASK