campo-sirio/tc/tc2300a.uml

#include "ipconf.h"

TOOLBAR "topbar" 0 0 0 2

#include <stdbar.h>

ENDPAGE

PAGE "Configurazione ditta per invio a IPSOA"  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

BOOLEAN F_RICLNAZ
BEGIN
	PROMPT 2 6 "Trascodifica Nazioni"
	FIELD IPRNAZ
END

BOOLEAN F_RICLIVA
BEGIN
	PROMPT 42 6 "Trascodifica Codici IVA"
	FIELD IPRIVA
END

BOOLEAN F_RICLATT
BEGIN
	PROMPT 2 8 "Trascodifica Codici Attività"
	FIELD IPATT
END

BOOLEAN F_RICLCDP
BEGIN
	PROMPT 42 8 "Trascodifica Condizioni di Pagamento"
	FIELD IPRCDP
END

BOOLEAN F_RICLREG
BEGIN
	PROMPT 2 10 "Trascodifica Registri"
	FIELD IPRREG
END

BOOLEAN F_RICLCONTI
BEGIN
	PROMPT 42 10 "Trascodifica Piano dei conti"
	FIELD IPRCONTI
END

BOOLEAN F_RICLCAU
BEGIN
	PROMPT 2 12 "Trascodifica Causali"
	FIELD IPRCAU
END

BOOLEAN F_RICLVALUTE
BEGIN
	PROMPT 42 12 "Trascodifica valute"
	FIELD IPRVAL
END

NUMBER F_LIVPC1 2
BEGIN
	PROMPT 2 14 "Lunghezza livelli piano dei conti : 1 "
	FIELD IPLIVPC[1]
END

NUMBER F_LIVPC2 2
BEGIN
	PROMPT 46 14 "2 "
	FIELD IPLIVPC[2]
END

NUMBER F_LIVPC3 2
BEGIN
	PROMPT 52 14 "3 "
	FIELD IPLIVPC[3]
END

NUMBER F_LIVPC4 2
BEGIN
	PROMPT 58 14 "4 "
	FIELD IPLIVPC[4]
END

NUMBER F_LIVPC5 2
BEGIN
	PROMPT 64 14 "5 "
	FIELD IPLIVPC[5]
END

NUMBER F_LIVPC6 2
BEGIN
	PROMPT 70 14 "6 "
	FIELD IPLIVPC[6]
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 TSULTINV
	FLAGS "D"
END

ENDPAGE

ENDMASK