#include "fetbcon.h"

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

PAGE "Contratti per invio dati rilevanti" 0 2 0 0

GROUPBOX DLG_NULL 78 5
BEGIN
  PROMPT 1 1 "@bEstremi"
END

LIST F_TIPOCF 1 9
BEGIN
  PROMPT 2 2 ""
  ITEM "F|Fornitore"
  ITEM "C|Cliente"
  FIELD CODTAB[1,1]
  KEY 1
END

NUMBER F_CODCF 6
BEGIN
  PROMPT 14 2 ""
  USE LF_CLIFO
  INPUT TIPOCF F_TIPOCF SELECT
  INPUT CODCF F_CODCF
  DISPLAY "Codice" CODCF
  DISPLAY "Ragione Sociale@50" RAGSOC
  OUTPUT F_CODCF CODCF
  OUTPUT F_RAGSOC RAGSOC
  CHECKTYPE REQUIRED
  FIELD CODTAB[2,7]
  KEY 1
  MESSAGE EMPTY ENABLE,F_RAGSOC
  MESSAGE DISABLE,F_RAGSOC
END

STRING F_RAGSOC 50
BEGIN
  PROMPT 24 2 ""
  USE LF_CLIFO KEY 2
  INPUT TIPOCF F_TIPOCF SELECT
  INPUT RAGSOC F_RAGSOC
  DISPLAY "Ragione Sociale@50" RAGSOC
  DISPLAY "Codice" CODCF
  COPY OUTPUT F_CODCF
  CHECKTYPE NORMAL
END

STRING F_CONTRATTO 18
BEGIN
  PROMPT 2 3 "Codice contratto      "
  FLAGS "U"
  FIELD CODTAB[8,25]
  USE &CON
  JOIN LF_CLIFO INTO TIPOCF=CODTAB[1,1] CODCF=CODTAB[2,7]
  INPUT CODTAB[1,1]  F_TIPOCF SELECT
  INPUT CODTAB[2,7]  F_CODCF
  INPUT CODTAB[8,25] F_CONTRATTO
  DISPLAY "Contratto" CODTAB[8,]
  DISPLAY "Descrizione@50" S0
  DISPLAY "Tipo" CODTAB[1,1]
  DISPLAY "Cli/For" LF_CLIFO->CODCF
  DISPLAY "Ragione Sociale@50" LF_CLIFO->RAGSOC
  OUTPUT F_CODCF CODTAB[2,7]
  OUTPUT F_CONTRATTO CODTAB[8,]
  OUTPUT F_DESCRIZIONE S0
  CHECKTYPE REQUIRED
  KEY 1
END

STRING F_DESCRIZIONE 50
BEGIN
  PROMPT 2 4 "Descrizione           "
  FIELD S0
  USE &CON KEY 2 SELECT (CODTAB[1,1]==#F_TIPOCF)&&(STR(CODTAB[2,7]=#F_CODCF))
  JOIN LF_CLIFO INTO TIPOCF=CODTAB[1,1] CODCF=CODTAB[2,7]
  INPUT S0 F_DESCRIZIONE
  DISPLAY "Descrizione@50" S0
  DISPLAY "Contratto" CODTAB[8,]
  DISPLAY "Tipo" CODTAB[1,1]
  DISPLAY "Cli/For" LF_CLIFO->CODCF
  DISPLAY "Ragione Sociale@50" LF_CLIFO->RAGSOC
  CHECKTYPE REQUIRED
  COPY OUTPUT F_CONTRATTO
  KEY 2
END

GROUPBOX DLG_NULL 78 5
BEGIN
  PROMPT 1 6 "@bDurata ed importo"
END

DATA F_INIZIO
BEGIN
  PROMPT 2 7 "Inizio "
  HELP "Data inizio contratto"
  FIELD D0
END

DATA F_FINE
BEGIN
  PROMPT 24 7 "Fine  "
  HELP "Data fine contratto"
  FIELD D1
  VALIDATE DATE_CMP_FUNC >= #F_INIZIO
  WARNING "La data finale deve essere successiva a quella iniziale"
END

CURRENCY F_IMPORTO 15
BEGIN
  PROMPT 2 8 "Totale "
  HELP "Inserire un importo non inferiore a 3000 Euro"
  FIELD R0
END

TEXT DLG_NULL
BEGIN
  PROMPT 2 9 "Importo non inferiore a 3000 Euro (Legge n.122 del 30-07-2010)"
END

ENDPAGE
ENDMASK