#include "ha0300a.h"

TOOLBAR "" 0 0 0 2

#include <relapbar.h>

ENDPAGE

PAGE "Gestione contratti premio" -1 -1 78 23

RADIOBUTTON F_TIPOCONTR 1 78
BEGIN
  PROMPT 1 0 "@bTipo Contratto"
  ITEM "A|Anticipo" 
  ITEM "P|Posticipo" 
  ITEM "R|Rifatturazione" 
  ITEM "N|Noleggio" 
  FLAGS "GZ"
END

GROUPBOX DLG_NULL 78 5
BEGIN
  PROMPT 1 3 ""
END

STRING F_CODNUM 4
BEGIN
  PROMPT 2 4 "Cod. num. "
  FIELD CODNUM
  USE %NUM KEY 1
  INPUT CODTAB F_CODNUM
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  CHECKTYPE NORMAL
  FLAGS "GDU"
  KEY 1
END

STRING F_TIPODOC 4
BEGIN
  FIELD TIPODOC
  PROMPT 24 4 "Tipo doc.  "
  USE %TIP KEY 1
  INPUT CODTAB F_TIPODOC
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  CHECKTYPE NORMAL
  FLAGS "GDU"
END

LIST F_PROVV 1
BEGIN
  PROMPT 140 101 ""
  ITEM "D|D"
  FIELD PROVV
  FLAGS "D"
  KEY 1
END

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

NUMBER F_CODCF 6
BEGIN
  PROMPT 2 5 "Cliente   "
  FIELD CODCF
  USE LF_CLIFO SELECT (GRUPPO=4) && (CONTO=101) && (SOSPESO!="X")
  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_DESCF RAGSOC
  CHECKTYPE REQUIRED
  ADD RUN cg0 -1 C
  WARNING "Cliente assente"
  HELP "Codice del cliente del contratto"
END

STRING F_DESCF 50
BEGIN
  PROMPT 24 5 ""
  USE LF_CLIFO KEY 2 SELECT (GRUPPO=4) && (CONTO=101) && (SOSPESO!="X")
  INPUT TIPOCF "C"
  INPUT RAGSOC F_DESCF
  DISPLAY "Ragione Sociale@50" RAGSOC
  DISPLAY "Codice" CODCF
  DISPLAY "Partita IVA@12" PAIV
  DISPLAY "Sospeso" SOSPESO
  COPY OUTPUT F_CODCF
  CHECKTYPE REQUIRED
  ADD RUN cg0 -1 C
  WARNING "Cliente assente"
  HELP "Ragione sociale del cliente del contratto"
END

NUMBER F_ANNO 4
BEGIN
  PROMPT 2 6 "Esercizio "
  USE ESC
  INPUT CODTAB F_ANNO
  DISPLAY "Codice" CODTAB
  DISPLAY "Inizio esercizio" D0
  DISPLAY "Fine esercizio" D1
  OUTPUT F_ANNO CODTAB
  FIELD ANNO
  CHECKTYPE REQUIRED
  FLAGS "AZ"
  KEY 1
END

NUMBER F_NDOC 6
BEGIN
  PROMPT 24 6 "N. contratto "
  USE LF_DOC KEY 5 SELECT (BETWEEN(DOC2,#F_CODCF,#F_CODCF))&&(TIPODOC==#F_TIPODOC)
  JOIN LF_CLIFO INTO TIPOCF==TIPOCF CODCF==DOC2
  INPUT PROVV "D"
  INPUT CODNUM F_CODNUM SELECT
  INPUT ANNO F_ANNO
  INPUT NDOC F_NDOC
  DISPLAY "Numero" NDOC
  DISPLAY "Data doc.@10" DATADOC
  DISPLAY "Inizio@10" DATACOMP
  DISPLAY "Fine@10" DATAFCOMP
  DISPLAY "Tipo" TIPODOC
  DISPLAY "Agente" CODAG
  DISPLAY "Cliente" DOC2
  DISPLAY "Ragione sociale@50" LF_CLIFO->RAGSOC
  OUPUT F_ANNO ANNO
  OUPUT F_NDOC NDOC
  FIELD NDOC
  KEY 1
  CHECKTYPE REQUIRED
END

ENDPAGE

ENDMASK