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

Patch level : 12.0 336

Browse Source 
Files correlati     : sc1.exe sc1200a.msk 

MODIFICA CRPA 

Aggiunto numero partita da impostare nella generazione.
Aggiunta possibilità di non azzerare il saldaconto  nella generazione.

git-svn-id: svn://10.65.10.50/branches/R_10_00@23571 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
bonazzi 2017-01-31 08:12:56 +00:00
parent c7b6fee190
commit 5a6bdccca5
3 changed files with 81 additions and 64 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
src/sc/sc1200.cpp
View File

@ -17,6 +17,7 @@ class TCreatepart_app : public TSkeleton_application
TEsercizi_contabili _esc;
bool _num_cli, _num_for;
TString _desccl, _descfo;
TString _numpart;
TDate _today;
protected: // Applicat
@ -219,7 +220,7 @@ int TCreatepart_app::crea_partite(int anno_es, int anno_rif, int next_anno_es)
if (!saldo.is_zero())
{
const TBill clifo(gruppo, conto, sottoc, cf);
TString16 numero("*");
TString16 numero(_numpart);
if ((cf == 'C' && _num_cli) || (cf == 'F' && _num_for))
numero.right_just(7);
@ -288,8 +289,12 @@ void TCreatepart_app::main_loop()
_today = m.get(F_DATA);
_desccl = m.get(F_DESCCL);
_descfo = m.get(F_DESCFO);
_numpart = m.get(F_NUMPART);
if (!zap_partite())
if (_numpart.blank())
_numpart = "*";
if (!m.get_bool(F_NOTAZZ) && !zap_partite())
continue;
const TEsercizio& selected_es = _esc.esercizio(anno_es);

2
src/sc/sc1200.h
View File

@ -2,3 +2,5 @@
#define F_DATA 102
#define F_DESCCL 103
#define F_DESCFO 104
#define F_NUMPART 105
#define F_NOTAZZ 106

14
src/sc/sc1200a.uml
View File

@ -36,19 +36,29 @@ BEGIN
WARNING "Anno di esercizio assente"
END
BOOLEAN F_NOTAZZ
BEGIN
PROMPT 35 7 "Non azzerare il saldaconto"
END
DATE F_DATA
BEGIN
PROMPT 1 8 "Data dell'operazione "
END
STRING F_NUMPART 7
BEGIN
PROMPT 1 9 "Numero partita "
END
STRING F_DESCCL 40
BEGIN
PROMPT 1 9 "Descrizione clienti "
PROMPT 1 10 "Descrizione clienti "
END
STRING F_DESCFO 40
BEGIN
PROMPT 1 10 "Descrizione fornitori "
PROMPT 1 11 "Descrizione fornitori "
END
ENDPAGE