campo-sirio/tc/tc9100a.uml

#include "tc9100a.h"

PAGE "Invio dati contabilita'" -1 -1 78 20

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 "Dati da inviare"
END

BOOLEAN F_MOVIMENTI
BEGIN
  PROMPT 3 5 "Movimenti contabili"
  MESSAGE TRUE,ENABLE F_DATAFIN
END

BOOLEAN F_CLIENTI
BEGIN
        PROMPT 3 6 "Clienti"
END

BOOLEAN F_FORNITORI
BEGIN
        PROMPT 3 7 "Fornitori"
END

BOOLEAN F_CONTI
BEGIN
        PROMPT 3 8 "Piano dei conti"
END

BOOLEAN F_PAGAMENTI
BEGIN
        PROMPT 40 5 "Pagamenti"
END

LISTBOX F_TIPOINVIO 20
BEGIN
        PROMPT 2 10 "Invio a      "
		ITEM "P|Proforma"
END

STRING F_DESTINAZIONE 20
BEGIN
       PROMPT 2 11 "Destinazione  "
END

DATE F_DATAINI
BEGIN
       PROMPT 2 12 "Data iniziale "
END

DATE F_DATAFIN
BEGIN
       PROMPT 40 12 "Data finale  "
END

BUTTON F_RIPRISTINA 20
BEGIN
       PROMPT 2 14 "Annulla invio"
       MESSAGE SHOW,F_DATARIPRISTINO|ENABLE,F_DATARIPRISTINO
END

DATE F_DATARIPRISTINO
BEGIN
        PROMPT 25 14 "Annulla invio fino al "
        FLAGS "HD"
END

BUTTON DLG_OK 9 2
BEGIN
  PROMPT -12 -1 ""
END

BUTTON DLG_QUIT 9 2
BEGIN
  PROMPT -22 -1 ""
END

ENDPAGE

ENDMASK