#include "ve5800a.h"

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

PAGE "Copia Documenti" 0 0 0 0

GROUPBOX DLG_NULL 78 3
BEGIN
  PROMPT 1 1 "@bDitta"
END

NUMBER F_CODDITTA 5
BEGIN
  PROMPT 2 2 "Codice "
  FLAGS "FD"
  USE LF_NDITTE
  CHECKTYPE NORMAL
  INPUT CODDITTA F_CODDITTA
  OUTPUT F_RAGSOCDITTA RAGSOC
END

STRING F_RAGSOCDITTA 50
BEGIN
  PROMPT 17 2 "Ragione "
  FLAGS "D"
END

GROUPBOX DLG_NULL 76 5
BEGIN
  PROMPT 1 4 "@bDocumenti sorgente"
END

STRING F_CODICE_ELAB 8
BEGIN
  PROMPT 2 5 "Codice "
  FLAG "U"
  USE %ELD SELECT I0 == 8
  INPUT CODTAB F_CODICE_ELAB
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@55" S0
  OUTPUT F_CODICE_ELAB CODTAB
  OUTPUT F_DESC_ELAB S0
  CHECKTYPE REQUIRED
  WARNING "E' necessario specificare il codice elaborazione"
END

STRING F_DESC_ELAB 50
BEGIN
  PROMPT 20 5 ""
  USE %ELD KEY 2 SELECT I0 == 8
  INPUT S0 F_DESC_ELAB
  DISPLAY "Descrizione@55" S0
  DISPLAY "Codice" CODTAB
  COPY OUTPUT F_CODICE_ELAB
END

NUMBER F_ANNO 4
BEGIN
  PROMPT 2 6 "Anno        "
  FLAGS "AU"
  CHECKTYPE REQUIRED
END

NUMBER F_FRNDOC 6
BEGIN
  PROMPT 2 7 "Da numero   "
  USE LF_DOC
  JOIN LF_CLIFO INTO TIPOCF==TIPOCF CODCF==CODCF
  INPUT ANNO F_ANNO SELECT
  INPUT CODNUM "F01"
  INPUT PROVV "D"
  INPUT NDOC F_FRNDOC
  DISPLAY "Num." CODNUM
  DISPLAY "Anno" ANNO
  DISPLAY "Provv" PROVV
  DISPLAY "Tipo" TIPODOC
  DISPLAY "Numero@7" NDOC
  DISPLAY "Data@10" DATADOC
  DISPLAY "C/F" TIPOCF
  DISPLAY "Codice" CODCF
  DISPLAY "Ragione Sociale@50" LF_CLIFO->RAGSOC
  OUTPUT F_FRNDOC NDOC
END

NUMBER F_TONDOC 6
BEGIN
  PROMPT 26 7 "A numero "
  COPY USE F_FRNDOC
  INPUT ANNO F_ANNO SELECT
  INPUT CODNUM "F01"
  INPUT PROVV "D"
  INPUT NDOC F_TONDOC
  COPY DISPLAY F_FRNDOC
  OUTPUT F_TONDOC NDOC
END

ENDPAGE

ENDMASK