Patch level : 2.0 508
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
parent
83f54ee860
commit
c85ed9c594
@ -10,7 +10,7 @@ int main(int argc, char** argv)
|
||||
ef0200(argc,argv);// GENERAZIONE EFFETTI DA E/C (OBSOLETO NON USARE PIU")
|
||||
break;
|
||||
case '2':
|
||||
ef0300(argc,argv);// GESTIONE DISTINTE
|
||||
ef0300(argc,argv);// AGGIORNAMENTO DISTINTE (DISTINTE DI PRESENTAZIONE)
|
||||
break;
|
||||
case '3':
|
||||
ef0400(argc,argv);// ELIMINAZIONE EFFETTI
|
||||
|
||||
@ -1,6 +1,6 @@
|
||||
#include "ef0100.h"
|
||||
|
||||
TOOLBAR "" 0 19 0 2
|
||||
TOOLBAR "" 0 -2 0 2
|
||||
|
||||
#include <toolbar.h>
|
||||
|
||||
@ -320,14 +320,6 @@ BEGIN
|
||||
PROMPT 42 6 "Codice ABI "
|
||||
FIELD CODABIP
|
||||
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
|
||||
|
||||
NUMBER F_CODCABP 5
|
||||
@ -336,12 +328,12 @@ BEGIN
|
||||
FIELD CODCABP
|
||||
FLAGS "Z"
|
||||
USE BNP
|
||||
// KEY 1 SELECT CODTAB ?= "??????????"
|
||||
JOIN %BAN ALIAS 100 INTO CODTAB==CODTAB
|
||||
INPUT CODTAB[1,5] F_CODABIP
|
||||
INPUT CODTAB[6,10] F_CODCABP
|
||||
DISPLAY "Codice ABI" CODTAB[1,5]
|
||||
DISPLAY "Codice CAB" CODTAB[6,10]
|
||||
DISPLAY "Denominazione@50" S0
|
||||
DISPLAY "Denominazione@50" 100@->S0
|
||||
OUTPUT F_CODABIP CODTAB[1,5]
|
||||
OUTPUT F_CODCABP CODTAB[6,10]
|
||||
CHECKTYPE NORMAL
|
||||
|
||||
@ -1,13 +1,13 @@
|
||||
// DEFINIZIONE MASCHERA PRINCIPALE PER LA GESTIONE DISTINTE
|
||||
#include "ef0300.h"
|
||||
|
||||
TOOLBAR "" 0 19 0 2
|
||||
TOOLBAR "" 0 -2 0 2
|
||||
#include <toolbar.h>
|
||||
ENDPAGE
|
||||
|
||||
PAGE "Distinta" 0 -1 0 19
|
||||
|
||||
GROUPBOX DLG_NULL 78 11
|
||||
GROUPBOX DLG_NULL 78 10
|
||||
BEGIN
|
||||
PROMPT 1 0 ""
|
||||
END
|
||||
@ -79,29 +79,29 @@ BEGIN
|
||||
ITEM "F|Passivi"
|
||||
END
|
||||
|
||||
NUMBER F_CODABIP 5 0
|
||||
NUMBER F_CODABIP 5
|
||||
BEGIN
|
||||
PROMPT 15 3 "Codice ABI "
|
||||
FIELD LF_EFFETTI->CODABIP
|
||||
FLAGS "RZ"
|
||||
FLAGS "Z"
|
||||
USE BNP
|
||||
JOIN %BAN ALIAS 100 INTO CODTAB==CODTAB
|
||||
INPUT CODTAB[1,5] F_CODABIP
|
||||
INPUT CODTAB[6,10] F_CODCABP
|
||||
DISPLAY "Codice ABI" CODTAB[1,5]
|
||||
DISPLAY "Codice CAB" CODTAB[6,10]
|
||||
DISPLAY "Denominazione@50" 100@->S0
|
||||
DISPLAY "Denominazione@50" 100@->S0
|
||||
OUTPUT F_CODABIP CODTAB[1,5]
|
||||
OUTPUT F_CODCABP CODTAB[6,10]
|
||||
OUTPUT F_DENBANP 100@->S0
|
||||
CHECKTYPE SEARCH
|
||||
END
|
||||
|
||||
NUMBER F_CODCABP 5 0
|
||||
NUMBER F_CODCABP 5
|
||||
BEGIN
|
||||
PROMPT 15 4 "Codice CAB "
|
||||
FIELD LF_EFFETTI->CODCABP
|
||||
FLAGS "RZ"
|
||||
FLAGS "Z"
|
||||
COPY ALL F_CODABIP
|
||||
CHECKTYPE REQUIRED
|
||||
END
|
||||
@ -118,7 +118,7 @@ BEGIN
|
||||
OUTPUT F_CODABIP CODTAB[1,5]
|
||||
OUTPUT F_CODCABP CODTAB[6,10]
|
||||
OUTPUT F_DENBANP S0
|
||||
CHECKTYPE NORMAL
|
||||
CHECKTYPE SEARCH
|
||||
END
|
||||
|
||||
LIST F_TIPOPAG 24
|
||||
@ -155,13 +155,13 @@ END
|
||||
|
||||
BUTTON F_IMPBUTTON 9 2
|
||||
BEGIN
|
||||
PROMPT 50 8 "~Selezione"
|
||||
PROMPT 50 7 "~Selezione"
|
||||
PICTURE BMP_SELECT
|
||||
END
|
||||
|
||||
SPREADSHEET F_SHEET_RIBA 78 8
|
||||
SPREADSHEET F_SHEET_RIBA
|
||||
BEGIN
|
||||
PROMPT 1 10 "RIGHE DISTINTA"
|
||||
PROMPT 0 10 "RIGHE DISTINTA"
|
||||
ITEM "Da elim."
|
||||
ITEM "Nr. Ri.Ba."
|
||||
ITEM "Scadenza"
|
||||
|
||||
@ -781,6 +781,8 @@ void TDistinta_form::set_order(const char tipo)
|
||||
// ordinamento seconda il numero e la data della fattura
|
||||
if (tipo == 'F')
|
||||
ordine = "14->NFATT|TIPODIST|NDIST|NRIGADIST";
|
||||
|
||||
if (_cursor) delete _cursor; // Added by Guy
|
||||
_cursor = new TSorted_cursor(relation(),ordine);
|
||||
}
|
||||
|
||||
|
||||
@ -274,7 +274,7 @@ void TContabilizzazione_effetti_app::build_dist_sheet()
|
||||
tipocf = rec.get_char(EFF_TIPOCF);
|
||||
}
|
||||
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;
|
||||
@ -1230,7 +1230,7 @@ bool TContabilizzazione_effetti_app::has_diffcam(const TEffetto& eff) const
|
||||
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);
|
||||
if (anno <= 0)
|
||||
@ -1244,10 +1244,18 @@ static void build_eff_key(const TRectype& row, TString& str, bool full = TRUE)
|
||||
if (riga <= 0)
|
||||
riga = 1;
|
||||
|
||||
if (full)
|
||||
if (level > 0)
|
||||
{
|
||||
const int rata = row.get_int(REFF_NRATA);
|
||||
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
|
||||
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& r2 = *((TRectype*)*o2);
|
||||
TString80 s1, s2;
|
||||
build_eff_key(r1, s1);
|
||||
build_eff_key(r2, s2);
|
||||
build_eff_key(r1, s1, 2);
|
||||
build_eff_key(r2, s2, 2);
|
||||
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--)
|
||||
{
|
||||
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
|
||||
{
|
||||
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)
|
||||
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());
|
||||
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++)
|
||||
{
|
||||
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))
|
||||
{
|
||||
@ -1473,7 +1481,7 @@ void TContabilizzazione_effetti_app::contabilize()
|
||||
}
|
||||
}
|
||||
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[])
|
||||
|
||||
@ -41,7 +41,7 @@ BEGIN
|
||||
PROMPT -12 -1 ""
|
||||
END
|
||||
|
||||
BUTTON DLG_CANCEL 10 2
|
||||
BUTTON DLG_QUIT 10 2
|
||||
BEGIN
|
||||
PROMPT -22 -1 ""
|
||||
END
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user