#include "ps0713600a.h"

TOOLBAR "topbar" 0 0 0 2

#include <elabar.h>

ENDPAGE

PAGE "Importazione Fatture" 0 0 0 -3

STRING DLG_PROFILE 50
BEGIN
  PROMPT 9 -12 "Profilo "
  PSELECT
  FLAGS "H"
END

GROUPBOX DLG_NULL 78 5
BEGIN
  PROMPT 1 1 "@bParametri file"
END

STRING F_PATH 255 50
BEGIN
  PROMPT 2 2 "Cartella     "
  DSELECT
  CHECKTYPE REQUIRED  
  FLAGS "M"
END

STRING F_NAME1 50
BEGIN
  PROMPT 2 3 "File 1       "
  FSELECT "*.csv"
  FLAGS "B"
  CHECKTYPE NORMAL
END

GROUPBOX DLG_NULL 78 10
BEGIN
  PROMPT 1 6 "@bParametri documento"
END

RADIOBUTTON F_TIPOFAT 76
BEGIN
  PROMPT 2 7 "Tipo Fattura"
  ITEM "1|Fattura"
  ITEM "2|Fattura da ricevere"
  FLAGS "Z"  
END

NUMBER F_CODFOR 6
BEGIN
  PROMPT 2 10 "Fornitore "
  FLAG "UR"
  USE LF_CLIFO
  INPUT TIPOCF "F"
  INPUT CODCF F_CODFOR
  DISPLAY "Codice fornitore" CODCF
  DISPLAY "Ragione sociale@50" RAGSOC
  OUTPUT F_CODFOR CODCF
  OUTPUT F_RAGSOC RAGSOC
  CHECKTYPE REQUIRED
END

STRING F_RAGSOC 50
BEGIN
  PROMPT 25 10 ""
  USE LF_CLIFO KEY 2
  INPUT TIPOCF "F"
  INPUT RAGSOC F_RAGSOC
  DISPLAY "Ragione sociale@50" RAGSOC
  DISPLAY "Codice fornitore," CODCF
  COPY OUTPUT F_CODFOR
END

DATE F_DATADOC
BEGIN
  PROMPT 2 11 "Data Doc. "
END

DATE F_DATAREG
BEGIN
  PROMPT 25 11 "Data Reg. "
END

NUMBER F_NDOC 6
BEGIN
  PROMPT 2 12 "Num. Doc. "
END


NUMBER F_IMPON 8 2
BEGIN
  PROMPT 25 12 "Imponibile"
END

STRING F_CODIVA 4
BEGIN
  PROMPT 2 13 "Cod. IVA  "
  USE %IVA
  INPUT CODTAB  F_CODIVA
  DISPLAY "Codice " CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CODIVA CODTAB
  OUTPUT F_DESIVA S0
  CHECKTYPE REQUIRED
END

STRING F_DESIVA 50
BEGIN
  PROMPT 25 13 ""
  USE %IVA KEY 2
  INPUT S0  F_DESIVA
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice " CODTAB
  COPY OUTPUT F_CODIVA
  CHECKTYPE NORMAL
END

STRING F_CODCAU 4
BEGIN
  PROMPT 2 14 "Cod. cau. "
  USE LF_CAUSALI
  INPUT CODCAUS  F_CODCAU
  DISPLAY "Codice " CODCAUS
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_CODCAU CODCAUS
  OUTPUT F_DESCAU DESCR
  CHECKTYPE REQUIRED
END

STRING F_DESCAU 50
BEGIN
  PROMPT 25 14 ""
  USE LF_CAUSALI KEY 2
  INPUT DESCR  F_DESCAU
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Codice " CODCAUS
  COPY OUTPUT F_CODCAU
  CHECKTYPE NORMAL
END

ENDPAGE

ENDMASK