campo-sirio/cg/cg2100e.uml

#include "cg2100e.h"

TOOLBAR "topbar" 0 0 0 2

BUTTON DLG_NEWREC 10 2
BEGIN
  PROMPT -13 -11 "~Nuovo"
  PICTURE BMP_NEWREC
END

BUTTON DLG_OK 10 2
BEGIN
  PROMPT -33 -11 ""
  PICTURE BMP_OK
END

ENDPAGE

PAGE "Partite" -1 -1 77 20

BOOLEAN F_TUTTE
BEGIN
  PROMPT 1 0 "Mostra tutte le partite"
END

STRING F_VALUTA 3
BEGIN
  PROMPT 28 0 "Valuta "
  FLAGS "DUZ"
END

DATE F_DATACAMBIO
BEGIN
  PROMPT 41 0 "Data "
  FLAGS "DR"
  USE CAM
  INPUT CODTAB[1,3] F_VALUTA SELECT
  INPUT CODTAB[4,11] F_DATACAMBIO
  DISPLAY "Codice valuta" CODTAB[1,3]
  DISPLAY "Data@10" D0
  DISPLAY "Cambio@18R" S4   
  OUTPUT F_DATACAMBIO D0
  OUTPUT F_CAMBIO S4
  CHECKTYPE SEARCH
  GROUP 3
END

NUMBER F_CAMBIO 15 6
BEGIN
  PROMPT 58 0 "Cambio  "
  FLAGS "DU"
  GROUP 3
  PICTURE ".6"
  FIELD ANTIOUTPUT
  CHECKTYPE REQUIRED
END

TREE F_PARTITE 78 8
BEGIN
  PROMPT 1 1 ""
END

GROUPBOX DLG_NULL 37 6
BEGIN
  PROMPT 1 10 "@bPartita"
  GROUP 10
END

STRING F_DOCUMENTI_P 18
BEGIN
  PROMPT 2 11 "Documenti      "
  GROUP 10
  FLAGS "LR"
END

STRING F_PAGAMENTI_P 18
BEGIN
  PROMPT 2 12 "Pagamenti      "
  GROUP 10
  FLAGS "LR"
END

STRING F_IMPORTI_P 18
BEGIN
  PROMPT 2 13 "Altri importi  "
  GROUP 10
  FLAGS "LR"
END

STRING F_SALDO_P 18
BEGIN
  PROMPT 2 14 "Saldo          "
  GROUP 10
  FLAGS "LR"
END

GROUPBOX DLG_NULL 37 6
BEGIN
  PROMPT 41 10 "@bRiga"
  GROUP 20
END

DATE F_DATA_R
BEGIN
  PROMPT 42 11 "Data           "
  GROUP 20
END

STRING F_IMPORTO_R 18
BEGIN
  PROMPT 42 12 "Importo        "
  GROUP 20
  FLAGS "LR"
END

GROUPBOX DLG_NULL 37 6
BEGIN
  PROMPT 1 16 "@bScadenza"
  GROUP 30
END

DATA F_DATA_S
BEGIN
  PROMPT 2 17 "Data           "
  GROUP 30
  FLAGS "L"
END

STRING F_IMPORTO_S 18
BEGIN
  PROMPT 2 18 "Importo        "
  GROUP 30
  FLAGS "LR"
END

STRING F_PAGAMENTI_S 18
BEGIN
  PROMPT 2 19 "Pagamenti      "
  GROUP 30
  FLAGS "LR"
END

STRING F_SALDO_S 18
BEGIN
  PROMPT 2 20 "Saldo          "
  GROUP 30
  FLAGS "LR"
END

GROUPBOX DLG_NULL 37 6
BEGIN
  PROMPT 41 16 "@bPagamento"
  GROUP 40
END

DATE F_DATA_PAG
BEGIN
  PROMPT 42 17 "Data           "
  GROUP 40
  FLAGS "L"
END

STRING F_IMPORTO_PAG 18
BEGIN
  PROMPT 42 18 "Pagamenti      "
  GROUP 40
  FLAGS "LR"
END

STRING F_ABBUONI_PAG 18
BEGIN
  PROMPT 42 19 "Abbuoni        "
  GROUP 40
  FLAGS "LR"
END

STRING F_DIFFCAM_PAG 18
BEGIN
  PROMPT 42 20 "Differ. cambi  "
  GROUP 40
  FLAGS "LR"
END

ENDPAGE

ENDMASK