#include "lv0700a.h"

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

PAGE "Stampa Interrogazione Cliente\Articolo" -1 -1 40 5

GROUPBOX DLG_NULL 85 14
BEGIN
  PROMPT 1 1 "@b Parametri Estrazione"
END

NUMBER 201 6
BEGIN
  PROMPT 2 2 "Cliente     " 
  FIELD #F_CODCF
  FLAGS "U"
  KEY 1
  USE LF_CLIFO 
  INPUT TIPOCF "C"
  INPUT CODCF 201
  DISPLAY "Codice" CODCF
  DISPLAY "Ragione Sociale@50" RAGSOC
  OUTPUT 201 CODCF
  OUTPUT 202 RAGSOC
  CHECKTYPE REQUIRED
END

STRING 202 50 
BEGIN
  PROMPT 24 2 ""
  KEY 2
  USE LF_CLIFO KEY 2
  INPUT TIPOCF "C"
  INPUT RAGSOC 202
  DISPLAY "Ragione Sociale@50" RAGSOC
  DISPLAY "Codice" CODCF
  COPY OUTPUT 201
  FIELD #F_RAGSOC
END

STRING 203 20
  BEGIN
  PROMPT 2 3 "Articolo    "
  FLAG "U"
  USE 47
  INPUT CODART 203
  DISPLAY "Codice@20" CODART
  DISPAY "Descrizione@50" DESCR
  OUTPUT 203 CODART
  OUTPUT 204 DESCR  
  FIELD #F_CODART
END

STRING 204 50 
BE
  PR 2 4 "Descrizione "
  USE 47 KEY 2
  INPUT DESCR 204
  DISPLAY "Codice@20" CODART
  DISPALY "Descrizione@50" DESCR
  OUTPUT 203 CODART
  OUTPUT 204 DESCR  
  FIELD #F_DESART
END

STRING 205 3
BEGIN
  PROMPT 2 6 "Causale Lav."
  FLAGS "U"  
  USE &CAU
  INPUT CODTAB 205
  DISPLAY "Codice@8" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT 205 CODTAB
  OUTPUT 206 S0
  FIELD #F_CODAGG1
END

STRING 206 50
BEGIN
  PROMPT 24 6 ""
  FLAGS "D" 
  FIELD #F_DESCODAGG1
END   


STRING 207 4
BEGIN
  PROMPT 2 8 "Numerazione "
  HELP "Codice numerazione"
  USE %NUM
  INPUT CODTAB 207
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT 207 CODTAB
  OUTPUT 208 S0
  CHECKTYPE REQUIRED
  FLAGS "UPA"
  WARNING "Numerazione assente"
  FIELD #F_CODNUM
END

STRING 208 50
BEGIN
  PROMPT 24 8 ""
  HELP "Descrizione Numerazione"
  USE %NUM KEY 2
  INPUT S0 208
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice" CODTAB
  OUTPUT 207 CODTAB
  OUTPUT 208 S0
  FIELD #F_DESCODNUM
END



STRING 209 4
BEGIN
  PROMPT 2 9 "Tipo        "
  HELP "Codice tipo documento"
  USE %TIP
  INPUT CODTAB 209
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT 209 CODTAB
  OUTPUT 210 S0
  FLAGS "UP"
  FIELD #F_TIPODOC
END

STRING 210 50
BEGIN
  PROMPT 24 9 ""
  HELP "Descrizione tipo documento"
  USE %TIP KEY 2
  INPUT S0 210
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice" CODTAB
  COPY OUTPUT 209
  FIELD #F_DESTIPODOC
END  

DATE 211
BEGIN 
	PROMP 2 11 "Da Data     "
	FIELD #F_DATADOC_DA
	CHECKTYPE REQUIRED
END

DATE 212
BEGIN 
	PROMP 40 11 "Da Data "
	FIELD #F_DATADOC_A
	VALIDATE DATE_CMP_FUNC >= 211
	WARNING "La data finale non deve essere successiva a quella finale"
	CHECKTYPE REQUIRED
	FLAGS "A"
END

BOOLEAN 213
BEGIN
  FIELD #F_TOT
  PROMPT 2 13 "Solo Totali"
END


ENDPAGE
ENDMASK