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

Patch level : 2.0 508

Browse Source 
Files correlati     : ef0.exe ef0100a.msk ef0300a.msk ef0800a.msk
Ricompilazione Demo : [ ]
Commento            :

GF20044
Pur avendo inserito, nella relativa tabella, le banche di presentazione
quando cerco di inserire una distinta sulla bamca xy appare il seguente
messaggio d'errore:"VALORE NON VALIDO PER BANCA DI PRESENTAZIONE XY"

GF20045
Nella pagina parametri banche di presentazione se vado in ricerca non mi
appare la denominazione della Banca.

GF20046
Ho generato degli effetti raggruppati creando tre ricevute bancarie
dell'importo della fattura al netto dell'importo della nota di credito,
nell'operazione contabile di contabilizzazione della relativa distinta di
presentazione non riesce a chiudere correttamente le partite o meglio crea
in fondo alla partita delle righe 9999 rata 9999 invece di chiudere la rata
corrispondente.


git-svn-id: svn://10.65.10.50/trunk@11283 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy 2003-06-24 12:57:40 +00:00
parent 83f54ee860
commit c85ed9c594
6 changed files with 35 additions and 33 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ef/ef0.cpp
View File

@ -10,7 +10,7 @@ int main(int argc, char** argv)
ef0200(argc,argv);// GENERAZIONE EFFETTI DA E/C (OBSOLETO NON USARE PIU") ef0200(argc,argv);// GENERAZIONE EFFETTI DA E/C (OBSOLETO NON USARE PIU")
break; break;
case '2': case '2':
ef0300(argc,argv);// GESTIONE DISTINTE ef0300(argc,argv);// AGGIORNAMENTO DISTINTE (DISTINTE DI PRESENTAZIONE)
break; break;
case '3': case '3':
ef0400(argc,argv);// ELIMINAZIONE EFFETTI ef0400(argc,argv);// ELIMINAZIONE EFFETTI

14
ef/ef0100a.uml
View File

@ -1,6 +1,6 @@
#include "ef0100.h" #include "ef0100.h"
TOOLBAR "" 0 19 0 2 TOOLBAR "" 0 -2 0 2
#include <toolbar.h> #include <toolbar.h>
@ -320,14 +320,6 @@ BEGIN
PROMPT 42 6 "Codice ABI " PROMPT 42 6 "Codice ABI "
FIELD CODABIP FIELD CODABIP
FLAGS "Z" FLAGS "Z"
// USE BNP KEY 1 SELECT CODTAB ?= "?????"
// INPUT CODTAB F_CODABIP
// DISPLAY "Codice ABI" CODTAB[1,5]
// DISPLAY "Denominazione@50" S0
// OUTPUT F_CODABIP CODTAB[1,5]
// OUTPUT F_CODCABP CODTAB[6,10]
// CHECKTYPE NORMAL
// WARNING "Codice ABI assente"
END END
NUMBER F_CODCABP 5 NUMBER F_CODCABP 5
@ -336,12 +328,12 @@ BEGIN
FIELD CODCABP FIELD CODCABP
FLAGS "Z" FLAGS "Z"
USE BNP USE BNP
// KEY 1 SELECT CODTAB ?= "??????????" JOIN %BAN ALIAS 100 INTO CODTAB==CODTAB
INPUT CODTAB[1,5] F_CODABIP INPUT CODTAB[1,5] F_CODABIP
INPUT CODTAB[6,10] F_CODCABP INPUT CODTAB[6,10] F_CODCABP
DISPLAY "Codice ABI" CODTAB[1,5] DISPLAY "Codice ABI" CODTAB[1,5]
DISPLAY "Codice CAB" CODTAB[6,10] DISPLAY "Codice CAB" CODTAB[6,10]
DISPLAY "Denominazione@50" S0 DISPLAY "Denominazione@50" 100@->S0
OUTPUT F_CODABIP CODTAB[1,5] OUTPUT F_CODABIP CODTAB[1,5]
OUTPUT F_CODCABP CODTAB[6,10] OUTPUT F_CODCABP CODTAB[6,10]
CHECKTYPE NORMAL CHECKTYPE NORMAL

22
ef/ef0300a.uml
View File

@ -1,13 +1,13 @@
// DEFINIZIONE MASCHERA PRINCIPALE PER LA GESTIONE DISTINTE // DEFINIZIONE MASCHERA PRINCIPALE PER LA GESTIONE DISTINTE
#include "ef0300.h" #include "ef0300.h"
TOOLBAR "" 0 19 0 2 TOOLBAR "" 0 -2 0 2
#include <toolbar.h> #include <toolbar.h>
ENDPAGE ENDPAGE
PAGE "Distinta" 0 -1 0 19 PAGE "Distinta" 0 -1 0 19
GROUPBOX DLG_NULL 78 11 GROUPBOX DLG_NULL 78 10
BEGIN BEGIN
PROMPT 1 0 "" PROMPT 1 0 ""
END END
@ -79,29 +79,29 @@ BEGIN
ITEM "F|Passivi" ITEM "F|Passivi"
END END
NUMBER F_CODABIP 5 0 NUMBER F_CODABIP 5
BEGIN BEGIN
PROMPT 15 3 "Codice ABI " PROMPT 15 3 "Codice ABI "
FIELD LF_EFFETTI->CODABIP FIELD LF_EFFETTI->CODABIP
FLAGS "RZ" FLAGS "Z"
USE BNP USE BNP
JOIN %BAN ALIAS 100 INTO CODTAB==CODTAB JOIN %BAN ALIAS 100 INTO CODTAB==CODTAB
INPUT CODTAB[1,5] F_CODABIP INPUT CODTAB[1,5] F_CODABIP
INPUT CODTAB[6,10] F_CODCABP INPUT CODTAB[6,10] F_CODCABP
DISPLAY "Codice ABI" CODTAB[1,5] DISPLAY "Codice ABI" CODTAB[1,5]
DISPLAY "Codice CAB" CODTAB[6,10] DISPLAY "Codice CAB" CODTAB[6,10]
DISPLAY "Denominazione@50" 100@->S0 DISPLAY "Denominazione@50" 100@->S0
OUTPUT F_CODABIP CODTAB[1,5] OUTPUT F_CODABIP CODTAB[1,5]
OUTPUT F_CODCABP CODTAB[6,10] OUTPUT F_CODCABP CODTAB[6,10]
OUTPUT F_DENBANP 100@->S0 OUTPUT F_DENBANP 100@->S0
CHECKTYPE SEARCH CHECKTYPE SEARCH
END END
NUMBER F_CODCABP 5 0 NUMBER F_CODCABP 5
BEGIN BEGIN
PROMPT 15 4 "Codice CAB " PROMPT 15 4 "Codice CAB "
FIELD LF_EFFETTI->CODCABP FIELD LF_EFFETTI->CODCABP
FLAGS "RZ" FLAGS "Z"
COPY ALL F_CODABIP COPY ALL F_CODABIP
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
END END
@ -118,7 +118,7 @@ BEGIN
OUTPUT F_CODABIP CODTAB[1,5] OUTPUT F_CODABIP CODTAB[1,5]
OUTPUT F_CODCABP CODTAB[6,10] OUTPUT F_CODCABP CODTAB[6,10]
OUTPUT F_DENBANP S0 OUTPUT F_DENBANP S0
CHECKTYPE NORMAL CHECKTYPE SEARCH
END END
LIST F_TIPOPAG 24 LIST F_TIPOPAG 24
@ -155,13 +155,13 @@ END
BUTTON F_IMPBUTTON 9 2 BUTTON F_IMPBUTTON 9 2
BEGIN BEGIN
PROMPT 50 8 "~Selezione" PROMPT 50 7 "~Selezione"
PICTURE BMP_SELECT PICTURE BMP_SELECT
END END
SPREADSHEET F_SHEET_RIBA 78 8 SPREADSHEET F_SHEET_RIBA
BEGIN BEGIN
PROMPT 1 10 "RIGHE DISTINTA" PROMPT 0 10 "RIGHE DISTINTA"
ITEM "Da elim." ITEM "Da elim."
ITEM "Nr. Ri.Ba." ITEM "Nr. Ri.Ba."
ITEM "Scadenza" ITEM "Scadenza"

2
ef/ef0500.cpp
View File

@ -781,6 +781,8 @@ void TDistinta_form::set_order(const char tipo)
// ordinamento seconda il numero e la data della fattura // ordinamento seconda il numero e la data della fattura
if (tipo == 'F') if (tipo == 'F')
ordine = "14->NFATT|TIPODIST|NDIST|NRIGADIST"; ordine = "14->NFATT|TIPODIST|NDIST|NRIGADIST";
if (_cursor) delete _cursor; // Added by Guy
_cursor = new TSorted_cursor(relation(),ordine); _cursor = new TSorted_cursor(relation(),ordine);
} }

26
ef/ef0800.cpp
View File

@ -274,7 +274,7 @@ void TContabilizzazione_effetti_app::build_dist_sheet()
tipocf = rec.get_char(EFF_TIPOCF); tipocf = rec.get_char(EFF_TIPOCF);
} }
num_eff++; // numero di effetti che compongono la distinta num_eff++; // numero di effetti che compongono la distinta
enabled &= !rec.get_bool(EFF_EFFCONT); //enabled &= !rec.get_bool(EFF_EFFCONT);
} }
TToken_string * t = new TToken_string; TToken_string * t = new TToken_string;
@ -1230,7 +1230,7 @@ bool TContabilizzazione_effetti_app::has_diffcam(const TEffetto& eff) const
return yes; return yes;
} }
static void build_eff_key(const TRectype& row, TString& str, bool full = TRUE) static void build_eff_key(const TRectype& row, TString& str, int level)
{ {
int anno = row.get_int(REFF_ANNO); int anno = row.get_int(REFF_ANNO);
if (anno <= 0) if (anno <= 0)
@ -1244,10 +1244,18 @@ static void build_eff_key(const TRectype& row, TString& str, bool full = TRUE)
if (riga <= 0) if (riga <= 0)
riga = 1; riga = 1;
if (full) if (level > 0)
{ {
const int rata = row.get_int(REFF_NRATA); const int rata = row.get_int(REFF_NRATA);
str.format("%04d|%s|%04d|%04d", anno, (const char*)part, riga, rata); str.format("%04d|%s|%04d|%04d", anno, (const char*)part, riga, rata);
if (level > 1)
{ // Devo fare in modo che le fatture precedano le note doi credito nell'array delle righe effetto
int tipo = 2;
if (row.get_real(REFF_IMPORTO) <= ZERO)
tipo = 1; // Nota di credito
str << '|' << tipo;
}
} }
else else
str.format("%04d|%s|%04d", anno, (const char*)part, riga); str.format("%04d|%s|%04d", anno, (const char*)part, riga);
@ -1258,8 +1266,8 @@ static int sort_eff_func(const TObject** o1, const TObject** o2)
const TRectype& r1 = *((TRectype*)*o1); const TRectype& r1 = *((TRectype*)*o1);
const TRectype& r2 = *((TRectype*)*o2); const TRectype& r2 = *((TRectype*)*o2);
TString80 s1, s2; TString80 s1, s2;
build_eff_key(r1, s1); build_eff_key(r1, s1, 2);
build_eff_key(r2, s2); build_eff_key(r2, s2, 2);
return s2.compare(s1); return s2.compare(s1);
} }
@ -1272,7 +1280,7 @@ int TContabilizzazione_effetti_app::sort_eff(TRecord_array& rows)
for (int i = rows.last_row(); i > 0; i--) for (int i = rows.last_row(); i > 0; i--)
{ {
TRectype& row = rows[i]; TRectype& row = rows[i];
build_eff_key(row, curr_key); build_eff_key(row, curr_key, 1);
if (curr_key == last_key) // Hanno la stessa rata per cui sommo e cancello l'ultima riga if (curr_key == last_key) // Hanno la stessa rata per cui sommo e cancello l'ultima riga
{ {
real importo = rows[i+1].get(REFF_IMPORTO); real importo = rows[i+1].get(REFF_IMPORTO);
@ -1308,7 +1316,7 @@ void TContabilizzazione_effetti_app::contabilize_bill(const char tipo, const lon
if (_caus != NULL) if (_caus != NULL)
delete _caus; delete _caus;
const char* cc = distinta.tipocf() == 'F' ? _cod_caus_pag : _cod_caus; const TString& cc = distinta.tipocf() == 'F' ? _cod_caus_pag : _cod_caus;
_caus = new TCausale(cc, _data_op.year()); _caus = new TCausale(cc, _data_op.year());
if (!_caus->ok()) if (!_caus->ok())
{ {
@ -1385,7 +1393,7 @@ void TContabilizzazione_effetti_app::contabilize_bill(const char tipo, const lon
for (int n = 1; n <= sorted.rows(); n++) for (int n = 1; n <= sorted.rows(); n++)
{ {
const TRectype& riga = sorted[n]; const TRectype& riga = sorted[n];
build_eff_key(riga, curr_key, FALSE); build_eff_key(riga, curr_key, 0);
if (n == 1 || (dettaglio_rate && curr_key != last_key)) if (n == 1 || (dettaglio_rate && curr_key != last_key))
{ {
@ -1473,7 +1481,7 @@ void TContabilizzazione_effetti_app::contabilize()
} }
} }
if (_total_bills > 0) if (_total_bills > 0)
message_box(FR("Totale effetti contabilizzati: %ld"),_total_bills); message_box(FR("Totale distinte contabilizzate: %ld"),_total_bills);
} }
int ef0800 (int argc, char* argv[]) int ef0800 (int argc, char* argv[])

2
ef/ef0800a.uml
View File

@ -41,7 +41,7 @@ BEGIN
PROMPT -12 -1 "" PROMPT -12 -1 ""
END END
BUTTON DLG_CANCEL 10 2 BUTTON DLG_QUIT 10 2
BEGIN BEGIN
PROMPT -22 -1 "" PROMPT -22 -1 ""
END END