campo-sirio/cg/cg3900a.uml

#include "cg3900a.h"

TOOLBAR "topbar" 0 0 0 2

BUTTON DLG_ELABORA 10 2
BEGIN
  PROMPT -12 -11 ""
  PICTURE TOOL_ELABORA
END

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

ENDPAGE

PAGE "Elenco Clienti/Fornitori" 0 0 0 2

GROUPBOX DLG_NULL 78 4
BEGIN
  PROMPT 1 0 "@bParametri"
END

NUMBER F_ANNO 4
BEGIN
  PROMPT 2 1 "Anno di riferimento "
  CHECKTYPE REQUIRED
  NUM_EXPR #F_ANNO>=2006
  WARNING "L'anno non puo' essere antecedente al 2006"
  FIELD ANNO
END

LISTBOX F_ALGO 1 13
BEGIN
  PROMPT 34 1 "Scansione per data "
  ITEM "D|documento"
  ITEM "R|registrazione"
  FIELD ALGO
END

BOOLEAN F_COFI
BEGIN
  PROMPT 2 2 "Includere codice fiscale del Cliente/Fornitore (Obbligatorio dal 2008)"
END

GROUPBOX DLG_NULL 78 4
BEGIN
  PROMPT 1 4 "@bFornitura"
END

STRING F_DIR 256 64
BEGIN
  PROMPT 2 5 "Cartella "
  CHECKTYPE REQUIRED
  MESSAGE COPY,F_DIR2
END

STRING F_NAME 64
BEGIN
  PROMPT 2 6 "File     "
  CHECKTYPE REQUIRED
  MESSAGE COPY,F_NAME2
END

GROUPBOX DLG_NULL 78 4
BEGIN
  PROMPT 1 8 "@bSoggetto obbligato (se diverso dal contribuente)"
END

STRING F_CONT 16
BEGIN
  PROMPT 2 9 "Cod. fisc. contribuente       "
  FLAGS "U"
END

STRING F_PIVA 11
BEGIN
  PROMPT 52 9 "Partita IVA "
  FLAGS "UD"
  FIELD PIVA
END

STRING F_SOGG 16
BEGIN
  PROMPT 2 10 "Cod. fisc. soggetto obbligato "
  STR_EXPR #F_SOGG!=#F_CONT
  WARNING "Il codice del soggetto deve essere diverso da quello del contribuente"
  FLAGS "U"
  FIELD SOGGETTO
END

GROUPBOX DLG_NULL 78 5
BEGIN
  PROMPT 1 12 "@bIntermediario"
END

STRING F_INTR 16
BEGIN
  PROMPT 2 13 "Codice fiscale "
//  STR_EXPR #F_INTR!=#F_CONT
//  WARNING "Il codice dell'intermediario deve essere diverso da quello del contribuente"
  FLAGS "U"
  FIELD INTERMEDIARIO
END

NUMBER F_CAF 5
BEGIN
  PROMPT 42 13 "Iscrizione C.A.F. "
  FLAGS "U"
  FIELD CAF
END

LISTBOX F_COMP 1 20
BEGIN
  PROMPT 2 14 "Comunicazione predisposta da "
  ITEM "1|contribuente"
  ITEM "2|chi effettua l'invio"
  FIELD COMPILATORE
END

DATE F_DATA
BEGIN
  PROMPT 2 15 "Data dell'impegno alla trasmissione "
  VALIDATE REQIF_FUNC 1 F_INTR
  WARNING "Data obbligatoria in presenza di un intermediario"
  FIELD IMPEGNO
END

GROUPBOX DLG_NULL 78 5
BEGIN
  PROMPT 1 17 "@bControlli preliminari"
END

LIST F_TIPO 1 10
BEGIN
  PROMPT 2 18 "Movimenti "
  ITEM "C|Clienti"
  ITEM "F|Fornitori"
END

LIST F_FILTRO 2 42
BEGIN
  PROMPT 26 18 "Filtro "
  ITEM "-1|Tutti"
  ITEM "0|Validi per allegato IVA"
  ITEM "1|Non validi per allegato IVA"
  ITEM "2|Occasionali"
  ITEM "3|Documenti riepilogativi"
  ITEM "4|Con partita IVA gia' inserita"
  ITEM "5|Esteri"
  ITEM "6|Privati"
END

BUTTON DLG_SELECT 10 2
BEGIN
  PROMPT -25 19 ""
  PICTURE TOOL_FINDREC
END

BUTTON DLG_EDIT 10 2
BEGIN
  PROMPT -35 19 ""
  PICTURE TOOL_EDIT
END

BUTTON DLG_PRINT 10 2
BEGIN
  PROMPT -45 19 ""
  PICTURE TOOL_PRINT
END

STRING DLG_PROFILE 30
BEGIN
  FLAGS "H"
  PROMPT 1 1 ""
  PSELECT
END

ENDPAGE

PAGE "Somma forniture" 0 0 0 -3

SPREADSHEET F_FUSION 78 15
BEGIN
  PROMPT 1 1 ""
  ITEM "Elenco Forniture da sommare@70"
END

GROUPBOX DLG_NULL 78 4
BEGIN
  PROMPT 1 17 "@bFornitura totale"
END

STRING F_DIR2 256 64
BEGIN
  PROMPT 2 18 "Cartella "
  FLAGS "D"
END

STRING F_NAME2 64
BEGIN
  PROMPT 2 19 "File     "
  FLAGS "D"
END

ENDPAGE

ENDMASK

PAGE "File" -1 -1 78 5

STRING 101 256 70
BEGIN
  PROMPT 1 1 "File "
  FSELECT "*.ecf"
  CHECKTYPE REQUIRED
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