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

Patch level : 10.0 870

Browse Source 
Files correlati     : ef0.exe
Ricompilazione Demo : [ ]
Commento            :
Gestione CUP
Verificare che i profili persnalizzati continuino a funzionare
Nella gestione profili e documenti aggiunti i campi per gestire piu banche di appoggio e presentazione dei clienti/ fornitori
La ricerca e sulla tabella se il cliente / fornitore non ha banche altrimenti e sulle banche del cliente/fornitore.
Ai profili personalizzati vanno aggiunti-modificati e posizionati i campi :

NU 117 5
BE
PR 2 11 "Banca appoggio      : Cod. ABI "
FL "Z"
CH NORMAL
FI CODABIA
US %BAN SE CODTAB?="?????"
IN CODTAB[1,5] 117
DI "Cod. Istit." CODTAB[1,5]
DI "Cod. Fil." CODTAB[6,10]
DI "Denominazione@50" S0
OU 117 CODTAB[1,5]
OU 336 S0
OU 197 CODTAB[1,5]
ME CO,220
EN
NU 118 5
BE
PR 42 11 "Cod. CAB "
FL "Z"
CH NORMAL
FI CODCABA
US %BAN SE CODTAB?="??????????"
IN CODTAB[1,5] 117
IN CODTAB[6,10] 118
CO DI 117
OU 117 CODTAB[1,5]
OU 118 CODTAB[6,10]
OU 336 S0
OU 198 CODTAB[6,10]
ME CO,221
EN
NU 220 5
BE
PR 2 11 "Banca appoggio      : Cod. ABI "
FL "ZH"
CH NORMAL
FI CODABIA
US 98 KEY 2
JOIN %BAN INTO CODTAB[1,5]==ABI CODTAB[6,10]==CAB
IN TIPOCF 107 SE
IN CODCF 108 SE
IN TIPOBAN "V"
IN ABI 220
IN CAB 221
IN PROGPR ""
DI "Cod. Istit." ABI
DI "Cod. Fil." CAB
DI "IBAN@27" IBAN
DI "Denominazione@50" %BAN->S0
OU 220 ABI
OU 221 CAB
OU 336 %BAN->S0
OU 192 IBAN
OU 197 ABI
OU 198 CAB
EN
NU 221 5
BE
PR 42 11 "Cod. CAB "
FL "ZH"
CH NORMAL
FI CODCABA
CO US 220
CO IN 220
CO DI 220
CO OU 220
EN

per la banca di appoggio

NU 119 5
BE
PR 2 14 "Banca presentazione : Cod. ABI "
FL "Z"
CH NORMAL
FI CODABIP
CO US 117
IN CODTAB[1,5] 119
DI "Cod. Istit." CODTAB[1,5]
DI "Cod. Fil." CODTAB[6,10]
DI "Denominazione@50" S0
OU 119 CODTAB[1,5]
OU 338 S0
ME CO,222
EN
NU 120 5
BE
PR 42 14 "Cod. CAB "
FL "Z"
CH NORMAL
FI CODCABP
CO US 118
IN CODTAB[1,5] 119
IN CODTAB[6,10] 120
CO DI 119
OU 119 CODTAB[1,5]
OU 120 CODTAB[6,10]
OU 338 S0
ME CO,223
EN
NU 214 2
BE
PR 60 14 "Progressivo "
FL "Z"
FI PROGBNP
US BNP
JOIN %BAN ALIAS 100 INTO CODTAB=CODTAB[1,10]
IN CODTAB[1,5] 119
IN CODTAB[6,10] 120
IN CODTAB[11,12] 214
DI "Cod. Istit." CODTAB[1,5]
DI "Cod. Fil." CODTAB[6,10]
DI "Progr." CODTAB[11,12]
DI "IBAN@27" S3
DI "Denominazione@50" 100@->S0
OU 119 CODTAB[1,5]
OU 120 CODTAB[6,10]
OU 214 CODTAB[11,12]
OU 338 100@->S0
ME CO,224
EN
NU 222 5
BE
PR 2 14 "Banca presentazione : Cod. ABI "
FL "ZH"
CH NORMAL
FI CODABIP
US 98 KEY 2
JOIN %BAN INTO CODTAB[1,5]==ABI CODTAB[6,10]==CAB
IN TIPOCF 107 SE
IN CODCF 108 SE
IN TIPOBAN "N"
IN ABI 222
IN CAB 223
IN PROGPR 224
DI "Cod. Istit." ABI
DI "Cod. Fil." CAB
DI "Progr." PROGPR
DI "IBAN@27" IBAN
DI "Denominazione@50" %BAN->S0
OU 222 ABI
OU 223 CAB
OU 224 PROGPR
OU 338 %BAN->S0
OU 192 IBAN
EN
NU 223 5
BE
PR 42 14 "Cod. CAB "
FL "ZH"
CH NORMAL
FI CODCABP
CO US 222
CO IN 222
CO DI 222
CO OU 222
EN
NU 224 2
BE
PR 60 14 "Progressivo "
FL "ZH"
CH NORMAL
FI PROGBNP
CO US 222
CO IN 222
CO DI 222
CO OU 222
EN

per la banca di presentazione.

Sono stati aggiunti campi CUP e CIG che hanno la ricerca sulla tabella ne caso normale e la ricerca sul file
commesse clienti nel caso sia presente l'analitica
Vanno aggiunti e posizionati ai profili personalizzati nel caso servano:

ST 215 15
BE
PR 2 11 "Cod.Unico Prog."
FL "U"
CH NORMAL
FI CUP
US %CUP
IN CODTAB 215
DI "Codice@15" CODTAB
DI "Descrizione@50" S0
OU 215 CODTAB
OU 216 S0
HE "Inserisci il Codice Unico di Progetto"
WA "Codice Unico di Progetto non trovato"
CH NORMAL
EN
ST 216 50
BE
PR 35 11 ""
FL ""
CH NORMAL
US %CUP KEY 2
IN S0 216
DI "Descrizione@50" S0
DI "Codice@15" CODTAB
CO OU 215
EN
ST 217 15
BE
PR 2 12 "Cod.Ident.Gara "
FL "U"
CH NORMAL
FI CIG
US %CIG
IN CODTAB 217
DI "Codice@15" CODTAB
DI "Descrizione@50" S0
OU 217 CODTAB
OU 218 S0
HE "Inserisci il Codice Identificativo Gara"
WA "Codice Identificativo Gara non trovato"
CH NORMAL
EN
ST 218 50
BE
PR 35 12 ""
FL ""
CH NORMAL
US %CIG KEY 2
IN S0 218
DI "Descrizione@50" S0
DI "Codice@15" CODTAB
CO OU 217
EN
ST 219 20
BE
PR 2 13 ""
FL "H"
FI CODCMS
EN

La generazione effetti scrive il CUP e il CIG sull'effetto.
La contabilizzazione scrive il CUP e il CIG sulle righe contabili.


git-svn-id: svn://10.65.10.50/branches/R_10_00@21374 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
alex 2010-12-28 08:28:47 +00:00
parent 57d0fb0587
commit a6067cf2cf
16 changed files with 649 additions and 45 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
ve/bolacq.src
View File

@ -69,6 +69,8 @@ DATASCAD4 = S_DISABILITATO //500
DATASCAD5 = S_DISABILITATO //500
CODABIA = S_OBBLIGATORIO //600
CODCABA = S_OBBLIGATORIO //600
CODABIA1 = S_NORMALE //600
CODCABA1 = S_NORMALE //600
DESBANAPP = S_NORMALE //600
IBAN = S_NORMALE //600
IBAN_STATO = S_NORMALE //600
@ -80,8 +82,11 @@ BBAN_CAB = S_NORMALE //600
BBAN_CONTO = S_NORMALE //600
CODABIP = S_NORMALE //700
CODCABP = S_NORMALE //700
CODABIP1 = S_NORMALE //700
CODCABP1 = S_NORMALE //700
DESBANPRE = S_NORMALE //700
PROGBNP = S_NOCHECK //700
PROGBNP1 = S_NORMALE //700
CATVEN = S_NORMALE //800
DESCATVEN = S_DISABILITATO //800
CODLIST = S_NORMALE //800
@ -160,6 +165,11 @@ DESCRMAGC = S_DISABILITATO //2900
BLANK = S_DISABILITATO //4000
CODNOTE = S_NASCOSTO //2500
NOTECLI = S_NASCOSTO //2500
CUP = S_NORMALE //3000
DESCRCUP = S_NORMALE //3000
CIG = S_NORMALE //3000
DESCRCIG = S_NORMALE //3000
CMSH = S_NORMALE //3000
[DEFAULT]
@ -243,3 +253,4 @@ NGROUPS=14
13=2900
14=3000

10
ve/bollac.src
View File

@ -68,6 +68,8 @@ DATASCAD4 = S_DISABILITATO //500
DATASCAD5 = S_DISABILITATO //500
CODABIA = S_OBBLIGATORIO //600
CODCABA = S_OBBLIGATORIO //600
CODABIA1 = S_NORMALE //600
CODCABA1 = S_NORMALE //600
DESBANAPP = S_NORMALE //600
IBAN = S_NORMALE //600
IBAN_STATO = S_NORMALE //600
@ -79,8 +81,11 @@ BBAN_CAB = S_NORMALE //600
BBAN_CONTO = S_NORMALE //600
CODABIP = S_NORMALE //700
CODCABP = S_NORMALE //700
CODABIP1 = S_NORMALE //700
CODCABP1 = S_NORMALE //700
DESBANPRE = S_NORMALE //700
PROGBNP = S_NOCHECK //700
PROGBNP1 = S_NORMALE //700
CATVEN = S_NORMALE //800
DESCATVEN = S_DISABILITATO //800
CODLIST = S_NORMALE //800
@ -159,6 +164,11 @@ DESCRMAGC = S_DISABILITATO //2900
BLANK = S_DISABILITATO //4000
CODNOTE = S_NORMALE //2500
NOTECLI = S_NOCHECK //2500
CUP = S_NORMALE //3000
DESCRCUP = S_NORMALE //3000
CIG = S_NORMALE //3000
DESCRCIG = S_NORMALE //3000
CMSH = S_NORMALE //3000
[DEFAULT]
Default(0)=F_CAUSTRASP|VEN

1
ve/bollaf.src
View File

@ -199,4 +199,3 @@ NGROUPS=23
21=1500
22=1600
23=3000

50
ve/clifor.cpp
View File

@ -2,6 +2,7 @@
#include "clifor.h"
#include "velib.h"
#include "../li/letint.h"
#include "../cg/cfban.h"
#include <modaut.h>
#include <relation.h>
@ -181,11 +182,50 @@ void TCli_for::cli2doc(TDocumento & doc)
doc.put(DOC_CODVAL, get(CLI_CODVAL));
doc.put(DOC_CODLIN, get(CLI_CODLIN));
doc.put(DOC_CODPAG, get(CLI_CODPAG));
doc.put(DOC_CODABIA, get(CLI_CODABI));
doc.put(DOC_CODCABA, get(CLI_CODCAB));
doc.put(DOC_IBAN, get(CLI_IBAN));
doc.put(DOC_CODABIP, v.get(CFV_CODABIPR));
doc.put(DOC_CODCABP, v.get(CFV_CODCABPR));
TToken_string key;
key.add(get(CLI_TIPOCF));
key.add(get(CLI_CODCF));
key.add("V");
key.add("1");
const TRectype & cfban = cache().get(LF_CFBAN, key);
if (cfban.empty())
{
doc.put(DOC_CODCABA, get(CLI_CODCAB));
doc.put(DOC_CODABIA, get(CLI_CODABI));
doc.put(DOC_IBAN, get(CLI_IBAN));
}
else
{
doc.put(DOC_CODABIA, cfban.get(CFBAN_ABI));
doc.put(DOC_CODCABA, cfban.get(CFBAN_CAB));
doc.put(DOC_IBAN, get(CFBAN_IBAN));
}
key.cut(0);
key.add(get(CLI_TIPOCF));
key.add(get(CLI_CODCF));
key.add("N");
key.add("1");
const TRectype & cfbanpr = cache().get(LF_CFBAN, key);
// Setta i campi che appartengono al file LF_CFVEN
if (cfbanpr.empty())
{
doc.put(DOC_CODABIP, v.get(CFV_CODABIPR));
doc.put(DOC_CODCABP, v.get(CFV_CODCABPR));
}
else
{
doc.put(DOC_CODABIP, cfbanpr.get(CFBAN_ABI));
doc.put(DOC_CODCABP, cfbanpr.get(CFBAN_CAB));
doc.put(DOC_PROGBNP, cfbanpr.get(CFBAN_PROGPR));
}
doc.put(DOC_RAGGR, v.get(CFV_RAGGDOC));
doc.put(DOC_RAGGREFF, v.get(CFV_RAGGEFF));
doc.put(DOC_CODINDSP, v.get(CFV_CODINDSP));

11
ve/fatacq.src
View File

@ -67,6 +67,8 @@ DATASCAD4 = S_DISABILITATO //500
DATASCAD5 = S_DISABILITATO //500
CODABIA = S_OBBLIGATORIO //600
CODCABA = S_OBBLIGATORIO //600
CODABIA1 = S_NORMALE //600
CODCABA1 = S_NORMALE //600
DESBANAPP = S_NORMALE //600
IBAN = S_NORMALE //600
IBAN_STATO = S_NORMALE //600
@ -78,8 +80,11 @@ BBAN_CAB = S_NORMALE //600
BBAN_CONTO = S_NORMALE //600
CODABIP = S_NORMALE //700
CODCABP = S_NORMALE //700
CODABIP1 = S_NORMALE //700
CODCABP1 = S_NORMALE //700
DESBANPRE = S_NORMALE //700
PROGBNP = S_NOCHECK //700
PROGBNP1 = S_NORMALE //700
CATVEN = S_NORMALE //800
DESCATVEN = S_DISABILITATO //800
CODLIST = S_NORMALE //800
@ -122,6 +127,11 @@ CAUSMAG = S_OBBLIGATORIO //2900
CAUSMAGC = S_DISABILITATO //2900
DESCRMAG = S_NORMALE //2900
DESCRMAGC = S_DISABILITATO //2900
CUP = S_NORMALE //3000
DESCRCUP = S_NORMALE //3000
CIG = S_NORMALE //3000
DESCRCIG = S_NORMALE //3000
CMSH = S_NORMALE //3000
[DEFAULT]
@ -198,4 +208,3 @@ NGROUPS=15
13=1900
14=2900
15=3000

10
ve/fatturaa.src
View File

@ -68,6 +68,8 @@ DATASCAD4 = S_DISABILITATO //500
DATASCAD5 = S_DISABILITATO //500
CODABIA = S_OBBLIGATORIO //600
CODCABA = S_OBBLIGATORIO //600
CODABIA1 = S_NORMALE //600
CODCABA1 = S_NORMALE //600
DESBANAPP = S_NORMALE //600
IBAN = S_NORMALE //600
IBAN_STATO = S_NORMALE //600
@ -79,8 +81,11 @@ BBAN_CAB = S_NORMALE //600
BBAN_CONTO = S_NORMALE //600
CODABIP = S_NORMALE //700
CODCABP = S_NORMALE //700
CODABIP1 = S_NORMALE //700
CODCABP1 = S_NORMALE //700
DESBANPRE = S_NORMALE //700
PROGBNP = S_NOCHECK //700
PROGBNP1 = S_NORMALE //700
CATVEN = S_NORMALE //800
DESCATVEN = S_DISABILITATO //800
CODLIST = S_NORMALE //800
@ -160,6 +165,11 @@ CAUSMAG = S_OBBLIGATORIO //2900
CAUSMAGC = S_DISABILITATO //2900
DESCRMAG = S_NORMALE //2900
DESCRMAGC = S_DISABILITATO //2900
CUP = S_NORMALE //3000
DESCRCUP = S_NORMALE //3000
CIG = S_NORMALE //3000
DESCRCIG = S_NORMALE //3000
CMSH = S_NORMALE //3000
[DEFAULT]
Default(0)=F_CAUSTRASP|VEN

15
ve/fatturac.src
View File

@ -64,6 +64,8 @@ DATASCAD4 = S_DISABILITATO //500
DATASCAD5 = S_DISABILITATO //500
CODABIA = S_OBBLIGATORIO //600
CODCABA = S_OBBLIGATORIO //600
CODABIA1 = S_NORMALE //600
CODCABA1 = S_NORMALE //600
DESBANAPP = S_NORMALE //600
IBAN = S_NORMALE //600
IBAN_STATO = S_NORMALE //600
@ -75,8 +77,11 @@ BBAN_CAB = S_NORMALE //600
BBAN_CONTO = S_NORMALE //600
CODABIP = S_NORMALE //700
CODCABP = S_NORMALE //700
CODABIP1 = S_NORMALE //700
CODCABP1 = S_NORMALE //700
DESBANPRE = S_NORMALE //700
PROGBNP = S_NOCHECK //700
PROGBNP1 = S_NORMALE //700
CATVEN = S_NORMALE //800
DESCATVEN = S_DISABILITATO //800
CODLIST = S_NORMALE //800
@ -140,7 +145,11 @@ CAUSMAG = S_OBBLIGATORIO //2900
CAUSMAGC = S_DISABILITATO //2900
DESCRMAG = S_NORMALE //2900
DESCRMAGC = S_DISABILITATO //2900
BLANK = S_DISABILITATO //4000
CUP = S_NORMALE //3000
DESCRCUP = S_NORMALE //3000
CIG = S_NORMALE //3000
DESCRCIG = S_NORMALE //3000
CMSH = S_NORMALE //3000
[DEFAULT]
@ -201,7 +210,7 @@ Col(21)=FR_TIPORIGA
2400 = S_NORMALE
2500 = S_NORMALE
2900 = S_NORMALE
4000 = S_NORMALE
3000 = S_NORMALE
[ORDINEGRUPPI]
NGROUPS=25
@ -229,4 +238,4 @@ NGROUPS=25
22=1900
23=1010
24=2900
25=3000

18
ve/ordbon.src
View File

@ -69,6 +69,8 @@ DATASCAD4 = S_DISABILITATO //500
DATASCAD5 = S_DISABILITATO //500
CODABIA = S_OBBLIGATORIO //600
CODCABA = S_OBBLIGATORIO //600
CODABIA1 = S_NORMALE //600
CODCABA1 = S_NORMALE //600
DESBANAPP = S_NORMALE //600
IBAN = S_NORMALE //600
IBAN_STATO = S_NORMALE //600
@ -80,7 +82,11 @@ BBAN_CAB = S_NORMALE //600
BBAN_CONTO = S_NORMALE //600
CODABIP = S_NORMALE //700
CODCABP = S_NORMALE //700
CODABIP1 = S_NORMALE //700
CODCABP1 = S_NORMALE //700
DESBANPRE = S_NORMALE //700
PROGBNP = S_NOCHECK //700
PROGBNP1 = S_NORMALE //700
CATVEN = S_NORMALE //800
DESCATVEN = S_DISABILITATO //800
CODLIST = S_NORMALE //800
@ -156,9 +162,13 @@ CAUSMAG = S_OBBLIGATORIO //2900
CAUSMAGC = S_DISABILITATO //2900
DESCRMAG = S_NORMALE //2900
DESCRMAGC = S_DISABILITATO //2900
BLANK = S_DISABILITATO //4000
CODNOTE = S_NORMALE //2500
NOTECLI = S_NOCHECK //2500
CUP = S_NORMALE //3000
DESCRCUP = S_NORMALE //3000
CIG = S_NORMALE //3000
DESCRCIG = S_NORMALE //3000
CMSH = S_NORMALE //3000
[DEFAULT]
@ -226,10 +236,10 @@ Col(21) = FR_TIPORIGA
2710 = S_NORMALE
2800 = S_NORMALE
2900 = S_NORMALE
4000 = S_NORMALE
3000 = S_NORMALE
[ORDINEGRUPPI]
NGROUPS=29
NGROUPS=30
1=100
2=200
3=300
@ -259,4 +269,4 @@ NGROUPS=29
27=2500
28=2400
29=2900
30=3000

12
ve/ordinec.src
View File

@ -75,6 +75,8 @@ DATASCAD4 = S_DISABILITATO //500
DATASCAD5 = S_DISABILITATO //500
CODABIA = S_OBBLIGATORIO //600
CODCABA = S_OBBLIGATORIO //600
CODABIA1 = S_NORMALE //600
CODCABA1 = S_NORMALE //600
DESBANAPP = S_NORMALE //600
IBAN = S_NORMALE //600
IBAN_STATO = S_NORMALE //600
@ -86,8 +88,11 @@ BBAN_CAB = S_NORMALE //600
BBAN_CONTO = S_NORMALE //600
CODABIP = S_NORMALE //700
CODCABP = S_NORMALE //700
CODABIP1 = S_NORMALE //700
CODCABP1 = S_NORMALE //700
DESBANPRE = S_NORMALE //700
PROGBNP = S_NOCHECK //700
PROGBNP1 = S_NORMALE //700
CATVEN = S_NORMALE //800
DESCATVEN = S_DISABILITATO //800
CODLIST = S_NORMALE //800
@ -155,7 +160,11 @@ CAUSMAGC = S_DISABILITATO //2900
DESCRMAG = S_NORMALE //2900
DESCRMAGC = S_DISABILITATO //2900
DATACONS = S_NORMALE //2000
BLANK = S_DISABILITATO //4000
CUP = S_NORMALE //3000
DESCRCUP = S_NORMALE //3000
CIG = S_NORMALE //3000
DESCRCIG = S_NORMALE //3000
CMSH = S_NORMALE //3000
[DEFAULT]
@ -223,7 +232,6 @@ Col(25) = FR_TIPORIGA
2500 = S_NORMALE
2900 = S_NORMALE
3000 = S_NORMALE
4000 = S_NORMALE
[ORDINEGRUPPI]
NGROUPS=27

17
ve/ordinef.src
View File

@ -74,6 +74,8 @@ DATASCAD4 = S_DISABILITATO //500
DATASCAD5 = S_DISABILITATO //500
CODABIA = S_OBBLIGATORIO //600
CODCABA = S_OBBLIGATORIO //600
CODABIA1 = S_NORMALE //600
CODCABA1 = S_NORMALE //600
DESBANAPP = S_NORMALE //600
IBAN = S_NORMALE //600
IBAN_STATO = S_NORMALE //600
@ -85,8 +87,11 @@ BBAN_CAB = S_NORMALE //600
BBAN_CONTO = S_NORMALE //600
CODABIP = S_NORMALE //700
CODCABP = S_NORMALE //700
CODABIP1 = S_NORMALE //700
CODCABP1 = S_NORMALE //700
DESBANPRE = S_NORMALE //700
PROGBNP = S_NOCHECK //700
PROGBNP1 = S_NORMALE //700
CATVEN = S_NORMALE //800
DESCATVEN = S_DISABILITATO //800
CODLIST = S_NORMALE //800
@ -159,7 +164,11 @@ CAUSMAG = S_NORMALE //2900
DESCRMAG = S_DISABILITATO //2900
CAUSMAGC = S_DISABILITATO //2900
DESCRMAGC = S_DISABILITATO //2900
BLANK = S_DISABILITATO //4000
CUP = S_NORMALE //3000
DESCRCUP = S_NORMALE //3000
CIG = S_NORMALE //3000
DESCRCIG = S_NORMALE //3000
CMSH = S_NORMALE //3000
[SHEET]
Col(0) = FR_CODMAG
@ -232,11 +241,9 @@ Col(24) = FR_TIPORIGA
2800 = S_NORMALE
2900 = S_NORMALE
3000 = S_NORMALE
3200 = S_NORMALE
3400 = S_NORMALE
[ORDINEGRUPPI]
NGROUPS=33
NGROUPS=34
1=100
2=200
3=300
@ -270,4 +277,4 @@ NGROUPS=33
31=1600
32=2000
33=2900
34=3000

157
ve/ve0300a.src
View File

@ -529,6 +529,7 @@ USE=%BAN SE CODTAB?="?????"
INPUT=CODTAB[1,5] F_CODABIA
DISPLAY="Cod. Istit." CODTAB[1,5]~"Cod. Fil." CODTAB[6,10]~"Denominazione@50" S0
OUTPUT=F_CODABIA CODTAB[1,5]~F_DESBANAPP S0~F_BBAN_ABI CODTAB[1,5]
SPECIAL=ME CO,F_CODABIA1
[CODCABA]
GROUP=600
@ -544,6 +545,37 @@ USE=%BAN SE CODTAB?="??????????"
INPUT=CODTAB[1,5] F_CODABIA~CODTAB[6,10] F_CODCABA
DISPLAY=@F_CODABIA
OUTPUT=F_CODABIA CODTAB[1,5]~F_CODCABA CODTAB[6,10]~F_DESBANAPP S0~F_BBAN_CAB CODTAB[6,10]
SPECIAL=ME CO,F_CODCABA1
[CODABIA1]
GROUP=600
X=2
Y=0
FIELDNAME=CODABIA
MSKID=F_CODABIA1
TYPE=T_NUMERO
PROMPT="Banca appoggio : Cod. ABI "
SIZE=5
FLAG=ZH
USE=LF_CFBAN KEY 2~JOIN %BAN INTO CODTAB[1,5]==ABI CODTAB[6,10]==CAB
INPUT=TIPOCF F_TIPOCF SE~CODCF F_CODCF SE~TIPOBAN "V"~ABI F_CODABIA1~CAB F_CODCABA1~PROGPR ""
DISPLAY="Cod. Istit." ABI~"Cod. Fil." CAB~"IBAN@27" IBAN~"Denominazione@50" %BAN->S0
OUTPUT=F_CODABIA1 ABI~F_CODCABA1 CAB~F_DESBANAPP %BAN->S0~F_IBAN IBAN~F_BBAN_ABI ABI~F_BBAN_CAB CAB
[CODCABA1]
GROUP=600
X=42
Y=0
FIELDNAME=CODCABA
MSKID=F_CODCABA1
TYPE=T_NUMERO
PROMPT="Cod. CAB "
SIZE=5
FLAG=ZH
USE=@F_CODABIA1
INPUT=@F_CODABIA1
DISPLAY=@F_CODABIA1
OUTPUT=@F_CODABIA1
[DESBANAPP]
GROUP=600
@ -657,6 +689,7 @@ USE=@F_CODABIA
INPUT=CODTAB[1,5] F_CODABIP
DISPLAY="Cod. Istit." CODTAB[1,5]~"Cod. Fil." CODTAB[6,10]~"Denominazione@50" S0
OUTPUT=F_CODABIP CODTAB[1,5]~F_DESBANPRE S0
SPECIAL=ME CO,F_CODABIP1
[CODCABP]
GROUP=700
@ -672,6 +705,7 @@ USE=@F_CODCABA
INPUT=CODTAB[1,5] F_CODABIP~CODTAB[6,10] F_CODCABP
DISPLAY=@F_CODABIP
OUTPUT=F_CODABIP CODTAB[1,5]~F_CODCABP CODTAB[6,10]~F_DESBANPRE S0
SPECIAL=ME CO,F_CODCABP1
[PROGBNP]
GROUP=700
@ -687,6 +721,56 @@ USE=BNP~JOIN %BAN ALIAS 100 INTO CODTAB=CODTAB[1,10]
INPUT=CODTAB[1,5] F_CODABIP~CODTAB[6,10] F_CODCABP~CODTAB[11,12] F_PROGBNP
DISPLAY="Cod. Istit." CODTAB[1,5]~"Cod. Fil." CODTAB[6,10]~"Progr." CODTAB[11,12]~"IBAN@27" S3~"Denominazione@50" 100@->S0
OUTPUT=F_CODABIP CODTAB[1,5]~F_CODCABP CODTAB[6,10]~F_PROGBNP CODTAB[11,12]~F_DESBANPRE 100@->S0
SPECIAL=ME CO,F_PROGBNP1
[CODABIP1]
GROUP=700
X=2
Y=0
FIELDNAME=CODABIP
MSKID=F_CODABIP1
TYPE=T_NUMERO
PROMPT="Banca presentazione : Cod. ABI "
SIZE=5
FLAG=ZH
USE=@F_CODABIA
INPUT=CODTAB[1,5] F_CODABIP
DISPLAY="Cod. Istit." CODTAB[1,5]~"Cod. Fil." CODTAB[6,10]~"Denominazione@50" S0
OUTPUT=F_CODABIP CODTAB[1,5]~F_DESBANPRE S0
USE=LF_CFBAN KEY 2~JOIN %BAN INTO CODTAB[1,5]==ABI CODTAB[6,10]==CAB
INPUT=TIPOCF F_TIPOCF SE~CODCF F_CODCF SE~TIPOBAN "N"~ABI F_CODABIP1~CAB F_CODCABP1~PROGPR F_PROGBNP1
DISPLAY="Cod. Istit." ABI~"Cod. Fil." CAB~"Progr." PROGPR~"IBAN@27" IBAN~"Denominazione@50" %BAN->S0
OUTPUT=F_CODABIP1 ABI~F_CODCABP1 CAB~F_PROGBNP1 PROGPR~F_DESBANPRE %BAN->S0~F_IBAN IBAN
[CODCABP1]
GROUP=700
X=42
Y=0
FIELDNAME=CODCABP
MSKID=F_CODCABP1
TYPE=T_NUMERO
PROMPT="Cod. CAB "
SIZE=5
FLAG=ZH
USE=@F_CODABIP1
INPUT=@F_CODABIP1
DISPLAY=@F_CODABIP1
OUTPUT=@F_CODABIP1
[PROGBNP1]
GROUP=700
X=60
Y=0
TYPE=T_NUMERO
FIELDNAME=PROGBNP
MSKID=F_PROGBNP1
PROMPT="Progressivo "
SIZE=2
FLAG=ZH
USE=@F_CODABIP1
INPUT=@F_CODABIP1
DISPLAY=@F_CODABIP1
OUTPUT=@F_CODABIP1
[DESBANPRE]
GROUP=700
@ -1741,6 +1825,79 @@ TYPE=T_STRINGA
PROMPT=""
SIZE=50
[CUP]
GROUP=3000
X=2
Y=1
MSKID=F_CUP
TYPE=T_STRINGA
PROMPT="Cod.Unico Prog."
FIELDNAME=CUP
USE=%CUP
INPUT=CODTAB F_CUP
DISPLAY="Codice@15" CODTAB~"Descrizione@50" S0
OUTPUT=F_CUP CODTAB~F_DESCRCUP S0
WARNING=Codice Unico di Progetto non trovato
SIZE=15
FLAG=U
HELP=Inserisci il Codice Unico di Progetto
SPECIAL=CH NORMAL
[DESCRCUP]
GROUP=3000
X=35
Y=1
MSKID=F_DESCRCUP
TYPE=T_STRINGA
PROMPT=""
USE=%CUP KEY 2
INPUT=S0 F_DESCRCUP
DISPLAY="Descrizione@50" S0~"Codice@15" CODTAB
COPY=OU F_CUP
SIZE=50 40
[CIG]
GROUP=3000
X=2
Y=2
MSKID=F_CIG
TYPE=T_STRINGA
PROMPT="Cod.Ident.Gara "
FIELDNAME=CIG
USE=%CIG
INPUT=CODTAB F_CIG
DISPLAY="Codice@15" CODTAB~"Descrizione@50" S0
OUTPUT=F_CIG CODTAB~F_DESCRCIG S0
WARNING=Codice Identificativo Gara non trovato
SIZE=15
FLAG=U
HELP=Inserisci il Codice Identificativo Gara
SPECIAL=CH NORMAL
[DESCRCIG]
GROUP=3000
X=35
Y=2
MSKID=F_DESCRCIG
TYPE=T_STRINGA
PROMPT=""
USE=%CIG KEY 2
INPUT=S0 F_DESCRCIG
DISPLAY="Descrizione@50" S0~"Codice@15" CODTAB
COPY=OU F_CIG
SIZE=50 40
[CMSH]
GROUP=3000
X=2
Y=3
MSKID=F_CMSH
TYPE=T_STRINGA
PROMPT=""
FIELDNAME=CODCMS
FLAG=H
SIZE=20
[LVGROUP]
GROUP=4041
X=1

5
ve/velib04b.cpp
View File

@ -2225,7 +2225,10 @@ error_type TContabilizzazione::create_total_doc_row(TDocumento& doc)
rec_cg.put(RMV_SOTTOCONTO,codcf);
contro.put(rec_cg, true);
rec_cg.put(RMV_IMPORTO,totdoc); rec_cg.put(RMV_ROWTYPE,"T");
rec_cg.put(RMV_CUP, doc.get(DOC_CUP));
rec_cg.put(RMV_CIG, doc.get(DOC_CIG));
rec_cg.put(RMV_IMPORTO,totdoc); rec_cg.put(RMV_ROWTYPE,"T");
if (tipocf <= ' ')
{
head.zero(MOV_TIPO);

4
ve/velib04c.cpp
View File

@ -381,6 +381,8 @@ long TGenerazione_effetti::group_bills(TAssoc_array& group_array, bool interatti
effetto->put(EFF_CODABI,doc.get(DOC_CODABIA));
effetto->put(EFF_CODCAB,doc.get(DOC_CODCABA));
effetto->put(EFF_IBAN,doc.get(DOC_IBAN));
effetto->put(EFF_CUP,doc.get(DOC_CUP));
effetto->put(EFF_CIG,doc.get(DOC_CIG));
effetto->put(EFF_EFFCOMP,TRUE);
_effetti_array.add(effetto);
}
@ -646,6 +648,8 @@ void TGenerazione_effetti::generate_bill(TDocumento& doc, bool interattivo) // b
effetto.put(EFF_CODABI,codabi);
effetto.put(EFF_CODCAB,codcab);
effetto.put(EFF_IBAN,iban);
effetto.put(EFF_CUP,doc.get(DOC_CUP));
effetto.put(EFF_CIG,doc.get(DOC_CIG));
effetto.put(EFF_EFFCOMP,TRUE);
if (i == numrate - 1) effetto.put(EFF_ULTRATA,TRUE);
// Put sulla riga dell'effetto

303
ve/velib06.cpp
View File

@ -23,6 +23,8 @@
#include "veini.h"
#include <multirel.h>
#include "../cg/cfban.h"
#include "../ca/cfcms.h"
#include <occas.h>
#include "rcondv.h"
#include "sconti.h"
@ -287,6 +289,83 @@ TDocumento_mask::TDocumento_mask(const char* td)
}
}
if (main_app().has_module(CUAUT))
{
if (_ges_ca && id2pos(F_CUP) > 0)
{
TBrowse * bp = efield(F_CUP).browse();
TRelation * rp = new TRelation(LF_CFCMS);
rp->add("%CUP", "CODTAB==" CFCMS_CUP);
rp->add(LF_CLIFO, "TIPOCF==TIPOCF|CODCF==CODCF");
bp->set_cursor(new TCursor(rp, "", 2));
bp->remove_input_field();
bp->add_input_field(TOSTRING(F_CMSH), CFCMS_COMMESSA, -1, true);
bp->add_input_field(TOSTRING(F_CUP), CFCMS_CUP);
bp->remove_display_field();
bp->add_display_field("Codice CUP@15", CFCMS_CUP);
bp->add_display_field("Descrizione@50", "%CUP->S0");
bp->add_display_field("Codice Cliente", CFCMS_CODCF);
bp->add_display_field("Ragione Sociale@50", TOSTRING(LF_CLIFO) "->" CLI_RAGSOC);
bp->remove_output_field();
bp->add_output_field(TOSTRING(F_CUP), CFCMS_CUP);
bp->add_output_field(TOSTRING(F_CIG), CFCMS_CIG);
bp->add_output_field(TOSTRING(F_DESCRCUP), "%CUP->S0");
TBrowse * bpd = efield(F_DESCRCUP).browse();
bpd->set_cursor(new TSorted_cursor(rp, CFCMS_COMMESSA "|%CUP->S0"));
bpd->remove_input_field();
bpd->add_input_field(TOSTRING(F_CMSH), CFCMS_COMMESSA, -1, true);
bpd->add_input_field(TOSTRING(F_DESCRCUP), "%CUP->S0");
bpd->remove_display_field();
bpd->add_display_field("Descrizione@50", "%CUP->S0");
bpd->add_display_field("Codice CUP@15", CFCMS_CUP);
bpd->add_display_field("Codice Cliente", CFCMS_CODCF);
bpd->add_display_field("Ragione Sociale@50", TOSTRING(LF_CLIFO) "->" CLI_RAGSOC);
bpd->copy_output(bp);
TBrowse * bg = efield(F_CIG).browse();
TRelation * rg = new TRelation(LF_CFCMS);
rg->add("%CIG", "CODTAB==" CFCMS_CIG);
rg->add(LF_CLIFO, "TIPOCF==TIPOCF|CODCF==CODCF");
bg->set_cursor(new TCursor(rg, "", 3));
bg->remove_input_field();
bg->add_input_field(TOSTRING(F_CMSH), CFCMS_COMMESSA, -1, true);
bg->add_input_field(TOSTRING(F_CIG), CFCMS_CIG);
bg->remove_display_field();
bg->add_display_field("Codice CIG@15", CFCMS_CIG);
bg->add_display_field("Descrizione@50", "%CIG->S0");
bg->add_display_field("Codice Cliente", CFCMS_CODCF);
bg->add_display_field("Ragione Sociale@50", TOSTRING(LF_CLIFO) "->" CLI_RAGSOC);
bg->remove_output_field();
bg->add_output_field(TOSTRING(F_CIG), CFCMS_CIG);
bg->add_output_field(TOSTRING(F_CUP), CFCMS_CUP);
bg->add_output_field(TOSTRING(F_DESCRCIG), "%CIG->S0");
TBrowse * bgd = efield(F_DESCRCIG).browse();
bgd->set_cursor(new TSorted_cursor(rg, CFCMS_COMMESSA "|%CIG->S0"));
bgd->remove_input_field();
bgd->add_input_field(TOSTRING(F_CMSH), CFCMS_COMMESSA, -1, true);
bgd->add_input_field(TOSTRING(F_DESCRCIG), "%CIG->S0");
bgd->remove_display_field();
bgd->add_display_field("Descrizione@50", "%CIG->S0");
bgd->add_display_field("Codice CIG@15", CFCMS_CIG);
bgd->add_display_field("Codice Cliente", CFCMS_CODCF);
bgd->add_display_field("Ragione Sociale@50", TOSTRING(LF_CLIFO) "->" CLI_RAGSOC);
bgd->copy_output(bg);
}
}
else
{
hide(F_CUP);
hide(F_DESCRCUP);
hide(F_CIG);
hide(F_DESCRCIG);
}
const bool gesoff = cfg.get_bool("GES", "ve", 3);
enable(F_CODCAMP, gesoff);
enable(F_DESCAMP, gesoff);
@ -495,7 +574,7 @@ void TDocumento_mask::insert_anal_page()
}
}
}
if (_cms_start > 0 && _cdc_start > 0)
if (_cms_start > 0)
set_field_handler(_cms_end, codcms_handler);
if (use_fsc && fasinfo.parent() <= 0)
@ -883,27 +962,136 @@ void TDocumento_mask::cli2mask(bool force_load)
if (pos >= 0 && fld(pos).active())
fld(pos).set(c.get(CLI_CODLIN));
set(F_CODPAG, c.get(CLI_CODPAG));
set(F_CODABIA, c.get(CLI_CODABI));
set(F_CODCABA, c.get(CLI_CODCAB));
if (id2pos(F_IBAN_STATO) > 0)
TToken_string key;
key.add(c.get(CLI_TIPOCF));
key.add(c.get(CLI_CODCF));
key.add("V");
key.add("1");
const TRectype & cfban = cache().get(LF_CFBAN, key);
if (cfban.empty())
{
const TString80 iban = c.get(CLI_IBAN);
set(F_IBAN, iban);
efield(F_IBAN_STATO).validate(K_TAB);
if (iban.not_empty())
show(F_CODABIA);
show(F_CODCABA);
enable(F_CODABIA);
enable(F_CODCABA);
hide(F_CODABIA1);
hide(F_CODCABA1);
disable(F_CODABIA1);
disable(F_CODCABA1);
set(F_CODABIA, c.get(CLI_CODABI), 0x3);
set(F_CODCABA, c.get(CLI_CODCAB), 0x3);
if (id2pos(F_IBAN_STATO) > 0)
{
set(F_IBAN_STATO, iban.left(2));
set(F_IBAN_CHECK, iban.mid(2,2));
set(F_BBAN , iban.mid(4));
set(F_BBAN_CIN , iban.mid(4,1));
set(F_BBAN_ABI , iban.mid(5,5));
set(F_BBAN_CAB , iban.mid(10,5));
set(F_BBAN_CONTO, iban.mid(15,12));
const TString80 iban = c.get(CLI_IBAN);
set(F_IBAN, iban);
efield(F_IBAN_STATO).validate(K_TAB);
if (iban.not_empty())
{
set(F_IBAN_STATO, iban.left(2));
set(F_IBAN_CHECK, iban.mid(2,2));
set(F_BBAN , iban.mid(4));
set(F_BBAN_CIN , iban.mid(4,1));
set(F_BBAN_ABI , iban.mid(5,5));
set(F_BBAN_CAB , iban.mid(10,5));
set(F_BBAN_CONTO, iban.mid(15,12));
}
}
}
else
{
if (id2pos(F_CODABIA1) > 0)
{
show(F_CODABIA1);
show(F_CODCABA1);
enable(F_CODABIA1);
enable(F_CODCABA1);
hide(F_CODABIA);
hide(F_CODCABA);
disable(F_CODABIA);
disable(F_CODCABA);
set(F_CODABIA1, cfban.get(CFBAN_ABI), 0x3);
set(F_CODCABA1, cfban.get(CFBAN_CAB), 0x3);
}
else
{
set(F_CODABIA, cfban.get(CFBAN_ABI), 0x3);
set(F_CODCABA, cfban.get(CFBAN_CAB), 0x3);
}
if (id2pos(F_IBAN_STATO) > 0)
{
const TString80 iban = cfban.get(CFBAN_IBAN);
set(F_IBAN, iban);
efield(F_IBAN_STATO).validate(K_TAB);
if (iban.not_empty())
{
set(F_IBAN_STATO, iban.left(2));
set(F_IBAN_CHECK, iban.mid(2,2));
set(F_BBAN , iban.mid(4));
set(F_BBAN_CIN , iban.mid(4,1));
set(F_BBAN_ABI , iban.mid(5,5));
set(F_BBAN_CAB , iban.mid(10,5));
set(F_BBAN_CONTO, iban.mid(15,12));
}
}
}
key.cut(0);
key.add(c.get(CLI_TIPOCF));
key.add(c.get(CLI_CODCF));
key.add("N");
key.add("1");
const TRectype & cfbanpr = cache().get(LF_CFBAN, key);
// Setta i campi che appartengono al file LF_CFVEN
set(F_CODABIP, ven_rec.get(CFV_CODABIPR));
set(F_CODCABP, ven_rec.get(CFV_CODCABPR));
if (cfbanpr.empty())
{
show(F_CODABIP);
show(F_CODCABP);
show(F_PROGBNP);
enable(F_CODABIP);
enable(F_CODCABP);
enable(F_PROGBNP);
hide(F_CODABIP1);
hide(F_CODCABP1);
hide(F_PROGBNP1);
disable(F_CODABIP1);
disable(F_CODCABP1);
disable(F_PROGBNP1);
set(F_CODABIP, ven_rec.get(CFV_CODABIPR), 0x3);
set(F_CODCABP, ven_rec.get(CFV_CODCABPR), 0x3);
}
else
{
if (id2pos(F_CODABIP1) > 0)
{
show(F_CODABIP1);
show(F_CODCABP1);
show(F_PROGBNP1);
enable(F_CODABIP1);
enable(F_CODCABP1);
enable(F_PROGBNP1);
hide(F_CODABIP);
hide(F_CODCABP);
hide(F_PROGBNP);
disable(F_CODABIP);
disable(F_CODCABP);
disable(F_PROGBNP);
set(F_CODABIP1, cfbanpr.get(CFBAN_ABI), 0x3);
set(F_CODCABP1, cfbanpr.get(CFBAN_CAB), 0x3);
set(F_PROGBNP1, cfbanpr.get(CFBAN_PROGPR), 0x3);
}
else
{
set(F_CODABIP, cfbanpr.get(CFBAN_ABI), 0x3);
set(F_CODCABP, cfbanpr.get(CFBAN_CAB), 0x3);
set(F_PROGBNP, cfbanpr.get(CFBAN_PROGPR), 0x3);
}
}
set(F_RAGGR, ven_rec.get(CFV_RAGGDOC));
set(F_RAGGREFF, ven_rec.get(CFV_RAGGEFF));
set(F_CODINDSP, ven_rec.get(CFV_CODINDSP));
@ -941,6 +1129,85 @@ void TDocumento_mask::cli2mask(bool force_load)
sconto_testa2mask();
spese2mask();
}
else
if (onload)
{
TToken_string key;
key.add(c.get(CLI_TIPOCF));
key.add(c.get(CLI_CODCF));
key.add("V");
key.add("1");
const TRectype & cfban = cache().get(LF_CFBAN, key);
if (cfban.empty())
{
show(F_CODABIA);
show(F_CODCABA);
enable(F_CODABIA);
enable(F_CODCABA);
hide(F_CODABIA1);
hide(F_CODCABA1);
disable(F_CODABIA1);
disable(F_CODCABA1);
}
else
{
if (id2pos(F_CODABIA1) > 0)
{
show(F_CODABIA1);
show(F_CODCABA1);
enable(F_CODABIA1);
enable(F_CODCABA1);
hide(F_CODABIA);
hide(F_CODCABA);
disable(F_CODABIA);
disable(F_CODCABA);
}
}
key.cut(0);
key.add(c.get(CLI_TIPOCF));
key.add(c.get(CLI_CODCF));
key.add("N");
key.add("1");
const TRectype & cfbanpr = cache().get(LF_CFBAN, key);
if (cfbanpr.empty())
{
show(F_CODABIP);
show(F_CODCABP);
show(F_PROGBNP);
enable(F_CODABIP);
enable(F_CODCABP);
enable(F_PROGBNP);
hide(F_CODABIP1);
hide(F_CODCABP1);
hide(F_PROGBNP1);
disable(F_CODABIP1);
disable(F_CODCABP1);
disable(F_PROGBNP1);
}
else
{
if (id2pos(F_CODABIP1) > 0)
{
show(F_CODABIP1);
show(F_CODCABP1);
show(F_PROGBNP1);
enable(F_CODABIP1);
enable(F_CODCABP1);
enable(F_PROGBNP1);
hide(F_CODABIP);
hide(F_CODCABP);
hide(F_PROGBNP);
disable(F_CODABIP);
disable(F_CODCABP);
disable(F_PROGBNP);
}
}
}
enable( F_CODINDSP , !occas);
if (occas)
occ2mask();
@ -974,11 +1241,9 @@ void TDocumento_mask::cli2mask(bool force_load)
pos = id2pos(F_CODLIN);
if (pos >= 0 && fld(pos).active())
fld(pos).check();
check_field( F_CODCABA );
pos = id2pos(F_CODLIST);
if (pos >= 0 && fld(pos).active())
fld(pos).check();
check_field( F_CODCABP );
pos = id2pos(F_CODAG);
if (pos >= 0 && fld(pos).active())
fld(pos).check();

60
ve/velib06a.cpp
View File

@ -29,6 +29,8 @@
#include "../mg/codcorr.h"
#include "../mg/deslin.h"
#include "../mg/umart.h"
#include "../cg/cfban.h"
#include "../ca/cfcms.h"
#include "../ca/calib01.h"
#include "../ca/commesse.h"
@ -2654,12 +2656,15 @@ bool cdc_mag_handler(TMask_field& f, KEY key)
bool codcms_handler(TMask_field& f, KEY key)
{
TDocumento_mask& mask = (TDocumento_mask&)f.mask();
const TRectype& curr = mask.efield(mask.cms_start()).browse()->cursor()->curr();
const TString codcms = curr.get(COMMESSE_CODCMS);
if (f.to_check(key, TRUE))
mask.set(F_CMSH, codcms);
if ((key == K_TAB && f.focusdirty()) || key == K_ENTER)
{
const TRectype& curr = mask.efield(mask.cms_start()).browse()->cursor()->curr();
const TString& codcms = curr.get(COMMESSE_CODCMS);
// Controlla se c'e' la gestione dei centri di costo al secondo livello
if (mask.cdc_start() > mask.cms_start() && mask.codcms() != codcms)
if (mask.cdc_start() > 0 && mask.cdc_start() > mask.cms_start() && mask.codcms() != codcms)
{
mask.codcms() = codcms;
const TString codcosto = curr.get(COMMESSE_CODCOSTO);
@ -2700,7 +2705,54 @@ bool codcms_handler(TMask_field& f, KEY key)
}
}
}
if (main_app().has_module(CUAUT) && (key == K_TAB && f.focusdirty()))
{
TToken_string key;
static TRecord_cache __cfcm(LF_CFCMS, 4);
if (mask.get(F_TIPOCF) != "C")
{
key.add(codcms);
key.add("C");
key.add(1);
const TRectype & cfcms = cache().get(LF_CFCMS, key);
mask.set(F_CUP, cfcms.get(CFCMS_CUP), 3);
mask.set(F_CIG, cfcms.get(CFCMS_CIG), 3);
}
else
{
key.add(codcms);
key.add(mask.get(F_TIPOCF));
key.add(mask.get(F_CODCF));
const TRectype & cfcms1 = __cfcm.get(key);
mask.set(F_CUP, cfcms1.get(CFCMS_CUP), 3);
mask.set(F_CIG, cfcms1.get(CFCMS_CIG), 3);
}
key.cut(0);
key.add(codcms);
key.add(mask.get(F_TIPOCF));
key.add(mask.get(F_CODCF));
const TRectype & cfcms1 = __cfcm.get(key);
const int nrigaban = cfcms1.get_int(CFCMS_NRIGABAN);
if (nrigaban > 0)
{
key.cut(0);
key.add(mask.get(F_TIPOCF));
key.add(mask.get(F_CODCF));
key.add("V");
key.add(nrigaban);
const TRectype & cfban = cache().get(LF_CFBAN, key);
mask.set(mask.field(F_CODABIA).active() ? F_CODABIA : F_CODABIA1, cfban.get(CFBAN_ABI), 3);
mask.set(mask.field(F_CODCABA).active() ? F_CODCABA : F_CODCABA1, cfban.get(CFBAN_CAB), 3);
mask.set(F_IBAN, cfban.get(CFBAN_IBAN));
}
}
}
else
if (key == K_TAB && !mask.is_running())

10
ve/veuml.h
View File

@ -108,6 +108,16 @@
#define F_CODNUMRIF 212
#define F_ANNORIF 213
#define F_PROGBNP 214
#define F_CUP 215
#define F_DESCRCUP 216
#define F_CIG 217
#define F_DESCRCIG 218
#define F_CMSH 219
#define F_CODABIA1 220
#define F_CODCABA1 221
#define F_CODABIP1 222
#define F_CODCABP1 223
#define F_PROGBNP1 224
#define F_CDC1 251
#define F_CDC12 262