campo-sirio/ve/ve3200x.uml

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

// Gruppi della maschera:
// 1 : Listini
// 2 : Contratti
// 3 : Offerte
// 4 : Articoli(listini)[DA..A]
// 5 : Gr.Merc(listini)[DA..A]
// 6 : Raggr.Fisc(listini)[DA..A]
// 7 : Articoli(contratti)[DA..A]
// 8 : Gr.Merc(contratti)[DA..A]
// 9 : Raggr.Fisc(contratti)[DA..A]
// 10 : Articoli(offerte)[DA..A]
// 11 : Gr.Merc(offerte)[DA..A]
// 12 : Raggr.Fisc(offerte)[DA..A]


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

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

GROUPBOX DLG_NULL 62 5 // groupbox attorno agli ultimi tre checkbox
BEGIN
  PROMPT 1 9 ""
END

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 9 // tipo cliente/fornitore, solo contratti
BEGIN
  PROMPT 2 1 "Tipo "
  ITEM "C|Cliente"
  ITEM "F|Fornitore"
END

STRING F_C_CODCF 6 // codice cliente/fornitore, solo contratti
BEGIN
  PROMPT 19 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 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
END

STRING F_C_COD 3 // codice contratto, solo contratti
BEGIN
  PROMPT 2 3 "Nr. 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 9 // 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 (complessivo per la get)
BEGIN
  PROMPT 2 7 "Da "
  FLAGS "H"
END

STRING F_ARIGA_A 20 // riga articolo di fine (complessivo per la get)
BEGIN
  PROMPT 2 8 "A  "
  FLAGS "H"
END

// Ricerche per listini
STRING F_DARIGA_A_L 20 // riga articolo di inizio (listini)
BEGIN
  PROMPT 2 7 "Da              "
  USE LF_RCONDV
  JOIN LF_ANAMAG INTO CODART==CODRIGA
  INPUT TIPO F_TIPO SELECT
  INPUT CATVEN F_L_CATVEN SELECT
  INPUT COD F_L_COD SELECT
  INPUT TIPORIGA F_TIPORIGHE SELECT
  INPUT CODRIGA F_DARIGA_A_L
  DISPLAY "C.V." CATVEN
  DISPLAY "Listino" COD
  DISPLAY "Articolo@20" CODRIGA
  DISPLAY "Descrizione@50" LF_ANAMAG->DESCR
  OUTPUT  F_DARIGA_A_L CODRIGA
  CHECKTYPE NORMAL
  WARNING "Codice articolo non presente"
  MESSAGE COPY, F_DARIGA_A
  GROUP 1 4
END

STRING F_DARIGA_G_L 3 // riga gruppo merceologico di inizio (listini)
BEGIN
  PROMPT 2 7 "Da              "
  USE LF_RCONDV
  JOIN GMC TO LF_RCONDV  ALIAS 201 INTO CODTAB==CODRIGA
  INPUT TIPO F_TIPO SELECT
  INPUT CATVEN F_L_CATVEN SELECT
  INPUT COD F_L_COD SELECT
  INPUT TIPORIGA F_TIPORIGHE SELECT
  INPUT CODRIGA F_DARIGA_G_L
  DISPLAY "C.V." CATVEN
  DISPLAY "Listino" COD
  DISPLAY "Gruppo Merc.@20" CODRIGA
  DISPLAY "Descrizione@50" -201->S0
  OUTPUT  F_DARIGA_G_L CODRIGA
  CHECKTYPE NORMAL
  WARNING "Gruppo merceologico non presente"
  MESSAGE COPY, F_DARIGA_A
  GROUP 1 5
END

STRING F_DARIGA_R_L 5 // riga raggruppamento fiscale di inizio (listini)
BEGIN
  PROMPT 2 7 "Da              "
  USE LF_RCONDV
  JOIN RFA TO LF_RCONDV  ALIAS 202 INTO CODTAB==CODRIGA
  INPUT TIPO F_TIPO SELECT
  INPUT CATVEN F_L_CATVEN SELECT
  INPUT COD F_L_COD SELECT
  INPUT TIPORIGA F_TIPORIGHE SELECT
  INPUT CODRIGA F_DARIGA_R_L
  DISPLAY "C.V." CATVEN
  DISPLAY "Listino" COD
  DISPLAY "Raggr. fiscale" CODRIGA
  DISPLAY "Descrizione@50" -202->S0
  OUTPUT  F_DARIGA_R_L CODRIGA
  CHECKTYPE NORMAL
  WARNING "Raggruppamento fiscale non presente"
  MESSAGE COPY, F_DARIGA_A
  GROUP 1 6
END

STRING F_ARIGA_A_L 20 // riga articolo di fine (listini)
BEGIN
  PROMPT 2 8 "A               "
  USE LF_RCONDV
  JOIN LF_ANAMAG INTO CODART==CODRIGA
  INPUT TIPO F_TIPO SELECT
  INPUT CATVEN F_L_CATVEN SELECT
  INPUT COD F_L_COD SELECT
  INPUT TIPORIGA F_TIPORIGHE SELECT
  INPUT CODRIGA F_ARIGA_A_L
  DISPLAY "C.V." CATVEN
  DISPLAY "Listino" COD
  DISPLAY "Articolo@20" CODRIGA
  DISPLAY "Descrizione@50" LF_ANAMAG->DESCR
  OUTPUT  F_ARIGA_A_L CODRIGA
  CHECKTYPE NORMAL
  WARNING "Codice articolo non presente"
  MESSAGE COPY, F_ARIGA_A
  GROUP 1 4
END

STRING F_ARIGA_G_L 3 // riga gruppo merceologico di fine (listini)
BEGIN
  PROMPT 2 8 "A               "
  USE LF_RCONDV
  JOIN GMC TO LF_RCONDV  ALIAS 203 INTO CODTAB==CODRIGA
  INPUT TIPO F_TIPO SELECT
  INPUT CATVEN F_L_CATVEN SELECT
  INPUT COD F_L_COD SELECT
  INPUT TIPORIGA F_TIPORIGHE SELECT
  INPUT CODRIGA F_ARIGA_G_L
  DISPLAY "C.V." CATVEN
  DISPLAY "Listino" COD
  DISPLAY "Gruppo Merc.@20" CODRIGA
  DISPLAY "Descrizione@50" -203->S0
  OUTPUT  F_ARIGA_G_L CODRIGA
  CHECKTYPE NORMAL
  WARNING "Gruppo merceologico non presente"
  MESSAGE COPY, F_ARIGA_A
  GROUP 1 5
END

STRING F_ARIGA_R_L 5 // riga raggruppamento fiscale di fine (listini)
BEGIN
  PROMPT 2 8 "A               "
  USE LF_RCONDV
  JOIN RFA TO LF_RCONDV  ALIAS 204 INTO CODTAB==CODRIGA
  INPUT TIPO F_TIPO SELECT
  INPUT CATVEN F_L_CATVEN SELECT
  INPUT COD F_L_COD SELECT
  INPUT TIPORIGA F_TIPORIGHE SELECT
  INPUT CODRIGA F_ARIGA_R_L
  DISPLAY "C.V." CATVEN
  DISPLAY "Listino" COD
  DISPLAY "Raggr. fiscale" CODRIGA
  DISPLAY "Descrizione@50" -204->S0
  OUTPUT  F_ARIGA_R_L CODRIGA
  CHECKTYPE NORMAL
  WARNING "Raggruppamento fiscale non presente"
  MESSAGE COPY, F_ARIGA_A
  GROUP 1 6
END

// Ricerche per contratti
STRING F_DARIGA_A_C 20 // riga articolo di inizio (contratti)
BEGIN
  PROMPT 2 7 "Da              "
  USE LF_RCONDV
  JOIN LF_ANAMAG INTO CODART==CODRIGA
  INPUT TIPO F_TIPO SELECT
  INPUT TIPOCF F_C_TIPOCF SELECT
  INPUT CODCF F_C_CODCF SELECT
  INPUT COD F_C_COD SELECT
  INPUT TIPORIGA F_TIPORIGHE SELECT
  INPUT CODRIGA F_DARIGA_A_C
  DISPLAY "Tipo C/F" TIPOCF
  DISPLAY "Codice" CODCF
  DISPLAY "Contratto" COD
  DISPLAY "Articolo@20" CODRIGA
  DISPLAY "Descrizione@50" LF_ANAMAG->DESCR
  OUTPUT  F_DARIGA_A_C CODRIGA
  CHECKTYPE NORMAL
  WARNING "Codice articolo non presente"
  MESSAGE COPY, F_DARIGA_A
  GROUP 2 7
END

STRING F_DARIGA_G_C 3 // riga gruppo merceologico di inizio (contratti)
BEGIN
  PROMPT 2 7 "Da              "
  USE LF_RCONDV
  JOIN GMC TO LF_RCONDV  ALIAS 205 INTO CODTAB==CODRIGA
  INPUT TIPO F_TIPO SELECT
  INPUT TIPOCF F_C_TIPOCF SELECT
  INPUT CODCF F_C_CODCF SELECT
  INPUT COD F_C_COD SELECT
  INPUT TIPORIGA F_TIPORIGHE SELECT
  INPUT CODRIGA F_DARIGA_G_C
  DISPLAY "Tipo C/F" TIPOCF
  DISPLAY "Codice" CODCF
  DISPLAY "Contratto" COD
  DISPLAY "Gruppo Merc.@20" CODRIGA
  DISPLAY "Descrizione@50" -205->S0
  OUTPUT  F_DARIGA_G_C CODRIGA
  CHECKTYPE NORMAL
  WARNING "Gruppo merceologico non presente"
  MESSAGE COPY, F_DARIGA_A
  GROUP 2 8
END

STRING F_DARIGA_R_C 5 // riga raggruppamento fiscale di inizio (contratti)
BEGIN
  PROMPT 2 7 "Da              "
  USE LF_RCONDV
  JOIN RFA TO LF_RCONDV  ALIAS 206 INTO CODTAB==CODRIGA
  INPUT TIPO F_TIPO SELECT
  INPUT TIPOCF F_C_TIPOCF SELECT
  INPUT CODCF F_C_CODCF SELECT
  INPUT COD F_C_COD SELECT
  INPUT TIPORIGA F_TIPORIGHE SELECT
  INPUT CODRIGA F_DARIGA_R_C
  DISPLAY "Tipo C/F" TIPOCF
  DISPLAY "Codice" CODCF
  DISPLAY "Contratto" COD
  DISPLAY "Raggr. fiscale" CODRIGA
  DISPLAY "Descrizione@50" -206->S0
  OUTPUT  F_DARIGA_R_C CODRIGA
  CHECKTYPE NORMAL
  WARNING "Raggruppamento fiscale non presente"
  MESSAGE COPY, F_DARIGA_A
  GROUP 2 9
END

STRING F_ARIGA_A_C 20 // riga articolo di fine (contratti)
BEGIN
  PROMPT 2 8 "A               "
  USE LF_RCONDV
  JOIN LF_ANAMAG INTO CODART==CODRIGA
  INPUT TIPO F_TIPO SELECT
  INPUT TIPOCF F_C_TIPOCF SELECT
  INPUT CODCF F_C_CODCF SELECT
  INPUT COD F_C_COD SELECT
  INPUT TIPORIGA F_TIPORIGHE SELECT
  INPUT CODRIGA F_ARIGA_A_C
  DISPLAY "Tipo C/F" TIPOCF
  DISPLAY "Codice" CODCF
  DISPLAY "Contratto" COD
  DISPLAY "Articolo@20" CODRIGA
  DISPLAY "Descrizione@50" LF_ANAMAG->DESCR
  OUTPUT  F_ARIGA_A_C CODRIGA
  CHECKTYPE NORMAL
  WARNING "Codice articolo non presente"
  MESSAGE COPY, F_ARIGA_A
  GROUP 2 7
END

STRING F_ARIGA_G_C 3 // riga gruppo merceologico di fine (contratti)
BEGIN
  PROMPT 2 8 "A               "
  USE LF_RCONDV
  JOIN GMC TO LF_RCONDV  ALIAS 207 INTO CODTAB==CODRIGA
  INPUT TIPO F_TIPO SELECT
  INPUT TIPOCF F_C_TIPOCF SELECT
  INPUT CODCF F_C_CODCF SELECT
  INPUT COD F_C_COD SELECT
  INPUT TIPORIGA F_TIPORIGHE SELECT
  INPUT CODRIGA F_ARIGA_G_C
  DISPLAY "Tipo C/F" TIPOCF
  DISPLAY "Codice" CODCF
  DISPLAY "Contratto" COD
  DISPLAY "Gruppo Merc.@20" CODRIGA
  DISPLAY "Descrizione@50" -207->S0
  OUTPUT  F_ARIGA_G_C CODRIGA
  CHECKTYPE NORMAL
  WARNING "Gruppo merceologico non presente"
  MESSAGE COPY, F_ARIGA_A
  GROUP 2 8
END

STRING F_ARIGA_R_C 5 // riga raggruppamento fiscale di fine (contratti)
BEGIN
  PROMPT 2 8 "A               "
  USE LF_RCONDV
  JOIN RFA TO LF_RCONDV  ALIAS 208 INTO CODTAB==CODRIGA
  INPUT TIPO F_TIPO SELECT
  INPUT TIPOCF F_C_TIPOCF SELECT
  INPUT CODCF F_C_CODCF SELECT
  INPUT COD F_C_COD SELECT
  INPUT TIPORIGA F_TIPORIGHE SELECT
  INPUT CODRIGA F_ARIGA_R_C
  DISPLAY "Tipo C/F" TIPOCF
  DISPLAY "Codice" CODCF
  DISPLAY "Contratto" COD
  DISPLAY "Raggr. fiscale" CODRIGA
  DISPLAY "Descrizione@50" -208->S0
  OUTPUT  F_ARIGA_R_C CODRIGA
  CHECKTYPE NORMAL
  WARNING "Raggruppamento fiscale non presente"
  MESSAGE COPY, F_ARIGA_A
  GROUP 2 9
END

// Ricerche per offerte
STRING F_DARIGA_A_O 20 // riga articolo di inizio (offerte)
BEGIN
  PROMPT 2 7 "Da              "
  USE LF_RCONDV
  JOIN LF_ANAMAG INTO CODART==CODRIGA
  INPUT TIPO F_TIPO SELECT
  INPUT COD F_O_COD SELECT
  INPUT TIPORIGA F_TIPORIGHE SELECT
  INPUT CODRIGA F_DARIGA_A_O
  DISPLAY "Offerta" COD
  DISPLAY "Articolo@20" CODRIGA
  DISPLAY "Descrizione@50" LF_ANAMAG->DESCR
  OUTPUT  F_DARIGA_A_O CODRIGA
  CHECKTYPE NORMAL
  WARNING "Codice articolo non presente"
  MESSAGE COPY, F_DARIGA_A
  GROUP 3 10
END

STRING F_DARIGA_G_O 3 // riga gruppo merceologico di inizio (offerte)
BEGIN
  PROMPT 2 7 "Da              "
  USE LF_RCONDV
  JOIN GMC TO LF_RCONDV  ALIAS 209 INTO CODTAB==CODRIGA
  INPUT TIPO F_TIPO SELECT
  INPUT COD F_O_COD SELECT
  INPUT TIPORIGA F_TIPORIGHE SELECT
  INPUT CODRIGA F_DARIGA_G_O
  DISPLAY "Offerta" COD
  DISPLAY "Gruppo Merc.@20" CODRIGA
  DISPLAY "Descrizione@50" -209->S0
  OUTPUT  F_DARIGA_G_O CODRIGA
  CHECKTYPE NORMAL
  WARNING "Gruppo merceologico non presente"
  MESSAGE COPY, F_DARIGA_A
  GROUP 3 11
END

STRING F_DARIGA_R_O 5 // riga raggruppamento fiscale di inizio (offerte)
BEGIN
  PROMPT 2 7 "Da              "
  USE LF_RCONDV
  JOIN RFA TO LF_RCONDV  ALIAS 210 INTO CODTAB==CODRIGA
  INPUT TIPO F_TIPO SELECT
  INPUT COD F_O_COD SELECT
  INPUT TIPORIGA F_TIPORIGHE SELECT
  INPUT CODRIGA F_DARIGA_R_O
  DISPLAY "Offerta" COD
  DISPLAY "Raggr. fiscale" CODRIGA
  DISPLAY "Descrizione@50" -210->S0
  OUTPUT  F_DARIGA_R_O CODRIGA
  CHECKTYPE NORMAL
  WARNING "Raggruppamento fiscale non presente"
  MESSAGE COPY, F_DARIGA_A
  GROUP 3 12
END

STRING F_ARIGA_A_O 20 // riga articolo di fine (offerte)
BEGIN
  PROMPT 2 8 "A               "
  USE LF_RCONDV
  JOIN LF_ANAMAG INTO CODART==CODRIGA
  INPUT TIPO F_TIPO SELECT
  INPUT COD F_O_COD SELECT
  INPUT TIPORIGA F_TIPORIGHE SELECT
  INPUT CODRIGA F_ARIGA_A_O
  DISPLAY "Offerta" COD
  DISPLAY "Articolo@20" CODRIGA
  DISPLAY "Descrizione@50" LF_ANAMAG->DESCR
  OUTPUT  F_ARIGA_A_O CODRIGA
  CHECKTYPE NORMAL
  WARNING "Codice articolo non presente"
  MESSAGE COPY, F_ARIGA_A
  GROUP 3 10
END

STRING F_ARIGA_G_O 3 // riga gruppo merceologico di fine (offerte)
BEGIN
  PROMPT 2 8 "A               "
  USE LF_RCONDV
  JOIN GMC TO LF_RCONDV  ALIAS 211 INTO CODTAB==CODRIGA
  INPUT TIPO F_TIPO SELECT
  INPUT COD F_O_COD SELECT
  INPUT TIPORIGA F_TIPORIGHE SELECT
  INPUT CODRIGA F_ARIGA_G_O
  DISPLAY "Offerta" COD
  DISPLAY "Gruppo Merc.@20" CODRIGA
  DISPLAY "Descrizione@50" -211->S0
  OUTPUT  F_ARIGA_G_O CODRIGA
  CHECKTYPE NORMAL
  WARNING "Gruppo merceologico non presente"
  MESSAGE COPY, F_ARIGA_A
  GROUP 3 11
END

STRING F_ARIGA_R_O 5 // riga raggruppamento fiscale di fine (offerte)
BEGIN
  PROMPT 2 8 "A               "
  USE LF_RCONDV
  JOIN RFA TO LF_RCONDV  ALIAS 212 INTO CODTAB==CODRIGA
  INPUT TIPO F_TIPO SELECT
  INPUT COD F_O_COD SELECT
  INPUT TIPORIGA F_TIPORIGHE SELECT
  INPUT CODRIGA F_ARIGA_R_O
  DISPLAY "Offerta" COD
  DISPLAY "Raggr. fiscale" CODRIGA
  DISPLAY "Descrizione@50" -212->S0
  OUTPUT  F_ARIGA_R_O CODRIGA
  CHECKTYPE NORMAL
  WARNING "Raggruppamento fiscale non presente"
  MESSAGE COPY, F_ARIGA_A
  GROUP 3 12
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

BUTTON DLG_PRINT 9 2
BEGIN
  PROMPT -12 -1 "~Stampa"
  MESSAGE EXIT,K_ENTER
END

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

ENDPAGE

ENDMASK