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<69>"
	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

//???
NUMBER F_EMCAU 3
BEGIN
	PROMPT 42 12 "Caus.TS movim.senza causale  "
  USE &ICA
  INPUT CODTAB F_EMCAU
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@60" S0
  OUTPUT F_EMCAU CODTAB
	CHECKTYPE REQUIRED
  FLAGS "Z"
	FIELD IPREMCAU
END

BOOLEAN F_RICLVALUTE
BEGIN
	PROMPT 2 14 "Trascodifica valute"
	FIELD IPRVAL
END

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

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

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

NUMBER F_LIVPC3 2
BEGIN
	PROMPT 58 16 "4 "
	FIELD IPLIVPC[4]
END

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

NUMBER F_LIVPC6 2
BEGIN
	PROMPT 70 16 "6 "
	FIELD IPLIVPC[6]
END

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

DATE F_ULTINVIO
BEGIN
  PROMPT 42 18 "Data ultimo invio       "
	FIELD TSULTINV
	FLAGS "D"
END

ENDPAGE

ENDMASK