#include "vec1100.h"

PAGE "Rifatturazione COVER" -1 -1 60 15

STRING F_CODNUM 4 4
BEGIN
  PROMPT 1 1 "Codice numerazione  "
  FLAG "UP"
  USE %NUM
  INPUT CODTAB F_CODNUM
  DISPLAY "Cod. Num." CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CODNUM CODTAB
  CHECKTYPE REQUIRED
END

NUMBER F_ANNO 4 0
BEGIN
  PROMPT 48 1 "Anno  "
  FLAG "P"
  CHECKTYPE REQUIRED
END

NUMBER F_CODCF 8
BEGIN
  PROMPT 1 3 "Codice cliente      "
  USE LF_CLIFO KEY 1
  INPUT TIPOCF "C"
  INPUT CODCF F_CODCF
  DISPLAY "Cod. Cli.@6R" CODCF
  DISPLAY "Ragione sociale@50" RAGSOC
  OUTPUT F_CODCF CODCF
  OUTPUT F_RAGSOC RAGSOC
  CHECKTYPE REQUIRED
END

STRING F_RAGSOC 50 30
BEGIN
  PROMPT 1 4 "Ragione Sociale     "
  USE LF_CLIFO KEY 2
  INPUT TIPOCF "C"
  INPUT RAGSOC F_RAGSOC
  DISPLAY "Ragione sociale@50" RAGSOC
  DISPLAY "Cod. Cli.@6R" CODCF
  OUTPUT F_CODCF CODCF
  OUTPUT F_RAGSOC RAGSOC
  CHECKTIPE REQUIRED 
END

DATE F_DA_DATADOC
BEGIN
  PROMPT 1 6 "Dalla data "
  VALIDATE NOT_EMPTY_FUNC
END

DATE F_A_DATADOC
BEGIN
  PROMPT 1 7 "Alla data  "
  VALIDATE DATE_CMP_FUNC >= F_DA_DATADOC
  WARNING "Inserire una data finale non inferiore alla data iniziale"
END

NUMBER F_PERCENT 6 3
BEGIN
  PROMPT 1 9 "Percentuale maggiorazione    "  
END

STRING F_LISTINO 3
BEGIN
  PROMPT 1 10 "Listino                      "
  USE LF_CONDV
  INPUT TIPO "L"
  INPUT COD F_LISTINO
  DISPLAY "Codice listino@3R" COD
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_LISTINO COD
  CHECKTYPE REQUIRED
END

DATE F_DATADOC
BEGIN
  PROMPT 1 11 "Data del documento da creare "
  FLAG "A"
END

BUTTON DLG_OK 10 2
BEGIN
        PROMPT -13 -1 ""
        MESSAGE EXIT,K_ENTER
END

BUTTON DLG_QUIT 10 2
BEGIN
        PROMPT -33 -1 ""
END

ENDPAGE

ENDMASK