root/campo-sirio
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Patch level : 10.0 558

Browse Source 
Files correlati     : tc0.exe
Ricompilazione Demo : [ ]
Commento            :

Tabelle di riclassificazione team  system
e trasferimento sermetra


git-svn-id: svn://10.65.10.50/trunk@19834 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
alex 2009-12-23 01:45:05 +00:00
parent b9c8acabc4
commit 70aa19c90f
13 changed files with 127 additions and 27 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
tc/tc0600.cpp
View File

@ -265,12 +265,12 @@ void TDocTS::upload_codiva(const TFilename& file, TLog_report& log) const
cod.trim(); cod.trim();
if (cod.blank() || !real::is_natural(cod)) if (cod.blank() || !real::is_natural(cod))
continue; continue;
cod.lpad(4, '0'); cod.lpad(3, '0');
if (cod.len() > 4) if (cod.len() > 3)
{ {
TString errore = "ERRORE:"; TString errore = "ERRORE:";
errore <<" i dati IVA con codice " << cod << " non possono essere inseriti (codice max 4 caratteri)"; errore <<" i dati IVA con codice " << cod << " non possono essere inseriti (codice max 3 caratteri)";
log.log(2,errore); log.log(2,errore);
} }
iva.put("CODTAB",cod); iva.put("CODTAB",cod);

52
tc/tc0800a.uml
View File

@ -4,7 +4,7 @@ TOOLBAR "topbar" 0 0 0 2
#include <relapbar.h> #include <relapbar.h>
ENDPAGE ENDPAGE
PAGE "" 0 2 0 0 PAGE "Riclassificazione Conti" 0 2 0 0
LIST F_COD 7 LIST F_COD 7
BEGIN BEGIN
@ -27,6 +27,7 @@ BEGIN
FIELD GRUPPO FIELD GRUPPO
USE LF_RICLPDC USE LF_RICLPDC
JOIN LF_PCON INTO GRUPPO==GRUPPO CONTO==CONTO SOTTOCONTO==SOTTOCONTO JOIN LF_PCON INTO GRUPPO==GRUPPO CONTO==CONTO SOTTOCONTO==SOTTOCONTO
JOIN &TCO TO LF_RICLPDC INTO CODTAB==CODICE
INPUT TIPORIC F_COD SELECT INPUT TIPORIC F_COD SELECT
INPUT GRUPPO F_GRUPPO2 INPUT GRUPPO F_GRUPPO2
INPUT CONTO F_CONTO2 INPUT CONTO F_CONTO2
@ -38,13 +39,13 @@ BEGIN
DISPLAY "Gruppo TS" CODICE[1,2] DISPLAY "Gruppo TS" CODICE[1,2]
DISPLAY "Conto TS" CODICE[3,4] DISPLAY "Conto TS" CODICE[3,4]
DISPLAY "Sottoconto TS" CODICE[5,7] DISPLAY "Sottoconto TS" CODICE[5,7]
DISPLAY "Descrizione@50" &TCO->S0
OUTPUT F_GRUPPO2 GRUPPO OUTPUT F_GRUPPO2 GRUPPO
OUTPUT F_CONTO2 CONTO OUTPUT F_CONTO2 CONTO
OUTPUT F_SOTTOCONTO2 SOTTOCONTO OUTPUT F_SOTTOCONTO2 SOTTOCONTO
OUTPUT F_GRUPPO GRUPPO OUTPUT F_GRUPPO GRUPPO
OUTPUT F_CONTO CONTO OUTPUT F_CONTO CONTO
OUTPUT F_SOTTOCONTO SOTTOCONTO OUTPUT F_SOTTOCONTO SOTTOCONTO
OUTPUT F_DESCRIZ DESCRIZ
KEY 1 KEY 1
GROUP 1 GROUP 1
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
@ -58,12 +59,20 @@ BEGIN
KEY 1 KEY 1
GROUP 2 GROUP 2
USE LF_PCON KEY 1 SELECT CONTO="" USE LF_PCON KEY 1 SELECT CONTO=""
JOIN LF_RICLPDC INTO TIPORIC=="TSCONTI" GRUPPO==GRUPPO CONTO==CONTO SOTTOCONTO==SOTTOCONTO
JOIN &TCO TO LF_RICLPDC INTO CODTAB==CODICE
INPUT GRUPPO F_GRUPPO INPUT GRUPPO F_GRUPPO
DISPLAY "Gruppo" GRUPPO DISPLAY "Gruppo" GRUPPO
DISPLAY "Descrizione@50" DESCR DISPLAY "Descrizione@50" DESCR
DISPLAY "Gruppo TS" LF_RICLPDC->CODICE[1,2]
DISPLAY "Conto TS" LF_RICLPDC->CODICE[3,4]
DISPLAY "Sottoconto TS" LF_RICLPDC->CODICE[5,7]
DISPLAY "Descrizione@50" &TCO->S0
OUTPUT F_GRUPPO GRUPPO OUTPUT F_GRUPPO GRUPPO
OUTPUT F_GRUPPO2 GRUPPO
OUTPUT F_DESCG DESCR OUTPUT F_DESCG DESCR
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
ADD RUN cg0 -0
FLAGS "G" FLAGS "G"
END END
@ -90,7 +99,7 @@ BEGIN
COPY ALL F_GRUPPO2 COPY ALL F_GRUPPO2
KEY 1 KEY 1
GROUP 1 GROUP 1
CHECKTYPE REQUIRED CHECKTYPE NORMAL
WARNING "Manca il conto" WARNING "Manca il conto"
END END
@ -102,16 +111,25 @@ BEGIN
KEY 1 KEY 1
GROUP 2 GROUP 2
USE LF_PCON KEY 1 SELECT ((CONTO!="")&&(SOTTOCONTO="")) USE LF_PCON KEY 1 SELECT ((CONTO!="")&&(SOTTOCONTO=""))
JOIN LF_RICLPDC INTO TIPORIC=="TSCONTI" GRUPPO==GRUPPO CONTO==CONTO SOTTOCONTO==SOTTOCONTO
JOIN &TCO TO LF_RICLPDC INTO CODTAB==CODICE
COPY INPUT F_GRUPPO COPY INPUT F_GRUPPO
INPUT CONTO F_CONTO INPUT CONTO F_CONTO
DISPLAY "Gruppo" GRUPPO DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO DISPLAY "Conto" CONTO
DISPLAY "Descrizione@50" DESCR DISPLAY "Descrizione@50" DESCR
DISPLAY "Gruppo TS" LF_RICLPDC->CODICE[1,2]
DISPLAY "Conto TS" LF_RICLPDC->CODICE[3,4]
DISPLAY "Sottoconto TS" LF_RICLPDC->CODICE[5,7]
DISPLAY "Descrizione@50" &TCO->S0
OUTPUT F_GRUPPO GRUPPO OUTPUT F_GRUPPO GRUPPO
OUTPUT F_GRUPPO2 GRUPPO
OUTPUT F_CONTO CONTO OUTPUT F_CONTO CONTO
OUTPUT F_CONTO2 CONTO
OUTPUT F_DESCC DESCR OUTPUT F_DESCC DESCR
CHECKTYPE REQUIRED CHECKTYPE NORMAL
WARNING "Manca il conto" WARNING "Manca il conto"
ADD RUN cg0 -0
FLAGS "G" FLAGS "G"
END END
@ -139,7 +157,7 @@ BEGIN
COPY ALL F_GRUPPO2 COPY ALL F_GRUPPO2
KEY 1 KEY 1
GROUP 1 GROUP 1
CHECKTYPE REQUIRED CHECKTYPE NORMAL
END END
NUMBER F_SOTTOCONTO 6 NUMBER F_SOTTOCONTO 6
@ -149,7 +167,9 @@ BEGIN
FIELD SOTTOCONTO FIELD SOTTOCONTO
KEY 1 KEY 1
GROUP 2 GROUP 2
USE LF_PCON KEY 1 SELECT SOTTOCONTO!="" USE LF_PCON KEY 1 SELECT (SOTTOCONTO!="")
JOIN LF_RICLPDC INTO TIPORIC=="TSCONTI" GRUPPO==GRUPPO CONTO==CONTO SOTTOCONTO==SOTTOCONTO
JOIN &TCO TO LF_RICLPDC INTO CODTAB==CODICE
COPY INPUT F_CONTO COPY INPUT F_CONTO
INPUT SOTTOCONTO F_SOTTOCONTO INPUT SOTTOCONTO F_SOTTOCONTO
DISPLAY "Gruppo" GRUPPO DISPLAY "Gruppo" GRUPPO
@ -157,11 +177,19 @@ BEGIN
DISPLAY "Sottoconto" SOTTOCONTO DISPLAY "Sottoconto" SOTTOCONTO
DISPLAY "Sosp." SOSPESO DISPLAY "Sosp." SOSPESO
DISPLAY "Descrizione@50" DESCR DISPLAY "Descrizione@50" DESCR
DISPLAY "Gruppo TS" LF_RICLPDC->CODICE[1,2]
DISPLAY "Conto TS" LF_RICLPDC->CODICE[3,4]
DISPLAY "Sottoconto TS" LF_RICLPDC->CODICE[5,7]
DISPLAY "Descrizione@50" &TCO->S0
OUTPUT F_GRUPPO GRUPPO OUTPUT F_GRUPPO GRUPPO
OUTPUT F_GRUPPO2 GRUPPO
OUTPUT F_CONTO CONTO OUTPUT F_CONTO CONTO
OUTPUT F_CONTO2 CONTO
OUTPUT F_SOTTOCONTO SOTTOCONTO OUTPUT F_SOTTOCONTO SOTTOCONTO
OUTPUT F_SOTTOCONTO2 SOTTOCONTO
OUTPUT F_DESCRIZ DESCR OUTPUT F_DESCRIZ DESCR
CHECKTYPE REQUIRED ADD RUN cg0 -0
CHECKTYPE NORMAL
FLAGS "G" FLAGS "G"
END END
@ -179,11 +207,17 @@ STRING F_DESCRIZ 50
BEGIN BEGIN
PROMPT 2 8 "Descrizione" PROMPT 2 8 "Descrizione"
USE LF_PCON KEY 2 USE LF_PCON KEY 2
JOIN LF_RICLPDC INTO TIPORIC=="TSCONTI" GRUPPO==GRUPPO CONTO==CONTO SOTTOCONTO==SOTTOCONTO
JOIN &TCO TO LF_RICLPDC INTO CODTAB==CODICE
INPUT DESCR F_DESCRIZ INPUT DESCR F_DESCRIZ
DISPLAY "Descrizione@50" DESCR DISPLAY "Descrizione@50" DESCR
DISPLAY "Gruppo" GRUPPO DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO DISPLAY "Conto" CONTO
DISPLAY "Sottoconto" SOTTOCONTO DISPLAY "Sottoconto" SOTTOCONTO
DISPLAY "Gruppo TS" LF_RICLPDC->CODICE[1,2]
DISPLAY "Conto TS" LF_RICLPDC->CODICE[3,4]
DISPLAY "Sottoconto TS" LF_RICLPDC->CODICE[5,7]
DISPLAY "Descrizione@50" &TCO->S0
COPY OUTPUT F_SOTTOCONTO COPY OUTPUT F_SOTTOCONTO
KEY 2 KEY 2
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
@ -193,7 +227,7 @@ END
STRING F_TSGRUPPO 2 STRING F_TSGRUPPO 2
BEGIN BEGIN
PROMPT 2 10 "Gruppo " PROMPT 2 10 "Gruppo "
CHECKTYPE REQUIRED CHECKTYPE SEARCH
USE &TCO USE &TCO
INPUT CODTAB[1,2] F_TSGRUPPO INPUT CODTAB[1,2] F_TSGRUPPO
INPUT CODTAB[3,4] F_TSCONTO INPUT CODTAB[3,4] F_TSCONTO
@ -214,7 +248,7 @@ STRING F_TSCONTO 2
BEGIN BEGIN
PROMPT 19 10 "Conto " PROMPT 19 10 "Conto "
COPY ALL F_TSGRUPPO COPY ALL F_TSGRUPPO
CHECKTYPE REQUIRED CHECKTYPE SEARCH
FIELD CODICE[3,4] FIELD CODICE[3,4]
VALIDATE FIXLEN_FUNC 2 VALIDATE FIXLEN_FUNC 2
END END

2
tc/tc8100.cpp
View File

@ -1,4 +1,6 @@
#include <automask.h> #include <automask.h>
#include <applicat.h>
#include <diction.h>
#include <progind.h> #include <progind.h>
#include <reputils.h> #include <reputils.h>
#include <utility.h> #include <utility.h>

5
tc/tcmenu.men
View File

@ -17,9 +17,8 @@ Picture = <cg01>
Module = 27 Module = 27
Flags = "" Flags = ""
Item_01 = "Trasferimento", "tc0 -6", "" Item_01 = "Trasferimento", "tc0 -6", ""
Item_02 = "Importazione documenti", "tc0 -8", "" Item_02 = "Importazione causali,p.d.c.,cod.iva", "tc0 -5", ""
Item_03 = "Importazione causali,p.d.c.,cod.iva", "tc0 -5", "" Item_03 = "Tabelle di riclassificazione", [TCMENU_003]
Item_04 = "Tabelle di riclassificazione", [TCMENU_003]
Item_04 = "Tabelle TeamSystem", [TCMENU_004] Item_04 = "Tabelle TeamSystem", [TCMENU_004]
Item_05 = "Configurazione modulo", [TCMENU_005] Item_05 = "Configurazione modulo", [TCMENU_005]

2
tc/tctbtiv.uml
View File

@ -11,7 +11,7 @@ BEGIN
PROMPT 1 1 "Codice IVA TeamSystem" PROMPT 1 1 "Codice IVA TeamSystem"
END END
NUMBER F_CODTAB 4 NUMBER F_CODTAB 3
BEGIN BEGIN
PROMPT 2 2 "Codice " PROMPT 2 2 "Codice "
USE &TIV USE &TIV

2
tc/tctbtre.uml
View File

@ -34,7 +34,7 @@ BEGIN
OUTPUT F_DESC S0 OUTPUT F_DESC S0
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
FIELD CODTAB[2,3] FIELD CODTAB[2,3]
FLAGS "Z" VALIDATE FIXLEN_FUNC 2
KEY 1 KEY 1
END END

12
tc/tctscau.uml
View File

@ -25,11 +25,13 @@ BEGIN
PROMPT 2 2 "" PROMPT 2 2 ""
USE LF_MULTIREL USE LF_MULTIREL
JOIN LF_CAUSALI INTO CODCAUS==FIRST JOIN LF_CAUSALI INTO CODCAUS==FIRST
JOIN &TCA INTO CODTAB==DATA
INPUT COD F_COD SELECT INPUT COD F_COD SELECT
INPUT FIRST F_CODTAB INPUT FIRST F_CODTAB
DISPLAY "Codice" FIRST DISPLAY "Codice" FIRST
DISPLAY "Descrizione@60" LF_CAUSALI->DESCR DISPLAY "Descrizione@60" LF_CAUSALI->DESCR
DISPLAY "Causale Teamsystem" DATA DISPLAY "Causale Teamsystem" DATA
DISPLAY "Descrizione@50" &TCA->S0
OUTPUT F_CODTAB FIRST OUTPUT F_CODTAB FIRST
OUTPUT F_CODTAB1 FIRST OUTPUT F_CODTAB1 FIRST
OUTPUT F_COD_CAMPO DATA OUTPUT F_COD_CAMPO DATA
@ -44,9 +46,13 @@ NUMBER F_CODTAB1 3
BEGIN BEGIN
PROMPT 2 2 "" PROMPT 2 2 ""
USE LF_CAUSALI USE LF_CAUSALI
JOIN LF_MULTIREL INTO COD=="TSCAU" FIRST==CODCAUS
JOIN &TCA TO LF_MULTIREL INTO CODTAB==DATA
INPUT CODCAUS F_CODTAB1 INPUT CODCAUS F_CODTAB1
DISPLAY "Cod." CODCAUS DISPLAY "Cod." CODCAUS
DISPLAY "Descrizione@50" DESCR DISPLAY "Descrizione@50" DESCR
DISPLAY "Causale Teamsystem" LF_MULTIREL->DATA
DISPLAY "Descrizione@50" &TCA->S0
DISPLAY "Documento" TIPODOC DISPLAY "Documento" TIPODOC
DISPLAY "Registro" REG DISPLAY "Registro" REG
DISPLAY "Tipo movimento" TIPOMOV DISPLAY "Tipo movimento" TIPOMOV
@ -66,10 +72,14 @@ END
STRING F_DESC 50 STRING F_DESC 50
BEGIN BEGIN
PROMPT 10 2 "Descrizione " PROMPT 10 2 "Descrizione "
USE LF_CAUSALI USE LF_CAUSALI KEY 2
JOIN LF_MULTIREL INTO COD=="TSCAU" FIRST==CODCAUS
JOIN &TCA TO LF_MULTIREL INTO CODTAB==DATA
INPUT DESCR F_DESC INPUT DESCR F_DESC
DISPLAY "Descrizione@60" DESCR DISPLAY "Descrizione@60" DESCR
DISPLAY "Codice" CODCAUS DISPLAY "Codice" CODCAUS
DISPLAY "Causale Teamsystem" LF_MULTIREL->DATA
DISPLAY "Descrizione@50" &TCA->S0
COPY OUTPUT F_CODTAB1 COPY OUTPUT F_CODTAB1
KEY 2 KEY 2
GROUP 3 GROUP 3

19
tc/tctscdp.uml
View File

@ -19,22 +19,24 @@ BEGIN
KEY 1 KEY 1
END END
NUMBER F_CODTAB 4 STRING F_CODTAB 4
BEGIN BEGIN
PROMPT 2 2 "" PROMPT 2 2 ""
USE LF_MULTIREL USE LF_MULTIREL
JOIN %CPG INTO CODTAB==FIRST JOIN %CPG INTO CODTAB==FIRST
JOIN &TPG INTO CODTAB==DATA
INPUT COD F_COD SELECT INPUT COD F_COD SELECT
INPUT FIRST F_CODTAB INPUT FIRST F_CODTAB
DISPLAY "Codice" FIRST DISPLAY "Codice" FIRST
DISPLAY "Descrizione@60" %CPG->S0 DISPLAY "Descrizione@60" %CPG->S0
DISPLAY "Condizione TeamSystem" DATA DISPLAY "Condizione TeamSystem" DATA
DISPLAY "Descrizione@50" &TPG->S0
OUTPUT F_CODTAB FIRST OUTPUT F_CODTAB FIRST
OUTPUT F_CODTAB1 FIRST OUTPUT F_CODTAB1 FIRST
OUTPUT F_COD_CAMPO DATA OUTPUT F_COD_CAMPO DATA
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
FIELD FIRST FIELD FIRST
FLAGS "U#G" FLAGS "U#"
GROUP 1 GROUP 1
KEY 1 KEY 1
END END
@ -44,12 +46,18 @@ BEGIN
PROMPT 2 2 "" PROMPT 2 2 ""
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
USE %CPG USE %CPG
JOIN LF_MULTIREL INTO COD=="TSCDP" FIRST==CODTAB
JOIN &TPG TO LF_MULTIREL INTO CODTAB==DATA
INPUT CODTAB F_CODTAB1 INPUT CODTAB F_CODTAB1
DISPLAY "Cod." CODTAB DISPLAY "Cod." CODTAB
DISPLAY "Descrizione@50" S0 DISPLAY "Descrizione@50" S0
DISPLAY "Condizione TeamSystem" LF_MULTIREL->DATA
DISPLAY "Descrizione@50" &TPG->S0
OUTPUT F_CODTAB CODTAB
OUTPUT F_CODTAB1 CODTAB OUTPUT F_CODTAB1 CODTAB
OUTPUT F_DESC S0 OUTPUT F_DESC S0
FLAGS "U#" FIELD FIRST
FLAGS "U#G"
GROUP 2 GROUP 2
KEY 1 KEY 1
ADD RUN ba3 -6 ADD RUN ba3 -6
@ -59,9 +67,14 @@ STRING F_DESC 50
BEGIN BEGIN
PROMPT 10 2 "Descrizione " PROMPT 10 2 "Descrizione "
USE %CPG KEY 2 USE %CPG KEY 2
JOIN LF_MULTIREL INTO COD=="TSCDP" FIRST==CODTAB
JOIN &TPG TO LF_MULTIREL INTO CODTAB==DATA
INPUT CODTAB F_CODTAB1
INPUT S0 F_DESC INPUT S0 F_DESC
DISPLAY "Descrizione@60" S0 DISPLAY "Descrizione@60" S0
DISPLAY "Codice" CODTAB DISPLAY "Codice" CODTAB
DISPLAY "Condizione TeamSystem" LF_MULTIREL->DATA
DISPLAY "Descrizione@50" &TPG->S0
COPY OUTPUT F_CODTAB1 COPY OUTPUT F_CODTAB1
GROUP 3 GROUP 3
KEY 2 KEY 2

6
tc/tctsi11.uml
View File

@ -24,10 +24,12 @@ NUMBER F_CODTAB 2
BEGIN BEGIN
PROMPT 2 2 "" PROMPT 2 2 ""
USE LF_MULTIREL USE LF_MULTIREL
JOIN &T11 INTO CODTAB==DATA
INPUT COD F_COD SELECT INPUT COD F_COD SELECT
INPUT FIRST F_CODTAB INPUT FIRST F_CODTAB
DISPLAY "Tipo spesa/ricavo@30" FIRST DISPLAY "Tipo spesa/ricavo@30" FIRST
DISPLAY "Codice Teamsystem@25" DATA DISPLAY "Codice Teamsystem@25" DATA
DISPLAY "Descrizione@50" &T11->S0
OUTPUT F_CODTAB FIRST OUTPUT F_CODTAB FIRST
OUTPUT F_CODTAB1 FIRST OUTPUT F_CODTAB1 FIRST
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
@ -39,11 +41,11 @@ END
NUMBER F_CODTAB1 2 NUMBER F_CODTAB1 2
BEGIN BEGIN
PROMPT 2 2 "" PROMPT 2 2 ""
INPUT FIRST F_CODTAB1 INPUT F_CODTAB1
SHEET "Tipo spesa/ricavo|Situazione@60" SHEET "Tipo spesa/ricavo|Situazione@60"
OUTPUT F_CODTAB1 OUTPUT F_CODTAB1
OUTPUT F_DESC OUTPUT F_DESC
CHECKTYPE REQUIRED CHECKTYPE NORMAL
FIELD FIRST FIELD FIRST
ITEM "0|0. Acquisti o vendite in genere" ITEM "0|0. Acquisti o vendite in genere"
ITEM "1|1. Acquisti beni per rivendita" ITEM "1|1. Acquisti beni per rivendita"

13
tc/tctsiva.uml
View File

@ -25,11 +25,13 @@ BEGIN
PROMPT 2 2 "" PROMPT 2 2 ""
USE LF_MULTIREL USE LF_MULTIREL
JOIN %IVA INTO CODTAB==FIRST JOIN %IVA INTO CODTAB==FIRST
JOIN &TIV INTO CODTAB==DATA
INPUT COD F_COD SELECT INPUT COD F_COD SELECT
INPUT FIRST F_CODTAB INPUT FIRST F_CODTAB
DISPLAY "Codice IVA" FIRST DISPLAY "Codice IVA" FIRST
DISPLAY "Descrizione@60" %IVA->S0 DISPLAY "Descrizione@60" %IVA->S0
DISPLAY "Codice IVA Teamsystem" DATA DISPLAY "Codice IVA Teamsystem" DATA
DISPLAY "Descrizione@50" &TIV->S0
OUTPUT F_CODTAB FIRST OUTPUT F_CODTAB FIRST
OUTPUT F_CODTAB1 FIRST OUTPUT F_CODTAB1 FIRST
OUTPUT F_COD_CAMPO DATA OUTPUT F_COD_CAMPO DATA
@ -47,10 +49,15 @@ BEGIN
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
FIELD FIRST FIELD FIRST
USE %IVA USE %IVA
JOIN LF_MULTIREL INTO COD=="TSIVA" FIRST==CODTAB
JOIN &TIV TO LF_MULTIREL INTO CODTAB==DATA
INPUT CODTAB F_CODTAB1 INPUT CODTAB F_CODTAB1
DISPLAY "Cod." CODTAB DISPLAY "Cod." CODTAB
DISPLAY "Descrizione@50" S0 DISPLAY "Descrizione@50" S0
DISPLAY "Codice IVA Teamsystem" LF_MULTIREL->DATA
DISPLAY "Descrizione@50" &TIV->S0
OUTPUT F_CODTAB1 CODTAB OUTPUT F_CODTAB1 CODTAB
OUTPUT F_CODTAB CODTAB
OUTPUT F_DESC S0 OUTPUT F_DESC S0
FLAGS "U" FLAGS "U"
KEY 1 KEY 1
@ -62,16 +69,20 @@ STRING F_DESC 50
BEGIN BEGIN
PROMPT 10 2 "Descrizione " PROMPT 10 2 "Descrizione "
USE %IVA KEY 2 USE %IVA KEY 2
JOIN LF_MULTIREL INTO COD=="TSIVA" FIRST==CODTAB
JOIN &TIV TO LF_MULTIREL INTO CODTAB==DATA
INPUT S0 F_DESC INPUT S0 F_DESC
DISPLAY "Descrizione@50" S0 DISPLAY "Descrizione@50" S0
DISPLAY "Cod." CODTAB DISPLAY "Cod." CODTAB
DISPLAY "Codice IVA Teamsystem" LF_MULTIREL->DATA
DISPLAY "Descrizione@50" &TIV->S0
COPY OUTPUT F_CODTAB1 COPY OUTPUT F_CODTAB1
KEY 2 KEY 2
GROUP 3 GROUP 3
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
END END
NUMBER F_COD_CAMPO 4 NUMBER F_COD_CAMPO 3
BEGIN BEGIN
PROMPT 2 4 "Codice IVA Teamsystem " PROMPT 2 4 "Codice IVA Teamsystem "
FIELD DATA FIELD DATA

10
tc/tctsnaz.uml
View File

@ -25,11 +25,13 @@ BEGIN
PROMPT 2 2 "" PROMPT 2 2 ""
USE LF_MULTIREL USE LF_MULTIREL
JOIN %STA INTO CODTAB==FIRST JOIN %STA INTO CODTAB==FIRST
JOIN &TNA INTO CODTAB==DATA
INPUT COD F_COD SELECT INPUT COD F_COD SELECT
INPUT FIRST F_CODTAB INPUT FIRST F_CODTAB
DISPLAY "Codice stato" FIRST DISPLAY "Codice stato" FIRST
DISPLAY "Descrizione@60" %STA->S0 DISPLAY "Descrizione@60" %STA->S0
DISPLAY "Nazione Teamsystem" DATA DISPLAY "Nazione Teamsystem" DATA
DISPLAY "Descrizione@50" &TNA->S0
OUTPUT F_CODTAB FIRST OUTPUT F_CODTAB FIRST
OUTPUT F_CODTAB1 FIRST OUTPUT F_CODTAB1 FIRST
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
@ -43,9 +45,13 @@ NUMBER F_CODTAB1 3
BEGIN BEGIN
PROMPT 2 2 "" PROMPT 2 2 ""
USE %STA USE %STA
JOIN LF_MULTIREL INTO COD=="TSNAZ" FIRST==CODTAB
JOIN &TNA TO LF_MULTIREL INTO CODTAB==DATA
INPUT CODTAB F_CODTAB1 INPUT CODTAB F_CODTAB1
DISPLAY "Cod." CODTAB DISPLAY "Cod." CODTAB
DISPLAY "Descrizione@50" S0 DISPLAY "Descrizione@50" S0
DISPLAY "Nazione Teamsystem" LF_MULTIREL->DATA
DISPLAY "Descrizione@50" &TNA->S0
OUTPUT F_CODTAB CODTAB OUTPUT F_CODTAB CODTAB
OUTPUT F_CODTAB1 CODTAB OUTPUT F_CODTAB1 CODTAB
OUTPUT F_DESC S0 OUTPUT F_DESC S0
@ -60,9 +66,13 @@ STRING F_DESC 50
BEGIN BEGIN
PROMPT 10 2 "Descrizione " PROMPT 10 2 "Descrizione "
USE %STA KEY 2 USE %STA KEY 2
JOIN LF_MULTIREL INTO COD=="TSNAZ" FIRST==CODTAB
JOIN &TNA TO LF_MULTIREL INTO CODTAB==DATA
INPUT S0 F_DESC INPUT S0 F_DESC
DISPLAY "Descrizione@50" S0 DISPLAY "Descrizione@50" S0
DISPLAY "Cod." CODTAB DISPLAY "Cod." CODTAB
DISPLAY "Nazione Teamsystem" LF_MULTIREL->DATA
DISPLAY "Descrizione@50" &TNA->S0
COPY OUTPUT F_CODTAB1 COPY OUTPUT F_CODTAB1
KEY 2 KEY 2
GROUP 3 GROUP 3

15
tc/tctsreg.uml
View File

@ -29,13 +29,13 @@ STRING F_CODTAB 3
BEGIN BEGIN
PROMPT 2 2 "" PROMPT 2 2 ""
USE LF_MULTIREL USE LF_MULTIREL
JOIN REG INTO CODTAB==FIRST JOIN &TRE INTO CODTAB==DATA
INPUT COD F_COD SELECT INPUT COD F_COD SELECT
INPUT FIRST F_CODTAB INPUT FIRST F_CODTAB
DISPLAY "Codice registro" FIRST DISPLAY "Codice registro" FIRST
DISPLAY "Descrizione@60" REG->S0
DISPLAY "Tipo" DATA[1,1] DISPLAY "Tipo" DATA[1,1]
DISPLAY "Codice registro" DATA[2,3] DISPLAY "Codice registro" DATA[2,3]
DISPLAY "Descrizione@50" &TRE->S0
OUTPUT F_CODTAB FIRST OUTPUT F_CODTAB FIRST
OUTPUT F_CODTAB1 FIRST OUTPUT F_CODTAB1 FIRST
FLAGS "UZ" FLAGS "UZ"
@ -49,10 +49,15 @@ STRING F_CODTAB1 3
BEGIN BEGIN
PROMPT 2 2 "" PROMPT 2 2 ""
USE REG USE REG
JOIN LF_MULTIREL INTO COD=="TSREG" FIRST==CODTAB[5,7]
JOIN &TRE TO LF_MULTIREL INTO CODTAB==DATA
INPUT CODTAB[1,4] F_ANNO SELECT INPUT CODTAB[1,4] F_ANNO SELECT
INPUT CODTAB[5,7] F_COD_CAMPO INPUT CODTAB[5,7] F_COD_CAMPO
DISPLAY "Codice" CODTAB[5,7] DISPLAY "Codice" CODTAB[5,7]
DISPLAY "Descrizione@50" S0 DISPLAY "Descrizione@50" S0
DISPLAY "Tipo" LF_MULTIREL->DATA[1,1]
DISPLAY "Codice registro" LF_MULTIREL->DATA[2,3]
DISPLAY "Descrizione@50" &TRE->S0
OUTPUT F_CODTAB CODTAB[5,7] OUTPUT F_CODTAB CODTAB[5,7]
OUTPUT F_CODTAB1 CODTAB[5,7] OUTPUT F_CODTAB1 CODTAB[5,7]
OUTPUT F_DESC S0 OUTPUT F_DESC S0
@ -67,10 +72,15 @@ STRING F_DESC 50
BEGIN BEGIN
PROMPT 10 2 "" PROMPT 10 2 ""
USE REG KEY 2 USE REG KEY 2
JOIN LF_MULTIREL INTO COD=="TSREG" FIRST==CODTAB[5,7]
JOIN &TRE TO LF_MULTIREL INTO CODTAB==DATA
INPUT S0 F_DESC INPUT S0 F_DESC
DISPLAY "Descrizione@50" S0 DISPLAY "Descrizione@50" S0
DISPLAY "Anno" CODTAB[1,4] DISPLAY "Anno" CODTAB[1,4]
DISPLAY "Codice" CODTAB[5,7] DISPLAY "Codice" CODTAB[5,7]
DISPLAY "Tipo" LF_MULTIREL->DATA[1,1]
DISPLAY "Codice registro" LF_MULTIREL->DATA[2,3]
DISPLAY "Descrizione@50" &TRE->S0
COPY OUTPUT F_CODTAB1 COPY OUTPUT F_CODTAB1
KEY 2 KEY 2
GROUP 3 GROUP 3
@ -99,7 +109,6 @@ BEGIN
OUTPUT F_COD_CAMPO CODTAB[2,3] OUTPUT F_COD_CAMPO CODTAB[2,3]
OUTPUT F_DESC1 S0 OUTPUT F_DESC1 S0
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
FLAGS "Z"
END END
STRING F_DESC1 50 40 STRING F_DESC1 50 40

10
tc/tctsval.uml
View File

@ -25,11 +25,13 @@ BEGIN
PROMPT 2 2 "" PROMPT 2 2 ""
USE LF_MULTIREL USE LF_MULTIREL
JOIN %VAL INTO CODTAB==FIRST JOIN %VAL INTO CODTAB==FIRST
JOIN &TVA INTO CODTAB==DATA
INPUT COD F_COD SELECT INPUT COD F_COD SELECT
INPUT FIRST F_CODTAB INPUT FIRST F_CODTAB
DISPLAY "Codice valuta" FIRST DISPLAY "Codice valuta" FIRST
DISPLAY "Descrizione@60" %VAL->S0 DISPLAY "Descrizione@60" %VAL->S0
DISPLAY "Sigla valuta Teamsystem" DATA DISPLAY "Sigla valuta Teamsystem" DATA
DISPLAY "Descrizione@50" &TCA->S0
OUTPUT F_CODTAB FIRST OUTPUT F_CODTAB FIRST
OUTPUT F_DESC %VAL->S0 OUTPUT F_DESC %VAL->S0
OUTPUT F_COD_CAMPO DATA OUTPUT F_COD_CAMPO DATA
@ -44,9 +46,13 @@ STRING F_CODTAB1 3
BEGIN BEGIN
PROMPT 2 2 "" PROMPT 2 2 ""
USE %VAL USE %VAL
JOIN LF_MULTIREL INTO COD=="TSVAL" FIRST==CODTAB
JOIN &TVA TO LF_MULTIREL INTO CODTAB==DATA
INPUT CODTAB F_CODTAB1 INPUT CODTAB F_CODTAB1
DISPLAY "Cod." CODTAB DISPLAY "Cod." CODTAB
DISPLAY "Descrizione@50" S0 DISPLAY "Descrizione@50" S0
DISPLAY "Sigla valuta Teamsystem" LF_MULTIREL->DATA
DISPLAY "Descrizione@50" &TVA->S0
OUTPUT F_CODTAB CODTAB OUTPUT F_CODTAB CODTAB
OUTPUT F_CODTAB1 CODTAB OUTPUT F_CODTAB1 CODTAB
OUTPUT F_DESC S0 OUTPUT F_DESC S0
@ -61,9 +67,13 @@ STRING F_DESC 50
BEGIN BEGIN
PROMPT 10 2 "Descrizione " PROMPT 10 2 "Descrizione "
USE %VAL KEY 2 USE %VAL KEY 2
JOIN LF_MULTIREL INTO COD=="TSVAL" FIRST==CODTAB
JOIN &TVA TO LF_MULTIREL INTO CODTAB==DATA
INPUT S0 F_DESC INPUT S0 F_DESC
DISPLAY "Descrizione@50" S0 DISPLAY "Descrizione@50" S0
DISPLAY "Cod." CODTAB DISPLAY "Cod." CODTAB
DISPLAY "Sigla valuta Teamsystem" LF_MULTIREL->DATA
DISPLAY "Descrizione@50" &TVA->S0
COPY OUTPUT F_CODTAB1 COPY OUTPUT F_CODTAB1
KEY 2 KEY 2
GROUP 3 GROUP 3