campo-sirio/tc/tc0300a.uml

#include "tcconf.h"

TOOLBAR "topbar" 0 0 0 2

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

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

ENDPAGE

PAGE "Configurazione ditta per invio a TeamSystem"  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_CODDITTATS 5
BEGIN
  PROMPT 2 4 "Codice Ditta TeamSystem "
  FLAGS "Z"
  FIELD TSDitta
  MESSAGE "X",F_RICLI11
END

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

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

BOOLEAN F_RICLI11
BEGIN
	PROMPT 2 8 "Trascodifica Codici IVA 11"
	FIELD TSRI11
	FLAGS "D"
END

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

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

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

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

NUMBER F_EMCAU 3
BEGIN
	PROMPT 42 12 "Causale TS per movimenti senza causale "
  USE LF_MULTIREL
  INPUT COD "TSCAU"
  INPUT FIRST F_EMCAU
  DISPLAY "Codice" FIRST
  DISPLAY "Descrizione@60" DATA
  DISPLAY "Causale Collegata" SECOND
  OUTPUT F_EMCAU FIRST
	CHECKTYPE REQUIRED
  FLAGS "Z"
	FIELD TSREMCAU
END

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

BOOLEAN F_NOHCLI
BEGIN
	PROMPT 42 14 "Non trasferire il cod.cliente/forn.di testata"
	FIELD TSRNOHCLI
END

BOOLEAN F_STOCLI
BEGIN
	PROMPT 2 15 "Storicizza l'anagrafica cliente/fornitore"
	FIELD TSRSTOCLI
END

BOOLEAN F_USECMTAB
BEGIN
	PROMPT 2 16 "Utilizza le tabelle di Campo"
	FIELD TSUSECMTAB
END

BOOLEAN F_USECMPCN
BEGIN
	PROMPT 42 16 "Utilizza il piano dei conti di Campo"
	FIELD TSUSECMPCN
END

BOOLEAN F_PROFESS
BEGIN
	PROMPT 2 18 "Professionista"
	FIELD TSPROFESS
END

BOOLEAN F_VENT
BEGIN
	PROMPT 42 18 "Ventilazione"
	FIELD TSVENT
END

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

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

ENDPAGE

PAGE "Attivita' aggiuntive"  -1 -1 0 0

SPREADSHEET F_SHEET_ATTIV
BEGIN
  PROMPT 0 2 "Attivit<69> Aggiuntive"
  ITEM "Codice Attivit<69> "
  ITEM "Descrizione @50"
  ITEM "Ditta TeamSystem"
END

ENDPAGE

PAGE "Configurazione conti IVA"  -1 -1 0 0

SPREADSHEET F_SHEET_IVA
BEGIN
  PROMPT 0 2 "Conti IVA da non trasferire"
  ITEM "Gr."
  ITEM "Co."
  ITEM "Sottoc."
  ITEM "Descrizione Conto@50"
END

ENDPAGE

PAGE "Configurazione conti ritenute"  -1 -1 0 0

SPREADSHEET F_SHEET_RIT
BEGIN
  PROMPT 0 2 "Conti ritenute fiscali e sociali"
  ITEM "Gr."
  ITEM "Co."
  ITEM "Sottoc."
  ITEM "Descrizione Conto@50"
END

ENDPAGE

ENDMASK

PAGE "" -1 -1 80 11

STRING FR_ATTIV 5
BEGIN
	PROMPT 2 2 "Codice attivit<69>  "
	FLAGS "UZD"
END

STRING FR_DESCR 50
BEGIN
	PROMPT 2 4 "Descrizione      "
	FLAGS "D"
END

NUMBER FR_DITTATS 5
BEGIN
  PROMPT 2 6 "Ditta TeamSystem "
  FLAGS "Z"
END

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

BUTTON DLG_CANCEL 10 2
BEGIN
  PROMPT -22 -1 ""
END

ENDPAGE

ENDMASK

PAGE "" -1 -1 68 11

BOOLEAN SI_SELECTOR
BEGIN
	PROMPT 1 1 "Selettore"
	FLAGS "HG"
	MESSAGE FALSE HIDE,10@|SHOW,20@|DISABLE,SI_DESCR
	MESSAGE TRUE SHOW,10@|HIDE,20@|ENABLE,SI_DESCR
END

NUMBER SI_GRUPPO 3
BEGIN
  PROMPT 1 3 "Gruppo "
  HELP "Codice del gruppo"
  USE LF_PCON KEY 1 SELECT (CONTO="")
  INPUT GRUPPO SI_GRUPPO 
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Descrizione@50" DESCR
  CHECKTYPE NORMAL
  OUTPUT SI_GRUPPO GRUPPO
  OUTPUT SI_DESCR DESCR     
  WARNING "Gruppo assente"
  CHECKTYPE NORMAL
	GROUP 10
	ADD RUN cg0 -0
END

NUMBER SI_CONTO 3
BEGIN
  PROMPT 15 3 "Conto  "
  HELP "Codice del conto"
  USE LF_PCON KEY 1 SELECT SOTTOCONTO=""
  INPUT GRUPPO SI_GRUPPO 
  INPUT CONTO  SI_CONTO    
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Descrizione@50" DESCR
  CHECKTYPE NORMAL
  OUTPUT SI_CONTO CONTO  
  OUTPUT SI_GRUPPO GRUPPO
  OUTPUT SI_DESCR DESCR
  WARNING "Conto assente"
  CHECKTYPE NORMAL
	GROUP 10
	ADD RUN cg0 -0
END

NUMBER SI_SOTTOCONTO 6
BEGIN
  PROMPT 29 3 "Sottoconto "
  HELP "Codice del sottoconto"
  USE LF_PCON
  INPUT GRUPPO SI_GRUPPO 
  INPUT CONTO  SI_CONTO 
  INPUT SOTTOCONTO SI_SOTTOCONTO
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Sottoconto" SOTTOCONTO
  DISPLAY "Descrizione@50" DESCR
  OUTPUT SI_SOTTOCONTO SOTTOCONTO
  OUTPUT SI_GRUPPO GRUPPO
  OUTPUT SI_CONTO CONTO  
  OUTPUT SI_DESCR DESCR
  CHECKTYPE NORMAL
  WARNING "Sottoconto assente"
	GROUP 10
	ADD RUN cg0 -0
END

STRING SI_DESCR 50
BEGIN
  PROMPT 1 5 "Descrizione "
  HELP "Indicare la descrizione della riga"
  USE LF_PCON KEY 2
  INPUT DESCR SI_DESCR
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Sottoconto" SOTTOCONTO
  OUTPUT SI_SOTTOCONTO SOTTOCONTO
  OUTPUT SI_CONTO CONTO
  OUTPUT SI_GRUPPO GRUPPO
  OUTPUT SI_DESCR DESCR
	ADD RUN cg0 -0
END

NUMBER SI2_GRUPPO 3
BEGIN
  PROMPT 1 3 "Gruppo "
  HELP "Codice del gruppo"
  CHECKTYPE NORMAL
	GROUP 20
	FLAGS "H"
END

NUMBER SI2_CONTO 3
BEGIN
  PROMPT 15 3 "Conto  "
  HELP "Codice del conto"
  CHECKTYPE NORMAL
	GROUP 20
	FLAGS "H"
END

NUMBER SI2_SOTTOCONTO 6
BEGIN
  PROMPT 29 3 "Sottoconto "
  HELP "Codice del sottoconto"
	GROUP 20
	FLAGS "H"
END

BUTTON DLG_OK 10 2
BEGIN
  PROMPT -13 -1 ""
END

BUTTON DLG_DELREC 10 2
BEGIN
  PROMPT -23 -1 ""
END

BUTTON DLG_CANCEL 10 2
BEGIN
  PROMPT -33 -1 ""
END

ENDPAGE

ENDMASK

PAGE "" -1 -1 68 11

BOOLEAN SI_SELECTOR
BEGIN
	PROMPT 1 1 "Selettore"
	FLAGS "HG"
	MESSAGE FALSE HIDE,10@|SHOW,20@
	MESSAGE TRUE SHOW,10@|HIDE,20@ 
END

NUMBER SI_GRUPPO 3
BEGIN
  PROMPT 1 3 "Gruppo "
  HELP "Codice del gruppo"
  USE LF_PCON KEY 1 SELECT (CONTO="")
  INPUT GRUPPO SI_GRUPPO 
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Descrizione@50" DESCR
  CHECKTYPE NORMAL
  OUTPUT SI_GRUPPO GRUPPO
  OUTPUT SI_DESCR DESCR     
  WARNING "Gruppo assente"
  CHECKTYPE NORMAL
	GROUP 10
	ADD RUN cg0 -0
END

NUMBER SI_CONTO 3
BEGIN
  PROMPT 15 3 "Conto  "
  HELP "Codice del conto"
  USE LF_PCON KEY 1 SELECT SOTTOCONTO=""
  INPUT GRUPPO SI_GRUPPO 
  INPUT CONTO  SI_CONTO    
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Descrizione@50" DESCR
  CHECKTYPE NORMAL
  OUTPUT SI_CONTO CONTO  
  OUTPUT SI_GRUPPO GRUPPO
  OUTPUT SI_DESCR DESCR
  WARNING "Conto assente"
  CHECKTYPE NORMAL
	GROUP 10
	ADD RUN cg0 -0
END

NUMBER SI_SOTTOCONTO 6
BEGIN
  PROMPT 29 3 "Sottoconto "
  HELP "Codice del sottoconto"
  USE LF_PCON
  INPUT GRUPPO SI_GRUPPO 
  INPUT CONTO  SI_CONTO 
  INPUT SOTTOCONTO SI_SOTTOCONTO
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Sottoconto" SOTTOCONTO
  DISPLAY "Descrizione@50" DESCR
  OUTPUT SI_SOTTOCONTO SOTTOCONTO
  OUTPUT SI_GRUPPO GRUPPO
  OUTPUT SI_CONTO CONTO  
  OUTPUT SI_DESCR DESCR
  CHECKTYPE NORMAL
  WARNING "Sottoconto assente"
	GROUP 10
	ADD RUN cg0 -0
END

STRING SI_DESCR 50
BEGIN
  PROMPT 1 5 "Descrizione "
  HELP "Indicare la descrizione della riga"
  USE LF_PCON KEY 2
  INPUT DESCR SI_DESCR
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Sottoconto" SOTTOCONTO
  OUTPUT SI_SOTTOCONTO SOTTOCONTO
  OUTPUT SI_CONTO CONTO
  OUTPUT SI_GRUPPO GRUPPO
  OUTPUT SI_DESCR DESCR
	ADD RUN cg0 -0
END

NUMBER SI2_GRUPPO 3
BEGIN
  PROMPT 1 3 "Gruppo "
  HELP "Codice del gruppo"
  CHECKTYPE NORMAL
	GROUP 20
	FLAGS "H"
END

NUMBER SI2_CONTO 3
BEGIN
  PROMPT 15 3 "Conto  "
  HELP "Codice del conto"
  CHECKTYPE NORMAL
	GROUP 20
	FLAGS "H"
END

NUMBER SI2_SOTTOCONTO 6
BEGIN
  PROMPT 29 3 "Sottoconto "
  HELP "Codice del sottoconto"
	GROUP 20
	FLAGS "H"
END

BUTTON DLG_OK 10 2
BEGIN
  PROMPT -13 -1 ""
END

BUTTON DLG_DELREC 10 2
BEGIN
  PROMPT -23 -1 ""
END

BUTTON DLG_CANCEL 10 2
BEGIN
  PROMPT -33 -1 ""
END

ENDPAGE

ENDMASK