campo-sirio/ve/ve2200x.uml

#include "ve2200x.h"

TOOLBAR "Toolbar" 0 0 0 2

#include <relapbar.h>

ENDPAGE

TOOLBAR "" 0 -2 0 2

// bottone di lancio dell'applicazione delle righe
BUTTON BTN_RIGHE 10 2
BEGIN
  PROMPT -12 -11 "Ri~ghe"
  FLAGS "D"
  MESSAGE K_F5
END

// bottone di lancio dell'applicazione per copiare listini,contratti e offerte
BUTTON BTN_COPIA 10 2
BEGIN
  PROMPT -22 -11 "C~opia"
  FLAGS "D"
END

ENDPAGE

PAGE "Cond. di vendita" 0 0 0 0

GROUPBOX DLG_NULL 75 8
BEGIN
  PROMPT 0 0 ""
  FLAG "R"
END

STRING F_TIPO 1
BEGIN
  PROMPT 100 100 ""
  FIELD LF_CONDV->TIPO
  FLAG "DUP"
  KEY 1
  CHECKTYPE REQUIRED
END

// campo riservato ai listini
STRING F_L_CATVEN 2
BEGIN
  PROMPT 2 2 "Cat. vendita "
  FIELD LF_CONDV->CATVEN
  FLAG "U"
  KEY 1
  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 50
BEGIN
  PROMPT 22 2 ""
  FLAG "D"
END

// campo riservato ai contratti
LIST F_C_TIPOCF 1 10
BEGIN
  PROMPT 2 2 "Tipo    "
  FIELD LF_CONDV->TIPOCF
  KEY 1
  ITEM "C|Cliente"
  ITEM "F|Fornitore"
END

// campo riservato ai contratti
STRING F_C_CODCF 6
BEGIN
  PROMPT 2 3 "Codice  "
  FIELD LF_CONDV->CODCF
  FLAG "U"
  KEY 1
  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 FORCED
END

// campo riservato ai contratti
STRING F_C_DESCF 50
BEGIN
  PROMPT 22 3 ""
  FLAG "D"
END

STRING F_C_COD 3
BEGIN
  PROMPT 2 4 "Contratto N. "
  FLAGS "U"
  FIELD LF_CONDV->COD
  KEY 1
  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
  CHECKTYPE REQUIRED
END

// campo riservato ai listini
STRING F_L_COD 3
BEGIN
  PROMPT 2 4 "Cod. listino "
  FIELD LF_CONDV->COD
  FLAG "U"
  GROUP 10
  KEY 1
  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
  CHECKTYPE REQUIRED
END

// campo riservato alle offerte
STRING F_O_COD 3
BEGIN
  PROMPT 2 3 "Cod. offerta "
  FIELD LF_CONDV->COD
  FLAG "U"
  GROUP 10
  KEY 1
  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
  CHECKTYPE REQUIRED
END

STRING F_DESCR 50
BEGIN
  PROMPT 2 5 "Descrizione  "
  FIELD LF_CONDV->DESCR
  KEY 2
  USE LF_CONDV KEY 2
  INPUT TIPO F_TIPO SELECT
  INPUT DESCR F_DESCR
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "C/F" TIPOCF
  DISPLAY "Codice" CODCF
  DISPLAY "C.V." CATVEN
  DISPLAY "Numero" COD
  OUTPUT F_TIPO TIPO
  OUTPUT F_C_TIPOCF TIPOCF
  OUTPUT F_C_CODCF CODCF
  OUTPUT F_C_COD COD
  OUTPUT F_L_CATVEN CATVEN
  OUTPUT F_L_COD COD
  OUTPUT F_O_COD COD
  OUTPUT F_DESCR DESCR
  CHECKTYPE NORMAL
END

STRING F_CODVAL 5
BEGIN
  PROMPT 2 8 "Valuta "
  FIELD LF_CONDV->CODVAL
  FLAG "U"
  USE %VAL
  INPUT CODTAB F_CODVAL
  DISPLAY "Valuta" CODTAB
  DISPLAY "Descrizione@50" S0
  DISPLAY "Cambio" S4
  OUTPUT F_CODVAL CODTAB
//  OUTPUT F_CONTROEURO B1
  OUTPUT F_CAMBIO S4
  CHECKTYPE NORMAL
  MESSAGE ENABLE,F_CAMBIO|ENABLE,F_DATACAM
  MESSAGE EMPTY CLEAR,F_CAMBIO|CLEAR,F_DATACAM|DISABLE,F_DATACAM
END

NUMBER F_CAMBIO 15 6
BEGIN
  PROMPT 21 8 "Cambio "
  FIELD LF_CONDV->CAMBIO
END

/*
BOOLEAN F_CONTROEURO
BEGIN
  PROMPT 45 8 "Contro Euro"
  FIELD LF_CONDV->CONTROEURO
END
*/

DATA F_DATACAM
BEGIN
  PROMPT 60 8 "Data "
  FIELD LF_CONDV->DATACAM
END

DATA F_VALIN
BEGIN
  PROMPT 2 10 "Inizio validita` "
  FIELD LF_CONDV->VALIN
END

DATA F_VALFIN
BEGIN
  PROMPT 39 10 "Fine validita` "
  FIELD LF_CONDV->VALFIN
END

BOOLEAN F_IMPLORDI
BEGIN
  PROMPT 2 12 "Importi lordi"
  FIELD LF_CONDV->IMPLORDI
END

BOOLEAN F_GESTUM
BEGIN
  PROMPT 34 12 "Gestione unita` di misura"
  FIELD LF_CONDV->GESTUM
END

BOOLEAN F_GESTSCAGL
BEGIN
  PROMPT 2 13 "Gestione scaglioni"
  FIELD LF_CONDV->GESTSCAGL
  MESSAGE TRUE ENABLE,F_DECIMALI
  MESSAGE FALSE CLEAR,F_DECIMALI
END

BOOLEAN F_GESTSCO
BEGIN
  PROMPT 34 13 "Gestione sconti/omaggi"
  FIELD LF_CONDV->GESTSCO
END

LISTBOX F_DECIMALI 7
BEGIN
  PROMPT 2 15 "Decimali per quantita' limite   "
  FIELD LF_CONDV->DECIMALI
  ITEM "0|Nessuno"
  ITEM "1|1"
  ITEM "2|2"
  ITEM "3|3"
  ITEM "4|4"
  ITEM "5|5"
END

// campo riservato ai contratti
BOOLEAN F_C_OBBLIG
BEGIN
  PROMPT 34 14 "Contratto obbligatorio"
  FIELD LF_CONDV->OBBLIG
END

LIST F_SEQRIC_1 10
BEGIN
  PROMPT 2 16 "Sequenza ricerca "
  FIELD LF_CONDV->SEQRIC[1,1]
  ITEM "A|Articoli"
  ITEM "G|Gruppo M."
  ITEM "S|Sottog. M."
  ITEM "R|Ragg.fisc."
END

LIST F_SEQRIC_2 10
BEGIN
  PROMPT 34 16 ""
  FIELD LF_CONDV->SEQRIC[2,2]
  ITEM "-|Nessuno"    MESSAGE CLEAR,5@
  ITEM "A|Articoli"   MESSAGE ENABLE,F_SEQRIC_3
  ITEM "G|Gruppo M."  MESSAGE ENABLE,F_SEQRIC_3
  ITEM "S|Sottog. M." MESSAGE ENABLE,F_SEQRIC_3
  ITEM "R|Ragg.fisc." MESSAGE ENABLE,F_SEQRIC_3
  STR_EXPR (#THIS_FIELD=="-")||(#THIS_FIELD!=#F_SEQRIC_1)
  WARNING "La sequenza di ricerca deve indicare quattro tipi diversi di righe"
END

LIST F_SEQRIC_3 10
BEGIN
  PROMPT 49 16 ""
  FIELD LF_CONDV->SEQRIC[3,3]
  ITEM "-|Nessuno"     MESSAGE CLEAR,F_SEQRIC_4
  ITEM "A|Articoli"    MESSAGE ENABLE,F_SEQRIC_4
  ITEM "G|Gruppo M."   MESSAGE ENABLE,F_SEQRIC_4
  ITEM "S|Sottog. M."  MESSAGE ENABLE,F_SEQRIC_4
  ITEM "R|Ragg.fisc."  MESSAGE ENABLE,F_SEQRIC_4
  GROUP 5
  STR_EXPR (#THIS_FIELD=="-")||((#THIS_FIELD!=#F_SEQRIC_1)&&(#THIS_FIELD!=#F_SEQRIC_2))
  WARNING "La sequenza di ricerca deve indicare quattro tipi diversi di righe"
END

LIST F_SEQRIC_4 10
BEGIN
  PROMPT 64 16 ""
  FIELD LF_CONDV->SEQRIC[4,4]
  ITEM "-|Nessuno"
  ITEM "A|Articoli"
  ITEM "G|Gruppo M."
  ITEM "S|Sottog. M."
  ITEM "R|Ragg.fisc."
  GROUP 5
  STR_EXPR (#THIS_FIELD=="-")||((#THIS_FIELD!=#F_SEQRIC_1)&&(#THIS_FIELD!=#F_SEQRIC_2)&&(#THIS_FIELD!=#F_SEQRIC_3))
  WARNING "La sequenza di ricerca deve indicare quattro tipi diversi di righe"
END

// campo riservato ai listini
STRING F_L_CODSUCC 3
BEGIN
  PROMPT 2 17 "Listino succ. "
  FIELD LF_CONDV->CODLISSUCC
  FLAG "U"
  USE LF_CONDV
  INPUT TIPO F_TIPO SELECT
  INPUT CATVEN F_L_CATVEN SELECT
  INPUT COD F_L_CODSUCC
  DISPLAY "C.V." CATVEN
  DISPLAY "Codice" COD
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_L_CODSUCC COD
  OUTPUT F_L_DESSUCC DESCR
  CHECKTYPE NORMAL
END

// campo riservato ai listini
STRING F_L_DESSUCC 50
BEGIN
  PROMPT 24 17 ""
  FLAG "D"
END

ENDPAGE