campo-sirio/tc/tc1100a.uml

#include "tc1100a.h"

TOOLBAR "topbar" 0 0 0 2

BUTTON DLG_ELABORA 10 2
BEGIN
  PROMPT -12 -11 "~Elabora"
  PICTURE BMP_ELABORA
  MESSAGE EXIT,K_ENTER
END

#include <helpbar.h>

ENDPAGE

PAGE "Invio dati contabilita' a Zucchetti" 0 2 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 7
BEGIN
  PROMPT 2 4 "Dati da inviare"
END

BOOLEAN F_CAUSALI
BEGIN
  PROMPT 3 5 "Causali"
	FIELD CAUSALI
END

BOOLEAN F_CONTI
BEGIN
  PROMPT 3 6 "Conti"
END

BOOLEAN F_CLIFOR
BEGIN
  PROMPT 3 7 "Clienti/Fornitori"
END

BOOLEAN F_MOVCONT
BEGIN
  PROMPT 3 8 "Movimenti contabili"
END

BOOLEAN F_MOVIVA
BEGIN
  PROMPT 40 5 "Movimenti IVA"
END

BOOLEAN F_CORRISP
BEGIN
  PROMPT 40 6 "Corrispettivi"
  FLAGS "D"
END

BOOLEAN F_SALDACONTO
BEGIN
  PROMPT 40 7 "Saldaconto"
  FLAGS "D"
END

STRING F_PATH 256 39
BEGIN
  PROMPT 2 12 "Cartella    "
  DSELECT
END

STRING F_FILE 18
BEGIN
  PROMPT 2 14 "File        "
END

NUMBER F_NUMEROINVIO 2
BEGIN
  PROMPT 2 16 "Numero invio "
  FLAGS "D"
END

DATE F_DATAINI
BEGIN
  PROMPT 2 18 "Data iniz. "
END

DATE F_DATAFIN
BEGIN
  PROMPT 42 18 "Data fin. "
END

ENDPAGE

ENDMASK