#include "lv4200a.h"

TOOLBAR "" 0 0 0 2
#include "elabar.h"
ENDPAGE

TOOLBAR "" 0 21 0 2

STRING DLG_PROFILE 50
BEGIN
  PROMPT 9 -1 "Profilo "
  PSELECT
END

ENDPAGE

PAGE "Importazione saldaconto COGECO" 0 0 0 -3

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

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

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

GROUPBOX DLG_NULL 90 4
BEGIN
  PROMPT 2 4 "@bSorgente"
END

STRING F_PATH 256 39
BEGIN
  PROMPT 3 5 "Cartella  "
  DSELECT
  CHECKTYPE REQUIRED
  FIELD ComInPath
END

STRING F_NAME 18
BEGIN
  PROMPT 3 6 "File      "
  FIELD ComInFile
  CHECKTYPE REQUIRED
END

GROUPBOX DLG_NULL 90 4
BEGIN
  PROMPT 2 8 "Causali"
END

STRING F_CODCAUSC 3
BEGIN
	PROMPT 3 9 "Clienti   "
	FLAGS "UZ"
	USE LF_CAUSALI SELECT TIPOMOV=1
	INPUT CODCAUS F_CODCAUSC
	DISPLAY "Codice" CODCAUS
	DISPLAY "Descrizione@60" DESCR
	OUTPUT F_CODCAUSC CODCAUS
	OUTPUT F_DESCRCAUSC DESCR
	CHECKTYPE REEQUIRED
END

STRING F_DESCRCAUSC 50
BEGIN
	PROMPT 20 9 ""
	USE LF_CAUSALI KEY 2 SELECT TIPOMOV=1
	INPUT DESCR F_DESCRCAUSC
	DISPLAY "Descrizione@60" DESCR
	DISPLAY "Codice" CODCAUS
	COPY OUTPUT F_CODCAUSC
	CHECKTYPE REQUIRED
END

STRING F_CODCAUSF 3
BEGIN
	PROMPT 3 10 "Fornitori "
	FLAGS "UZ"
	COPY USE F_CODCAUSC
	INPUT CODCAUS F_CODCAUSF
	COPY DISPLAY F_CODCAUSC
	OUTPUT F_CODCAUSF CODCAUS
	OUTPUT F_DESCRCAUSF DESCR
	CHECKTYPE REQUIRED
END

STRING F_DESCRCAUSF 50
BEGIN
	PROMPT 20 10 ""
	COPY USE F_DESCRCAUSC
	INPUT DESCR F_DESCRCAUSF
	COPY DISPLAY F_DESCRCAUSC
	COPY OUTPUT F_CODCAUSF
	CHECKTYPE REQUIRED
END

STRING F_CODIVA 3
BEGIN
	PROMPT 3 12 "IVA sosp. "
	FLAGS "U"
	USE %IVA
	INPUT CODTAB F_CODIVA
	DISPLAY "Codice" CODTAB
	DISPLAY "Descrizione@60" S0
	OUTPUT F_CODIVA CODTAB
	OUTPUT F_DESCRIVA S0
	CHECKTYPE REQUIRED
END

STRING F_DESCRIVA 50
BEGIN
	PROMPT 20 12 ""
	USE %IVA KEY 2
	INPUT S0 F_DESCRIVA
	DISPLAY "Descrizione@60" S0
	DISPLAY "Codice" CODCAUS
	COPY OUTPUT F_CODIVA
	CHECKTYPE REQUIRED
END

GROUPBOX DLG_NULL 90 3
BEGIN
  PROMPT 2 13  "Destinazione"
END

STRING F_PATHOUT 256 39
BEGIN
  PROMPT 3 14 "Cartella "
  DSELECT
  CHECKTYPE REQUIRED
  FIELD ComOutPath
END

ENDPAGE

ENDMASK