campo-sirio/tc/tc1300a.uml

#include "tcconf.h"

TOOLBAR "topbar" 0 0 0 2

#include <stdbar.h>

ENDPAGE

PAGE "Configurazione ditta per invio a Zucchetti"  0 2 0 0

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

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

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

NUMBER F_ZUCODDITTA 5
BEGIN
  PROMPT 2 4 "Codice Ditta Zucchetti  "
  FLAGS "Z"
  FIELD ZUDITTA
END

BOOLEAN F_ZUTRCAU
BEGIN
  PROMPT 2 6 "Trascodifica causali"
	FIELD ZUTRCAU
END

BOOLEAN F_ZUTRCON
BEGIN
  PROMPT 2 8 "Trascodifica conti"
	FIELD ZUTRCON
END

BOOLEAN F_ZUTRIVA
BEGIN
  PROMPT 2 10 "Trascodifica codici IVA"
	FIELD ZUTRIVA
END

BOOLEAN F_ZUTRBAN
BEGIN
  PROMPT 2 12 "Trascodifica banche"
	FIELD ZUTRBAN
END

BOOLEAN F_ZUCLISOSP
BEGIN
	PROMPT 2 14 "Invia i clienti/Fornitori sospesi"
	FIELD ZUCLISOSP
END

NUMBER F_ZUNUMEROINVIO 2
BEGIN
	PROMPT 42 14 "Numero Invio"
	FIELD ZUNUMEROINVIO
END

BOOLEAN F_RIPRISTINO
BEGIN
	PROMPT 2 16 "Ripristina alla data"
	MESSAGE FALSE DISABLE,F_ULTINVIO
	MESSAGE TRUE ENABLE,F_ULTINVIO
END

DATE F_ULTINVIO
BEGIN
  PROMPT 42 16 "Data ultimo invio       "
	FIELD ZUULTINV
	FLAGS "D"
END

ENDPAGE

ENDMASK