campo-sirio/ve/ve2200x.uml

#include <lffiles.h>
#include "ve2200x.h"

TOOLBAR "" 0 20 60 2
 #include <toolbar.h>
ENDPAGE

PAGE "Archivio condizioni di vendita " 0 0 70 20

STRING F_TIPO 1
BEGIN
  PROMPT 100 100 ""
  FIELD LF_CONDV->TIPO
  FLAG "DU"
  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
  CHECKTYPE REQUIRED
END

// campo riservato ai contratti
LIST F_C_TIPOCF 7
BEGIN
  PROMPT 2 2 "Tipo "
  FIELD LF_CONDV->TIPOCF
  KEY 1
  ITEM "C|Cliente"
  ITEM "F|Fornit."
  CHECKTYPE REQUIRED
END

// campo riservato ai contratti
STRING F_C_CODCF 6
BEGIN
  PROMPT 22 2 "Codice "
  FIELD LF_CONDV->CODCF
  FLAG "U"
  KEY 1
  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_TIPOCF TIPOCF
  OUTPUT F_C_CODCF CODCF
  CHECKTYPE REQUIRED
END

// campo riservato ai listini
STRING F_L_COD 3
BEGIN
  PROMPT 2 4 "Codice listino "
  FIELD LF_CONDV->COD
  FLAG "U"
  KEY 1
  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_TIPO TIPO
  OUTPUT F_L_CATVEN CATVEN
  OUTPUT F_L_COD COD
  CHECKTYPE REQUIRED
END

// campo riservato ai contratti
NUMBER F_C_COD 3
BEGIN
  PROMPT 2 4 "Numero contratto "
  FIELD LF_CONDV->COD
  KEY 1
  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_TIPOCF TIPOCF
  OUTPUT F_C_CODCF CODCF
  OUTPUT F_C_COD COD
  CHECKTYPE REQUIRED
END

// campo riservato alle offerte
STRING F_O_COD 3
BEGIN
  PROMPT 2 3 "Codice offerta "
  FIELD LF_CONDV->COD
  FLAG "U"
  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

GROUPBOX DLG_NULL 65 7
BEGIN
  PROMPT 0 0 ""
//FLAG "R"
END

// bottone di lancio dell'applicazione delle righe
BUTTON BTN_RIGHE 63 1
BEGIN
  PROMPT 0 -1 "Editing delle righe di questa testata"
  MESSAGE K_F5
END

STRING F_DESCR 50
BEGIN
  PROMPT 2 7 "Descrizione "
  FIELD LF_CONDV->DESCR
END

STRING F_CODVAL 5
BEGIN
  PROMPT 2 9 "Valuta "
  FIELD LF_CONDV->CODVAL
  FLAG "U"
  USE %VAL
  INPUT CODTAB F_CODVAL
  DISPLAY "Valuta" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CODVAL CODTAB
  MESSAGE ENABLE,F_CAMBIO|ENABLE,F_DATACAM
  MESSAGE EMPTY "1",F_CAMBIO|DISABLE,F_CAMBIO|CLEAR,F_DATACAM|DISABLE,F_DATACAM
END

NUMBER F_CAMBIO 15 5
BEGIN
  PROMPT 21 9 "Cambio "
  FIELD LF_CONDV->CAMBIO
END

DATA F_DATACAM
BEGIN
  PROMPT 49 9 "Data "
  FIELD LF_CONDV->DATACAM
END

DATA F_VALIN
BEGIN
  PROMPT 2 11 "Inizio validit<69> "
  FIELD LF_CONDV->VALIN
END

DATA F_VALFIN
BEGIN
  PROMPT 40 11 "Fine validit<69> "
  FIELD LF_CONDV->VALFIN
END

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

BOOLEAN F_GESTUM
BEGIN
  PROMPT 34 13 "Gestione unit<69> di misura"
  FIELD LF_CONDV->GESTUM
END

BOOLEAN F_GESTSCAGL
BEGIN
  PROMPT 2 14 "Gestione scaglioni"
  FIELD LF_CONDV->GESTSCAGL
END

BOOLEAN F_GESTSCO
BEGIN
  PROMPT 34 14 "Gestione sconti"
  FIELD LF_CONDV->GESTSCO
END

BOOLEAN F_SCONST
BEGIN
  PROMPT 2 15 "Gestione sconti standard"
  FIELD LF_CONDV->SCONST
END

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

STRING F_SEQRIC 3
BEGIN
  PROMPT 2 17 "Sequenza ricerca "
  FIELD LF_CONDV->SEQRIC
  FLAG "U"
END

// campo riservato ai listini
STRING F_L_CODLISSUCC 3
BEGIN
  PROMPT 33 17 "Codice 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_CODLISSUCC
  DISPLAY "Codice" COD
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_L_CODLISSUCC COD
  CHECKTYPE NORMAL
END

ENDPAGE

ENDMASK