campo-sirio/fe/fetbcon.uml

#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_CON_TIPOCF 1 9
BEGIN
  PROMPT 2 2 ""
  ITEM "C|Cliente"
  ITEM "F|Fornitore"
  FIELD CODTAB[1,1]
  KEY 1
END

NUMBER F_CON_CODCF 6
BEGIN
  PROMPT 14 2 ""
  USE LF_CLIFO
  INPUT TIPOCF F_CON_TIPOCF SELECT
  INPUT CODCF F_CON_CODCF
  DISPLAY "Codice" CODCF
  DISPLAY "Ragione Sociale@50" RAGSOC
  OUTPUT F_CON_CODCF CODCF
  OUTPUT F_CON_RAGSOC 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
  INPUT TIPOCF F_CON_TIPOCF SELECT
  INPUT RAGSOC F_CON_RAGSOC
  DISPLAY "Ragione Sociale@50" RAGSOC
  DISPLAY "Codice" CODCF
  COPY OUTPUT F_CON_CODCF
  CHECKTYPE NORMAL
END

STRING F_CON_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_CON_TIPOCF SELECT
  INPUT CODTAB[2,7] F_CON_CODCF
  INPUT CODTAB[8,25] F_CON_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_CON_CODCF CODTAB[2,7]
  OUTPUT F_CON_CONTRATTO CODTAB[8,]
  OUTPUT F_CON_DESCRIZIONE S0
  CHECKTYPE REQUIRED
  KEY 1
END

STRING F_CON_DESCRIZIONE 50
BEGIN
  PROMPT 2 4 "Descrizione           "
  FIELD S0
  USE &CON KEY 2 SELECT (CODTAB[1,1]==#F_CON_TIPOCF)&&(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 "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_CON_CONTRATTO
  KEY 2
END

STRING F_CON_PADRE 18
BEGIN
  PROMPT 2 5 "Contratto principale  "
  FLAGS "U"
  FIELD S1
  COPY USE F_CON_CONTRATTO
  INPUT CODTAB[1,1] F_CON_TIPOCF SELECT
  INPUT CODTAB[2,7] F_CON_CODCF SELECT
  INPUT CODTAB[8,25] F_CON_PADRE
  COPY DISPLAY F_CON_CONTRATTO
  OUTPUT F_CON_PADRE CODTAB[8,]
  //OUTPUT F_CON_DESPADRE S0
  CHECKTYPE NORMAL
  STR_EXPR #F_CON_PADRE!=#F_CON_CONTRATTO
  WARNING "Il codice del contratto principale deve essere diverso!"
END

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

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

DATA F_CON_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

RADIOBUTTON F_CON_MODPAG 1 78
BEGIN
  PROMPT 1 10 "Modalit<69> di pagamento "
  ITEM "2|Importo frazionato"
  ITEM "3|Corrispettivi periodici"
  FIELD S6
  FLAGS "Z"
END

SPREADSHEET F_CON_RATE 40 6
BEGIN
  PROMPT 2 13 ""
  ITEM "Anno"
  ITEM "Importo@12R"
  ITEM "Imposta@12R"
END

ENDPAGE
ENDMASK

PAGE "Rateizzazione" -1 -1 25 5

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

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

CURRENCY R_CON_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