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

20
tc/tcipval.uml
View File

@ -25,17 +25,17 @@ BEGIN
PROMPT 2 2 "" PROMPT 2 2 ""
USE LF_MULTIREL USE LF_MULTIREL
JOIN %VAL INTO CODTAB==FIRST JOIN %VAL INTO CODTAB==FIRST
JOIN &IVA INTO CODTAB==DATA JOIN &IVL 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 IPSOA" DATA DISPLAY "Sigla valuta IPSOA" DATA
DISPLAY "Descrizione@50" &IVA->S0 DISPLAY "Descrizione@50" &IVL->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
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
FIELD FIRST FIELD FIRST
FLAGS "UZG" FLAGS "UZG"
KEY 1 KEY 1
@ -47,16 +47,16 @@ BEGIN
PROMPT 2 2 "" PROMPT 2 2 ""
USE %VAL USE %VAL
JOIN LF_MULTIREL INTO COD=="IPVAL" FIRST==CODTAB 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 INPUT CODTAB F_CODTAB1
DISPLAY "Cod." CODTAB DISPLAY "Cod." CODTAB
DISPLAY "Descrizione@50" S0 DISPLAY "Descrizione@50" S0
DISPLAY "Sigla valuta IPSOA" LF_MULTIREL->DATA DISPLAY "Sigla valuta IPSOA" LF_MULTIREL->DATA
DISPLAY "Descrizione@50" &IVA->S0 DISPLAY "Descrizione@50" &IVL->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
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
FIELD FIRST FIELD FIRST
FLAGS "UZ" FLAGS "UZ"
KEY 1 KEY 1
@ -68,12 +68,12 @@ BEGIN
PROMPT 10 2 "Descrizione " PROMPT 10 2 "Descrizione "
USE %VAL KEY 2 USE %VAL KEY 2
JOIN LF_MULTIREL INTO COD=="IPVAL" FIRST==CODTAB 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 INPUT S0 F_DESC
DISPLAY "Descrizione@50" S0 DISPLAY "Descrizione@50" S0
DISPLAY "Cod." CODTAB DISPLAY "Cod." CODTAB
DISPLAY "Sigla valuta IPSOA" LF_MULTIREL->DATA DISPLAY "Sigla valuta IPSOA" LF_MULTIREL->DATA
DISPLAY "Descrizione@50" &IVA->S0 DISPLAY "Descrizione@50" &IVL->S0
COPY OUTPUT F_CODTAB1 COPY OUTPUT F_CODTAB1
KEY 2 KEY 2
GROUP 3 GROUP 3
@ -85,7 +85,7 @@ BEGIN
PROMPT 2 4 "Codice Valuta IPSOA " PROMPT 2 4 "Codice Valuta IPSOA "
FIELD DATA FIELD DATA
FLAGS "UZ" FLAGS "UZ"
USE &IVA USE &IVL
INPUT CODTAB F_COD_CAMPO INPUT CODTAB F_COD_CAMPO
DISPLAY "Cod." CODTAB DISPLAY "Cod." CODTAB
DISPLAY "Descrizione@50" S0 DISPLAY "Descrizione@50" S0
@ -97,7 +97,7 @@ END
STRING F_DESC1 50 35 STRING F_DESC1 50 35
BEGIN BEGIN
PROMPT 37 4 "" PROMPT 37 4 ""
USE &IVA KEY 2 USE &IVL KEY 2
INPUT S0 F_DESC1 INPUT S0 F_DESC1
DISPLAY "Descrizione@60" S0 DISPLAY "Descrizione@60" S0
DISPLAY "Codice" CODTAB DISPLAY "Codice" CODTAB

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

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

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