#include "tftbcon.h"

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

PAGE "Contratti per PA" 0 2 0 0

GROUPBOX DLG_NULL 78 5
BEGIN
  PROMPT 1 0 "@bEstremi contratto/convenzione/ordine P.A."
END

LIST F_CON_TIPO 1 11
BEGIN
  PROMPT 2 1 "Tipo    "
  ITEM "C|Contratto"
  ITEM "V|Convenzione"
  ITEM "O|Ordine"
  FIELD CODTAB[1,1]
  KEY 1
END

NUMBER F_CON_CODCF 6
BEGIN
  PROMPT 2 2 "Cliente "
  USE LF_CFVEN SELECT PADESTIN!=""
  JOIN LF_CLIFO INTO TIPOCF==TIPOCF CODCF==CODCF
  INPUT TIPOCF "C"
  INPUT CODCF F_CON_CODCF
  DISPLAY "Codice" CODCF
  DISPLAY "Ragione Sociale@50" LF_CLIFO->RAGSOC
  DISPLAY "Destinatario" PADESTIN
  DISPLAY "Riferimento amm.@20" PARIFAMM
  OUTPUT F_CON_CODCF CODCF
  OUTPUT F_CON_RAGSOC LF_CLIFO->RAGSOC
  CHECKTYPE REQUIRED
  FIELD CODTAB[2,7]
  KEY 1
  MESSAGE EMPTY ENABLE,F_CON_RAGSOC
  MESSAGE DISABLE,F_CON_RAGSOC
END

STRING F_CON_RAGSOC 50
BEGIN
  PROMPT 24 2 ""
  USE LF_CLIFO KEY 2 SELECT LF_CFVEN->PADESTIN!=""
  JOINT LF_CFVEN INTO TIPOCF==TIPOCF CODCF==CODCF
  INPUT TIPOCF "C"
  INPUT RAGSOC F_CON_RAGSOC
  DISPLAY "Ragione Sociale@50" RAGSOC
  DISPLAY "Codice" CODCF
  DISPLAY "Destinatario" LF_CFVEN->PADESTIN
  DISPLAY "Riferimento amm.@20" LF_CFVEN->PARIFAMM
  COPY OUTPUT F_CON_CODCF
  CHECKTYPE NORMAL
END

STRING F_CON_CODICE 20
BEGIN
  PROMPT 2 3 "Numero  "
  FLAGS "U"
  FIELD CODTAB[8,27]
  USE &CON
  JOIN LF_CLIFO INTO TIPOCF="C" CODCF=CODTAB[2,7]
  INPUT CODTAB[1,1] F_CON_TIPO SELECT
  INPUT CODTAB[2,7] F_CON_CODCF SELECT
  INPUT CODTAB[8,27] F_CON_CODICE
  DISPLAY "Tipo" CODTAB[1,1]
  DISPLAY "Numero@20" CODTAB[8,]
  DISPLAY "Descrizione@50" S0
  DISPLAY "Cliente" CODTAB[2,7]
  DISPLAY "Ragione Sociale@50" LF_CLIFO->RAGSOC
  OUTPUT F_CON_CODCF CODTAB[2,7]
  OUTPUT F_CON_CODICE CODTAB[8,]
  OUTPUT F_CON_DESCRIZIONE S0
  CHECKTYPE REQUIRED
  KEY 1
END


GROUPBOX DLG_NULL 78 5
BEGIN
  PROMPT 1 5 "@bDati contratto/convenzione/ordine P.A."
END

STRING F_CON_DESCRIZIONE 70 50
BEGIN
  PROMPT 2 6 "Descrizione           "
  FIELD S0
  USE &CON KEY 2 SELECT (CODTAB[1,1]==#F_CON_TIPO)&&(STR(CODTAB[2,7]=#F_CON_CODCF))
  JOIN LF_CLIFO INTO TIPOCF=CODTAB[1,1] CODCF=CODTAB[2,7]
  INPUT S0 F_CON_DESCRIZIONE
  DISPLAY "Tipo" CODTAB[1,1]
  DISPLAY "Descrizione@50" S0
  DISPLAY "Numero@20" CODTAB[8,]
  DISPLAY "Cliente" CODTAB[2,7]
  DISPLAY "Ragione Sociale@50" LF_CLIFO->RAGSOC
  CHECKTYPE REQUIRED
  COPY OUTPUT F_CON_CODICE
  KEY 2
END

DATA F_CON_DATA
BEGIN
  PROMPT 2 7 "Data    "
  FIELD D0
END

STRING F_CON_RIFAMM 20
BEGIN
  PROMPT 24 7 "Riferimento amministrazione   "
  FIELD S4
END

GROUPBOX DLG_NULL 78 5
BEGIN
  PROMPT 1 10 "@bCausale"
END

STRING F_CON_CAUS1 50
BEGIN
  PROMPT 14 11 ""
  FIELD S1
END

STRING F_CON_CAUS2 50
BEGIN
  PROMPT 14 12 ""
  FIELD S2
END

STRING F_CON_CAUS3 50
BEGIN
  PROMPT 14 13 ""
  FIELD S3
END

ENDPAGE
ENDMASK