#include "pe1400.h"

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

PAGE "Preventivi" 0 0 0 0

GROUPBOX DLG_NULL 78 6
BEGIN
  PROMPT 1 0 "@bPreventivo"
END

LIST F_PROVV 1 12
BEGIN
  PROMPT 69 69 ""
  ITEM "D|Definitivi"
  ITEM "P|Provvisori"
  FIELD PROVV
  FLAGS "D"
  KEY 1
END

NUMBER F_ANNO 4
BEGIN
  PROMPT 2 1 "Anno         "
  FLAGS "AU"
  CHECKTYPE REQUIRED
  KEY 1
  FIELD ANNO
END

STRING F_CODNUM 4
BEGIN
  PROMPT 2 2 "Numerazione  "
  USE %NUM SELECT I0>0
  FLAGS "UP"
  INPUT CODTAB F_CODNUM
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CODNUM CODTAB
  OUTPUT F_DESNUM S0
  CHECKTYPE REQUIRED
  FIELD CODNUM
  KEY 1
END

STRING F_DESNUM 50
BEGIN
  PROMPT 24 2 ""
  USE %NUM KEY 2 SELECT I0>0
  INPUT S0 F_DESNUM
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice Num." CODTAB
  COPY OUTPUT F_CODNUM
  CHECKTYPE REQUIRED
END

STRING F_TIPODOC 4
BEGIN
  PROMPT 2 3 "Tipo         "
  FLAGS "DG"
  FIELD TIPODOC
  USE %TIP
  INPUT CODTAB F_TIPODOC
  OUTPUT F_DESTIPO S0
  CHEKCTYPE NORMAL
END

STRING F_DESTIPO 50
BEGIN
  PROMPT 24 3 ""
  FLAGS "D"
END

NUMBER F_NDOC 7
BEGIN
  PROMPT 2 4 "Numero    "
  USE LF_DOC
  JOIN LF_CLIFO INTO TIPOCF=TIPOCF CODCF==CODCF
  INPUT PROVV "D"
  INPUT ANNO F_ANNO SELECT
  INPUT CODNUM F_CODNUM SELECT
  INPUT NDOC F_NDOC
  DISPLAY "Anno" ANNO
  DISPLAY "Numerazione" CODNUM
  DISPLAY "Numero" NDOC
  DISPLAY "Stato" STATO
  DISPLAY "Cliente" CODCF
  DISPLAY "Ragione Sociale@50" LF_CLIFO->RAGSOC
  OUTPUT F_NDOC NDOC
  CHECKTYPE REQUIRED
  FIELD NDOC
  KEY 1
END

NUMBER F_NPREV 7
BEGIN
  PROMPT 42 4 "Preventivo "
  FLAGS "D"
END

NUMBER F_NREV 3
BEGIN
  PROMPT 61 4 "Revisione "
  FLAGS "DZ"
END

NUMBER F_CLIFO 6
BEGIN
  PROMPT 2 6 "Cliente    "
  USE LF_DOC KEY 4 SELECT (CODNUM=#F_CODNUM)&&(BETWEEN(ANNO,#F_ANNO,#F_ANNO))
  JOIN LF_CLIFO INTO TIPOCF=TIPOCF CODCF==CODCF
  INPUT TIPOCF "C"
  INPUT CODCF F_CLIFO
  INPUT ANNO F_ANNO
  DISPLAY "Cliente" CODCF
  DISPLAY "Ragione Sociale@50" LF_CLIFO->RAGSOC
  DISPLAY "Anno" LF_DOC->ANNO
  DISPLAY "Numerazione" LF_DOC->CODNUM
  DISPLAY "Numero" LF_DOC->NDOC
  DISPLAY "Stato" LF_DOC->STATO
  OUTPUT F_CLIFO LF_CLIFO->CODCF
  OUTPUT F_RAGSOC LF_CLIFO->RAGSOC
  OUTPUT F_NDOC LF_DOC->NDOC
  CHECKTYPE NORMAL
  ADD RUN cg0 -1
END

STRING F_RAGSOC 50
BEGIN
  PROMPT 24 6 ""
  USE LF_CLIFO KEY 2 SELECT (LF_DOC->NDOC!="")&&(LF_DOC->CODNUM=#F_CODNUM)
  JOIN LF_DOC KEY 4 INTO TIPOCF=TIPOCF CODCF==CODCF PROVV=#F_PROVV ANNO=#F_ANNO CODNUM=#F_CODNUM
  INPUT TIPOCF "C"
  INPUT RAGSOC F_RAGSOC
  COPY DISPLAY F_CLIFO
  COPY OUTPUT F_CLIFO
  CHECKTYPE NORMAL
END

ENDPAGE

ENDMASK