#include "co1200a.h"

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

PAGE "Stampa Conferimenti" 0 2 0 0

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

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

NUMBER F_FROMCLIENTE 6
BEGIN
  PROMPT 5 2 "Da mercato "
  USE LF_MERCATICOOP
  JOIN LF_CLIFO INTO TIPOCF=='C' CODCF==CODCF
  INPUT CODCF F_FROMCLIENTE
  DISPLAY "Codice" CODCF
  DISPLAY "Descrizione@50" LF_CLIFO->RAGSOC
  OUTPUT F_FROMCLIENTE CODCF
  FIELD #DAMERCATO
END

NUMBER F_TOCLIENTE 6
BEGIN
  PROMPT 5 3 "A mercato  "
  COPY USE F_FROMCLIENTE
  INPUT CODCF F_TOCLIENTE
  COPY DISPLAY F_FROMCLIENTE
  OUTPUT F_TOCLIENTE CODCF
  NUM_EXPR #F_TOCLIENTE>=#F_FROMCLIENTE
  WARNING "Intervallo codice cliente non corretto"
  FIELD #AMERCATO
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
  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
  STR_EXPR #F_TOCODART>=#F_FROMCODART
  WARNING "Range codice articolo non corretto"
  FIELD #ACODART
END

NUMBER F_DASOCIO 6
BEGIN
  PROMPT 5 6 "Da socio           "
  FIELD #DASOCIO
  USE LF_CLIFO SELECT LF_SOCICOOP->CODCF!=""
  JOIN  LF_SOCICOOP INTO CODCF==CODCF 
  INPUT TIPOCF "F"
  INPUT CODCF F_DASOCIO
  DISPLAY "Codice" CODCF
  DISPLAY "Ragione sociale@50" RAGSOC
  DISPLAY "Codice fiscale@16" COFI
  OUTPUT F_DASOCIO CODCF
END

NUMBER F_ASOCIO 6
BEGIN
  PROMPT 5 7 "A socio            "
  FIELD #ASOCIO
  USE LF_CLIFO SELECT LF_SOCICOOP->CODCF!=""
  JOIN  LF_SOCICOOP INTO CODCF==CODCF 
  INPUT TIPOCF "F"
  INPUT CODCF F_ASOCIO
  DISPLAY "Codice" CODCF
  DISPLAY "Ragione sociale@50" 20->RAGSOC
  DISPLAY "Codice fiscale@16" 20->COFI
  OUTPUT F_ASOCIO CODCF
  STR_EXPR #F_ASOCIO>=#F_DASOCIO
  WARNING "Range codice socio non corretto"
	GROUP 2
END

DATE F_DADATA
BEGIN
  PROMPT 50 2 "Da data    "
  FIELD #DADATA
END

DATE F_ADATA
BEGIN
  PROMPT 50 3 "A data     "
  FIELD #ADATA
END

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

ENDPAGE

ENDMASK