#include "co0900a.h"

TOOLBAR "" 0 0 0 2
#include <stdbar.h>
ENDPAGE

PAGE "Aggiornamento prezzi" 0 2 0 0
STRING F_CODNUM 4
BEGIN
  PROMPT 2 2 "Numerazione "
  FIELD CODNUM
  HELP "Codice numerazione"
  USE %NUM SELECT I1==5
  INPUT CODTAB F_CODNUM
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CODNUM CODTAB
  OUTPUT F_DESNUM S0
  CHECKTYPE FORCED
  FLAG "UPA"
  WARNING "Numerazione assente"
  KEY 1 2
END

STRING F_DESNUM 50
BEGIN
  PROMPT 37 2 ""
  HELP "Descrizione numerazione"
  USE %NUM KEY 2 SELECT I1==5
  INPUT S0 F_DESNUM
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice" CODTAB
  COPY OUTPUT F_CODNUM
END

NUMBER F_CODMER 6
BEGIN
  PROMPT 2 4 "Mercato    "
  USE LF_MERCATICOOP
  JOIN LF_CLIFO INTO TIPOCF=='C' CODCF==CODCF
  INPUT CODCF F_CODMER
  DISPLAY "Codice" CODCF
  DISPLAY "Descrizione@50" 20->RAGSOC
  OUTPUT F_CODMER CODCF
  OUTPUT F_DESMER 20->RAGSOC
  FLAG "U"
  CHECKTYPE REQUIRED
END

STRING F_DESMER 50
BEGIN 
  PROMPT 37 4 ""
	USE LF_CLIFO KEY 2
	JOIN LF_MERCATICOOP INTO CODCF==CODCF
  INPUT TIPOCF "C"
	INPUT RAGSOC F_DESMER
  DISPLAY "Descrizione@50" RAGSOC
  DISPLAY "Codice" LF_MERCATICOOP->CODCF
	COPY OUTPUT F_CODMER
END

STRING F_CODART 20
BEGIN
  PROMPT 2 6 "Articolo   "
  FLAG "U"
  USE LF_ANAMAG
  INPUT CODART F_CODART
  DISPLAY "Codice@20" CODART
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_CODART CODART
  OUTPUT F_DESART DESCR
  CHECKTYPE NORMAL
END

STRING F_DESART 50 
BEGIN
  PROMPT 37 6 ""
  USE LF_ANAMAG KEY 2
  INPUT DESCR F_DESART
  DISPLAY "Codice@20" CODART
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_CODART CODART
  OUTPUT F_DESART DESCR
END

DATE F_DATAINI
BEGIN
  PROMPT 2 8 "Data iniz. "
END

DATE F_DATAFIN
BEGIN
  PROMPT 37 8 "Data fin. "
END

CURRENCY F_PREZZO 18
BEGIN 
  PROMPT 2 10 "Prezzo     "
  FLAG "U"
END

ENDPAGE

ENDMASK