campo-sirio/tc/tc0600a.uml

#include "tc0600a.h"

TOOLBAR "topbar" 0 0 0 2
BUTTON DLG_ELABORA 10 2
BEGIN
  PROMPT -12 -11 ""
  PICTURE BMP_ELABORA
  MESSAGE EXIT,K_ENTER
END

BUTTON DLG_QUIT 10 2
BEGIN
  PROMPT -22 -11 ""
END

ENDPAGE

TOOLBAR "" 0 -2 0 2

STRING DLG_PROFILE 50
BEGIN
  PROMPT 9 0 "Profilo "
  PSELECT
  FLAGS "H"
END

ENDPAGE

PAGE "Importazione dati da TeamSystem" 021 0 0

GROUPBOX DLG_NULL 76 3
BEGIN
  PROMPT 2 1 "@bDitta corrente"
END

NUMBER F_CODDITTA 5
BEGIN
  PROMPT 3 2 "Codice      "
  FLAGS "FD"
  USE LF_NDITTE
  INPUT CODDITTA F_CODDITTA
  OUTPUT F_RAGSOC RAGSOC
  CHECKTYPE REQUIRED
END

STRING F_RAGSOC 50
BEGIN
  PROMPT 23 2 ""
  FLAGS "D"
END

GROUPBOX DLG_NULL 76 6
BEGIN
  PROMPT 2 4 "@bSorgente"
END

STRING F_PATH 256 50
BEGIN
  PROMPT 3 5 "Cartella          "
  DSELECT
  CHECKTYPE REQUIRED
  FIELD FileInPath
END

STRING F_PCONTI 25
BEGIN
  PROMPT 3 6 "Piano dei Conti   "
  FIELD PCONTI
END

STRING F_CAUSALI 25
BEGIN
  PROMPT 3 7 "Causali           "
  FIELD CAUSALI
END

STRING F_CODIVA 25
BEGIN
  PROMPT 3 8 "Codici IVA        "
  FIELD CODIVA
END

ENDPAGE

ENDMASK