Patch level : 12.0 336

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

View File

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

View File

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

View File

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