Patch level : 2.0 552
Files correlati : 771230la.msk 772mod.exe batbca7.msk Ricompilazione Demo : [ ] Commento : OB200012 772mod.exe -0 d: Quando premo alt+F4 compare il messaggio: 772MOD ha provocato un errore di pagina non valida nel modulo <sconosciuto> in 0000:xxxx OB200013 772mod.exe -1 d: Proporre come dafault nel campo Periodo A: DICEMBRE maschera: 772200a.msk OB200014 773mod.exe -3 %ca7; Mancano le nuove funzionalità della ricerca, avanzamento record etc. OB200015 771mod.exe -5 la: Fatal Error: Impossibile leggere il file 771230la.msk git-svn-id: svn://10.65.10.50/trunk@11382 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy
parent
2264b06901
commit
781526355c
@ -256,7 +256,7 @@ END
|
||||
|
||||
BOOLEAN 116
|
||||
BEGIN
|
||||
PROMPT 31 13 "Generata da schede"
|
||||
PROMPT 31 13 "Riga generata da schede"
|
||||
FLAGS "D"
|
||||
FIELD GENERATA
|
||||
END
|
||||
|
||||
@ -3,9 +3,9 @@
|
||||
#include <mask.h>
|
||||
#include <currency.h>
|
||||
#include <printapp.h>
|
||||
#include <recarray.h>
|
||||
#include <relation.h>
|
||||
#include <config.h>
|
||||
#include <tabutil.h>
|
||||
#include <sort.h>
|
||||
|
||||
#include "perc.h"
|
||||
@ -89,7 +89,7 @@ class TStampa_perc : public TPrintapp
|
||||
TSort* _sort;
|
||||
TVersamento_stampa _stvers;
|
||||
const char* _buf;
|
||||
TLocalisamfile* _nditte, *_anag, *_rpag, *_rver, *_comuni;
|
||||
TLocalisamfile *_anag, *_rpag, *_rver, *_comuni;
|
||||
TString16 _section;
|
||||
TConfig* _cnf;
|
||||
TString _ragsocER,_indER,_civER,_capER,_dencomER,_provER,_cofiER;
|
||||
@ -205,18 +205,14 @@ void TStampa_perc::do_sort(const TString& codqua,const TString& causqua,int codt
|
||||
|
||||
int TStampa_perc::ricerca_causale(TString& desc,TString& codqua)
|
||||
{
|
||||
TTable ca7 ("%CA7");
|
||||
TString16 dep;
|
||||
int cod = 0;
|
||||
|
||||
ca7.zero();
|
||||
dep.format("%02d", _codcaus);
|
||||
ca7.put("CODTAB", dep);
|
||||
if (ca7.read() == NOERR)
|
||||
TString4 dep; dep.format("%02d", _codcaus);
|
||||
const TRectype& ca7 = cache().get("%CA7", dep);
|
||||
if (!ca7.empty())
|
||||
{
|
||||
desc = ca7.get("S0");
|
||||
cod = ca7.get_int("I0");
|
||||
codqua = ca7.get("S1");
|
||||
desc = ca7.get("S0");
|
||||
cod = ca7.get_int("I0");
|
||||
codqua = ca7.get("S1");
|
||||
_artbil = ca7.get_int("I3");
|
||||
}
|
||||
return cod;
|
||||
@ -906,16 +902,14 @@ void TStampa_perc::preprocess_header()
|
||||
|
||||
void TStampa_perc::dati_erogante()
|
||||
{
|
||||
TString com,comnasc;
|
||||
TDate data;
|
||||
TString4 com,comnasc;
|
||||
// TDate data;
|
||||
|
||||
_nditte->setkey(1);
|
||||
_nditte->curr().zero();
|
||||
_nditte->curr().put(NDT_CODDITTA, _codditta);
|
||||
if (_nditte->read() == NOERR)
|
||||
const TRectype& nditte = cache().get(LF_NDITTE, _codditta);
|
||||
if (!nditte.empty())
|
||||
{
|
||||
_tipoaER = _nditte->get_char(NDT_TIPOA);
|
||||
_codanagER = _nditte->get_long(NDT_CODANAGR);
|
||||
_tipoaER = nditte.get_char(NDT_TIPOA);
|
||||
_codanagER = nditte.get_long(NDT_CODANAGR);
|
||||
}
|
||||
|
||||
_anag->setkey(1);
|
||||
@ -970,9 +964,9 @@ void TStampa_perc::dati_erogante()
|
||||
anagfis.put(ANF_CODANAGR, _codanagER);
|
||||
if (anagfis.read() == NOERR)
|
||||
{
|
||||
data = anagfis.get_date(ANF_DATANASC);
|
||||
const TDate data = anagfis.get(ANF_DATANASC);
|
||||
_datanascER = data.string();
|
||||
comnasc = anagfis.get (ANF_COMNASC);
|
||||
comnasc = anagfis.get(ANF_COMNASC);
|
||||
}
|
||||
|
||||
_comuni->setkey(1);
|
||||
@ -1166,7 +1160,6 @@ bool TStampa_perc::user_create()
|
||||
_cur = new TCursor(_rel,"",2);
|
||||
add_cursor(_cur);
|
||||
|
||||
_nditte = new TLocalisamfile (LF_NDITTE);
|
||||
_comuni = new TLocalisamfile (LF_COMUNI);
|
||||
_anag = new TLocalisamfile (LF_ANAG);
|
||||
_rpag = new TLocalisamfile (LF_RPAG);
|
||||
@ -1182,8 +1175,7 @@ bool TStampa_perc::user_create()
|
||||
bool TStampa_perc::user_destroy()
|
||||
{
|
||||
delete _rel;
|
||||
delete _cur;
|
||||
delete _nditte;
|
||||
// delete _cur; // Gia' distrutto dalla printapp!!
|
||||
delete _anag;
|
||||
delete _comuni;
|
||||
delete _rpag;
|
||||
|
||||
@ -608,9 +608,6 @@ void TSt_certif::postclose_print()
|
||||
bool TSt_certif::init_print()
|
||||
{
|
||||
TMask msk ("772200a");
|
||||
KEY tasto;
|
||||
TLocalisamfile& fl = _cur->file(LF_RPAG);
|
||||
|
||||
msk.set_handler (F_A, mese_handler);
|
||||
msk.set_handler (F_CODDITTA, codditta_hnd);
|
||||
|
||||
@ -626,11 +623,11 @@ bool TSt_certif::init_print()
|
||||
msk.set(F_LUOGO, address.get(0));
|
||||
}
|
||||
|
||||
// precarico numero attestazione
|
||||
msk.set(F_ATTESTA,1);
|
||||
msk.set(F_ATTESTA,1); // precarico numero attestazione
|
||||
msk.set(F_A, 12); // Imposto dicembre come mese finale
|
||||
|
||||
// esecuzione maschera
|
||||
tasto = msk.run();
|
||||
KEY tasto = msk.run();
|
||||
|
||||
if (tasto == K_ENTER)
|
||||
{
|
||||
@ -649,6 +646,7 @@ bool TSt_certif::init_print()
|
||||
|
||||
_off_lung = msk.get_int(F_LUNG);
|
||||
|
||||
TLocalisamfile& fl = _cur->file(LF_RPAG);
|
||||
TRectype da (fl.curr());
|
||||
TRectype a (fl.curr());
|
||||
|
||||
@ -716,7 +714,8 @@ bool TSt_certif::set_print(int)
|
||||
// init_print ritorna TRUE solo se K_ENTER
|
||||
if (init_print())
|
||||
print();
|
||||
else break;
|
||||
else
|
||||
break;
|
||||
}
|
||||
set_firm_770(codditta_prec);
|
||||
// Non richiamare di nuovo print()!
|
||||
|
||||
@ -3,7 +3,7 @@ TOOLBAR "" 0 20 0 2
|
||||
#include <toolbar.h>
|
||||
ENDPAGE
|
||||
|
||||
PAGE "Tabella causali " -1 -1 78 18
|
||||
PAGE "Causali 770" -1 -1 78 18
|
||||
|
||||
GROUPBOX DLG_NULL 77 12
|
||||
BEGIN
|
||||
@ -26,7 +26,7 @@ BEGIN
|
||||
OUTPUT F_CODTRIB I0
|
||||
OUTPUT F_QUADRAT S1
|
||||
OUTPUT F_QUADRCE2 S1
|
||||
FLAGS "RZ"
|
||||
FLAGS "Z"
|
||||
CHECKTYPE REQUIRED
|
||||
KEY 1
|
||||
END
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user