campo-sirio/lv/lv0600a.uml

# include <lv0600a.h>
 
TOOLBAR "" 0 0 0 2
# include <Relapbar.h>
ENDPAGE

PAGE "Periodi di Sospensione" 0 2 0 0

GROUPBOX DLG_NULL 85 3
BEGIN
  PROMPT 1 0 "@bDitta"
END

NUMBER F_COD_DITTA 5
BEGIN
  PROMPT 2 1 "Codice          "
  FLAGS "FD"
  USE LF_NDITTE
  CHECKTYPE NORMAL
  INPUT CODDITTA F_COD_DITTA
  OUTPUT F_RAGSOC_DITTA RAGSOC
END

STRING F_RAGSOC_DITTA 50
BEGIN
  PROMPT 30 1 ""
  FLAGS "D"
END

GROUPBOX DLG_NULL 85 5
BEGIN
	PROMPT 1 3 "@b Periodi di Sospensione"
END

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

STRING F_RAGSOC_CLI 50
BEGIN
  PROMPT 30 4 ""
  FLAGS "D"
END

NUMBER F_COD_CONT 8 0
BEGIN
  PROMPT 2 5 "Codice Contratto"
  FLAGS "BU"
  FIELD CODCONT
  KEY 1
  
  CHECKTYPE REQUIRED
END

NUMBER F_COD_PER 6 0
BEGIN
  PROMPT 2 6 "Codice Periodo  "
  FIELD CODPER
  KEY 1
  
  USE LVPERISOSP KEY 1
  JOIN LF_CLIFO TO LVPERISOSP INTO TIPOCF="C" CODCF=CODCF 
  INPUT CODPER F_COD_PER 
  DISPLAY "ID @17" CODPER
  DISPLAY "CONTRATTO" CODCONT
  DISPLAY "CLIENTE" CODCF
  DISPLAY "Ragione Sociale@50" LF_CLIFO->RAGSOC
  OUTPUT F_COD_PER CODPER
  OUTPUT F_COD_CF CODCF
  OUTPUT F_COD_CONT CODCONT
    
  CHECKTYPE REQUIRED
END

STRING F_DES_CONT 50
BEGIN
  PROMPT 30 6 ""
  FLAGS "D"
END


GROUPBOX DLG_NULL 85 10
BEGIN
  PROMPT 1 8 "@b Dati di Sospensione"
END

DATE F_DATA_INI 
BEGIN
  PROMPT 2 9 "Data Inizio     "
  FIELD DATAINI
  
END

DATE F_DATA_FIN
BEGIN
  PROMPT 55 9 "Data Fine  "
  FIELD DATAFIN
END

STRING F_TP_SOSP 2
BEGIN
  PROMPT 2 10 "Tipo Sospensione"
  FIELD TPSOSP
  
  USE &TSP 
  INPUT CODTAB F_COD_TP_SOSP
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@35" S0
  OUTPUT F_TP_SOSP CODTAB
  OUTPUT F_DES_TP_SOSP S0

END

STRING F_DES_TP_SOSP 35
BEGIN
  PROMPT 30 10 ""
  FLAGS "D" 
END

BOOLEAN F_FL_FATT 
BEGIN
  PROMPT 2 11 "Fatturare"
  FIELD FLFATT
END

NUMBER F_IMP_FATT 18
BEGIN
  PROMPT 20 11 "Importo   "
  FIELD IMPFATT
END

NUMBER F_PERC_FATT 18
BEGIN
  PROMPT 55 11 "Percentuale"
  FIELD PERCFATT
END

MEMO F_NOTE 83 -7
BEGIN 
  PROMPT 2 12 "Note"
  FIELD NOTE
END

GROUPBOX DLG_NULL 85 4
BEGIN
  PROMPT 1 18 "@b Gestione Dati Ins.\Agg."
END

STRING F_UT_CREAZ 16
BEGIN
  PROMPT 2 19 "Utente Ins."
  FLAGS "D"
  FIELD UTCREAZ
END

DATE F_DT_CREAZ
BEGIN
  PROMPT 40 19 "Data Ins."
  FLAGS "D"
  FIELD DTCREAZ
END

NUMBER F_OR_CREAZ 4
BEGIN
  PROMPT 70 19 "Ora Ins."
  FLAGS "D"
  FIELD ORCREAZ
END

STRING F_UT_UL_AGG 16
BEGIN
  PROMPT 2 20 "Utente Agg."
  FLAGS "D"
  FIELD UTULAGG
END

DATE F_DT_UL_AGG
BEGIN
  PROMPT 40 20 "Data Agg."
  FLAGS "D"
  FIELD DTULAGG
END

NUMBER F_OR_UL_AGG 4
BEGIN
  PROMPT 70 20 "Ora Agg."
  FLAGS "D"
  FIELD ORULAGG
END

ENDPAGE

ENDMASK