campo-sirio/ve/ve3500a.uml

#include "ve3500a.h"

TOOLBAR "Topbar" 0 0 0 2

BUTTON DLG_PREVIEW 2 2
BEGIN
  PROMPT 1 1 "~Anteprima"
  PICTURE TOOL_PREVIEW
END

#include <printbar.h>

ENDPAGE

PAGE "Stampa condizioni di vendita" 0 2 0 0

RADIOBUTTON F_TIPO 12
BEGIN
  PROMPT 1 40 "Tipo stampa"
  ITEM "C|Contratti"
  MESSAGE HIDE,1@|RESET,1@|HIDE,3@|RESET,3@|SHOW,2@
  ITEM "L|Listini"
  MESSAGE HIDE,2@|RESET,2@|HIDE,3@|RESET,3@|SHOW,1@
  ITEM "O|Offerte"
  MESSAGE HIDE,1@|RESET,1@|HIDE,2@|RESET,2@|SHOW,3@
  FLAGS "HG"
END

GROUPBOX DLG_NULL 78 6
BEGIN
  PROMPT 0 1 "@bDati listino"
  GROUP 1
END

GROUPBOX DLG_NULL 78 6
BEGIN
  PROMPT 0 1 "@bDati contratto"
  GROUP 2
END

GROUPBOX DLG_NULL 78 6
BEGIN
  PROMPT 0 1 "@bDati offerta"
  GROUP 3
END

TEXT DLG_NULL
BEGIN
  PROMPT 1 2 "Categoria vendita"
  GROUP 1
END

STRING F_L_CATVEN 2
BEGIN
  PROMPT 1 3 ""
  FLAGS "U"
  USE CVE
  INPUT CODTAB F_L_CATVEN
  DISPLAY "Cat." CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_L_CATVEN CODTAB
  OUTPUT F_L_DESVEN S0
  CHECKTYPE REQUIRED
  GROUP 1
  FIELD #CATVEN
END

STRING F_L_DESVEN 50
BEGIN
  PROMPT 8 3 ""
  USE CVE KEY 2
  INPUT S0 F_L_DESVEN
  DISPLAY "Descrizione@50" S0
  DISPLAY "Cat." CODTAB
  COPY OUTPUT F_L_CATVEN
  CHECKTYPE NORMAL
  GROUP 1
  FIELD #DESVEN
END

TEXT DLG_NULL
BEGIN
  PROMPT 1 2 "Cliente/Fornitore"
  GROUP 2
END

LIST F_C_TIPOCF 1 12
BEGIN
  PROMPT 1 3 ""
  ITEM "C|Cliente"
  ITEM "F|Fornitore"
  GROUP 2
  FIELD #TIPOCF
END

NUMBER F_C_CODCF 6
BEGIN
  PROMPT 17 3 ""
  FLAGS "GR"
  USE LF_CLIFO
  INPUT TIPOCF F_C_TIPOCF
  INPUT CODCF F_C_CODCF
  DISPLAY "C/F" TIPOCF
  DISPLAY "Codice" CODCF
  DISPLAY "Ragione sociale@50" RAGSOC
  OUTPUT F_C_CODCF CODCF
  OUTPUT F_C_RAGSOC RAGSOC
  CHECKTYPE REQUIRED
  GROUP 2
  FIELD #CODCF
END

STRING F_C_RAGSOC 50 47
BEGIN
  PROMPT 27 3 ""
  USE LF_CLIFO KEY 2
  INPUT TIPOCF F_C_TIPOCF
  INPUT RAGSOC F_C_RAGSOC
  DISPLAY "C/F" TIPOCF
  DISPLAY "Ragione sociale@50" RAGSOC
  DISPLAY "Codice" CODCF
  COPY OUTPUT F_C_CODCF
  CHECKTYPE NORMAL
  GROUP 2
END

TEXT DLG_NULL
BEGIN
  PROMPT 1 4 "Listino"
  GROUP 1
END

STRING F_L_COD 3
BEGIN
  PROMPT 1 5 ""
  FLAG "U"
  USE LF_CONDV
  INPUT TIPO F_TIPO SELECT
  INPUT CATVEN F_L_CATVEN
  INPUT COD F_L_COD
  DISPLAY "C.V." CATVEN
  DISPLAY "Codice" COD
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_L_CATVEN CATVEN
  OUTPUT F_L_COD COD
  OUTPUT F_COD COD
  OUTPUT F_DESCR DESCR
  CHECKTYPE REQUIRED
  GROUP 1
  ADD RUN ve2 -4
END

TEXT DLG_NULL
BEGIN
  PROMPT 1 4 "Contratto"
  GROUP 2
END

STRING F_C_COD 3
BEGIN
  PROMPT 1 5 ""
  FLAGS "U"
  USE LF_CONDV
  INPUT TIPO F_TIPO SELECT
  INPUT TIPOCF F_C_TIPOCF
  INPUT CODCF F_C_CODCF
  INPUT COD F_C_COD
  DISPLAY "C/F" TIPOCF
  DISPLAY "Codice" CODCF
  DISPLAY "Numero" COD
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_TIPO TIPO
  OUTPUT F_C_CODCF CODCF
  OUTPUT F_C_COD COD
  OUTPUT F_COD COD
  OUTPUT F_DESCR DESCR
  CHECKTYPE REQUIRED
  GROUP 2
END

TEXT DLG_NULL
BEGIN
  PROMPT 1 4 "Offerta"
  GROUP 3
END

STRING F_O_COD 3
BEGIN
  PROMPT 1 5 ""
  FLAG "U"
  USE LF_CONDV
  INPUT TIPO F_TIPO SELECT
  INPUT COD F_O_COD
  DISPLAY "Codice" COD
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_O_COD COD
  OUTPUT F_COD COD
  OUTPUT F_DESCR DESCR
  CHECKTYPE NORMAL
  GROUP 3
END

STRING F_COD 3	//<2F> il codice condv che viene riempito e tenuto nascosto (usato dal programma)
BEGIN
  PROMPT 1 8 ""
  FLAG "HUG"
  FIELD #COD
END

STRING F_DESCR 50
BEGIN
  PROMPT 8 5 ""
  FLAGS "D"
  FIELD #DESCR
END

GROUPBOX DLG_NULL 78 8
BEGIN
  PROMPT 0 7 "@bFiltri"
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
  FIELD #DACODART
END

STRING F_DADESART 50 33
BEGIN
  PROMPT 41 8 ""
  USE LF_ANAMAG KEY 2
  INPUT DESCR F_DADESART
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Articolo@20" CODART
  COPY OUTPUT F_DACODART
  CHECKTYPE NORMAL
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
  FIELD #ACODART
END

STRING F_ADESART 50 33
BEGIN
  PROMPT 41 9 ""
  USE LF_ANAMAG KEY 2
  INPUT DESCR F_ADESART
  COPY DISPLAY F_DADESART
  COPY OUTPUT F_ACODART
  CHECKTYPE NORMAL
END

STRING F_DAGRMERC 3
BEGIN
  PROMPT 2 10 "Da Gr. merc.   "
  FLAGS "U"
  USE GMC SELECT CODTAB[4,5] == ""
  INPUT CODTAB[1,3] F_DAGRMERC
  DISPLAY "Gruppo" CODTAB[1,3]
  DISPLAY "Descrizione@50" S0
  OUTPUT F_DAGRMERC CODTAB[1,3]
  OUTPUT F_DADESGRMERC S0
  CHECKTYPE NORMAL
  FIELD #DAGRMERC
END

STRING F_DASOTGRMERC 2
BEGIN
  PROMPT 24 10 ""
  FLAGS "U"
  USE GMC 
  COPY INPUT F_DAGRMERC
  INPUT CODTAB[4,5] F_DASOTGRMERC
  DISPLAY "Gruppo" CODTAB[1,3]
  DISPLAY "Sottogruppo" CODTAB[4,5]
  DISPLAY "Descrizione@50" S0
  COPY OUTPUT F_DAGRMERC
  OUTPUT F_DASOTGRMERC CODTAB[4,5]
  CHECKTYPE NORMAL
  FIELD #DASOTGRMERC
END

STRING F_DADESGRMERC 50 44
BEGIN
  PROMPT 30 10 ""
  USE GMC KEY 2
  INPUT S0 F_DADESGRMERC
  DISPLAY "Descrizione@50" S0
  DISPLAY "Gruppo" CODTAB[1,3]
  DISPLAY "Sottogruppo" CODTAB[4,5]
  COPY OUTPUT F_DASOTGRMERC
  CHECKTYPE NORMAL
END

STRING F_AGRMERC 3
BEGIN
  PROMPT 2 11 "A Gr. merc.    "
  FLAGS "U"
  USE GMC SELECT CODTAB[4,5] == ""
  INPUT CODTAB[1,3] F_AGRMERC
  DISPLAY "Gruppo" CODTAB[1,3]
  DISPLAY "Descrizione@50" S0
  OUTPUT F_AGRMERC CODTAB[1,3]
  OUTPUT F_ADESGRMERC S0
  CHECKTYPE NORMAL
  FIELD #AGRMERC
END

STRING F_ASOTGRMERC 2
BEGIN
  PROMPT 24 11 ""
  FLAGS "U"
  USE GMC 
  COPY INPUT F_AGRMERC
  INPUT CODTAB[4,5] F_ASOTGRMERC
  DISPLAY "Gruppo" CODTAB[1,3]
  DISPLAY "Sottogruppo" CODTAB[4,5]
  DISPLAY "Descrizione@50" S0
  COPY OUTPUT F_AGRMERC
  OUTPUT F_ASOTGRMERC CODTAB[4,5]
  CHECKTYPE NORMAL
  FIELD #ASOTGRMERC
END

STRING F_ADESGRMERC 50 44
BEGIN
  PROMPT 30 11 ""
  USE GMC KEY 2
  INPUT S0 F_ADESGRMERC
  DISPLAY "Descrizione@50" S0
  DISPLAY "Gruppo" CODTAB[1,3]
  DISPLAY "Sottogruppo" CODTAB[4,5]
  COPY OUTPUT F_ASOTGRMERC
  CHECKTYPE NORMAL
END

STRING F_DARAGFIS 5
BEGIN
  PROMPT 2 12 "Da Raggr. fis. "
  FLAGS "U"
  USE RFA
  INPUT CODTAB F_DARAGFIS
  DISPLAY "Ragg. fisc." CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_DARAGFIS CODTAB
  OUTPUT F_DADESRAGFIS S0
  CHECKTYPE NORMAL
  FIELD #DARAGFIS
END

STRING F_DADESRAGFIS 50 48
BEGIN
  PROMPT 26 12 ""
  USE RFA KEY 2
  INPUT S0 F_DADESRAGFIS
  DISPLAY "Descrizione@50" S0
  DISPLAY "Ragg. fisc." CODTAB
  COPY OUTPUT F_DARAGFIS
  CHECKTYPE NORMAL
END

STRING F_ARAGFIS 5
BEGIN
  PROMPT 2 13 "A Raggr. fis.  "
  FLAGS "U"
  USE RFA
  INPUT CODTAB F_ARAGFIS
  DISPLAY "Ragg. fisc." CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_ARAGFIS CODTAB
  OUTPUT F_ADESRAGFIS S0
  CHECKTYPE NORMAL
  FIELD #ARAGFIS
END

STRING F_ADESRAGFIS 50 48
BEGIN
  PROMPT 26 13 ""
  USE RFA KEY 2
  INPUT S0 F_ADESRAGFIS
  DISPLAY "Descrizione@50" S0
  DISPLAY "Ragg. fisc." CODTAB
  COPY OUTPUT F_ARAGFIS
  CHECKTYPE NORMAL
END

STRING F_REPORT 50
BEGIN
  PROMPT 2 18 "Report personalizzato "
  RSELECT ""
  CHECKTYPE NORMAL
END

ENDPAGE

ENDMASK