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 (_numpart.blank())
_numpart = "*";
if (!zap_partite())
if (!m.get_bool(F_NOTAZZ) && !zap_partite())
continue;
const TEsercizio& selected_es = _esc.esercizio(anno_es);

4
src/sc/sc1200.h
View File

@ -1,4 +1,6 @@
#define F_ANNO 101
#define F_DATA 102
#define F_DESCCL 103
#define F_DESCFO 104
#define F_DESCFO 104
#define F_NUMPART 105
#define F_NOTAZZ 106

132
src/sc/sc1200a.uml
View File

@ -1,61 +1,71 @@
#include "sc1200.h"
PAGE "Apertura partite da saldi contabili" -1 -1 71 13
GROUPBOX DLG_NULL 69 6
BEGIN
PROMPT 1 0 ""
END
TEXT DLG_NULL
BEGIN
PROMPT 31 1 "@bATTENZIONE"
END
TEXT DLG_NULL
BEGIN
PROMPT 14 3 "@bLa generazione della partite puo' richiedere"
END
TEXT DLG_NULL
BEGIN
PROMPT 18 4 "@btempo. Siate certi di voler proseguire."
END
NUMBER F_ANNO 4
BEGIN
PROMPT 1 7 "Codice esercizio "
FLAGS "Z"
USE ESC
INPUT CODTAB F_ANNO
DISPLAY "Codice Esercizio" CODTAB
DISPLAY "Data inizio esercizio" D0
DISPLAY "Data fine esercizio " D1
OUTPUT F_ANNO CODTAB
CHECKTYPE REQUIRED
WARNING "Anno di esercizio assente"
END
DATE F_DATA
BEGIN
PROMPT 1 8 "Data dell'operazione "
END
STRING F_DESCCL 40
BEGIN
PROMPT 1 9 "Descrizione clienti "
END
STRING F_DESCFO 40
BEGIN
PROMPT 1 10 "Descrizione fornitori "
END
ENDPAGE
TOOLBAR "" 0 0 0 2
#include <stdbar.h>
ENDPAGE
ENDMASK
#include "sc1200.h"
PAGE "Apertura partite da saldi contabili" -1 -1 71 13
GROUPBOX DLG_NULL 69 6
BEGIN
PROMPT 1 0 ""
END
TEXT DLG_NULL
BEGIN
PROMPT 31 1 "@bATTENZIONE"
END
TEXT DLG_NULL
BEGIN
PROMPT 14 3 "@bLa generazione della partite puo' richiedere"
END
TEXT DLG_NULL
BEGIN
PROMPT 18 4 "@btempo. Siate certi di voler proseguire."
END
NUMBER F_ANNO 4
BEGIN
PROMPT 1 7 "Codice esercizio "
FLAGS "Z"
USE ESC
INPUT CODTAB F_ANNO
DISPLAY "Codice Esercizio" CODTAB
DISPLAY "Data inizio esercizio" D0
DISPLAY "Data fine esercizio " D1
OUTPUT F_ANNO CODTAB
CHECKTYPE REQUIRED
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 10 "Descrizione clienti "
END
STRING F_DESCFO 40
BEGIN
PROMPT 1 11 "Descrizione fornitori "
END
ENDPAGE
TOOLBAR "" 0 0 0 2
#include <stdbar.h>
ENDPAGE
ENDMASK