#include "co0800a.h"

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

PAGE "Importazione conferimenti da mercato" 0 2 0 0
STRING F_PERCORSO 50
BEGIN
PROMPT 2 2 "File da importare     " 
	CHECKTYPE REQUIRED
	VALIDATE NOT_EMPTY_FUNC
	FLAGS "B"
	HELP "Percorso e nome file da importare"
	WARNING "E' necessario specificare il nome del file da importare" 
END

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

STRING F_DESMERCATO 50
BEGIN 
  PROMPT 25 4 ""
  FLAGS "D"
END

STRING F_CODNUM 4
BEGIN
  PROMPT 2 6 "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 25 6 ""
  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

STRING F_TIPO 4
BEGIN
  PROMPT 2 8 "Tipo         "
  //FIELD TIPODOC
  HELP "Codice tipo documento"
  USE %TIP SELECT I1==5
  INPUT CODTAB F_TIPO
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_TIPO CODTAB
  OUTPUT F_DESTIPO S0
  CHECKTYPE FORCED
  FLAG "UP"
END

STRING F_DESTIPO 50
BEGIN
  PROMPT 25 8 ""
  HELP "Descrizione tipo documento"
  USE %TIP KEY 2 SELECT I1==5
  INPUT S0 F_DESTIPO
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice" CODTAB
  COPY OUTPUT F_TIPO
END

ENDPAGE

TOOLBAR "bottombar" 0 0 0 2
 
STRING DLG_PROFILE 70 50
BEGIN
  PROMPT 9 -3 "Profilo "
  PSELECT
END

ENDPAGE

ENDMASK