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

14
m770/770100.cpp
View File

@ -52,10 +52,10 @@ const char* ITEMS_LA[] = {
HIDDEN TString80 __tmp; HIDDEN TString80 __tmp;
TSchedaPercipienti::TSchedaPercipienti(): _rel(NULL), _flag_cg(FALSE) TSchedaPercipienti::TSchedaPercipienti(): _rel(NULL), _flag_cg(false)
{ {
_from_modify = FALSE; _from_modify = false;
_soggnres = FALSE; _soggnres = false;
memset(_msk, 0, sizeof(_msk)); memset(_msk, 0, sizeof(_msk));
} }
@ -70,9 +70,9 @@ void TSchedaPercipienti::update_lasts(TMask& m)
// Determino ultimo numero di riga usato nei PAGAMENTI // Determino ultimo numero di riga usato nei PAGAMENTI
_rpag->zero(); _rpag->zero();
_rpag->put("CODDITTA", (long) codditta); _rpag->put("CODDITTA", codditta);
_rpag->put("TIPOA", tipoa); _rpag->put("TIPOA", tipoa);
_rpag->put("CODANAGR", (long) codanagr); _rpag->put("CODANAGR", codanagr);
_rpag->put("NPROG", nprog); _rpag->put("NPROG", nprog);
TRectype dep(_rpag->curr()); TRectype dep(_rpag->curr());
@ -109,7 +109,7 @@ void TSchedaPercipienti::update_lasts(TMask& m)
bool TSchedaPercipienti::changing_mask(int mode) bool TSchedaPercipienti::changing_mask(int mode)
{ {
if ((mode == MODE_MOD) && (_mode == MODE_INS)) if ((mode == MODE_MOD) && (_mode == MODE_INS))
return FALSE; return false;
else else
return _mode != mode; return _mode != mode;
} }
@ -174,7 +174,7 @@ bool TSchedaPercipienti::setta_nprog(TMask& m, const bool variazione, const char
{ {
long nprog = 0L; long nprog = 0L;
const char tipoa = m.get(F_TIPOA)[0]; 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(); const long codditta = app().tipo_coll()==nessuno ? get_firm_770() : app().get_firm();
// Scrivi nprog solo se il percipiente ESISTE sull'arkivio // Scrivi nprog solo se il percipiente ESISTE sull'arkivio

22
m770/770100a.uml
View File

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