campo-sirio/ve/ve3200x.uml

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

PAGE "Stampa condizioni di vendita" -1 -1 64 15

STRING F_TIPO 1 // tipo di archivio
BEGIN
  PROMPT 100 100 ""
  FLAG "DU"
END
 
STRING F_L_CATVEN 2 // categoria di vendita, solo listini
BEGIN
  PROMPT 2 1 "Cat. vendita "
  FLAG "U"
  USE %CVE
  INPUT CODTAB F_L_CATVEN
  DISPLAY "Cat." CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_L_CATVEN CODTAB
END

LIST F_C_TIPOCF 7 // tipo cliente/fornitore, solo contratti
BEGIN
  PROMPT 2 1 "Tipo "
  ITEM "C|Cliente"
  ITEM "F|Fornit."
END

STRING F_C_CODCF 6 // codice cliente/fornitore, solo contratti
BEGIN
  PROMPT 22 1 "Codice "
  FLAG "U"
  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
END

STRING F_L_COD 3 // codice listino, solo listini
BEGIN
  PROMPT 2 3 "Codice listino "
  FLAG "U"
  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
END

NUMBER F_C_COD 3 // codice contratto, solo contratti
BEGIN
  PROMPT 2 3 "Numero contratto "
  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
END

STRING F_O_COD 3 // codice offerta, solo offerte
BEGIN
  PROMPT 2 2 "Codice offerta "
  FLAG "U"
  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
END

LIST F_TIPORIGHE 8 // listbox per tipo di selezione righe
BEGIN
  PROMPT 2 5 "Righe "
  ITEM "A|Articolo " MESSAGE CLEAR,F_DARIGA_A|ENABLE,F_DARIGA_A|SHOW,F_DARIGA_A|CLEAR,F_ARIGA_A|ENABLE,F_ARIGA_A|SHOW,F_ARIGA_A|HIDE,F_DARIGA_G|HIDE,F_DARIGA_R|HIDE,F_ARIGA_G|HIDE,F_ARIGA_R
  ITEM "G|Gr. merc." MESSAGE CLEAR,F_DARIGA_G|ENABLE,F_DARIGA_G|SHOW,F_DARIGA_G|CLEAR,F_ARIGA_G|ENABLE,F_ARIGA_G|SHOW,F_ARIGA_G|HIDE,F_DARIGA_A|HIDE,F_DARIGA_R|HIDE,F_ARIGA_A|HIDE,F_ARIGA_R
  ITEM "R|Rag. fis." MESSAGE CLEAR,F_DARIGA_R|ENABLE,F_DARIGA_R|SHOW,F_DARIGA_R|CLEAR,F_ARIGA_R|ENABLE,F_ARIGA_R|SHOW,F_ARIGA_R|HIDE,F_DARIGA_A|HIDE,F_DARIGA_G|HIDE,F_ARIGA_A|HIDE,F_ARIGA_G
END

BOOLEAN F_TUTTERIGHE // checkbox per selezione di tutte le righe
BEGIN
  PROMPT 22 5 "Tutte"
  MESSAGE TRUE DISABLE,F_TIPORIGHE|DISABLE,F_DARIGA_A|DISABLE,F_DARIGA_G|DISABLE,F_DARIGA_R|DISABLE,F_ARIGA_A|DISABLE,F_ARIGA_G|DISABLE,F_ARIGA_R
  MESSAGE FALSE ENABLE,F_TIPORIGHE|ENABLE,F_DARIGA_A|ENABLE,F_DARIGA_G|ENABLE,F_DARIGA_R|ENABLE,F_ARIGA_A|ENABLE,F_ARIGA_G|ENABLE,F_ARIGA_R
END

STRING F_DARIGA_A 20 // riga articolo di inizio
BEGIN
  PROMPT 2 7 "Da "
  USE LF_ANAMAG
  INPUT CODART F_DARIGA_A
  DISPLAY "Articolo@20" CODART
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_DARIGA_A CODART
END

STRING F_DARIGA_G 20 // riga gruppo merceologico di inizio
BEGIN
  PROMPT 2 7 "Da "
  USE %GMC
  INPUT CODTAB F_DARIGA_G
  DISPLAY "Gr. merc." CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_DARIGA_G CODTAB
  MESSAGE COPY,F_DARIGA_A
END

STRING F_DARIGA_R 20 // riga raggruppamento fiscale di inizio
BEGIN
  PROMPT 2 7 "Da "
  USE %RFA
  INPUT CODTAB F_DARIGA_R
  DISPLAY "Ragg. fisc." CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_DARIGA_R CODTAB
  MESSAGE COPY,F_DARIGA_A
END

STRING F_ARIGA_A 20 // riga articolo di fine
BEGIN
  PROMPT 2 8 "A  "
  USE LF_ANAMAG
  INPUT CODART F_ARIGA_A
  DISPLAY "Articolo@20" CODART
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_ARIGA_A CODART
END

STRING F_ARIGA_G 20 // riga gruppo merceologico di fine
BEGIN
  PROMPT 2 8 "A  "
  USE %GMC
  INPUT CODTAB F_ARIGA_G
  DISPLAY "Gr. merc." CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_ARIGA_G CODTAB
  MESSAGE COPY,F_ARIGA_A
END

STRING F_ARIGA_R 20 // riga raggruppamento fiscale di fine
BEGIN
  PROMPT 2 8 "A  "
  USE %RFA
  INPUT CODTAB F_ARIGA_R
  DISPLAY "Ragg. fisc." CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_ARIGA_R CODTAB
  MESSAGE COPY,F_ARIGA_A
END

GROUPBOX DLG_NULL 63 10 // groupbox attorno agli elementi di selezione della chiave
BEGIN
  PROMPT 0 0 ""
END

BOOLEAN F_TESTACOMP // checkbox per stampa completa della testata
BEGIN
  PROMPT 2 10 "Testata completa"
END

BOOLEAN F_RIGHECOMP // checkbox per stampa completa delle righe
BEGIN
  PROMPT 2 11 "Righe complete"
END

BOOLEAN F_L_LISTVALUTA // checkbox per stampa del listino in valuta o in lire
BEGIN
  PROMPT 2 12 "Listino in valuta"
END

GROUPBOX DLG_NULL 63 5 // groupbox attorno agli ultimi tre checkbox
BEGIN
  PROMPT 0 9 ""
END

BUTTON DLG_SELECT 9 2
BEGIN
  PROMPT -12 -1 "Selezione"
  MESSAGE EXIT,K_ENTER
END

BUTTON DLG_QUIT 9 2
BEGIN
  PROMPT -22 -1 ""
END

ENDPAGE

ENDMASK