//maschera per i 'C'ontratti (parte iniziale)

#include "ve2500a.h"

TOOLBAR "Toolbar" 0 0 0 2

#include <filebar.h>

BUTTON DLG_CREA 2 2
BEGIN
  PROMPT 10 -1 "Cr~ea"
  PICTURE TOOL_IMPORT
END

BUTTON DLG_COMPATTA 2 2
BEGIN
  PROMPT 11 -1 "Co~mpatta"
  PICTURE TOOL_PACK
END

#include <cancelbar.h>

ENDPAGE

PAGE "Dati generali e Righe" 0 2 0 0

LIST FA_TIPO 1 9
BEGIN
  PROMPT 100 100 ""
  ITEM "C|Contratto"
  FLAGS "D"
  FIELD TIPO
  KEY 1 2
END

GROUPBOX DLG_NULL 78 5
BEGIN
  PROMPT 0 0 "@bDati Contratto"
END

LIST FA_C_TIPOCF 1 10
BEGIN
  PROMPT 1 1 "Cli./Forn."
  FIELD TIPOCF
  KEY 1
  ITEM "C|Cliente"
  ITEM "F|Fornitore"
END

STRING FA_C_CODCF 6
BEGIN
  PROMPT 25 1 ""
  FIELD CODCF
  FLAGS "U"
  KEY 1
  USE LF_CLIFO
  INPUT TIPOCF FA_C_TIPOCF SELECT
  INPUT CODCF FA_C_CODCF
  DISPLAY "C/F" TIPOCF
  DISPLAY "Codice" CODCF
  DISPLAY "Ragione sociale@50" RAGSOC
  OUTPUT FA_C_TIPOCF TIPOCF
  OUTPUT FA_C_CODCF CODCF
  OUTPUT FA_C_DESCF RAGSOC
  CHECKTYPE FORCED
END

STRING FA_C_DESCF 50 41
BEGIN
  PROMPT 35 1 ""
  USE LF_CLIFO KEY 2
  INPUT TIPOCF FA_C_TIPOCF SELECT
  INPUT RAGSOC FA_C_DESCF
  DISPLAY "Ragione sociale@50" RAGSOC
  DISPLAY "Codice@R" CODCF
  COPY OUTPUT FA_C_CODCF
  CHECKTYPE NORMAL
END

STRING FA_COD 3
BEGIN
  PROMPT 1 2 "Contratto "
  FIELD COD
  FLAGS "U"
  KEY 1
  USE LF_CONDV 
  INPUT TIPO "C"
  INPUT TIPOCF FA_C_TIPOCF SELECT
  INPUT CODCF FA_C_CODCF SELECT
  INPUT COD FA_COD
  DISPLAY "CF" TIPOCF
  DISPLAY "Cod.CF" CODCF
  DISPLAY "Codice" COD
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Valuta" CODVAL
  DISPLAY "Fine validita'" VALFIN
  OUTPUT FA_C_TIPOCF TIPOCF
  OUTPUT FA_C_CODCF CODCF
  OUTPUT FA_COD COD
  OUTPUT FA_DESCR DESCR
  CHECKTYPE REQUIRED
END

STRING FA_DESCR 50
BEGIN
  PROMPT 18 2 ""
  FIELD DESCR
  KEY 2
  USE LF_CONDV KEY 2
  INPUT TIPO "C"
  INPUT DESCR FA_DESCR
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "CF" TIPOCF
  DISPLAY "Cod.CF" CODCF
  DISPLAY "Codice" COD
  DISPLAY "Valuta" CODVAL
  DISPLAY "Fine validita'" VALFIN
  COPY OUTPUT FA_COD
  CHECKTYPE REQUIRED
END

BOOLEAN FA_C_OBBL
BEGIN
  PROMPT 62 3 "Obbligatorio"
  FIELD OBBLIG
END

TEXT -1
BEGIN
  PROMPT 0 6 "@bRighe contratto"
END

//stringa farlocca per poter usare le maschere strutturate con pił .uml
STRING FA_L_CATVEN 2
BEGIN
  PROMPT 0 100 ""
  FLAGS "HD"
END

#include "ve2500ax.uml"

//aggiungere qui i campi specifici dei contratti in pag.2

ENDPAGE

ENDMASK

#include "ve2500as.uml"