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

Patch level : 10.0

Browse Source 
Files correlati     : 770100a.msk 770.exe
Ricompilazione Demo : [ ]
Commento            :
Corretto filtro sulle schede percipiente: ora visualiizza solo i percipienti della ditta corrente e non tutti indistintamente (cliente Centro Cultura)


git-svn-id: svn://10.65.10.50/trunk@19826 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy 2009-12-21 11:52:17 +00:00
parent 615a0a8cd3
commit 300c5315fa
2 changed files with 23 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
m770/770100.cpp
View File

@ -52,10 +52,10 @@ const char* ITEMS_LA[] = {
HIDDEN TString80 __tmp;
TSchedaPercipienti::TSchedaPercipienti(): _rel(NULL), _flag_cg(FALSE)
TSchedaPercipienti::TSchedaPercipienti(): _rel(NULL), _flag_cg(false)
{
_from_modify = FALSE;
_soggnres = FALSE;
_from_modify = false;
_soggnres = false;
memset(_msk, 0, sizeof(_msk));
}
@ -70,9 +70,9 @@ void TSchedaPercipienti::update_lasts(TMask& m)
// Determino ultimo numero di riga usato nei PAGAMENTI
_rpag->zero();
_rpag->put("CODDITTA", (long) codditta);
_rpag->put("CODDITTA", codditta);
_rpag->put("TIPOA", tipoa);
_rpag->put("CODANAGR", (long) codanagr);
_rpag->put("CODANAGR", codanagr);
_rpag->put("NPROG", nprog);
TRectype dep(_rpag->curr());
@ -109,9 +109,9 @@ void TSchedaPercipienti::update_lasts(TMask& m)
bool TSchedaPercipienti::changing_mask(int mode)
{
if ((mode == MODE_MOD) && (_mode == MODE_INS))
return FALSE;
return false;
else
return _mode != mode;
return _mode != mode;
}
TMask* TSchedaPercipienti::get_mask(int mode)
@ -135,16 +135,16 @@ TMask* TSchedaPercipienti::load_mask(int n)
case 0:
m->set_handler(F_NPROG, nprog_handler);
m->set_handler(F_CODDITTA, codditta_handler);
m->set_handler(F_CODANAGRCOM, codanagr_handler);
m->set_handler(F_CODANAGRPERC, codanagr_handler);
m->set_handler(F_AGGPAG, aggpag_handler);
m->set_handler(F_CODANAGRCOM, codanagr_handler);
m->set_handler(F_CODANAGRPERC, codanagr_handler);
m->set_handler(F_AGGPAG, aggpag_handler);
break;
case 1:
{
m->disable(DLG_FINDREC);
m->set_handler(F_DATADOC, check_handler);
m->set_handler(F_CODCAUS, check_causale);
m->set_handler(F_SPESE, check_spese);
m->set_handler(F_SPESE, check_spese);
m->set_handler(F_COMPENS, check_compensi);
m->set_handler(F_MESECOMP, check_competenza);
@ -174,7 +174,7 @@ bool TSchedaPercipienti::setta_nprog(TMask& m, const bool variazione, const char
{
long nprog = 0L;
const char tipoa = m.get(F_TIPOA)[0];
TString16 codanagr(codanag ? codanag : m.get(F_CODANAGR));
TString8 codanagr(codanag ? codanag : m.get(F_CODANAGR));
const long codditta = app().tipo_coll()==nessuno ? get_firm_770() : app().get_firm();
// Scrivi nprog solo se il percipiente ESISTE sull'arkivio

22
m770/770100a.uml
View File

@ -15,7 +15,7 @@ END
NUMBER F_CODDITTA 5
BEGIN
PROMPT 3 1 "Ditta "
FLAGS "RDGP"
FLAGS "DFGP"
KEY 1
CHECKTYPE REQUIRED
USE LF_NDITTE KEY 1
@ -62,10 +62,10 @@ END
NUMBER F_CODANAGRPERC 5
BEGIN
PROMPT 15 8 ""
USE LF_PERC KEY 1 SELECT ((CODDITTA=#F_CODDITTA) && (TIPOA=#F_TIPOA))
JOIN LF_ANAG TO LF_PERC KEY 1 INTO TIPOA=TIPOA CODANAGR=CODANAGR
INPUT CODDITTA F_CODDITTA
INPUT TIPOA F_TIPOA
USE LF_PERC
JOIN LF_ANAG TO LF_PERC INTO TIPOA=TIPOA CODANAGR=CODANAGR
INPUT CODDITTA F_CODDITTA SELECT
INPUT TIPOA F_TIPOA SELECT
INPUT CODANAGR F_CODANAGRPERC
DISPLAY "Tipo " TIPOA
DISPLAY "Codice " CODANAGR
@ -81,7 +81,7 @@ END
NUMBER F_CODANAGRCOM 5
BEGIN
PROMPT 15 8 ""
USE LF_ANAG KEY 1 SELECT (TIPOA=#F_TIPOA)
USE LF_ANAG SELECT (TIPOA=#F_TIPOA)
INPUT TIPOA F_TIPOA
INPUT CODANAGR F_CODANAGRCOM
DISPLAY "Tipo " TIPOA
@ -135,7 +135,7 @@ BEGIN
CHECKTYPE REQUIRED
KEY 1
FIELD LF_SCPERC->NPROG
USE LF_SCPERC
USE LF_SCPERC SELECT CODANAGR==#F_CODANAGR
JOIN %CA7 INTO CODTAB=CODCAUS
INPUT CODDITTA F_CODDITTA SELECT
INPUT TIPOA F_TIPOA SELECT
@ -153,15 +153,15 @@ BEGIN
OUTPUT F_NPROG NPROG
END
BUTTON F_GESTPERC 22 2
BUTTON F_GESTPERC 28 2
BEGIN
PROMPT 2 18 "~Percipienti"
PROMPT -12 -1 "~Percipienti"
MESSAGE RUN,775,-0,#F_CODDITTA,#F_TIPOA,#F_CODANAGR
END
BUTTON F_AGGPAG 22 2
BUTTON F_AGGPAG 28 2
BEGIN
PROMPT 30 18 "~Aggiornamento pagamenti"
PROMPT -22 -1 "~Aggiornamento pagamenti"
END
ENDPAGE