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

Tolti congif da ve0300a.src

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@3374 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
alex 1996-08-13 09:42:35 +00:00
parent 64e58fb6b9
commit 03d5b82451
7 changed files with 162 additions and 136 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ve/righedoc.cpp
View File

@ -181,7 +181,7 @@ HIDDEN bool qta_handler( TMask_field& f, KEY key )
TMask& row_mask = f.mask( );
TMask & mask = app().edit_mask();
TLocalisamfile & anamag = ((TEdit_field &) row_mask.field(FR_CODART)).browse()->cursor()->file();
TLocalisamfile & umart = ((TEdit_field &) f).browse()->cursor()->file();
TLocalisamfile & umart = ((TEdit_field &) row_mask.field(FR_UMQTA)).browse()->cursor()->file();
TCond_vendita & condv = app().condv();
condv.set_testa(&mask);

36
ve/sconti.cpp
View File

@ -189,8 +189,6 @@ bool TCond_vendita::cerca( int tiporicerca )
_condv.put("TIPOCF", clifo().tipocf());
_condv.put("CODCF", clifo().codcf());
}
else
_condv.put("TIPOCF", "C");
_condv.put("COD", codcont);
}
break;
@ -385,8 +383,9 @@ void TCond_vendita::ricerca(bool full_load)
}
const char gestione = config_ditta().get_char( "GESSCORIGA", "ve" );
const bool sco_scagl = config_ditta().get_bool("GESCOSCA", "ve");
if (!full_load)
if (!full_load && gestione != 'A' && !sco_scagl)
{
if (gestione == 'L' && found_condv)
set_sconto(_rcondv.get("SCONTO"));
@ -418,6 +417,10 @@ void TCond_vendita::ricerca(bool full_load)
if( config_ditta().get_bool("GESSCORIGAUM", "ve"))
_sconti.put("UM", riga().get( FR_UMQTA));
_sconti.put("TIPORIGA", rigakey);
if (sco_scagl)
_sconti.put("NSCAGL", 1);
switch (rigakey)
{
case 'A':
@ -467,8 +470,31 @@ void TCond_vendita::ricerca(bool full_load)
default:
error_box("Tipo di chiave righe sconti '%c' non valida!", rigakey);
break;
}
if (_sconti.bad())
}
const bool found = _sconti.good();
if (found && sco_scagl)
{
TRectype rec(_sconti.curr());
int last_scagl = 0;
int scagl = _sconti.get_int("NSCAGL");
const real qta(_riga->get_real(FR_QTA));
real qta_lim(_sconti.get_real("QLIM"));
while (_sconti.good() && scagl > last_scagl && qta_lim > ZERO && qta > qta_lim)
{
if (_sconti.next() == NOERR)
{
last_scagl = scagl;
scagl = _sconti.get_int("NSCAGL");
qta_lim =_sconti.get_real("QLIM");
rec = _sconti.curr();
}
}
_rcondv.read(rec);
}
if (!found)
_sconti.zero();
set_sconto(_sconti.get("SCONTO"));
}

81
ve/tclifor.cpp
View File

@ -10,8 +10,13 @@
#include "veuml1.h"
#endif
#ifndef __VE1000O_H
#include "ve1000o.h"
#ifndef __VE0100_H
#include "ve0100.h"
#endif
#ifndef __VE0100O_H
#include "ve0100o.h"
#endif
#ifndef __TABUTIL_H
@ -62,7 +67,7 @@ int TCliFor::write_occas( )
return err;
}
TCliFor::TCliFor( ) : TData_picker( LF_CLIFO ), _occas_mask( "ve1000o" ),
TCliFor::TCliFor( ) : TData_picker( LF_CLIFO ), _occas_mask( "ve0100o" ),
_tipocf(' '), _codcf(0L)
{
_occas_mask.set_handler( O_CODICE, occas_code_handler );
@ -105,16 +110,16 @@ void TCliForVendite::update_mask( TMask& m, bool onload )
const TString16 datacambio(m.get(F_DATACAMBIO));
// Setta i campi che appartengono al file LF_CLIFO
bool occas = occasionale( );
m.show( F_OCFPI, occas );
m.show( F_OCCASEDIT, occas );
const bool occas = app().config_ditta().get_bool("GESOCCAS") && occasionale();
m.show(F_OCCASEDIT, occas);
// In forse per l'Occasionale, sicuri per il Normale
m.show( F_COFI, !occas );
m.show( F_STATOPAIVA, !occas );
m.show( F_PAIVA, !occas );
set( m, F_RAGSOC, LF_CLIFO, "RAGSOC" );
m.show(F_COFI, !occas);
m.show(F_STATOPAIVA, !occas);
m.show(F_PAIVA, !occas);
set(m, F_RAGSOC, LF_CLIFO, "RAGSOC" );
m.enable(F_RAGSOC, !occas);
if( !onload )
if(!onload)
{
set( m, F_CODVAL, LF_CLIFO, "CODVAL" );
set( m, F_CODLIN, LF_CLIFO, "CODLIN" );
@ -264,59 +269,11 @@ void TCliForVendite::imposta_indirizzo_spedizione( TMask& m )
m.set( F_STATOSP, stato = occas_mask( ).get( O_STATO ) );
m.check_field(F_STATOSP);
}
/*
else
{
const TString codindsp( m.get( F_CODINDSP ) );
if( codindsp.blank( ) )
{
m.set( F_RAGSOCSP, "" );
m.set( F_INDSP, "" );
m.set( F_CIVSP, "" );
m.set( F_LOCALITASP, "" );
m.set( F_CAPSP, "" );
m.set( F_COMSP, "" );
m.set( F_STATOSP, "" );
return;
}
else
{
TLocalisamfile indsped( LF_INDSP );
indsped.setkey( 1 );
indsped.put( "TIPOCF", _tipocf );
indsped.put( "CODCF", _codcf );
indsped.put( "CODIND", atoi( codindsp ) );
if( indsped.read( ) == NOERR )
{
m.set( F_RAGSOCSP, indsped.get( "RAGSOC" ) );
m.set( F_INDSP, indsped.get( "INDIR" ) );
m.set( F_CIVSP, indsped.get( "CIV" ) );
m.set( F_LOCALITASP, indsped.get( "LOCALITA" ) );
m.set( F_CAPSP, indsped.get( "CAP" ) );
m.set( F_COMSP, indsped.get( "COM" ) );
m.set( F_STATOSP, stato = indsped.get( "STATO" ) );
}
else
error_box( "Indirizzo di spedizione non trovato!" );
}
}
m.check_field(F_COMSP);
m.check_field(F_STATOSP);
m.set( F_DESSTATOSP, get( "%STA", stato, "S0" ) );
TLocalisamfile comuni(LF_COMUNI);
comuni.setkey( 1 );
comuni.put( "COM", m.get( F_COMSP ) );
comuni.put( "STATO", m.get( F_STATOSP ) );
if (comuni.read( ) != NOERR)
comuni.zero();
m.set( F_DENCOMSP, comuni.get( "DENCOM" ) );
m.set( F_PROVCOMSP, comuni.get( "PROVCOM" ) );
*/
}
void TCliForVendite::imposta_sconto_testa( TMask& m )
{
TConfig ditta(CONFIG_DITTA);
TConfig & ditta = app().config_ditta();
const char tipogestione = ditta.get("GESSCO", "ve")[ 0 ];
switch( tipogestione )
@ -380,7 +337,7 @@ void TCliForVendite::imposta_valuta( TMask& m )
if( ditta.get_bool( "GESVALAC", "ve" ) )
{
TTable cambi( "%CAM" );
TTable cambi( "CAM" );
cambi.zero( );
TString16 val( m.get( F_CODVAL ) );
TString16 codtab( ( const char * ) val );
@ -397,7 +354,7 @@ void TCliForVendite::imposta_valuta( TMask& m )
return;
}
}
TTable valuta( "VAL" );
TTable valuta( "%VAL" );
valuta.zero( );
valuta.put( "CODTAB", m.get( F_CODVAL ) );
if( valuta.read( ) == NOERR )

82
ve/ve0100.cpp
View File

@ -2,6 +2,10 @@
#include "ve0100.h"
#endif
#ifndef __VE0100O_H
#include "ve0100o.h"
#endif
TMotore_application& app( ) { return ( TMotore_application& ) main_app( ); }
void TMotore_application::init_query_mode( TMask& m )
@ -487,8 +491,82 @@ TMask* TMotore_application::get_mask( int mode )
chiave.format( "%d", i );
TToken_string riga = pro( ).get( chiave, "HANDLERS" );
user_set_handler( riga.get_int( 0 ), riga.get_int( 1 ) );
}
// configurazione campi
const bool gesval = _config_ditta->get_bool("GESVAL");
const bool gescambi = _config_ditta->get_bool("GESVALAC");
if (gesval)
{
msk1->show(F_CODVAL, !gescambi);
msk1->show(F_DATACAMBIO, !gescambi);
msk1->show(F_NOMEVAL, !gescambi);
msk1->show(F_CODVAL1, gescambi);
msk1->show(F_DATACAMBIO1, gescambi);
msk1->show(F_NOMEVAL1, gescambi);
msk1->show(F_CAMBIO);
}
}
else
{
msk1->disable(F_CODVAL);
msk1->disable(F_DATACAMBIO);
msk1->disable(F_NOMEVAL);
msk1->hide(F_CODVAL1);
msk1->hide(F_DATACAMBIO1);
msk1->hide(F_NOMEVAL1);
msk1->disable(F_CAMBIO);
}
const bool geslin = _config_ditta->get_bool("GESVALAC");
msk1->enable(F_CODLIN, geslin);
msk1->enable(F_DESLIN, geslin);
const bool geslis = _config_ditta->get_bool("GES[1]");
const bool gesliscatven = _config_ditta->get_bool("GESLISCV");
if (geslis)
{
msk1->show(F_CODLIST, !gesliscatven);
msk1->show(F_CODLIST1, gesliscatven);
}
else
{
msk1->disable(F_CODLIST);
msk1->hide(F_CODLIST1);
}
const bool gescontr = _config_ditta->get_bool("GES[2]");
const bool gescontrcli = _config_ditta->get_bool("GESCONCC");
if (gescontr)
{
msk1->show(F_CODCONT, !gescontrcli);
msk1->show(F_CODCONT1, gescontrcli);
}
else
{
msk1->disable(F_CODCONT);
msk1->hide(F_CODCONT1);
}
const bool gesoff = _config_ditta->get_bool("GES[3]");
msk1->enable(F_CODCAMP, gesoff);
const bool gessco = _config_ditta->get_char("GESSCO") == 'N';
msk1->enable(F_SCONTOPERC, gessco);
const bool gesage = _config_ditta->get_bool("GESAGE");
msk1->enable(F_CODAG, gesage);
msk1->enable(F_DESAG, gesage);
msk1->enable(F_CODAGVIS, gesage);
msk1->enable(F_DESAGVIS, gesage);
}
else
_sheet = &( TSheet_field& )edit_mask( ).field( F_SHEET );
return msk1;
@ -537,7 +615,7 @@ const char* TMotore_application::get_next_key( )
TRectype cmp_rec(doc.curr()); // record campione
doc.put( "NDOC", 9999999L );
if (doc.read(_isgteq) == NOERR)
if (doc.read(_isgreat) == NOERR)
doc.prev();
const long num = ((doc.curr() == cmp_rec) ? doc.get_long( "NDOC" ) : 0) + 1;

7
ve/ve0100.h
View File

@ -108,10 +108,6 @@
#include "righedoc.h"
#endif
#ifndef __VE1000O_H
#include "ve1000o.h"
#endif
#ifndef __VARMASK_H
#include <varmask.h>
#endif
@ -269,7 +265,8 @@ public:
TSheet_field & sheet() { CHECK( _sheet, "Sheet nullo!" ); return *_sheet; }
TCliForVendite & clifo() { CHECK( _clifor, "Oggetto cliente nullo!" ); return *_clifor; }
TPiede_documento & piede() { return _piede; }
TCond_vendita & condv() { return *_condv; }
TCond_vendita & condv() { return *_condv; }
TConfig & config_ditta() {return *_config_ditta; }
// Operazione

85
ve/ve0300a.src
View File

@ -105,19 +105,6 @@ OUTPUT=F_CODCF CODCF~F_RAGSOC RAGSOC
WARNING=Ragione sociale non trovata
HELP=Inserire la ragione sociale della ditta
[OCFPI]
// chiave per la ricerca cliente occasionale puo' essere P.IVA oppure C.F. oppure un progressivo
// i dati precedenti vanno letti dal file 18 occas (ragsoc,indir,civ,stato,com,cap)
GROUP=100
X=2
Y=0
FIELDNAME=OCFPI
MSKID=F_OCFPI
TYPE=T_STRINGA
PROMPT="Codice cliente occasionale "
SIZE=16
CONFIGS=GESOCCAS||S_NASCOSTO
[OCCASEDIT]
GROUP=100
TYPE=T_BOTTONE
@ -126,7 +113,6 @@ PROMPT="Cliente occasionale"
X=2
Y=0
MSKID=F_OCCASEDIT
CONFIGS=GESOCCAS||S_NASCOSTO
[COFI]
// il campo e' letto nel file 20 clifo
@ -290,10 +276,9 @@ FLAG=U
USE=%VAL
INPUT=CODTAB F_CODVAL
DISPLAY="Codice" CODTAB~"Descrizione@50" S0~"Cambio@15" R10~"Data valuta" D0
OUTPUT=F_CODVAL CODTAB~F_NOMEVAL S0~F_CAMBIO R10~F_DATACAMBIO D0
OUTPUT=F_CODVAL CODTAB~F_NOMEVAL S0~F_CAMBIO R10~F_DATACAMBIO D0~F_DATACAMBIO1 D0
WARNING=Codice valuta non trovato
HELP=Inserisci il codice della valuta
CONFIGS=GESVAL||S_NASCOSTO|GESVALAC|X|S_NASCOSTO
[CODVAL2]
//se codice=LIT il campo cambio e' di sola visualizzazione
@ -302,18 +287,18 @@ GROUP=200
X=2
Y=0
FIELDNAME=CODVAL
MSKID=F_CODVAL
MSKID=F_CODVAL1
TYPE=T_STRINGA
PROMPT="Valuta "
SIZE=3
FLAG=U
USE=%VAL
INPUT=CODTAB F_CODVAL
INPUT=CODTAB F_CODVAL1
DISPLAY="Codice" CODTAB~"Descrizione@50" S0
OUTPUT=F_CODVAL CODTAB~F_NOMEVAL S0
OUTPUT=F_CODVAL1 CODTAB~F_NOMEVAL1 S0
WARNING=Codice valuta non trovato
HELP=Inserisci il codice della valuta
CONFIGS=GESVAL||S_NASCOSTO|GESVALAC||S_NASCOSTO
HELP=Inserisci il codice della valuta
SPECIAL=ME CO,F_CODVAL
[NOME_VAL1]
//se non abilitato archivio cambi
@ -326,26 +311,24 @@ SIZE=50
USE=%VAL KEY 2
INPUT=S0 F_NOMEVAL
DISPLAY="Descrizione@50" S0~"Codice" CODTAB~"Cambio@15" R10~"Data valuta" D0
OUTPUT=F_CODVAL CODTAB~F_NOMEVAL S0~F_CAMBIO R10~F_DATACAMBIO D0
OUTPUT=F_CODVAL CODTAB~F_NOMEVAL S0~F_DATACAMBIO D0~F_DATACAMBIO1 D0
WARNING=Codice valuta non trovato
HELP=Inserisci il codice della valuta
CONFIGS=GESVAL||S_NASCOSTO|GESVALAC|X|S_NASCOSTO
[NOME_VAL2]
//se abilitato archivio cambi
GROUP=200
X=24
Y=0
MSKID=F_NOMEVAL
MSKID=F_NOMEVAL1
TYPE=T_STRINGA
SIZE=50
USE=%VAL KEY 2
INPUT=S0 F_NOMEVAL
INPUT=S0 F_NOMEVAL1
DISPLAY="Descrizione@50" S0~"Codice" CODTAB
OUTPUT=F_CODVAL CODTAB~F_NOMEVAL S0
OUTPUT=F_CODVAL1 CODTAB~F_NOMEVAL1 S0
WARNING=Codice valuta non trovato
HELP=Inserisci il codice della valuta
CONFIGS=GESVAL||S_NASCOSTO|GESVALAC||S_NASCOSTO
[DATA_CAMBIO1]
// se non abiltato archivio cambi
@ -356,7 +339,6 @@ FIELDNAME=DATACAMBIO
MSKID=F_DATACAMBIO
TYPE=T_DATA
PROMPT="Data valuta"
CONFIGS=GESVAL||S_NASCOSTO|GESVALAC|X|S_NASCOSTO
[DATA_CAMBIO2]
// se abilitato archivio cambi
@ -365,15 +347,14 @@ X=2
Y=1
FLAG=R
FIELDNAME=DATACAMBIO
MSKID=F_DATACAMBIO
MSKID=F_DATACAMBIO1
TYPE=T_DATA
PROMPT="Data valuta"
USE=CAM
INPUT=CODTAB[1,3] F_CODVAL SELECT~CODTAB[4,11] F_DATACAMBIO
DISPLAY="Valuta" CODTAB[1,3]~"Data@10" D0~"Descrizione@25" S0~"Cambio@15" R10
OUTPUT=F_CAMBIO R10~F_DATACAMBIO D0
CONFIGS=GESVAL||S_NASCOSTO|GESVALAC||S_NASCOSTO
SPECIAL=CH SEARCH
INPUT=CODTAB[1,3] F_CODVAL SELECT~CODTAB[4,11] F_DATACAMBIO1
DISPLAY="Valuta" CODTAB[1,3]~"Data@10" -50->D0~"Descrizione@25" S0~"Cambio@15" R10
OUTPUT=F_CAMBIO R10~F_DATACAMBIO1 D0
SPECIAL=JO %VAL TO CAM AL 50 INTO CODTAB=CODTAB[1,3]~CH SEARCH~ME CO,F_DATACAMBIO
[CAMBIO]
// attenzione se abilitato archivio cambi cambio e data rilevati da tale archivio
@ -386,7 +367,6 @@ TYPE=T_NUMERO
PROMPT="Cambio "
SIZE=1505
FLAG=R
CONFIGS=GESVAL||S_NASCOSTO
[CODLIN]
GROUP=300
@ -402,7 +382,6 @@ USE=%LNG
INPUT=CODTAB F_CODLIN
DISPLAY="Codice" CODTAB~"Descrizione@50" S0
OUTPUT=F_CODLIN CODTAB~F_DESLIN S0
CONFIGS=GESLIN||S_NASCOSTO
[DESLIN]
GROUP=300
@ -416,7 +395,6 @@ USE=%LNG KE 2
INPUT=S0 F_DESLIN
DISPLAY="Descrizione@50" S0~"Codice" CODTAB
OUTPUT=@F_CODLIN
CONFIGS=GESLIN||S_NASCOSTO
[CODPAG]
GROUP=400
@ -612,7 +590,6 @@ USE=%CVE
INPUT=CODTAB F_CATVEN
DISPLAY="Cat.Ven." CODTAB~"Descrizione@50" S0
OUTPUT=F_CATVEN CODTAB~F_DESCATVEN S0
CONFIGS=GES[1]||S_NASCOSTO|GESLISCV||S_NASCOSTO
[DESCATVEN]
GROUP=800
@ -622,7 +599,6 @@ MSKID=F_DESCATVEN
TYPE=T_STRINGA
PROMPT=""
SIZE=50
CONFIGS=GES[1]||S_NASCOSTO|GESLISCV||S_NASCOSTO
[CODLIST1]
GROUP=800
@ -639,24 +615,22 @@ INPUT=TIPO "L"~CATVEN ""~COD F_CODLIST
DISPLAY="Codice" LF_CONDV->COD~"Descrizione@50" LF_CONDV->DESCR
OUTPUT=F_CODLIST LF_CONDV->COD~F_DESLIST LF_CONDV->DESCR
SPECIAL=ADD RUN ve2 -1 l
CONFIGS=GES[1]||S_NASCOSTO|GESLISCV|X|S_NASCOSTO
[CODLIST2]
GROUP=800
X=2
Y=1
FIELDNAME=CODLIST
MSKID=F_CODLIST
MSKID=F_CODLIST1
TYPE=T_STRINGA
PROMPT="Listino "
SIZE=3
FLAG=U
USE=LF_CONDV SE CATVEN!=""
INPUT=TIPO "L"~CATVEN F_CATVEN~COD F_CODLIST
INPUT=TIPO "L"~CATVEN F_CATVEN~COD F_CODLIST1
DISPLAY="Cat.Ven." LF_CONDV->CATVEN~"Codice" LF_CONDV->COD~"Descrizione@50" LF_CONDV->DESCR
OUTPUT=F_CATVEN LF_CONDV->CATVEN~F_DESCATVEN %CVE->S0~F_CODLIST LF_CONDV->COD~F_DESLIST LF_CONDV->DESCR
SPECIAL=ADD RUN ve2 -1 l~JOIN %CVE TO LF_CONDV INTO CODTAB=CATVEN
CONFIGS=GES[1]||S_NASCOSTO|GESLISCV||S_NASCOSTO
OUTPUT=F_CATVEN LF_CONDV->CATVEN~F_DESCATVEN %CVE->S0~F_CODLIST1 LF_CONDV->COD~F_DESLIST LF_CONDV->DESCR
SPECIAL=ADD RUN ve2 -1 l~JOIN %CVE TO LF_CONDV INTO CODTAB=CATVEN~ME CO,F_CODLIST
[DESLIST]
GROUP=800
@ -666,7 +640,6 @@ MSKID=F_DESLIST
TYPE=T_STRINGA
PROMPT=""
SIZE=50
CONFIGS=GES[1]||S_NASCOSTO
[CODCONT1]
GROUP=810
@ -682,23 +655,21 @@ INPUT=TIPO "C"~CATVEN ""~TIPOCF F_TIPOCF~COD F_CODCONT
DISPLAY="Codice" LF_CONDV->COD~"Descrizione@35" LF_CONDV->DESCR
OUTPUT=F_CODCONT LF_CONDV->COD~F_DESCONT LF_CONDV->DESCR
SPECIAL=ADD RUN ve2 -1 c
CONFIGS=GES[2]||S_NASCOSTO|GESCONCC|X|S_NASCOSTO
[CODCONT2]
GROUP=810
X=2
Y=0
FIELDNAME=CODCONT
MSKID=F_CODCONT
MSKID=F_CODCONT1
TYPE=T_STRINGA
PROMPT="Contratto "
SIZE=3
USE=LF_CONDV SELECT CODCF!=""
INPUT=TIPO "C"~TIPOCF F_TIPOCF SE~CODCF F_CODCF SE~COD F_CODCONT
INPUT=TIPO "C"~TIPOCF F_TIPOCF SE~CODCF F_CODCF SE~COD F_CODCONT1
DISPLAY="Cliente" LF_CONDV->CODCF~"Codice" LF_CONDV->COD~"Descrizione@35" LF_CONDV->DESCR
OUTPUT=F_CODCONT LF_CONDV->COD~F_DESCONT LF_CONDV->DESCR
SPECIAL=ADD RUN ve2 -1 c
CONFIGS=GES[2]||S_NASCOSTO|GESCONCC||S_NASCOSTO
OUTPUT=F_CODCONT1 LF_CONDV->COD~F_DESCONT LF_CONDV->DESCR
SPECIAL=ADD RUN ve2 -1 c~ME CO,F_CODCONT
[DESCONT]
GROUP=810
@ -708,7 +679,6 @@ MSKID=F_DESCONT
TYPE=T_STRINGA
PROMPT=""
SIZE=50
CONFIGS=GES[2]||S_NASCOSTO
[CODCAMP]
GROUP=820
@ -725,7 +695,6 @@ INPUT=TIPO "O"~COD F_CODCAMP
DISPLAY="Codice" LF_CONDV->COD~"Descrizione@35" LF_CONDV->DESCR
OUTPUT=F_CODCAMP LF_CONDV->COD~F_DESCAMP LF_CONDV->DESCR
SPECIAL=ADD RUN ve2 -1 o
CONFIGS=GES[3]||S_NASCOSTO
[DESCAMP]
GROUP=820
@ -735,7 +704,6 @@ MSKID=F_DESCAMP
TYPE=T_STRINGA
PROMPT=""
SIZE=50
CONFIGS=GES[3]||S_NASCOSTO
[SCONTOPERC]
GROUP=830
@ -747,7 +715,6 @@ TYPE=T_STRINGA
PROMPT="Sconto "
SIZE=25
SPECIAL=VA 23 0
CONFIGS=GESSCO|N|S_NASCOSTO
[GRINDSPED]
GROUP=900
@ -908,7 +875,6 @@ INPUT=CODTAB F_CODAG
DISPLAY="Codice" CODTAB~"Descrizione@50" S0
OUTPUT=F_CODAG CODTAB~F_DESAG S0
SPECIAL=CH NORMAL
CONFIGS=GESAGE||S_NASCOSTO
[DESAG]
GROUP=1100
@ -922,7 +888,6 @@ USE=AGE KEY 2
INPUT=S0 F_DESAG
DISPLAY="Descrizione@50" S0~"Codice" CODTAB
OUTPUT=F_CODAG CODTAB~F_DESAG S0
CONFIGS=GESAGE||S_NASCOSTO
[CODAGVIS]
GROUP=1110
@ -939,7 +904,6 @@ INPUT=CODTAB F_CODAGVIS
DISPLAY="Codice" CODTAB~"Descrizione@50" S0
OUTPUT=F_CODAGVIS CODTAB~F_DESAGVIS S0
SPECIAL=CH NORMAL
CONFIGS=GESAGE||S_NASCOSTO
[DESAGVIS]
GROUP=1110
@ -953,7 +917,6 @@ USE=AGE KEY 2
INPUT=S0 F_DESAGVIS
DISPLAY="Descrizione@50" S0~"Codice" CODTAB
OUTPUT=F_CODAGVIS CODTAB~F_DESAGVIS S0
CONFIGS=GESAGE||S_NASCOSTO
[CODSPMEZZO]
GROUP=1200
@ -1412,7 +1375,7 @@ FIELDNAME=ADDBRB
MSKID=F_ADDBRB
TYPE=T_CHECKBOX
PROMPT="Bolli ricevute bancarie"
SPECIAL=ME 0 DISABLE,F_CODIVABRB~ME 1 ENANABLE,F_CODIVABRB
SPECIAL=ME 0 DISABLE,F_CODIVABRB~ME 1 ENABLE,F_CODIVABRB
[ADDBTR]
GROUP=2500

5
ve/veuml.h
View File

@ -89,4 +89,9 @@
#define F_SPESEADD3 186 // Andrea ?? verificare
#define F_SPESEADD4 187 // Andrea ?? verificare
#define F_CODVAL1 200
#define F_NOMEVAL1 201
#define F_DATACAMBIO1 202
#define F_CODLIST1 203
#define F_CODCONT1 204
#endif // veuml.h