Patch level :
Files correlati : cg2.exe cg2100c.msk Ricompilazione Demo : [ ] Commento : Modificata modalità di pagamento per invio dati rilevanti git-svn-id: svn://10.65.10.50/branches/R_10_00@22421 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
parent
d1852229ad
commit
0e6be8865a
@ -4,6 +4,7 @@
|
||||
#include "../ca/movana.h"
|
||||
#include "../in/inlib01.h"
|
||||
|
||||
#include <dongle.h>
|
||||
#include <execp.h>
|
||||
#include <mailbox.h>
|
||||
#include <modaut.h>
|
||||
@ -665,6 +666,39 @@ void TPrimanota_application::fill_sheet(TMask& m) const
|
||||
}
|
||||
}
|
||||
|
||||
bool TPrimanota_application::can_I_write(const TRelation* rel) const
|
||||
{
|
||||
static int err = -1;
|
||||
if (err < 0)
|
||||
{
|
||||
Tdninst dninst;
|
||||
err = dninst.check_customer();
|
||||
if (err != 0)
|
||||
{
|
||||
TString html;
|
||||
html << "<html><body>"
|
||||
<< "<h5>Attenzione: chiave " << dongle().number() << " non riconosciuta.</h5>\n"
|
||||
<< "<p align=justify>Al fine di poter riattivare la chiave <b>" << dongle().product().before(" ")
|
||||
<< "</b> in oggetto e poter quindi effettuare registrazioni, "
|
||||
<< "La preghiamo di contattare Sirio informatica e sistemi ai seguenti riferimenti:</p><br/>"
|
||||
<< "<ul><li>Sara Coppini, segreteria commerciale: <br />"
|
||||
<< "<a href=mailto:scoppini@sirio-is.it>scoppini@sirio-is.it</a> Tel. 348-9897249</li>"
|
||||
<< "<li>Morena Martini, responsabile commerciale canale: <br />"
|
||||
<< "<a href=mailto:mmartini@sirio-is.it>mmartini@sirio-is.it</a> Tel. 349-3421433</li></ul>"
|
||||
<< "</body></html>";
|
||||
warning_box(html);
|
||||
}
|
||||
}
|
||||
|
||||
bool yes = TRelation_application::can_I_write(rel);
|
||||
if (yes && err > 0)
|
||||
{
|
||||
yes = rel != NULL && _rel->cg_items() > 0; // Posso registrare ma non inserire
|
||||
}
|
||||
|
||||
return yes;
|
||||
}
|
||||
|
||||
// Ritorna il prossimo numero di registrazione libero
|
||||
// Certified 100%
|
||||
bool TPrimanota_application::get_next_key(TToken_string& tmp)
|
||||
@ -1253,13 +1287,13 @@ void TPrimanota_application::check_saldi()
|
||||
int TPrimanota_application::write(const TMask& m)
|
||||
{
|
||||
static int lasterr = NOERR;
|
||||
|
||||
|
||||
const long numreg = m.get_long(F_NUMREG);
|
||||
if (numreg > _lastreg) _lastreg = numreg; // Aggiorna ultima registrazione libera
|
||||
|
||||
if (lasterr == NOERR)
|
||||
mask2rel(m); // Altrimenti raddoppia i saldi!
|
||||
|
||||
|
||||
_last_dreg = m.get(F_DATAREG);
|
||||
_last_dcom = m.get(F_DATACOMP);
|
||||
//l'handler della datacomp non viene chiamato quando il campo è read_only (vedi crpa e dinamica)
|
||||
|
@ -458,9 +458,9 @@ END
|
||||
LIST F_MODPAG 1 14
|
||||
BEGIN
|
||||
PROMPT 42 12 "Modalità pagamento "
|
||||
ITEM "3|Non frazionato"
|
||||
ITEM "1|Acconto"
|
||||
ITEM "2|Saldo"
|
||||
ITEM "1|Non frazionato"
|
||||
ITEM "2|Frazionato"
|
||||
ITEM "3|Periodico"
|
||||
MODULE fe
|
||||
GROUP 1 2
|
||||
FIELD MODPAG
|
||||
|
@ -188,6 +188,7 @@ protected: // TRelation_application
|
||||
virtual bool remove();
|
||||
virtual void write_enable(bool) {}
|
||||
virtual bool protected_record(TRectype& rec);
|
||||
virtual bool can_I_write(const TRelation* rel) const;
|
||||
|
||||
protected:
|
||||
void check_saldi();
|
||||
|
@ -1,8 +1,6 @@
|
||||
#include <xvt.h>
|
||||
|
||||
#include "cg7.h"
|
||||
|
||||
|
||||
int main(int argc,char** argv)
|
||||
{
|
||||
const int r = (argc > 1) ? atoi(&argv[1][1]) : -1;
|
||||
|
@ -6,12 +6,11 @@ TIPOCF|1|1|0|Tipo <C>liente <F>ornitore
|
||||
CODCF|3|6|0|Codice Cliente/Fornitore
|
||||
OCFPI|1|16|0|Codice occasionale
|
||||
NUMREG|3|7|0|Numero di registrazione originale
|
||||
IGNORA|8|1|0|Riga da ignorare
|
||||
IGNORA|2|2|0|Eventuale motivo per ignorare la riga (0 = da inviare)
|
||||
DATAREG|5|8|0|Data registrazione
|
||||
MODPAG|2|1|0|Modalità di pagamento (1=Acconto;2=Saldo;3=Non frazionato)
|
||||
IMPORTO|4|12|2|Importo dovuto
|
||||
IMPOSTA|4|12|2|Imposta
|
||||
NATOPE|2|1|0|Natura operazione
|
||||
TIPOPE|2|1|0|Tipo operazione
|
||||
CONTRATTO|1|18|0|Contratto
|
||||
IMPORTOTOT|4|12|2|Importo totale operazione (contratto)
|
||||
@ -20,4 +19,4 @@ NUMRETT|3|7|0|Numero di registrazione rettificata
|
||||
3
|
||||
ANNO+PROGR|
|
||||
ANNO+TIPOCF+CODCF+OCFPI+PROGR|
|
||||
NUMREG|X
|
||||
NUMREG+PROGR|
|
||||
|
Loading…
x
Reference in New Issue
Block a user