#include "ve2500b.h"

TOOLBAR "Toolbar" 0 0 0 2

#include <stdbar.h>

ENDPAGE

PAGE "Creazione nuovo listino" 0 2 0 0

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

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

STRING FB_L_CATVEN 2
BEGIN
  PROMPT 2 8 "Cat. vend. "
  FIELD CATVEN
  FLAGS "U"
  KEY 1
  USE CVE
  INPUT CODTAB FB_L_CATVEN
  DISPLAY "Cat." CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT FB_L_CATVEN CODTAB
  OUTPUT FB_L_DESVEN S0
  CHECKTYPE FORCED
  GROUP 1
END

STRING FB_L_DESVEN 50
BEGIN
  PROMPT 21 8 ""
  USE CVE KEY 2
  INPUT S0 FB_L_DESVEN
  DISPLAY "Descrizione@50" S0
  DISPLAY "Cat." CODTAB
  COPY OUTPUT FB_L_CATVEN
  CHECKTYPE NORMAL
  GROUP 1
END

STRING FB_COD 3
BEGIN
  PROMPT 2 9 "Listino    "
  FLAGS "U"
  KEY 1
  USE LF_CONDV 
  INPUT TIPO "L"
  INPUT CATVEN FB_L_CATVEN SELECT
  INPUT COD FB_COD
  DISPLAY "C.V." CATVEN
  DISPLAY "Codice" COD
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Valuta" CODVAL
  DISPLAY "Fine validita'" VALFIN
  OUTPUT FB_L_CATVEN CATVEN
  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