#include "ve2500b.h"

TOOLBAR "Toolbar" 0 0 0 2

#include <stdbar.h>

ENDPAGE

PAGE "Creazione nuovo contratto" 0 2 0 0

RADIOBUTTON FB_SELECT 76
BEGIN
  PROMPT 1 1 "@bTipologia di generazione"
  ITEM "1|Copia da contratto esistente"
  MESSAGE HIDE,2@|SHOW,1@
  ITEM "2|Anagrafica articoli"
  MESSAGE HIDE,1@|SHOW,2@
END

//Copia contratto esistente
//-----------------------------------------------
GROUPBOX DLG_NULL 76 5
BEGIN
  PROMPT 1 7 "@bDati contratto origine"
  GROUP 1
END

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

STRING FB_C_CODCF 6
BEGIN
  PROMPT 25 8 ""
  FIELD CODCF
  FLAGS "U"
  KEY 1
  USE LF_CLIFO
  INPUT TIPOCF FB_C_TIPOCF SELECT
  INPUT CODCF FB_C_CODCF
  DISPLAY "C/F" TIPOCF
  DISPLAY "Codice" CODCF
  DISPLAY "Ragione sociale@50" RAGSOC
  OUTPUT FB_C_TIPOCF TIPOCF
  OUTPUT FB_C_CODCF CODCF
  OUTPUT FB_C_DESCF RAGSOC
  CHECKTYPE FORCED
  GROUP 1
END

STRING FB_C_DESCF 50 41
BEGIN
  PROMPT 35 8 ""
  FLAGS "D"
  GROUP 1
END

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


STRING FB_COD 3
BEGIN
  PROMPT 2 9 "Contratto "
  FLAGS "U"
  KEY 1
  USE LF_CONDV 
  INPUT TIPO "C"
  INPUT TIPOCF FB_C_TIPOCF SELECT
  INPUT CODCF FB_C_CODCF SELECT
  INPUT COD FB_COD
  DISPLAY "C/F" TIPOCF
  DISPLAY "Cod.CF" CODCF
  DISPLAY "Codice" COD
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Valuta" CODVAL
  DISPLAY "Fine validita'" VALFIN
  OUTPUT FB_C_TIPOCF TIPOCF
  OUTPUT FB_C_CODCF CODCF
  OUTPUT FB_COD COD
  OUTPUT FB_DESCR DESCR
  CHECKTYPE REQUIRED
  GROUP 1
END

STRING FB_DESCR 50
BEGIN
  PROMPT 21 9 ""
  GROUP 1
END

NUMBER FB_RICARICO 6 2
BEGIN
  PROMPT 2 10 "Ricarico  "
  GROUP 1
END

BOOLEAN FB_COPIATESTA
BEGIN
  PROMPT 21 10 "Copia tutti i dati di testata"
  GROUP 1
END

#include "ve2500bx.uml"

ENDMASK