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

Patch level :

Browse Source 
Files correlati     :
Ricompilazione Demo : [ ]
Commento            :


git-svn-id: svn://10.65.10.50/branches/R_10_00@21972 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
luca 2011-04-18 15:15:49 +00:00
parent 91dbd5e20f
commit 9c90f61d38
2 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
ha/ha3900.cpp
View File

@ -1,5 +1,6 @@
#include <applicat.h> #include <applicat.h>
#include <automask.h> #include <automask.h>
#include <colors.h>
#include <defmask.h> #include <defmask.h>
#include <execp.h> #include <execp.h>
#include <recarray.h> #include <recarray.h>
@ -258,11 +259,18 @@ void TGestione_attrezzature_mask::fill_sheet_storico(const TString& codattr)
//record del recordset con i valori da mettere sulla riga sheet //record del recordset con i valori da mettere sulla riga sheet
const TRectype& rec = recset.cursor()->curr(); const TRectype& rec = recset.cursor()->curr();
const long present_clifo = get_long(F_CODCF);
//new style (seza _pos_campo!) //new style (seza _pos_campo!)
for (bool ok = recset.move_first(); ok; ok = recset.move_next()) for (bool ok = recset.move_first(); ok; ok = recset.move_next())
{ {
TToken_string& row = sf_righe.row(-1); //riga sheet da riempire TToken_string& row = sf_righe.row(-1); //riga sheet da riempire
const long line_clifo = rec.get_long("I0");
//se il clifo presente sulla riga e' diverso da quello attuale la riga assumera' un vago colore pervinca
if (line_clifo != present_clifo)
sf_righe.set_back_and_fore_color(DISABLED_BACK_COLOR, DISABLED_COLOR, sf_righe.items()-1);
//per ogni campo della maschera di sheet setta.. //per ogni campo della maschera di sheet setta..
//..il valore di quei campi che hanno un field //..il valore di quei campi che hanno un field
FOR_EACH_MASK_FIELD(msk, i, f) FOR_EACH_MASK_FIELD(msk, i, f)

2
ha/ha3900a.uml
View File

@ -211,7 +211,7 @@ END
DATE S_DATA DATE S_DATA
BEGIN BEGIN
PROMPT 58 1 "Data " PROMPT 58 1 "Data "
CHECKTYPE REQUIRED VALIDATE NOT_EMPTY_FUNC
FIELD D0 FIELD D0
END END