#include "ha0400a.h"

TOOLBAR "" 0 0 0 2

BUTTON DLG_CHECKALL 2 2
BEGIN
  PROMPT 1 1 "~Tutti"
  PICTURE TOOL_MULTISEL
END

#include <elabar.h>

ENDPAGE

PAGE "Contratti premio pareggiati" -1 -1 78 23

LIST F_TIPOCF 9
BEGIN
  PROMPT 130 101 ""
  FIELD TIPOCF
  IT "C|Cliente"
  FLAGS "D"
END

NUMBER F_CODCF 6
BEGIN
  PROMPT 1 1 "Cliente "
  WARNING "Cliente assente"
  HELP "Codice del cliente del documento"
  FLAGS "R"
  FIELD CODCF
  USE LF_CLIFO KEY 1
  INPUT TIPOCF "C"
  INPUT CODCF F_CODCF
  DISPLAY "Codice" CODCF
  DISPLAY "Ragione Sociale@50" RAGSOC
  DISPLAY "Partita IVA@12" PAIV
  DISPLAY "Sospeso" SOSPESO
  OUTPUT F_CODCF CODCF
  OUTPUT F_RAGSOC RAGSOC
  CHECKTYPE NORMAL
  ADD RUN cg0 -1 C
END

STRING F_RAGSOC 50
BEGIN
  WARNING "Cliente assente"
  HELP "Ragione sociale del cliente del documento"
  PROMPT 20 1 ""
  USE LF_CLIFO KEY 2
  INPUT TIPOCF "C"
  INPUT RAGSOC F_RAGSOC
  DISPLAY "Ragione Sociale@50" RAGSOC
  DISPLAY "Partita IVA@12" PAIV
  DISPLAY "Codice" CODCF
  COPY OUTPUT F_CODCF
  CHECKTYPE NORMAL
  ADD RUN cg0 -1 C
END

LIST F_TIPO 1 14
BEGIN
  PROMPT 1 2 "Tipo    "
  ITEM " |Selezionare"
  ITEM "A|Anticipo"
  ITEM "R|Rifatturazione"
  ITEM "T|Tutti"
END

SPREADSHEET F_RIGHE
BEGIN
  PROMPT 1 4 ""
  ITEM "@1"
  ITEM "Cliente"
  ITEM "Ragione sociale@40"
  ITEM "Anno"
  ITEM "Num."
  ITEM "N.Contr."
  ITEM "Tipo"
  ITEM "Importo@12"
  ITEM "Cod.Pag."
  ITEM "Agente"
  FLAGS "H"
END

ENDPAGE
ENDMASK

/////////////////////////////////////////
//maschera di riga
TOOLBAR "topbar" 0 0 0 2

BUTTON DLG_OK 2 2
BEGIN
  PROMPT 1 1 ""
END

BUTTON DLG_DELREC 2 2
BEGIN
  PROMPT 2 1 ""
END

BUTTON DLG_CANCEL 2 2
BEGIN
  PROMPT 3 1 ""
END

ENDPAGE

PAGE "Riga" -1 -1 76 12

BOOLEAN S_CHECK
BEGIN
  PROMPT 1 1 "Elabora "
END

NUMBER S_CODCF 6
BEGIN
  PROMPT 1 2 "Cliente "
END

STRING S_RAGSOC 50
BEGIN
  PROMPT 20 2 ""
END

NUMBER S_ANNO 4
BEGIN
  PROMPT 1 3 "Anno    "
END

STRING S_CODNUM 4
BEGIN
  PROMPT 1 4 "Num.    "
END

NUMBER S_NDOC 7
BEGIN
  PROMPT 1 4 "N. doc. "
END

LIST S_TIPO 18
BEGIN
  PROMPT 1 5 "Tipo    "
  ITEM "A|Anticipo"
  ITEM "R|Rifatturazione"
END

CURRENCY S_IMPORTO
BEGIN
  PROMPT 1 6 "Importo "
  FLAGS "U"
END

STRING S_CONDPAG 4
BEGIN
  PROMPT 1 7 "Pagam.  "
END

STRING S_CODAG 5
BEGIN
  PROMPT 1 8 "Agente  "
END

ENDPAGE
ENDMASK