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

Patch level : 10.0

Browse Source 
Files correlati     : ce2.exe
Ricompilazione Demo : [ ]
Commento            :
Modernizzata maschera ed aggiustati messaggi d'errore


git-svn-id: svn://10.65.10.50/branches/R_10_00@21756 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy 2011-03-09 11:23:23 +00:00
parent caa1ffb980
commit 489240acaf
3 changed files with 27 additions and 27 deletions

1
ce/ce2.cpp

@ -14,6 +14,5 @@ int main(int argc,char** argv)
case 4: ce2500(argc, argv); break; // Ripristino stampa bollato
default: ce2100(argc, argv); break; // Calcolo ammortamenti
}
exit(0);
return 0;
}

25
ce/ce2500.cpp

@ -31,10 +31,10 @@ bool TRestore_boll_mask::on_field_event(TOperable_field& o, TField_event e, long
const int esercizio = get_int(F_ESERCIZIO);
const int gruppo = get_int(F_GRUPPO);
const TString16 specie = get(F_SPECIE);
TString80 key; key.format("%4d%02d%s",esercizio, gruppo, (const char*) specie);
TString80 key; key.format("%4d%02d%s",esercizio, gruppo, (const char*)specie);
const TRectype& ccb = cache().get("CCB", key);
if (ccb.get_bool("B2"))
return error_box(TR("L'attivita' selezionata e' gia' stata chiusa. \nNon e' possibile ripristinare il bollato"));
return error_box(TR("L'attivita' selezionata e' gia' stata chiusa.\nNon e' possibile ripristinare il bollato"));
}
break;
default:
@ -76,8 +76,8 @@ void TRestore_boll::pulisci_movce()
cespifilter.put(CESPI_CODCGRA,gru);
cespifilter.put(CESPI_CODSPA,specie);
TString filtro1 = "ANSI(DTCOMP)<=";
filtro1 << fines.string(ANSI);
TString80 filtro1;
filtro1 << "ANSI(DTCOMP)<=" << fines.string(ANSI);
TCursor curcespi(&relcespi, filtro1, 2, &cespifilter, &cespifilter);
TRecnotype items = curcespi.items();
@ -125,7 +125,8 @@ void TRestore_boll::pulisci_ccb()
TTable ccb ("CCB");
ccb.curr() = curr;
ccb.put("B1", "");
ccb.rewrite();
if (ccb.rewrite() == NOERR)
(TRectype&)curr = ccb.curr();
}
}
@ -159,11 +160,19 @@ void TRestore_boll::main_loop()
const TString& spe = _mask->get(F_SPECIE);
dc.set_attivita(ese, gru, spe);
bool ok = TRUE;
bool ok = true;
TString msg; msg << TR(" il bollato dell'attività ") << gru << ' ' << spe << TR(" dell'anno ") << ese << '.';
if (dc.bollato_stampato())
ok = yesno_box(TR("Si desidera veramente ripristinare il bollato dell'attivita'"));
{
msg.insert(TR("Si desidera veramente ripristinare"));
ok = yesno_box(msg);
}
else
ok = warning_box(TR("Il bollato dell'attivita' non risulta stampato"));
{
msg.insert(TR("Non risulta ancora stampato"));
ok = warning_box(msg);
}
if (ok)
{

28
ce/ce2500a.uml

@ -1,17 +1,7 @@
#include "ce2500a.h"
TOOLBAR "topbar" 0 0 0 2
BUTTON DLG_OK 10 2
BEGIN
PROMPT -12 -11 ""
END
BUTTON DLG_QUIT 10 2
BEGIN
PROMPT -22 -11 ""
END
#include <stdbar.h>
ENDPAGE
PAGE "Ripristino stampa bollato" 0 2 0 0
@ -23,7 +13,7 @@ END
NUMBER F_DITTA 5
BEGIN
PROMPT 1 2 "Ditta "
PROMPT 1 2 "Ditta "
FLAGS "DF"
END
@ -39,7 +29,7 @@ END
NUMBER F_ESERCIZIO 4
BEGIN
PROMPT 1 4 "Esercizio "
PROMPT 1 4 "Esercizio "
FLAGS "AZ"
USE CCE
JOIN ESC ALIAS 104 INTO CODTAB==CODTAB
@ -61,19 +51,19 @@ END
DATE F_FINE_ES
BEGIN
PROMPT 50 4 "Fine "
PROMPT 48 4 "Fine "
FLAGS "D"
END
NUMBER F_GRUPPO 2
BEGIN
PROMPT 1 5 "Gruppo "
PROMPT 1 5 "Attività "
FLAGS "Z"
END
STRING F_SPECIE 4
BEGIN
PROMPT 16 5 "Specie "
PROMPT 14 5 ""
FLAGS "_"
USE CCB
JOIN %CAT ALIAS 400 INTO CODTAB=CODTAB[5,10]
@ -83,15 +73,17 @@ BEGIN
DISPLAY "Gruppo" CODTAB[5,6]
DISPLAY "Specie" CODTAB[7,10]
DISPLAY "Descrizione@50" 400@->S0
DISPLAY "Bollato@C" B1
DISPLAY "Chiusa@C" B2
OUTPUT F_GRUPPO CODTAB[5,6]
OUTPUT F_SPECIE CODTAB[7,10]
OUTPUT F_DESC_GRSP 400@->S0
CHECKTYPE FORCED
END
STRING F_DESC_GRSP 60 45
STRING F_DESC_GRSP 60 50
BEGIN
PROMPT 31 5 ""
PROMPT 26 5 ""
FLAGS "D"
END