campo-sirio/ve/ve2500b.uml

#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_CATVEN 2
BEGIN
  PROMPT 2 8 "Cat. vend. "
  FIELD CATVEN
  FLAGS "U"
  KEY 1
  USE CVE
  INPUT CODTAB FB_CATVEN
  DISPLAY "Cat." CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT FB_CATVEN CODTAB
  OUTPUT FB_DESVEN S0
  CHECKTYPE FORCED
  GROUP 1
END

STRING FB_DESVEN 50
BEGIN
  PROMPT 21 8 ""
  USE CVE KEY 2
  INPUT S0 FB_DESVEN
  DISPLAY "Descrizione@50" S0
  DISPLAY "Cat." CODTAB
  COPY OUTPUT FB_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_CATVEN
  INPUT COD FB_COD
  DISPLAY "C.V." CATVEN
  DISPLAY "Codice" COD
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Valuta" CODVAL
  DISPLAY "Fine validita'" VALFIN
  OUTPUT FB_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

//Generazione da anagrafica articoli
//-----------------------------------------------
GROUPBOX DLG_NULL 76 6
BEGIN
  PROMPT 1 7 "@bAnagrafica articoli"
  GROUP 2
END

STRING FB_DACODART 20
BEGIN
  PROMPT 2 8 "Da articolo "
  FLAGS "U"
  USE LF_ANAMAG
  INPUT CODART FB_DACODART
  DISPLAY "Articolo@20" CODART
  DISPLAY "Descrizione@50" DESCR
  OUTPUT FB_DACODART CODART
  OUTPUT FB_DADESART DESCR
  CHECKTYPE NORMAL
  ADD RUN ve2 -3
  GROUP 2
END

STRING FB_DADESART 50 35
BEGIN
  PROMPT 38 8 ""
  USE LF_ANAMAG KEY 2
  INPUT DESCR FB_DADESART
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Articolo@20" CODART
  COPY OUTPUT FB_DACODART
  CHECKTYPE NORMAL
  ADD RUN ve2 -3
  GROUP 2
END

STRING FB_ACODART 20
BEGIN
  PROMPT 2 9 "A articolo  "
  FLAGS "U"
  USE LF_ANAMAG
  INPUT CODART FB_ACODART
  COPY DISPLAY FB_DACODART
  OUTPUT FB_ACODART CODART
  OUTPUT FB_ADESART DESCR
  CHECKTYPE NORMAL
  ADD RUN ve2 -3
  GROUP 2
END

STRING FB_ADESART 50 35
BEGIN
  PROMPT 38 9 ""
  USE LF_ANAMAG KEY 2
  INPUT DESCR FB_ADESART
  COPY DISPLAY FB_DADESART
  COPY OUTPUT FB_ACODART
  CHECKTYPE NORMAL
  ADD RUN ve2 -3
  GROUP 2
END

STRING FB_GRMERC 3
BEGIN
  PROMPT 2 10 "Gr. merc.   "
  FLAGS "U"
  USE GMC SELECT CODTAB[4,5] == ""
  INPUT CODTAB[1,3] FB_GRMERC
  DISPLAY "Gruppo" CODTAB[1,3]
  DISPLAY "Descrizione@50" S0
  OUTPUT FB_GRMERC CODTAB[1,3]
  OUTPUT FB_DESGRMERC S0
  CHECKTYPE NORMAL
  GROUP 2
END

STRING FB_SOTGRMERC 2
BEGIN
  PROMPT 20 10 ""
  FLAGS "U"
  USE GMC 
  COPY INPUT FB_GRMERC
  INPUT CODTAB[4,5] FB_SOTGRMERC
  DISPLAY "Gruppo" CODTAB[1,3]
  DISPLAY "Sottogruppo" CODTAB[4,5]
  DISPLAY "Descrizione@50" S0
  COPY OUTPUT FB_GRMERC
  OUTPUT FB_SOTGRMERC CODTAB[4,5]
  CHECKTYPE NORMAL
  GROUP 2
END

STRING FB_DESGRMERC 50 45
BEGIN
  PROMPT 28 10 ""
  USE GMC KEY 2
  INPUT S0 FB_DESGRMERC
  DISPLAY "Descrizione@50" S0
  DISPLAY "Gruppo" CODTAB[1,3]
  DISPLAY "Sottogruppo" CODTAB[4,5]
  COPY OUTPUT FB_SOTGRMERC
  CHECKTYPE NORMAL
  GROUP 2
END

STRING FB_RAGFIS 5
BEGIN
  PROMPT 2 11 "Raggr. fis. "
  FLAGS "U"
  USE RFA
  INPUT CODTAB FB_RAGFIS
  DISPLAY "Ragg. fisc." CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT FB_RAGFIS CODTAB
  OUTPUT FB_DESRAGFIS S0
  CHECKTYPE NORMAL
  GROUP 2
END

STRING FB_DESRAGFIS 50
BEGIN
  PROMPT 23 11 ""
  USE RFA KEY 2
  INPUT S0 FB_DESRAGFIS
  DISPLAY "Descrizione@50" S0
  DISPLAY "Ragg. fisc." CODTAB
  COPY OUTPUT FB_RAGFIS
  CHECKTYPE NORMAL
  GROUP 2
END


ENDPAGE

ENDMASK