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

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

STRING F_COD 3
BEGIN
  PROMPT 2 9 "Listino    "
  FLAGS "U"
  KEY 1
  USE LF_CONDV 
  INPUT TIPO "L"
  INPUT CATVEN F_CATVEN SELECT
  INPUT COD F_COD
  DISPLAY "C.V." CATVEN
  DISPLAY "Codice" COD
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Valuta" CODVAL
  DISPLAY "Fine validita'" VALFIN
  OUTPUT F_CATVEN CATVEN
  OUTPUT F_COD COD
  OUTPUT F_DESCR DESCR
  CHECKTYPE REQUIRED
  GROUP 1
END

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

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

BOOLEAN F_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 F_DACODART 20
BEGIN
  PROMPT 2 8 "Da articolo "
  FLAGS "U"
  USE LF_ANAMAG
  INPUT CODART F_DACODART
  DISPLAY "Articolo@20" CODART
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_DACODART CODART
  OUTPUT F_DADESART DESCR
  CHECKTYPE NORMAL
  ADD RUN ve2 -3
  GROUP 2
END

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

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

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

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

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

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

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

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


ENDPAGE

ENDMASK