campo-sirio/ve/ve2500al.uml

//maschera per i 'L'istini (parte iniziale)

#include "ve2500a.h"

TOOLBAR "Toolbar" 0 0 0 2

#include <filebar.h>

BUTTON DLG_CREA 2 2
BEGIN
  PROMPT 10 -1 "Cr~ea"
  PICTURE TOOL_IMPORT
END

BUTTON DLG_COMPATTA 2 2
BEGIN
  PROMPT 11 -1 "Co~mpatta"
  PICTURE TOOL_PACK
END

#include <cancelbar.h>

ENDPAGE

PAGE "Dati generali e Righe" 0 2 0 0

LIST FA_TIPO 1 7
BEGIN
  PROMPT 100 100 ""
  ITEM "L|Listino"
  FLAGS "D"
  FIELD TIPO
  KEY 1 2
END

GROUPBOX DLG_NULL 78 5
BEGIN
  PROMPT 0 0 "@bDati Listino"
END

STRING FA_L_CATVEN 2
BEGIN
  PROMPT 1 1 "Cat. ven. "
  FIELD CATVEN
  FLAGS "U"
  KEY 1
  USE CVE
  INPUT CODTAB FA_L_CATVEN
  DISPLAY "Cat." CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT FA_L_CATVEN CODTAB
  OUTPUT FA_L_DESVEN S0
  CHECKTYPE FORCED
END

STRING FA_L_DESVEN 50
BEGIN
  PROMPT 18 1 ""
  USE CVE KEY 2
  INPUT S0 FA_L_DESVEN
  DISPLAY "Descrizione@50" S0
  DISPLAY "Cat." CODTAB
  COPY OUTPUT FA_L_CATVEN
  CHECKTYPE NORMAL
END

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

STRING FA_DESCR 50
BEGIN
  PROMPT 18 2 ""
  FIELD DESCR
  KEY 2
  USE LF_CONDV KEY 2
  INPUT TIPO "L"
  INPUT DESCR FA_DESCR
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "C.V." CATVEN
  DISPLAY "Codice" COD
  DISPLAY "Valuta" CODVAL
  DISPLAY "Fine validita'" VALFIN
  COPY OUTPUT FA_COD
  CHECKTYPE REQUIRED
END

TEXT -1
BEGIN
  PROMPT 0 6 "@bRighe listino"
END


#include "ve2500ax.uml"


GROUPBOX DLG_NULL 78 3
BEGIN
  PROMPT 0 12 "@bListino successivo"
END

STRING FA_L_CODSUCC 3
BEGIN
  PROMPT 1 13 ""
  FIELD CODLISSUCC
  FLAGS "U"
  USE LF_CONDV
  INPUT TIPO "L"
  INPUT CATVEN FA_L_CATVEN SELECT
  INPUT COD FA_L_CODSUCC
  DISPLAY "C.V." CATVEN
  DISPLAY "Codice" COD
  DISPLAY "Descrizione@50" DESCR
  OUTPUT FA_L_CODSUCC COD
  OUTPUT FA_L_DESSUCC DESCR
  CHECKTYPE NORMAL
END

STRING FA_L_DESSUCC 50
BEGIN
  PROMPT 10 13 ""
  USE LF_CONDV KEY 2
  INPUT TIPO "L"
  INPUT DESCR FA_L_DESSUCC
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "C.V." CATVEN
  DISPLAY "Codice" COD
  COPY OUTPUT FA_L_CODSUCC
  CHECKTYPE NORMAL
END

GROUPBOX DLG_NULL 78 5
BEGIN
  PROMPT 0 15 "@bListino padre"
END

STRING FA_L_FATHCATVEN 2
BEGIN
  PROMPT 1 16 "Cat. ven. "
  FIELD FATHCATVEN
  FLAGS "U"
  USE CVE
  INPUT CODTAB FA_L_FATHCATVEN
  DISPLAY "Cat." CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT FA_L_FATHCATVEN CODTAB
  OUTPUT FA_L_FATHDESVEN S0
  CHECKTYPE NORMAL
END

STRING FA_L_FATHDESVEN 50
BEGIN
  PROMPT 18 16 ""
  USE CVE KEY 2
  INPUT S0 FA_L_FATHDESVEN
  DISPLAY "Descrizione@50" S0
  DISPLAY "Cat." CODTAB
  COPY OUTPUT FA_L_FATHCATVEN
END

STRING FA_L_FATHCOD 3
BEGIN
  PROMPT 1 17 "Listino   "
  FIELD FATHCOD
  FLAGS "U"
  USE LF_CONDV SELECT (CATVEN!=#FA_L_CATVEN)||(COD!=#FA_COD)
  INPUT TIPO "L"
  INPUT CATVEN FA_L_FATHCATVEN SELECT
  INPUT COD FA_L_FATHCOD
  DISPLAY "C.V." CATVEN
  DISPLAY "Codice" COD
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Valuta" CODVAL
  DISPLAY "Fine validita'" VALFIN
  OUTPUT FA_L_FATHCATVEN CATVEN
  OUTPUT FA_L_FATHCOD COD
  OUTPUT FA_L_FATHDESCR DESCR
  CHECKTYPE NORMAL
END

STRING FA_L_FATHDESCR 50
BEGIN
  PROMPT 18 17 ""
  FLAGS "D"
END

STRING FA_L_ARROTONDA 8
BEGIN
  PROMPT 1 18 "Arrotonda "
  FIELD ARROTONDA
END

TEXT -1
BEGIN
  PROMPT 21 18 "es. -0,05=per difetto ai 5 cent; +0,10=per eccesso ai 10 cent"
END

ENDPAGE

ENDMASK

#include "ve2500as.uml"