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

Corretta stamba della barratura alla fine del libro giornale

Browse Source 
Corretta gestione dello sheet delle scadenze generate dalle fatture


git-svn-id: svn://10.65.10.50/trunk@1490 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy 1995-06-21 15:33:31 +00:00
parent b6d974409f
commit 5e5cbf3d6b
14 changed files with 124 additions and 142 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

33
cg/cg0200a.uml
View File

@ -55,22 +55,23 @@ END
STRING F_RAGSOC 30 STRING F_RAGSOC 30
BEGIN BEGIN
PROMPT 23 1 "Cognome / Rag. Soc." PROMPT 23 1 "Cognome / Rag. Soc."
FIELD LF_CLIFO->RAGSOC[1,30] FIELD LF_CLIFO->RAGSOC[1,30]
KEY 2 KEY 2
USE LF_CLIFO KEY 2 USE LF_CLIFO KEY 2
INPUT TIPOCF F_TIPOCF SELECT INPUT TIPOCF F_TIPOCF SELECT
INPUT RAGSOC[1,30] F_RAGSOC INPUT RAGSOC[1,30] F_RAGSOC
DISPLAY "Ragione sociale@50" RAGSOC DISPLAY "Ragione sociale@50" RAGSOC
DISPLAY "Sospeso" SOSPESO DISPLAY "Sospeso" SOSPESO
DISPLAY "Codice" CODCF DISPLAY "Codice" CODCF
DISPLAY "Codice fiscale@16" COFI DISPLAY "Codice fiscale@16" COFI
DISPLAY "Partita IVA@11" PAIV DISPLAY "Partita IVA@11" PAIV
COPY OUTPUT F_CODCF COPY OUTPUT F_CODCF
HELP "Prima parte della ragione sociale o cognome" HELP "Prima parte della ragione sociale o cognome"
MESSAGE COPY,3@ MESSAGE COPY,3@
WARNING "Manca la ragione sociale" WARNING "Manca la ragione sociale"
VALIDATE NOT_EMPTY_FUNC // VALIDATE NOT_EMPTY_FUNC
CHECKTYPE REQUIRED // Guy: perche' non cosi'?
END END
STRING F_RAGSOCA 20 STRING F_RAGSOCA 20

2
cg/cg2100.cpp
View File

@ -620,7 +620,7 @@ int TPrimanota_application::read(TMask& m)
TToken_string& riga = cgs().row(i); // Vuota la riga TToken_string& riga = cgs().row(i); // Vuota la riga
TImporto import(r.get_char("SEZIONE"), r.get_real("IMPORTO")); TImporto import(r.get_char("SEZIONE"), r.get_real("IMPORTO"));
import.add_to(riga); // Dare/Avere 101-102 import.add_to(riga, 0); // Dare/Avere 101-102
TBill conto; conto.get(r); TBill conto; conto.get(r);
riga.add(conto.string(0x3)); // Conto 103-107 riga.add(conto.string(0x3)); // Conto 103-107

1
cg/cg2100b.uml
View File

@ -334,7 +334,6 @@ BEGIN
PROMPT 1 6 "Movimento provvisorio " PROMPT 1 6 "Movimento provvisorio "
ITEM " |No (movimento normale)" ITEM " |No (movimento normale)"
ITEM "P|Si (cancellabile)" ITEM "P|Si (cancellabile)"
ITEM "N|Si (non cancellabile)"
FLAGS "D" FLAGS "D"
END END

20
cg/cg2100c.uml
View File

@ -163,7 +163,7 @@ BEGIN
ITEM " |No (movimento normale)" ITEM " |No (movimento normale)"
ITEM "P|Si (cancellabile)" ITEM "P|Si (cancellabile)"
ITEM "N|Si (Non cancellabile)" ITEM "N|Si (Non cancellabile)"
FLAGS "D" FLAGS "DG"
END END
STRING F_DESCAGG 5 STRING F_DESCAGG 5
@ -252,7 +252,6 @@ BEGIN
OUTPUT F_STATOPAIV STATOPAIV OUTPUT F_STATOPAIV STATOPAIV
OUTPUT F_PIVACLIENTE PAIV OUTPUT F_PIVACLIENTE PAIV
OUTPUT F_COFICLIENTE COFI OUTPUT F_COFICLIENTE COFI
OUTPUT F_CODPAG CODPAG
MESSAGE COPY,F_FORNITORE MESSAGE COPY,F_FORNITORE
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
WARNING "Cliente assente" WARNING "Cliente assente"
@ -279,7 +278,6 @@ BEGIN
OUTPUT F_STATOPAIV STATOPAIV OUTPUT F_STATOPAIV STATOPAIV
OUTPUT F_PIVAFORNITORE PAIV OUTPUT F_PIVAFORNITORE PAIV
OUTPUT F_COFIFORNITORE COFI OUTPUT F_COFIFORNITORE COFI
OUTPUT F_CODPAG CODPAG
MESSAGE COPY,F_CLIENTE MESSAGE COPY,F_CLIENTE
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
WARNING "Fornitore assente" WARNING "Fornitore assente"
@ -336,7 +334,7 @@ BEGIN
ITEM "LU|Lussemburgo" ITEM "LU|Lussemburgo"
ITEM "NL|Olanda" ITEM "NL|Olanda"
ITEM "PT|Portogallo" ITEM "PT|Portogallo"
GROUP 1 7 GROUP 1
END END
@ -344,7 +342,7 @@ STRING F_PIVACLIENTE 14
BEGIN BEGIN
PROMPT 34 11 "" PROMPT 34 11 ""
HELP "Partita IVA del cliente del documento" HELP "Partita IVA del cliente del documento"
GROUP 1 7 GROUP 1
USE LF_CLIFO KEY 5 USE LF_CLIFO KEY 5
INPUT TIPOCF "C" INPUT TIPOCF "C"
INPUT STATOPAIV F_STATOPAIV INPUT STATOPAIV F_STATOPAIV
@ -361,7 +359,7 @@ STRING F_PIVAFORNITORE 14
BEGIN BEGIN
PROMPT 34 11 "" PROMPT 34 11 ""
HELP "Partita IVA del fornitore del documento" HELP "Partita IVA del fornitore del documento"
GROUP 2 7 GROUP 2
USE LF_CLIFO KEY 5 USE LF_CLIFO KEY 5
INPUT TIPOCF "F" INPUT TIPOCF "F"
INPUT STATOPAIV F_STATOPAIV INPUT STATOPAIV F_STATOPAIV
@ -376,7 +374,7 @@ STRING F_COFICLIENTE 16
BEGIN BEGIN
PROMPT 54 11 "C.F. " PROMPT 54 11 "C.F. "
HELP "Codice fiscale del cliente del documento" HELP "Codice fiscale del cliente del documento"
GROUP 1 7 GROUP 1
USE LF_CLIFO KEY 4 USE LF_CLIFO KEY 4
INPUT TIPOCF "C" INPUT TIPOCF "C"
INPUT COFI F_COFICLIENTE INPUT COFI F_COFICLIENTE
@ -392,7 +390,7 @@ STRING F_COFIFORNITORE 16
BEGIN BEGIN
PROMPT 54 11 "C.F. " PROMPT 54 11 "C.F. "
HELP "Codice fiscale del fornitore del documento" HELP "Codice fiscale del fornitore del documento"
GROUP 2 7 GROUP 2
USE LF_CLIFO KEY 4 USE LF_CLIFO KEY 4
INPUT TIPOCF "F" INPUT TIPOCF "F"
INPUT COFI F_COFIFORNITORE INPUT COFI F_COFIFORNITORE
@ -626,15 +624,17 @@ END
NUMBER F_IMPONIBILI 15 NUMBER F_IMPONIBILI 15
BEGIN BEGIN
PROMPT 1 11 "Totale imponibili " PROMPT 1 11 "Totale imponibili "
FLAGS "DRV" FLAGS "DGV"
PICTURE "." PICTURE "."
MESSAGE COPY,FS_IMPONIBILI
END END
NUMBER F_IMPOSTE 15 NUMBER F_IMPOSTE 15
BEGIN BEGIN
PROMPT 41 11 "Totale imposte " PROMPT 41 11 "Totale imposte "
FLAGS "DRV" FLAGS "DGV"
PICTURE "." PICTURE "."
MESSAGE COPY,FS_IMPOSTE
END END
SPREADSHEET F_SHEETCG SPREADSHEET F_SHEETCG

69
cg/cg2102.cpp
View File

@ -106,26 +106,29 @@ bool TPrimanota_application::showpartite_handler(TMask_field& f, KEY k)
{ {
TSheet_field& s = app().cgs(); TSheet_field& s = app().cgs();
const int sel = s.selected(); const int sel = s.selected();
const int currig = sel+1; TToken_string& row = app().cgs().row(sel);
if (row.get_char(2) > ' ')
const long curreg = app().curr_mask().get_long(F_NUMREG);
TImporto importo; importo = app().cgs().row(sel);
TImporto speso = app()._partite.importo_speso(curreg, currig);
if (importo != speso)
{ {
ok = yesno_box("L'importo dei pagamenti %c %s\ne' diverso dall'importo sulla riga %d.\n" const int currig = sel+1;
"Si desidera correggerlo?", speso.sezione(), speso.valore().string("."), currig);
if (ok) const long curreg = app().curr_mask().get_long(F_NUMREG);
{ TImporto importo; importo = row;
TMask& m = f.mask(); TImporto speso = app()._partite.importo_speso(curreg, currig);
const bool dare = speso.sezione() == 'D';
m.set(101, dare ? speso.valore().string() : ""); if (importo != speso)
m.set(102, dare ? "" : speso.valore().string()); {
ok = yesno_box("L'importo dei pagamenti %c %s\ne' diverso dall'importo sulla riga %d.\n"
"Si desidera correggerlo?", speso.sezione(), speso.valore().string("."), currig);
if (ok)
{
TMask& m = f.mask();
const bool dare = speso.sezione() == 'D';
m.set(101, dare ? speso.valore().string() : "");
m.set(102, dare ? "" : speso.valore().string());
}
} }
} }
} }
return ok; return ok;
} }
@ -285,7 +288,7 @@ TSheet_field& TPrimanota_application::cgs() const
// Scrive l'importo imp nella opportuna sezione della riga n // Scrive l'importo imp nella opportuna sezione della riga n
void TPrimanota_application::set_cgs_imp(int n, const TImporto& imp) void TPrimanota_application::set_cgs_imp(int n, const TImporto& imp)
{ {
imp.add_to(cgs().row(n)); imp.add_to(cgs().row(n), 0);
cgs().force_update(n); cgs().force_update(n);
} }
@ -388,7 +391,7 @@ int TPrimanota_application::set_cgs_row(int n, const TImporto& imp,
if (n < 0) n = cg.first_empty(); if (n < 0) n = cg.first_empty();
TToken_string& row = cg.row(n); TToken_string& row = cg.row(n);
row = ""; row = "";
imp.add_to(row); imp.add_to(row, 0);
row.add(conto.string(0x3)); row.add(conto.string(0x3));
row.add(""); // Codice decrizione row.add(""); // Codice decrizione
row.add(desc); // Descrizione aggiuntiva row.add(desc); // Descrizione aggiuntiva
@ -903,8 +906,8 @@ real TPrimanota_application::calcola_imp() const
imposte += real(row.get(3)); imposte += real(row.get(3));
} }
curr_mask().set(F_IMPONIBILI, imponibili.string()); curr_mask().set(F_IMPONIBILI, imponibili.string(), TRUE);
curr_mask().set(F_IMPOSTE, imposte.string()); curr_mask().set(F_IMPOSTE, imposte.string(), TRUE);
return imponibili+imposte; return imponibili+imposte;
} }
@ -1079,6 +1082,7 @@ else
app().reset_cgs_row(newposiva); // ... cancellala app().reset_cgs_row(newposiva); // ... cancellala
newposiva = -1; newposiva = -1;
} }
} }
oldiva = imposta; oldiva = imposta;
@ -1089,7 +1093,12 @@ if (r == 0) // Se cambio la prima ri
app().calcola_imp(); // Ricalcola totale IVA app().calcola_imp(); // Ricalcola totale IVA
app().calcola_saldo(); // Ricalcola sbilanci app().calcola_saldo(); // Ricalcola sbilanci
TMask& m = app().curr_mask();
if (app().is_saldaconto() && m.page_enabled(2))
app().set_scadenze(m);
} }
return TRUE; return TRUE;
} }
@ -1618,18 +1627,16 @@ bool TPrimanota_application::clifo_handler(TMask_field& f, KEY key)
const int alleg = clifo.get_int(CLI_ALLEG); const int alleg = clifo.get_int(CLI_ALLEG);
TEdit_field& upi = m.efield(F_RIEPILOGO); TEdit_field& upi = m.efield(F_RIEPILOGO);
upi.check_type(alleg == 3 ? CHECK_REQUIRED : CHECK_NORMAL); upi.check_type(alleg == 3 ? CHECK_REQUIRED : CHECK_NORMAL);
const TString& s = clifo.get(CLI_CODPAG);
if (s.not_empty()) m.set(F_CODPAG, s, TRUE);
} }
const bool occas = clifo.get_bool(CLI_OCCAS); const bool occas = clifo.get_bool(CLI_OCCAS);
m.show(F_OCCASEDIT, occas); // Dati anagrfici m.show(F_OCCASEDIT, occas); // Bottone Dati anagrafici
m.show(F_STATOPAIV, !occas); // Stato partita IVA
if (occas) m.show(cf == 'C' ? F_PIVACLIENTE : F_PIVAFORNITORE, !occas); // Partita IVA
m.hide(-7); // Partita IVA e stato partita IVA m.show(cf == 'C' ? F_COFICLIENTE : F_COFIFORNITORE, !occas); // Codice Fiscale
else
{
m.show(-7);
m.hide(cf == 'F' ? F_PIVACLIENTE : F_PIVAFORNITORE);
}
if (f.focusdirty()) if (f.focusdirty())
{ {
@ -1735,8 +1742,8 @@ bool TPrimanota_application::totale_handler(TMask_field& f, KEY key)
{ {
app().add_cgs_tot(m); app().add_cgs_tot(m);
m.field(F_CODIVA).on_hit(); m.field(F_CODIVA).on_hit();
if (app().is_saldaconto() && m.get(F_CODPAG).not_empty()) // if (app().is_saldaconto() && m.get(F_CODPAG).not_empty())
app().set_scadenze(m); // app().set_scadenze(m);
} }
if (key == K_ENTER && f.get().empty()) if (key == K_ENTER && f.get().empty())

2
cg/cg2102.h
View File

@ -208,7 +208,7 @@ protected:
void set_pagamento(const char* c, const char* d); void set_pagamento(const char* c, const char* d);
void reset_pagamento(); void reset_pagamento();
void set_scadenze(TMask& m); void set_scadenze(TMask& m);
bool read_scadenze(const TMask& m); bool read_scadenze(TMask& m);
void write_scadenze(const TMask& m); void write_scadenze(const TMask& m);
bool edit_partite(int riga); bool edit_partite(int riga);

66
cg/cg2104.cpp
View File

@ -96,7 +96,7 @@ bool TPrimanota_application::pag_notify(int r, KEY k)
(m_tipo ? (const char*)newt : NULL), (m_tipo ? (const char*)newt : NULL),
rdiff, mcomm, need_recalc); rdiff, mcomm, need_recalc);
// see if rdiff changed // see if rdiff changed
msk->field(FS_RDIFFER).set(pag.rate_differenziate() ? "1" : "2"); msk->set(FS_RDIFFER, pag.rate_differenziate() ? "1" : "2");
} }
if (!recalc) if (!recalc)
{ {
@ -161,12 +161,11 @@ void TPrimanota_application::set_pagamento(const char* c, const char* d)
void TPrimanota_application::set_scadenze(TMask& m) void TPrimanota_application::set_scadenze(TMask& m)
{ {
real imponibile(0.0); const real imponibile(m.get(F_IMPONIBILI));
real imposta(0.0); const real imposta(m.get(F_IMPOSTE));
real spese(0.0); const real spese(0.0);
TPagamento& pag = pagamento(); TPagamento& pag = pagamento();
if (pag.is_new()) if (pag.is_new())
{ {
m.disable_page(2); m.disable_page(2);
@ -176,24 +175,9 @@ void TPrimanota_application::set_scadenze(TMask& m)
m.set(FS_RDIFFER, pag.rate_differenziate() ? "1" : "2"); m.set(FS_RDIFFER, pag.rate_differenziate() ? "1" : "2");
m.set(FS_NAMEPAG, pag.name()); m.set(FS_NAMEPAG, pag.name());
m.set(FS_TIPOPR, pag.desc_tpr()); m.set(FS_TIPOPR, pag.desc_tpr());
m.set(FS_MCOMM, pag.mese_commerciale() ? "X" : ""); m.set(FS_MCOMM, pag.mese_commerciale() ? "X" : "");
m.set(FS_RECALC, "X", TRUE);
TSheet_field& iva_sh = ivas();
for (int i = 0; i < iva_sh.items(); i++)
{
TToken_string& tt = iva_sh.row(i);
const real mpo(tt.get(0));
imponibile += mpo;
const real imp(tt.get(3));
imposta += imp;
}
m.set(FS_IMPONIBILE, imponibile.string());
m.set(FS_IMPOSTA, imposta.string());
m.set(FS_SPESE, spese.string());
m.set(FS_RECALC, "X");
pag.set_total(imponibile, imposta, spese); pag.set_total(imponibile, imposta, spese);
pag.set_rate_auto(); pag.set_rate_auto();
@ -215,32 +199,18 @@ void TPrimanota_application::set_scadenze(TMask& m)
} }
} }
bool TPrimanota_application::read_scadenze(const TMask& m) bool TPrimanota_application::read_scadenze(TMask& m)
{ {
real imponibile(0.0); real imponibile(0.0);
real imposta(0.0); real imposta(0.0);
real spese(0.0); real spese(0.0);
TSheet_field& ps = (TSheet_field&)m.field(FS_RATESHEET); TSheet_field& ps = (TSheet_field&)m.field(FS_RATESHEET);
// should never happen but it doesn't hurt // should never happen but it doesn't hurt
if (_rel->cg(0).empty()) return FALSE; if (_rel->cg(0).empty()) return FALSE;
TSheet_field& iva_sh = ivas(); m.set(FS_RECALC, "X");
for (int i = 0; i < iva_sh.items(); i++)
{
TToken_string& tt = iva_sh.row(i);
real mpo(tt.get(0));
real imp(tt.get(3));
imponibile += mpo;
imposta += imp;
}
m.field(FS_IMPONIBILE).set(imponibile.string());
m.field(FS_IMPOSTA).set(imposta.string());
m.field(FS_SPESE).set(spese.string());
m.field(FS_RECALC).set("X");
TPagamento& pag = pagamento(); TPagamento& pag = pagamento();
pag.set_total(imponibile, imposta, spese); pag.set_total(imponibile, imposta, spese);
@ -486,7 +456,7 @@ bool TPrimanota_application::edit_partite(int riga)
TString caption("Partite aperte del conto "); TString caption("Partite aperte del conto ");
caption << b.gruppo() << ' ' << b.conto() << ' ' << b.sottoconto(); caption << b.gruppo() << ' ' << b.conto() << ' ' << b.sottoconto();
TArray_sheet a(-1, -1, 0, 0, caption, "Anno|Numero@7|Descrizione@50|Importo@15R|Sezione", 0x8); TArray_sheet a(-1, -1, 0, 0, caption, "Anno|Numero@7|Dare@15R|Avere@15R|Descrizione@50", 0x8);
TLocalisamfile partita(LF_PARTITE); TLocalisamfile partita(LF_PARTITE);
partita.setkey(2); // Chiave per conto partita.setkey(2); // Chiave per conto
@ -526,8 +496,9 @@ bool TPrimanota_application::edit_partite(int riga)
if (!saldo.is_zero() || nreg == curreg) // Se il saldo non e' nullo allora e' aperta if (!saldo.is_zero() || nreg == curreg) // Se il saldo non e' nullo allora e' aperta
{ {
r.cut(0); r.cut(0);
r.add(ult); r.add(last); r.add(desc); r.add(ult); r.add(last);
r.add(saldo.valore().string(".")); r.add(saldo.sezione()); saldo.add_to(r, 2);
r.add(desc);
a.add(r); // Aggiunge partita alla lista a.add(r); // Aggiunge partita alla lista
} }
ult = anno; ult = anno;
@ -540,8 +511,9 @@ bool TPrimanota_application::edit_partite(int riga)
if (!saldo.is_zero() || nreg == curreg) // Aggiunge ultima partita se aperta if (!saldo.is_zero() || nreg == curreg) // Aggiunge ultima partita se aperta
{ {
r.cut(0); r.cut(0);
r.add(ult); r.add(last); r.add(desc); r.add(ult); r.add(last);
r.add(saldo.valore().string(".")); r.add(saldo.sezione()); saldo.add_to(r, 2);
r.add(desc);
a.add(r); a.add(r);
} }

4
cg/cg21sld.h
View File

@ -1,8 +1,8 @@
#define FS_RATESHEET 501 #define FS_RATESHEET 501
#define FS_TOTAL 502 #define FS_TOTAL 502
#define FS_RDIFFER 503 #define FS_RDIFFER 503
#define FS_IMPONIBILE 504 #define FS_IMPONIBILI 504
#define FS_IMPOSTA 505 #define FS_IMPOSTE 505
#define FS_SPESE 506 #define FS_SPESE 506
#define FS_RECALC 507 #define FS_RECALC 507
#define FS_NAMEPAG 508 #define FS_NAMEPAG 508

16
cg/cg21sld.uml
View File

@ -5,16 +5,16 @@ BEGIN
PROMPT 0 1 "@bScadenzario" PROMPT 0 1 "@bScadenzario"
END END
NUMBER FS_IMPONIBILE 15 NUMBER FS_IMPONIBILI 15
BEGIN BEGIN
PROMPT 1 2 "Imponibile " PROMPT 1 2 "Imponibili "
PICTURE "." PICTURE "."
FLAGS "DR" FLAGS "DR"
END END
NUMBER FS_IMPOSTA 15 NUMBER FS_IMPOSTE 15
BEGIN BEGIN
PROMPT 29 2 "Imposta " PROMPT 29 2 "Imposte "
PICTURE "." PICTURE "."
FLAGS "DR" FLAGS "DR"
END END
@ -30,10 +30,10 @@ END
RADIOBUTTON FS_RDIFFER 31 RADIOBUTTON FS_RDIFFER 31
BEGIN BEGIN
PROMPT 1 4 "Opzioni ricalcolo rate" PROMPT 1 4 "Opzioni ricalcolo rate"
ITEM "1|Differenziate" ITEM "1|Differenziate"
ITEM "2|Uguali" ITEM "2|Uguali"
ITEM "3|Uguali dall'ultima modificata" ITEM "3|Uguali dall'ultima modificata"
ITEM "4|Uguali finche' possibile" ITEM "4|Uguali finche' possibile"
END END
BOOLEAN FS_RECALC BOOLEAN FS_RECALC

15
cg/cg2200.cpp
View File

@ -175,8 +175,12 @@ bool TProvvisori_app::delete_provv(TCursor& cur, TProgind& pi)
{ {
const long numreg = mov.get_long(MOV_NUMREG); const long numreg = mov.get_long(MOV_NUMREG);
int err = cur.lock(); mov.setkey(1); // Isam bug on remove with key != 1
mov.put(MOV_NUMREG, numreg);
int err = mov.read(_isequal, _lock);
if (err != NOERR)
return error_box("Errore %d nel bloccare il record %ld", err, numreg);
inizia_saldi(mov.curr()); inizia_saldi(mov.curr());
for (int rig = 1; err == NOERR; rig++) for (int rig = 1; err == NOERR; rig++)
@ -202,9 +206,6 @@ bool TProvvisori_app::delete_provv(TCursor& cur, TProgind& pi)
if (err == NOERR) if (err == NOERR)
{ {
const TRecnotype n = mov.recno();
mov.setkey(1); // Isam bug on remove with key != 1
mov.readat(n);
err = mov.remove(); err = mov.remove();
if (err != NOERR) if (err != NOERR)
error = "testata"; error = "testata";
@ -231,10 +232,10 @@ bool TProvvisori_app::filter(const TRelation* rel)
return FALSE; return FALSE;
const char* caus = mov.get(MOV_CODCAUS); const char* caus = mov.get(MOV_CODCAUS);
if (app()._from_caus.not_empty() && app()._from_caus > caus) if (app()._from_caus.not_empty() && app()._from_caus < caus)
return FALSE; return FALSE;
if (app()._to_caus.not_empty() && app()._to_caus < caus) if (app()._to_caus.not_empty() && app()._to_caus > caus)
return FALSE; return FALSE;
return TRUE; return TRUE;

10
cg/cg2200a.uml
View File

@ -9,7 +9,7 @@ END
DATE F_FROMDATE DATE F_FROMDATE
BEGIN BEGIN
PROMPT 2 2 "Data " PROMPT 2 2 "Data "
HELP "Data del primo movimento provvisorio" HELP "Data del primo movimento provvisorio"
USE LF_MOV KEY 2 SELECT PROVVIS="P" USE LF_MOV KEY 2 SELECT PROVVIS="P"
INPUT DATAREG F_FROMDATE INPUT DATAREG F_FROMDATE
@ -32,7 +32,8 @@ END
STRING F_FROMCAUS 3 STRING F_FROMCAUS 3
BEGIN BEGIN
PROMPT 2 3 "Causale " PROMPT 2 3 "Causale "
USE LF_CAUSALI FLAGS "U"
USE LF_CAUSALI SELECT REG==""
INPUT CODCAUS F_FROMCAUS INPUT CODCAUS F_FROMCAUS
DISPLAY "Codice" CODCAUS DISPLAY "Codice" CODCAUS
DISPLAY "Descrizione@50" DESCR DISPLAY "Descrizione@50" DESCR
@ -44,7 +45,7 @@ END
STRING F_FROMCAUSDESC 50 30 STRING F_FROMCAUSDESC 50 30
BEGIN BEGIN
PROMPT 16 3 "" PROMPT 16 3 ""
USE LF_CAUSALI KEY 2 USE LF_CAUSALI KEY 2 SELECT REG==""
INPUT DESCR F_FROMCAUSDESC INPUT DESCR F_FROMCAUSDESC
DISPLAY "Descrizione@50" DESCR DISPLAY "Descrizione@50" DESCR
DISPLAY "Codice" CODCAUS DISPLAY "Codice" CODCAUS
@ -59,7 +60,7 @@ END
DATE F_TODATE DATE F_TODATE
BEGIN BEGIN
PROMPT 2 6 "Data " PROMPT 2 6 "Data "
COPY USE F_FROMDATE COPY USE F_FROMDATE
INPUT DATAREG F_TODATE INPUT DATAREG F_TODATE
INPUT NUMREG F_TOREG INPUT NUMREG F_TOREG
@ -77,6 +78,7 @@ END
STRING F_TOCAUS 3 STRING F_TOCAUS 3
BEGIN BEGIN
PROMPT 2 7 "Causale " PROMPT 2 7 "Causale "
FLAGS "U"
COPY USE F_FROMCAUS COPY USE F_FROMCAUS
INPUT CODCAUS F_TOCAUS INPUT CODCAUS F_TOCAUS
COPY DISPLAY F_FROMCAUS COPY DISPLAY F_FROMCAUS

20
cg/cg3400.cpp
View File

@ -866,7 +866,7 @@ void CG3400_application::fill_page(int riga)
{ {
TString256 rigas; TString256 rigas;
// char frm[4]; // char frm[4];
int r_l = printer().rows_left() - 1; int r_l = printer().rows_left() - 2; // Tolgo le 2 righe del totale!
// Se sono rimaste righe da riempire // Se sono rimaste righe da riempire
if (r_l > 0) if (r_l > 0)
@ -890,12 +890,12 @@ void CG3400_application::fill_page(int riga)
// } // }
int j=0; int j=0;
// Calcola una specie di coefficiente angolare // Calcola una specie di coefficiente angolare
int alfa = _stampa_width / r_l; int alfa = (_stampa_width - 6) / r_l;
while (--r_l && j + alfa < _stampa_width) for ( ; r_l > 1; r_l--) // Non stampare sulla riga orizzontale!
{ {
rigas.format("@%dg======", j); rigas.format("@%dg======", j);
set_row(riga++, "%s", (const char*)rigas); set_row(riga++, rigas);
j += alfa; j += alfa;
} }
} }
@ -1842,8 +1842,8 @@ void CG3400_application::init_print()
void CG3400_application::init_totals() void CG3400_application::init_totals()
{ {
_tot_dare_gg_ap = ZERO; _tot_dare_gg_ap = ZERO;
_tot_avere_gg_ap = ZERO; _tot_avere_gg_ap = ZERO;
_tot_dare_progr_ap = ZERO; _tot_dare_progr_ap = ZERO;
_tot_avere_progr_ap = ZERO; _tot_avere_progr_ap = ZERO;
_tot_dare_gg = ZERO; _tot_dare_gg = ZERO;
@ -1949,10 +1949,10 @@ bool CG3400_application::set_print(int)
if (tasto == K_ENTER) if (tasto == K_ENTER)
{ {
real dare2; real dare2;
_nprog_da = mb.get_long(N_RIGA_STAMPATO); _nprog_da = mb.get_long(N_RIGA_STAMPATO);
_last_data = mb.get(ULTIMA_DATA); _last_data = mb.get(ULTIMA_DATA);
dare2 = mb.get_long(PROGR_DARE); dare2 = mb.get_long(PROGR_DARE);
_pagina_da = mb.get_int(PAGINA_DA); _pagina_da = mb.get_int(PAGINA_DA);
// "Se l'utente cambia il progressivo dare, esso viene uguagliato all'avere" // "Se l'utente cambia il progressivo dare, esso viene uguagliato all'avere"
if (dare2 != _tot_dare) if (dare2 != _tot_dare)
{ {

2
cg/cglib02.cpp
View File

@ -86,7 +86,7 @@ TSaldo_agg::TSaldo_agg()
_num_ulmov = 0l; _num_ulmov = 0l;
_movap = FALSE; _movap = FALSE;
_provv = FALSE; _provv = FALSE;
reset(); // pulizia dell'array dei conti // reset(); // INUTILE pulizia dell'array dei conti
} }
void TSaldo_agg::aggiorna(const TBill& tc, const TImporto& imp, bool somma) void TSaldo_agg::aggiorna(const TBill& tc, const TImporto& imp, bool somma)

6
cg/pagament.cpp
View File

@ -377,8 +377,8 @@ const char* TPagamento::desc_tipo(int i) const
{ {
const char* o; const char* o;
switch (i) switch (i)
{ {
case 1: o = "Rimessa diretta / contanti"; break; case 1: o = "Rimessa diretta o contanti"; break;
case 2: o = "Tratta"; break; case 2: o = "Tratta"; break;
case 3: o = "Ricevuta bancaria"; break; case 3: o = "Ricevuta bancaria"; break;
case 4: o = "Cessione"; break; case 4: o = "Cessione"; break;
@ -386,7 +386,7 @@ const char* TPagamento::desc_tipo(int i) const
case 6: o = "Lettera di credito"; break; case 6: o = "Lettera di credito"; break;
case 7: o = "Tratta accettata"; break; case 7: o = "Tratta accettata"; break;
case 8: o = "Altro pagamento"; break; case 8: o = "Altro pagamento"; break;
} }
return o; return o;
} }