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]

TOOLBAR "topbar" 0 0 0 2
#include <printbar.h>
ENDPAGE

PAGE "Stampa condizioni di vendita" 0 2 0 0

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
  CHECKTYPE NORMAL
END

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

NUMBER F_C_CODCF 6 // codice cliente/fornitore, solo contratti
BEGIN
  PROMPT 24 1 "Codice "
  FLAG "GR"
  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 NORMAL
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
  CHECKTYPE NORMAL
  WARNING "Codice listino inesistente"
END

STRING F_C_COD 3 // codice contratto, solo contratti
BEGIN
  PROMPT 2 3 "Nr. contratto   "
  FLAGS "U"
  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 NORMAL
  WARNING "Codice contratto inesistente"
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
  CHECKTYPE NORMAL
  WARNING "Codice offerta inesistente"
END

LIST F_TIPORIGHE 9 // listbox per tipo di selezione righe
BEGIN
  PROMPT 2 4 "Righe           "
  ITEM "A|Articolo " 
    MESSAGE ENABLE,F_GRM_FILT|SHOW,F_GRM_FILT|CHECK,F_GRM_FILT
  ITEM "G|Gr. merc."
    MESSAGE CLEAR,F_GRM_FILT|HIDE,F_GRM_FILT
  ITEM "R|Rag. fis."
    MESSAGE CLEAR,F_GRM_FILT|HIDE,F_GRM_FILT
END

BOOLEAN F_GRM_FILT
BEGIN
  PROMPT 32 4 "Filtra per gruppo merc."
  MESSAGE TRUE SHOW,15@
  MESSAGE FALSE HIDE,15@
  GROUP 2 7
END

STRING F_DFLT_G_C 3
BEGIN
  PROMPT 2 5 "Da Gruppo merc. "
  USE GMC KEY 1 SELECT CODTAB[4,5]==""
  INPUT CODTAB F_DFLT_G_C
  DISPLAY "Codice" CODTAB[1,3]
  DISPLAY "Descrizione@50" S0
  OUTPUT F_DFLT_G_C CODTAB
  GROUP 15
END

STRING F_AFLT_G_C 3
BEGIN
  PROMPT 2 6 "A  Gruppo merc. "
  USE GMC KEY 1 SELECT CODTAB[4,5]==""
  INPUT CODTAB F_AFLT_G_C
  DISPLAY "Codice" CODTAB[1,3]
  DISPLAY "Descrizione@50" S0
  OUTPUT F_AFLT_G_C CODTAB
  GROUP 15
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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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

BOOLEAN F_PRINTDESAGG //checkbox per stampa descrizione aggiuntiva articoli
BEGIN
  PROMPT 30 10 "Descrizione aggiuntiva"
END

BOOLEAN F_PRINTSTORICO //checkbox per stampa prezzostorico e dataprezzostorico
BEGIN
  PROMPT 30 11 "Prezzo storico"
  GROUP 2
END

ENDPAGE

ENDMASK