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

Patch level :10.0

Browse Source 
Files correlati     :
Ricompilazione Demo : [ ]
Commento            :
rettificati nomi di tabella ipsoa (iva -> ivl)


git-svn-id: svn://10.65.10.50/branches/R_10_00@21298 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
luca 2010-12-14 10:56:42 +00:00
parent bff78c7a4b
commit c82a5b9c9f
3 changed files with 14 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
tc/tcipval.uml
View File

@ -25,13 +25,13 @@ BEGIN
PROMPT 2 2 ""
USE LF_MULTIREL
JOIN %VAL INTO CODTAB==FIRST
JOIN &IVA INTO CODTAB==DATA
JOIN &IVL INTO CODTAB==DATA
INPUT COD F_COD SELECT
INPUT FIRST F_CODTAB
DISPLAY "Codice valuta" FIRST
DISPLAY "Descrizione@60" %VAL->S0
DISPLAY "Sigla valuta IPSOA" DATA
DISPLAY "Descrizione@50" &IVA->S0
DISPLAY "Descrizione@50" &IVL->S0
OUTPUT F_CODTAB FIRST
OUTPUT F_DESC %VAL->S0
OUTPUT F_COD_CAMPO DATA
@ -47,12 +47,12 @@ BEGIN
PROMPT 2 2 ""
USE %VAL
JOIN LF_MULTIREL INTO COD=="IPVAL" FIRST==CODTAB
JOIN &IVA TO LF_MULTIREL INTO CODTAB==DATA
JOIN &IVL TO LF_MULTIREL INTO CODTAB==DATA
INPUT CODTAB F_CODTAB1
DISPLAY "Cod." CODTAB
DISPLAY "Descrizione@50" S0
DISPLAY "Sigla valuta IPSOA" LF_MULTIREL->DATA
DISPLAY "Descrizione@50" &IVA->S0
DISPLAY "Descrizione@50" &IVL->S0
OUTPUT F_CODTAB CODTAB
OUTPUT F_CODTAB1 CODTAB
OUTPUT F_DESC S0
@ -68,12 +68,12 @@ BEGIN
PROMPT 10 2 "Descrizione "
USE %VAL KEY 2
JOIN LF_MULTIREL INTO COD=="IPVAL" FIRST==CODTAB
JOIN &IVA TO LF_MULTIREL INTO CODTAB==DATA
JOIN &IVL TO LF_MULTIREL INTO CODTAB==DATA
INPUT S0 F_DESC
DISPLAY "Descrizione@50" S0
DISPLAY "Cod." CODTAB
DISPLAY "Sigla valuta IPSOA" LF_MULTIREL->DATA
DISPLAY "Descrizione@50" &IVA->S0
DISPLAY "Descrizione@50" &IVL->S0
COPY OUTPUT F_CODTAB1
KEY 2
GROUP 3
@ -85,7 +85,7 @@ BEGIN
PROMPT 2 4 "Codice Valuta IPSOA "
FIELD DATA
FLAGS "UZ"
USE &IVA
USE &IVL
INPUT CODTAB F_COD_CAMPO
DISPLAY "Cod." CODTAB
DISPLAY "Descrizione@50" S0
@ -97,7 +97,7 @@ END
STRING F_DESC1 50 35
BEGIN
PROMPT 37 4 ""
USE &IVA KEY 2
USE &IVL KEY 2
INPUT S0 F_DESC1
DISPLAY "Descrizione@60" S0
DISPLAY "Codice" CODTAB

0
tc/tctbiva.h → tc/tctbivl.h
View File

6
tc/tctbiva.uml → tc/tctbivl.uml
View File

@ -1,4 +1,4 @@
#include "tctbiva.h"
#include "tctbivl.h"
TOOLBAR "topbar" 0 0 0 2
#include <relapbar.h>
@ -14,7 +14,7 @@ END
STRING F_CODTAB 3
BEGIN
PROMPT 2 2 "Codice "
USE &IVA
USE &IVL
INPUT CODTAB F_CODTAB
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@60" S0
@ -29,7 +29,7 @@ END
STRING F_DESC 50
BEGIN
PROMPT 2 5 "Descrizione "
USE &IVA KEY 2
USE &IVL KEY 2
INPUT S0 F_DESC
DISPLAY "Descrizione@60" S0
DISPLAY "Codice" CODTAB