campo-sirio/ve/ve2200c.uml

#include "ve2200x.h"

PAGE "Copia" -1 -1 70 12

GROUPBOX DLG_NULL -1 6
BEGIN
  PROMPT 2 0 "@BCondizioni di vendita d'origine"
  FLAGS "R"
END  

LIST F_TIPO 1 10
BEGIN
  PROMPT 100 100 ""
  FLAGS "DUPG"
  ITEM "L|Listini"
  MESSAGE SHOW,1@|HIDE,2@|HIDE,3@
  ITEM "C|Contratti"
  MESSAGE SHOW,2@|HIDE,1@|HIDE,3@
  ITEM "O|Offerte"
  MESSAGE SHOW,3@|HIDE,1@|HIDE,2@
END



/////////////// LISTINI ///////////////// (GROUP 1)

// campo riservato ai listini
STRING F_L_CATVEN 2
BEGIN
  GROUP 1
  PROMPT 3 1 "Cat. vendita  "
  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 FORCED
END 

// campo riservato ai listini
STRING F_L_DESVEN 40
BEGIN
  GROUP 1
  PROMPT 24 1 ""
  FLAGS "D"
END


// codice del nuovo listino (e parametri relativi)
STRING F_L_COD 3
BEGIN
  GROUP 1
  PROMPT 3 2 "Cod. listino  "
  FLAGS "U"
  GROUP 10
  USE LF_CONDV 
  INPUT TIPO F_TIPO SELECT
  INPUT CATVEN F_L_CATVEN SELECT
  INPUT COD F_L_COD
  DISPLAY "C.V." CATVEN
  DISPLAY "Codice" COD
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Valuta" CODVAL
  DISPLAY "Fine validita'" VALFIN
  OUTPUT F_TIPO TIPO
  OUTPUT F_L_CATVEN CATVEN
  OUTPUT F_L_COD COD
  OUTPUT F_DESCR DESCR
  CHECKTYPE NORMAL	//puo' essere vuoto quando si copia dalla anagrafica
END


////////////// CONTRATTI /////////////////// (GROUP 2)

// campo riservato ai contratti
LIST F_C_TIPOCF 10
BEGIN
  GROUP 2
  PROMPT 3 1 "Tipo    "
  FLAGS "D"
  ITEM "C|Cliente"
  ITEM "F|Fornitore"
END

// campo riservato ai contratti
STRING F_C_CODCF 6
BEGIN
  GROUP 2
  PROMPT 3 2 "Codice  "
  FLAGS "U"
  USE LF_CLIFO
  INPUT TIPOCF F_C_TIPOCF SELECT
  INPUT CODCF F_C_CODCF
  DISPLAY "C/F" TIPOCF
  DISPLAY "Codice" CODCF
  DISPLAY "Ragione sociale@50" RAGSOC
  OUTPUT F_C_TIPOCF TIPOCF
  OUTPUT F_C_CODCF CODCF
  OUTPUT F_C_DESCF RAGSOC
  CHECKTYPE REQUIRED
END

// campo riservato ai contratti
STRING F_C_DESCF 80 43
BEGIN
  GROUP 2
  PROMPT 24 2 ""
  FLAGS "D"
END

// campo riservato ai contratti
STRING F_C_COD 3
BEGIN
  GROUP 2
  PROMPT 3 3 "Contratto N.  "
  FLAGS "U"
  GROUP 10
  USE LF_CONDV  
  INPUT TIPO F_TIPO SELECT
  INPUT TIPOCF F_C_TIPOCF SELECT
  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_TIPOCF TIPOCF
  OUTPUT F_C_CODCF CODCF
  OUTPUT F_C_COD COD
  OUTPUT F_DESCR DESCR
  CHECKTYPE REQUIRED
END


/////////// OFFERTE ///////////////// (GROUP 3)
 
// campo riservato alle offerte
STRING F_O_COD 3
BEGIN
  GROUP 3
  PROMPT 3 1 "Cod. offerta "
  FLAGS "U"
  GROUP 10
  USE LF_CONDV
  INPUT TIPO F_TIPO SELECT
  INPUT COD F_O_COD
  DISPLAY "Codice" COD
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_TIPO TIPO
  OUTPUT F_O_COD COD
  OUTPUT F_DESCR DESCR
  CHECKTYPE REQUIRED
END


////////////// COMUNI //////////////

// campo descrizione comune
STRING F_DESCR 50
BEGIN
  PROMPT 3 4 "Descrizione   "
  FLAGS "D"
END
 
////////////// BOTTONI /////////////

//boolean di abilitazione all'overwrite su copia
BOOLEAN F_OVERWRITE
BEGIN
  PROMPT 2 6 "Sovrascrivere record gia' presenti in caso di copia"
END

STRING F_PERC 70
BEGIN
	PROMPT 2 7 "Percentuale di aumento "
	FLAGS  "U"
END

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

STRING F_TOCOD 20
BEGIN
  PROMPT 2 9 "Da Codice articolo     "
  USE LF_ANAMAG
  INPUT CODART F_TOCOD
  DISPLAY "Articolo@20" CODART
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_TOCOD CODART
  CHECKTYPE SEARCH
	FLAGS "U"
	ADD RUN ve2 -3
END

BUTTON DLG_OK 10 2
BEGIN
  PROMPT -12 -1 ""
END
 
BUTTON DLG_CANCEL 10 2
BEGIN
  PROMPT -22 -1 ""
END

ENDPAGE

ENDMASK