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();
if (cod.blank() || !real::is_natural(cod))
continue;
cod.lpad(4, '0');
if (cod.len() > 4)
cod.lpad(3, '0');
if (cod.len() > 3)
{
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);
}
iva.put("CODTAB",cod);

52
tc/tc0800a.uml
View File

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

2
tc/tc8100.cpp
View File

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

5
tc/tcmenu.men
View File

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

2
tc/tctbtiv.uml
View File

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

2
tc/tctbtre.uml
View File

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

12
tc/tctscau.uml
View File

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

19
tc/tctscdp.uml
View File

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

6
tc/tctsi11.uml
View File

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

13
tc/tctsiva.uml
View File

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

10
tc/tctsnaz.uml
View File

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

15
tc/tctsreg.uml
View File

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

10
tc/tctsval.uml
View File

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