campo-sirio/tc/tc8100a.uml

#include "tc8100a.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
END

ENDPAGE

PAGE "Importazione da Semetra" 0 0 0 -3

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"
  //FIELD RAGSOC
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 ClifoInPath
END

STRING F_CLIFIS 18
BEGIN
  PROMPT 3 6 "Fisiche          "
  FIELD PeFisInFile
END

STRING F_CLIGIU 18
BEGIN
  PROMPT 45 6 "Giuridiche  "
  FIELD PeGiuInFile
END

STRING F_NAMEFAT 22
BEGIN
  PROMPT 3 7 "Fatture          "
  FIELD FattureInFile
END

STRING F_NUMFAT 4
BEGIN
  PROMPT 45 7 "Numerazione "
  FIELD NUMFAT
  USE %NUM SELECT I1==2
  INPUT CODTAB F_NUMFAT
  DISPLAY "Numerazione" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_NUMFAT CODTAB
  OUTPUT F_TIPODOC1 S2[1,4]
  FLAGS "U"
  CHECKTYPE REQUIRED
END

STRING F_TIPODOC1 4
BEGIN
  PROMPT 65 7 "Tipo"
  FIELD TIPODOC
  USE %TIP SELECT I1==2
  INPUT CODTAB F_TIPODOC1
  DISPLAY "Tipo Documento" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_TIPODOC1 CODTAB
  FLAGS "U"
END

STRING F_NAMERIC 22
BEGIN
  PROMPT 3 8 "Ricevute Fiscali "
  FIELD RicevuteInFile
END

STRING F_NUMRIC 4
BEGIN
  PROMPT 45 8 "Numerazione "
  FIELD NUMRIC
  USE %NUM SELECT I1==2
  INPUT CODTAB F_NUMRIC
  DISPLAY "Numerazione" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_NUMRIC CODTAB
  OUTPUT F_TIPODOC2 S2[1,4]
  FLAGS "U"
  CHECKTYPE REQUIRED
END

STRING F_TIPODOC2 4
BEGIN
  PROMPT 65 8 "Tipo"
  FIELD TIPODOC2
  USE %TIP SELECT I1==2
  INPUT CODTAB F_TIPODOC2
  DISPLAY "Tipo Documento" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_TIPODOC2 CODTAB
  FLAGS "U"
END

GROUPBOX DLG_NULL 76 4
BEGIN
  PROMPT 2 10 "@bParametri di importazione delle fatture e delle ricevute"
END

STRING F_TOT10E15 10
BEGIN
  PROMPT 3 11 "Tot. Art. 10e15    "
  FIELD TOT10E15
  USE SPP
  INPUT CODTAB F_TOT10E15
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_TOT10E15 CODTAB
  FLAGS "U"
  CHECKTYPE REQUIRED
END

STRING F_SPESEIVA 10
BEGIN
  PROMPT 45 11 "Spese soggette IVA "
  FIELD SPESEIVA
  USE SPP
  INPUT CODTAB F_SPESEIVA
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_SPESEIVA CODTAB
  FLAGS "U"
  CHECKTYPE REQUIRED
END

STRING F_MBOLLO 10
BEGIN
  PROMPT 3 12 "Marca da bollo     "
  FIELD MBOLLO
  USE SPP
  INPUT CODTAB F_MBOLLO
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_MBOLLO CODTAB
  FLAGS "U"
  CHECKTYPE REQUIRED
END

STRING F_COMPETENZE 10
BEGIN
  PROMPT 45 12 "Competenze         "
  FIELD COMPETENZE
  USE PRS
  INPUT CODTAB F_COMPETENZE
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_COMPETENZE CODTAB
  FLAGS "U"
  CHECKTYPE REQUIRED
END

SPREADSHEET F_TIPI 76
BEGIN
  PROMPT 2 14 "Tabella Codici IVA"
  ITEM "Aliquota IVA"
  ITEM "Codice IVA Campo"
  ITEM "Descrizione"
END

ENDPAGE

ENDMASK

PAGE "Tipi" -1 -1 68 6

NUMBER 101 5 2
BEGIN
  PROMPT 1 1 "Aliquota IVA      "
  FIELD CodiceIva
  CHECKTYPE REQUIRED
END

STRING 102 4
BEGIN
  PROMPT 1 2 "Codice IVA Campo  "
  USE %IVA
  INPUT CODTAB 102
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT 102 CODTAB
  OUTPUT 103 S0
  CHECKTYPE REQUIRED
END

STRING 103 30
BEGIN
  PROMPT 1 3 "Descrizione       "
  CHECKTYPE NORMAL
  FLAGS "D"
END

BUTTON DLG_OK 10 2
BEGIN
  PROMPT -13 -1 ""
END

BUTTON DLG_DELREC 10 2
BEGIN
  PROMPT -23 -1 ""
END

BUTTON DLG_CANCEL 10 2
BEGIN
  PROMPT -33 -1 ""
END

ENDPAGE

ENDMASK