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

Presi i file del motore, ne mancano ancora due!

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@1790 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
marco 1995-09-06 15:42:25 +00:00
parent 7822619fb6
commit 3a0384a62d
3 changed files with 72 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
ve/ve0100.cpp
View File

@ -238,6 +238,21 @@ real TMotore_application::user_row_calculate( TRectype& r, int index )
case 100 : case 100 :
return ( f100( r ) ); return ( f100( r ) );
break; break;
case 200 :
return ( f200( r ) );
break;
case 300 :
return ( f300( r ) );
break;
case 400 :
return ( f400( r ) );
break;
case 500 :
return ( f500( r ) );
break;
case 600 :
return ( f600( r ) );
break;
default: default:
CHECK( FALSE, "Tentativo di chiamare una funzione di calcolo riga inesistente!" ); CHECK( FALSE, "Tentativo di chiamare una funzione di calcolo riga inesistente!" );
return 0.0; return 0.0;

48
ve/ve0100d.cpp
View File

@ -1,8 +1,40 @@
#ifndef __VE0100D_H #ifndef __VE0100D_H
#include "ve0100d.h" #include "ve0100d.h"
#endif #endif
real f100( TRectype& r ) // IMPORTO NETTO
{ real f100( TRectype& r )
return( r.get_real( "PREZZO" ) * r.get_real( "QTA" ) ); {
}; return( r.get_real( "PREZZO" ) * r.get_real( "QTA" ) );
};
// IMPORTO NETTO PROVVIGIONI
real f200( TRectype& r )
{
return( f100(r) * r.get_real( "PERCPROV" ) );
};
// ARTICOLI
real f300( TRectype& r )
{
return( 1 );
};
// QUANTITA'
real f400( TRectype& r )
{
return( r.get_real( "QTA" ) );
};
// PREZZO
real f500( TRectype& r )
{
return( r.get_real( "PREZZO" ) );
};
// SCONTO ***
real f600( TRectype& r )
{
return( 13 );
};

29
ve/ve0100d.h
View File

@ -1,12 +1,17 @@
#define __VE0100D_H #define __VE0100D_H
#ifndef __REAL_H #ifndef __REAL_H
#include "real.h" #include "real.h"
#endif #endif
#ifndef __ISAM_H #ifndef __ISAM_H
#include "isam.h" #include "isam.h"
#endif #endif
real f100( TRectype& r ); real f100( TRectype& r );
real f200( TRectype& r );
real f300( TRectype& r );
real f400( TRectype& r );
real f500( TRectype& r );
real f600( TRectype& r );