#include "co1500a.h"

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

PAGE "Invio Fatture soci coop a TeamSystem" 0 2 0 0

GROUPBOX DLG_NULL 76 3
BEGIN
  PROMPT 2 1 "@bDitta corrente"
END

NUMBER F_CODDITTA 5
BEGIN
  PROMPT 3 2 "Codice      "
  FLAGS "FD"
  USE LF_NDITTE
  INPUT CODDITTA F_CODDITTA
  OUTPUT F_RAGSOC RAGSOC
  CHECKTYPE REQUIRED
END

STRING F_RAGSOC 50
BEGIN
  PROMPT 23 2 ""
  FLAGS "D"
END

BOOLEAN F_MOVIMENTI
BEGIN
  PROMPT 3 5 "Fatture"
	FLAGS "H"
END

BOOLEAN F_INTRASTAT
BEGIN
  PROMPT 3 6 "Intrastat"
	FLAGS "H"
END

STRING F_PATH 256 39
BEGIN
  PROMPT 2 4 "Cartella  "
  DSELECT
  CHECKTYPE REQUIRED
  FIELD TSDestPath
END

STRING F_FILE 18
BEGIN
  PROMPT 55 4 "File"
  FIELD TSDestFile
END

STRING F_CODEL 8
BEGIN
  PROMPT 2 6 "Cod.Elab. "
  FLAG "U"
  USE %ELD SELECT I0 == 3
  INPUT CODTAB F_CODEL
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@55" S0
  OUTPUT F_CODEL CODTAB
  OUTPUT F_DESEL S0
  CHECKTYPE REQUIRED
	FIELD TSCodEl
  WARNING "E' necessario specificare il codice elaborazione"
END

STRING F_DESEL 50
BEGIN
  PROMPT 24 6 ""
  USE %ELD KEY 2 SELECT I0 == 3
  INPUT S0 F_DESEL
  DISPLAY "Descrizione@55" S0
  DISPLAY "Codice" CODTAB
  COPY OUTPUT F_CODEL
END

STRING F_CODNUM 4
BEGIN
  PROMPT 2 8 "Numeraz.  "
  FIELD CODNUM
  HELP "Codice numerazione"
  USE %NUM
  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"
	FIELD TSCodNum
END

STRING F_DESNUM 50
BEGIN
  PROMPT 24 8 ""
  HELP "Descrizione numerazione"
  USE %NUM KEY 2
  INPUT S0 F_DESNUM
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice" CODTAB
  COPY OUTPUT F_CODNUM
END


DATE F_DATA_DA
BEGIN
  PROMPT 2 10 "Data iniz."
END

DATE F_DATA_AL
BEGIN
  PROMPT 30 10 "Data fin. "
END

ENDPAGE

ENDMASK