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 "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 REQUIRED
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 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 2 3 "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
  OUTPUT F_C_DESCF RAGSOC
  CHECKTYPE REQUIRED
END

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

// campo riservato ai listini
STRING F_L_COD 3
BEGIN
  PROMPT 2 4 "Cod. listino "
  FIELD LF_CONDV->COD
  FLAG "U"
  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
  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 "Contratto N. "
  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 "Cod. 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 75 8
BEGIN
  PROMPT 0 0 ""
  FLAG "R"
END

STRING F_DESCR 50
BEGIN
  PROMPT 2 5 "Descrizione  "
  FIELD LF_CONDV->DESCR
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
  OUTPUT F_CODVAL CODTAB
  MESSAGE ENABLE,F_CAMBIO|ENABLE,F_DATACAM|DISABLE,F_IMPLORDI
  MESSAGE EMPTY "1",F_CAMBIO|DISABLE,F_CAMBIO|CLEAR,F_DATACAM|DISABLE,F_DATACAM|ENABLE,F_IMPLORDI
END

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

DATA F_DATACAM
BEGIN
  PROMPT 49 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
END

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

BOOLEAN F_SCONST
BEGIN
  PROMPT 2 14 "Gestione sconti standard"
  FIELD LF_CONDV->SCONST
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 15 "Sequenza ricerca "
  FIELD LF_CONDV->SEQRIC[1,1]
  ITEM "A|Articoli"
  ITEM "G|Gruppo M."
  ITEM "S|Sottogr.M."
  ITEM "R|Ragg.fisc."
END

LIST F_SEQRIC_2 10
BEGIN
  PROMPT 34 15 ""
  FIELD LF_CONDV->SEQRIC[2,2]
  ITEM "-|Nessuno"
  ITEM "A|Articoli"
  ITEM "G|Gruppo M."
  ITEM "S|Sottogr.M."
  ITEM "R|Ragg.fisc."
  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 15 ""
  FIELD LF_CONDV->SEQRIC[3,3]
  ITEM "-|Nessuno"
  ITEM "A|Articoli"
  ITEM "G|Gruppo M."
  ITEM "S|Sottogr.M."
  ITEM "R|Ragg.fisc."
  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 15 ""
  FIELD LF_CONDV->SEQRIC[4,4]
  ITEM "-|Nessuno"
  ITEM "A|Articoli"
  ITEM "G|Gruppo M."
  ITEM "S|Sottogr.M."
  ITEM "R|Ragg.fisc."
  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 16 "Listino succ. "
  FIELD LF_CONDV->CODLISSUCC
  FLAG "U"
  USE LF_CONDV
  INPUT TIPO F_TIPO SELECT
  INPUT CATVEN F_L_CATVEN SELECT
//INPUT TIPOCF F_C_TIPOCF SELECT
//INPUT CODCF F_C_CODCF 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 16 ""
  FLAG "D"
END

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

ENDPAGE