#include "ve3300.h"

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

GROUPBOX DLG_NULL 62 5 // groupbox attorno agli elementi di selezione della chiave
BEGIN
  PROMPT 1 0 "Selezione"
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

NUMBER F_C_CODCF 6 // codice cliente/fornitore, solo contratti
BEGIN
  PROMPT 30 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 2 "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
  OUTPUT F_DESCR DESCR
  CHECKTYPE NORMAL
END

STRING F_C_COD 3 // codice contratto, solo contratti
BEGIN
  PROMPT 2 2 "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
  OUTPUT F_DESCR DESCR
  CHECKTYPE NORMAL
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
  OUTPUT F_DESCR DESCR
  CHECKTYPE NORMAL
END

STRING F_DESCR 40
BEGIN
  PROMTP 2 3 "Descrizione     "
  FLAGS "D"
END

BOOLEAN F_EXTENDED
BEGIN
  PROMPT 2 6 "Stampa estesa"
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