#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 6
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

STRING F_PADRE 18
BEGIN
  PROMPT 2 5 "Contratto principale  "
  FLAGS "U"
  FIELD S1
  COPY USE F_CONTRATTO
  INPUT CODTAB[1,1] F_TIPOCF SELECT
  INPUT CODTAB[2,7] F_CODCF SELECT
  INPUT CODTAB[8,25] F_PADRE
  COPY DISPLAY F_CONTRATTO
  OUTPUT F_PADRE CODTAB[8,]
  //OUTPUT F_DESPADRE S0
  CHECKTYPE NORMAL
END

GROUPBOX DLG_NULL 78 3
BEGIN
  PROMPT 1 7 "@bDurata"
END

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

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

SPREADSHEET F_RATE 40 6
BEGIN
  PROMPT 2 11 ""
  ITEM "Anno"
  ITEM "Importo@12R"
  ITEM "Imposta@12R"
END

ENDPAGE
ENDMASK

PAGE "Rateizzazione" -1 -1 25 5

NUMBER R_ANNO 4
BEGIN
  PROMPT 1 1 "Anno    "
  FIELD I0
END

CURRENCY R_IMPORTO 12
BEGIN
  PROMPT 1 2 "Importo "
  FIELD R0
END

CURRENCY R_IMPOSTA 12
BEGIN
  PROMPT 1 3 "Imposta "
  FIELD R1
END

ENDPAGE

TOOLBAR "topbar" 0 0 0 2

BUTTON DLG_OK 2 2 
BEGIN
  PROMPT 1 1 ""
END

BUTTON DLG_CANCEL 2 2 
BEGIN
  PROMPT 1 2 ""
END

ENDPAGE

ENDMASK