#include "co1200a.h"

PAGE "Stampa Conferimenti" -1 -1 78 10

NUMBER F_FROMCLIENTE 6
BEGIN
  PROMPT 5 1 "Da mercato "
  USE LF_CLIFO
  INPUT TIPOCF "C"
  INPUT CODCF F_FROMCLIENTE
  DISPLAY "Codice" CODCF
  DISPLAY "Ragione sociale@50" RAGSOC
  OUTPUT F_FROMCLIENTE CODCF
  FIELD #DAMERCATO
END

NUMBER F_TOCLIENTE 6
BEGIN
  PROMPT 5 2 "A mercato  "
  USE LF_CLIFO
  INPUT TIPOCF "C"
  INPUT CODCF F_TOCLIENTE
  DISPLAY "Codice" CODCF
  DISPLAY "Ragione sociale@50" RAGSOC
  OUTPUT F_TOCLIENTE CODCF
  NUM_EXPR #F_TOCLIENTE>=#F_FROMCLIENTE
  WARNING "Range codice cliente non corretto"
  FIELD #AMERCATO
END

DATE F_DADATA
BEGIN
  PROMPT 50 1 "Da data    "
  FIELD #DADATA
  CHECKTYPE REQUIRED
END

DATE F_ADATA
BEGIN
  PROMPT 50 2 "A data     "
  FIELD #ADATA
  CHECKTYPE REQUIRED
END

NUMBER F_ANNO 4
BEGIN
  PROMPT 50 3 "Anno       "
  FIELD #ANNO
  CHECKTYPE REQUIRED
END

STRING F_FROMCODART 20
BEGIN
  PROMPT 5 4  "Da tipo movimento  "
  FLAGS "U"
  USE LF_ANAMAG
  INPUT CODART F_FROMCODART
  DISPLAY "Articolo@20" CODART
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_FROMCODART CODART
  GROUP G_ART G_ALL
  FIELD #DACODART
END

STRING F_TOCODART 20
BEGIN
  PROMPT 5 5  "A tipo movimento   "
  FLAGS "U"
  USE LF_ANAMAG
  INPUT CODART F_TOCODART
  DISPLAY "Articolo@20" CODART
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_TOCODART CODART
  GROUP G_ART G_ALL
  STR_EXPR #F_TOCODART>=#F_FROMCODART
  WARNING "Range codice articolo non corretto"
  FIELD #ACODART
END

STRING F_CODNUM 4
BEGIN 
   PROMPT 5 6 "Numerazione        "
   USE %NUM 
   INPUT CODTAB F_CODNUM
   DISPLAY "Codice" CODTAB
   DISPLAY "Descrizone@50" S0
   OUTPUT F_CODNUM CODTAB
   CHECKTYPE REQUIRED
   FIELD #CODNUM 
END 

BUTTON DLG_PRINT 10 2
BEGIN
 PROMPT -12 -1 "~Stampa"  
 MESSAGE EXIT,K_ENTER
END

STRING DLG_PROFILE 50 
BEGIN 
   PROMPT 5 7 "Profilo            "
   PSELECT
END 


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

ENDPAGE

ENDMASK