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_ID_PERI_SOSP 17
BEGIN
  PROMPT 2 4 "ID Periodo      "
  FIELD IDPERISOSP
  KEY 1
  
  USE LVPERISOSP KEY 1
  JOIN LF_CLIFO TO LVPERISOSP INTO TIPOCF=TIPOCF CODCF=CODCF 
  INPUT IDPERISOSP F_ID_PERI_SOSP 
  DISPLAY "ID @17" IDPERISOSP
  DISPLAY "CONTRATTO" ID CONTR
  DISPLAY "CLIENTE" CODCF
  DISPLAY "Ragione Sociale@50" LF_CLIFO->RAGSOC
  OUTPUT F_ID_PERI_SOSP IDPERISOSP
  OUTPUT F_COD_CF CODCF
  OUTPUT F_ID_CONTR IDCONTR
    
  CHECKTYPE REQUIRED
END

LIST F_TIPO_CF 1
BEGIN
  ITEM "C|C"
  FLAGS "H"
END

NUMBER F_COD_CF 6
BEGIN
  PROMPT 2 5 "Codice          " 
  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 5 ""
  FLAGS "D"
END

STRING F_ID_CONTR 3
BEGIN
  PROMPT 2 6 "Contratto N.    "
  FLAGS "BU"
  FIELD IDCONTR
  KEY 1
  
  CHECKTYPE REQUIRED
END

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


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

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

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

STRING F_COD_TIPO_SOSP 2
BEGIN
  PROMPT 2 10 "Tipo Sospensione"
  FIELD CODTIPSOSP
  
  USE &TSP SELECT COD = "TSP"
  INPUT CODTAB F_COD_TIPO_SOSP
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@35" S0
  OUTPUT F_COD_TIPO_SOSP CODTAB
  OUTPUT F_DES_TIPO_SOSP S0

END

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

BOOLEAN F_FLAG_FATT 
BEGIN
  PROMPT 2 11 "Fatturare"
  FIELD FLAGFATT
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 -2
BEGIN 
  PROMPT 2 11 ""
  FIELD NOTE
END

GROUPBOX DLG_NULL 85 3
BEGIN
  PROMPT 1 21 ""
END

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

NUMBER F_ORAAGG 4
BEGIN
  PROMPT 25 22 "Ora Agg."
  FIELD ORAAGG
  FLAGS "D"
END

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

ENDPAGE

ENDMASK