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

Corrette maschere di stampa, esteticamente (bottone stampa e fine) e

Browse Source 
funzionalmente (ricerche su tabelle che non esistono)


git-svn-id: svn://10.65.10.50/trunk@270 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy 1994-09-20 12:22:46 +00:00
parent a31f2fb728
commit 7147bd2803
17 changed files with 1065 additions and 1053 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

65
cg/Attic/cg1400.cpp
View File

@ -1,7 +1,8 @@
#include <applicat.h> #include <applicat.h>
#include <config.h>
#include <form.h>
#include <mask.h> #include <mask.h>
#include <relation.h> #include <relation.h>
#include <form.h>
#include <sheet.h> #include <sheet.h>
#include <tabutil.h> #include <tabutil.h>
#include <utility.h> #include <utility.h>
@ -14,7 +15,7 @@ class TStampa_deleghe_IVA : public TApplication
{ {
TArray_sheet* _ditte; TArray_sheet* _ditte;
int _mese, _anno, _tipo; int _mese, _anno, _tipo;
TString _azienda, _dipendenza; TString16 _azienda, _dipendenza;
bool _stampa_distinte, _aggiorna_codici, _stampa_prova; bool _stampa_distinte, _aggiorna_codici, _stampa_prova;
protected: protected:
@ -50,38 +51,42 @@ bool TStampa_deleghe_IVA::destroy()
int TStampa_deleghe_IVA::select() int TStampa_deleghe_IVA::select()
{ {
{ {
TMask m("cg1400a"); TMask m("cg1400a");
if (m.run() != K_ENTER) return 0; TConfig c(CONFIG_STUDIO, "cg");
m.set(F_ABI, c.get("CodABI"));
m.set(F_CAB, c.get("CodCAB"));
if (m.run() != K_ENTER)
return 0;
_azienda = m.get(F_ABI); _azienda = m.get(F_ABI);
_dipendenza = m.get(F_CAB); _dipendenza = m.get(F_CAB);
_mese = atoi(m.get(F_MESE)); _mese = m.get_int(F_MESE);
_anno = atoi(m.get(F_ANNO)); _anno = m.get_int(F_ANNO);
_tipo = atoi(m.get(F_TIPO)); _tipo = m.get_int(F_TIPO);
_stampa_prova = m.get_bool(F_PROVA); _stampa_prova = m.get_bool(F_PROVA);
_stampa_distinte = m.get_bool(F_DISTINTA); _stampa_distinte = m.get_bool(F_DISTINTA);
_aggiorna_codici = m.get_bool(F_AGGIORNA); _aggiorna_codici = m.get_bool(F_AGGIORNA);
TDate d(m.get(F_DATA)); const TDate d(m.get(F_DATA));
printer().setdate(d); printer().setdate(d);
} }
TLocalisamfile nditte(LF_NDITTE); TLocalisamfile nditte(LF_NDITTE);
TTable deleghe("%DEL"); TTable deleghe("%DEL");
TString chiave(16); TString16 chiave;
TToken_string d(80); TToken_string d(80);
_ditte->destroy(); _ditte->destroy();
for (nditte.first(); !nditte.eof(); nditte.next()) for (nditte.first(); !nditte.eof(); nditte.next())
{ {
const long dit = atol(nditte.get("CODDITTA")); const long dit = nditte.get_long("CODDITTA");
chiave = format("%05ld", dit); chiave.format("%05ld", dit);
chiave << format("%04d%02d%d", _anno, _mese, _tipo); chiave << format("%04d%02d%d", _anno, _mese, _tipo);
deleghe.put("CODTAB", chiave); deleghe.put("CODTAB", chiave);
if (deleghe.read() == NOERR && deleghe.get_bool("B0") == FALSE) // Da stampare if (deleghe.read() == NOERR && deleghe.get_bool("B0") == FALSE) // Da stampare
@ -90,30 +95,30 @@ int TStampa_deleghe_IVA::select()
d.add(chiave.left(5)); // Codice ditta d.add(chiave.left(5)); // Codice ditta
d.add(nditte.get("RAGSOC")); // Ragione sociale d.add(nditte.get("RAGSOC")); // Ragione sociale
real importo(deleghe.get("R0")); const real importo(deleghe.get("R0"));
d.add(importo.string(".")); // Importo d.add(importo.string(".")); // Importo
const long az = atol(deleghe.get("I0")); const long az = deleghe.get_long("I0");
d.add(format("%05ld", az)); // Azienda d.add(format("%05ld", az)); // Azienda
const long di = atol(deleghe.get("I1")); const long di = deleghe.get_long("I1");
d.add(format("%05ld", di)); // Dipendenza d.add(format("%05ld", di)); // Dipendenza
_ditte->add(d); _ditte->add(d);
} }
} }
if (_ditte->items() > 0) if (_ditte->items() > 0)
{ {
const bool ok = _ditte->run() == K_ENTER; const bool ok = _ditte->run() == K_ENTER;
if (ok) enable_menu_item(M_FILE_PRINT); if (ok) enable_menu_item(M_FILE_PRINT);
} }
else else
{ {
warning_box("Nessuna ditta ha deleghe da stampare"); warning_box("Nessuna ditta ha deleghe da stampare");
return 2; return 2;
} }
return 1; return 1;
} }
bool TStampa_deleghe_IVA::menu(MENU_TAG) bool TStampa_deleghe_IVA::menu(MENU_TAG)
@ -155,7 +160,7 @@ void TStampa_deleghe_IVA::print_distinta()
TTable banche("%BAN"); TTable banche("%BAN");
TRectype& banca = banche.curr(); TRectype& banca = banche.curr();
TString codban(16); TString16 codban;
if (_azienda.not_empty()) if (_azienda.not_empty())
{ {
codban = _azienda; codban << _dipendenza; codban = _azienda; codban << _dipendenza;

6
cg/Attic/cg1400a.uml
View File

@ -4,8 +4,9 @@ PAGE "STAMPA DELEGHE IVA" -1 -1 58 11
NUMBER F_ABI 5 NUMBER F_ABI 5
BEGIN BEGIN
PROMPT 1 1 "Codice Azienda " PROMPT 1 1 "Codice ABI "
FLAGS "RZ" FLAGS "RZ"
FIELD CNF_STUDIO->cg.CodABI
USE %BAN USE %BAN
INPUT CODTAB[1,5] F_ABI INPUT CODTAB[1,5] F_ABI
INPUT CODTAB[6,10] F_CAB INPUT CODTAB[6,10] F_CAB
@ -19,8 +20,9 @@ END
NUMBER F_CAB 5 NUMBER F_CAB 5
BEGIN BEGIN
PROMPT 25 1 "Codice Dipendenza " PROMPT 22 1 "Codice CAB "
FLAGS "RZ" FLAGS "RZ"
FIELD CNF_STUDIO->cg.CodCAB
COPY USE F_ABI COPY USE F_ABI
INPUT CODTAB[1,5] F_ABI INPUT CODTAB[1,5] F_ABI
INPUT CODTAB[6,10] F_CAB INPUT CODTAB[6,10] F_CAB

3
cg/cg0201.cpp
View File

@ -1,7 +1,10 @@
#include "cg0201.h" #include "cg0201.h"
<<<<<<< cg0201.cpp
=======
#include <lffiles.h> #include <lffiles.h>
#include <clifo.h> #include <clifo.h>
#include <indsp.h> #include <indsp.h>
>>>>>>> 1.4
extern bool gest_vend(); extern bool gest_vend();

97
cg/cg0500.cpp
View File

@ -263,34 +263,27 @@ bool CG0500_application::leggi_riga(int r, KEY k)
bool filtra_reg(const TRelation * r) bool filtra_reg(const TRelation * r)
{ {
const TString codtab(r->lfile()->get("CODTAB")); TFixed_string codtab(r->lfile()->get("CODTAB"));
int tiporeg = r->lfile()->get_int("I0"); const int anno = atoi(codtab.cut(4));
bool corrisp = r->lfile()->get_bool("B0"); if (anno == anno_iva())
{
const int anno = atoi(codtab.left(4)); const int tiporeg = r->lfile()->get_int("I0");
const bool corrisp = r->lfile()->get_bool("B0");
switch (app()->_filtro) switch (app()->_filtro)
{ {
case 1: case 1:
if (anno == anno_iva() && tiporeg == 1) return (tiporeg == 1);
return TRUE;
break;
case 2: case 2:
if (anno == anno_iva() && tiporeg == 1 && corrisp) return (tiporeg == 1 && corrisp);
return TRUE;
break;
case 3: case 3:
if (anno == anno_iva() && tiporeg == 2) return (tiporeg == 2);
return TRUE;
break;
case 4: // tiporeg 1 senza corrisp OPPURE 2 (NC ST ND AF) case 4: // tiporeg 1 senza corrisp OPPURE 2 (NC ST ND AF)
if (anno == anno_iva()) return ( (tiporeg == 1 && !corrisp) || tiporeg == 2 );
if ( (tiporeg == 1 && !corrisp) || tiporeg == 2 )
return TRUE;
break;
default: default:
return FALSE; return FALSE;
} }
}
return FALSE; return FALSE;
} }
@ -405,17 +398,16 @@ bool CG0500_application::tipodoc_hndl (TMask_field& f, KEY k)
} }
// Ma davvero esiste il registro ? // Ma davvero esiste il registro ?
TString16 codreg=f.mask().get(F_COD_REG); const TString16 codreg=f.mask().get(F_COD_REG);
if (codreg.not_empty()) if (codreg.not_empty())
{ {
TRegistro registro(codreg, anno_iva()); const TRegistro registro(codreg, anno_iva());
if (!registro.read(codreg, anno_iva())) if (!registro.ok())
return f.warning_box("Non esiste il registro %s per l'anno %d", return f.error_box("Non esiste il registro %s per l'anno %d",
(const char *)codreg, anno_iva()); (const char*)codreg, anno_iva());
} }
app()->MostraCampi(f); app()->MostraCampi(f);
if (f.focusdirty())
app()->fill_sheet(f.mask()); app()->fill_sheet(f.mask());
} }
return TRUE; return TRUE;
@ -423,7 +415,8 @@ bool CG0500_application::tipodoc_hndl (TMask_field& f, KEY k)
bool CG0500_application::tipomov_hndl (TMask_field& f, KEY k) bool CG0500_application::tipomov_hndl (TMask_field& f, KEY k)
{ {
if (k == K_SPACE) { if (k == K_SPACE)
{
app()->MostraCampi(f); app()->MostraCampi(f);
if (f.focusdirty()) app()->fill_sheet(f.mask()); if (f.focusdirty()) app()->fill_sheet(f.mask());
} }
@ -434,8 +427,9 @@ bool CG0500_application::tipomov_hndl (TMask_field& f, KEY k)
// essere puramente contabile (= codreg vuoto e tpm = Nessuno // essere puramente contabile (= codreg vuoto e tpm = Nessuno
bool CG0500_application::codcausim_hndl (TMask_field& f, KEY k) bool CG0500_application::codcausim_hndl (TMask_field& f, KEY k)
{ {
if (f.to_check(k)) { if (f.to_check(k))
TString16 causim(f.get()); {
const TString16 causim(f.get());
TLocalisamfile& caus = *app()->_rel->lfile(LF_CAUSALI); TLocalisamfile& caus = *app()->_rel->lfile(LF_CAUSALI);
caus.zero(); caus.zero();
caus.put(CAU_CODCAUS, causim); caus.put(CAU_CODCAUS, causim);
@ -456,7 +450,7 @@ bool CG0500_application::MostraCampi(TMask_field& f)
{ {
TMask& m = f.mask(); TMask& m = f.mask();
const int tpm = m.get_int(F_TIPO_MOV); const int tpm = m.get_int(F_TIPO_MOV);
TString16 codreg = m.get(F_COD_REG); const TString16 codreg = m.get(F_COD_REG);
if (codreg.empty()) if (codreg.empty())
{ {
m.hide(F_AUTO_FAT); m.hide(F_AUTO_FAT);
@ -464,9 +458,10 @@ bool CG0500_application::MostraCampi(TMask_field& f)
m.hide(F_FAT_RITARDO); m.hide(F_FAT_RITARDO);
m.hide(F_OP_INTRACOM); m.hide(F_OP_INTRACOM);
m.hide(F_VALINTRA); m.hide(F_VALINTRA);
if (salda_conto()) m.hide(F_COD_CAUS_IM); if (salda_conto())
m.hide(F_COD_CAUS_IM);
switch (tpm) { switch (tpm)
{
case 0: case 0:
m.show(F_OP_FINE_ANNO); m.show(F_OP_FINE_ANNO);
m.show(F_COLL_CESP); m.show(F_COLL_CESP);
@ -487,7 +482,8 @@ bool CG0500_application::MostraCampi(TMask_field& f)
break; break;
} }
} }
else { // codreg non vuoto else
{ // codreg non vuoto
m.hide(F_OP_FINE_ANNO); m.hide(F_OP_FINE_ANNO);
m.hide(F_MOV_SEZ); m.hide(F_MOV_SEZ);
if (gestione_valuta()) m.show(F_MOV_VALU); if (gestione_valuta()) m.show(F_MOV_VALU);
@ -504,9 +500,11 @@ bool CG0500_application::MostraCampi(TMask_field& f)
bool CG0500_application::cod_reg_hndl (TMask_field& f, KEY k) bool CG0500_application::cod_reg_hndl (TMask_field& f, KEY k)
{ {
if (k == K_TAB) { if (k == K_TAB)
{
app()->MostraCampi(f); app()->MostraCampi(f);
if (f.focusdirty()) app()->fill_sheet(f.mask()); if (f.focusdirty())
app()->fill_sheet(f.mask());
return TRUE; return TRUE;
} }
@ -528,7 +526,8 @@ bool CG0500_application::cod_reg_hndl (TMask_field& f, KEY k)
i = (TipoIVA)tabtpd.get_int("I0"); // IVA acquisti, vendite, generica i = (TipoIVA)tabtpd.get_int("I0"); // IVA acquisti, vendite, generica
const TipoIVA ri = grog.iva(); const TipoIVA ri = grog.iva();
if (i == iva_generica) i = ri; if (i == iva_generica) i = ri;
if (i != ri) { if (i != ri)
{
return f.warning_box("Tipo documento incompatibile con tipo registro"); return f.warning_box("Tipo documento incompatibile con tipo registro");
i = iva_errata; i = iva_errata;
} }
@ -765,7 +764,8 @@ void CG0500_application::compilaarray(const TString& tpd, int tpm, int tpr, int
{ {
if (salda_conto()) if (salda_conto())
{ {
switch (tpm) { switch (tpm)
{
case 3: case 3:
case 5: case 5:
case 6: case 6:
@ -774,7 +774,8 @@ void CG0500_application::compilaarray(const TString& tpd, int tpm, int tpr, int
case 0: case 0:
if (m770 == 6) if (m770 == 6)
_righe_rcaus.CausaleRitenutaOccas(); _righe_rcaus.CausaleRitenutaOccas();
else { else
{
_forcedCopy = TRUE; _forcedCopy = TRUE;
_righe_rcaus.ClearDescr(); _righe_rcaus.ClearDescr();
_righe_rcaus.CaricaRigheLibere(); _righe_rcaus.CaricaRigheLibere();
@ -787,7 +788,8 @@ void CG0500_application::compilaarray(const TString& tpd, int tpm, int tpr, int
break; break;
} }
} }
else { // NO saldaconto else
{ // NO saldaconto
_forcedCopy = TRUE; _forcedCopy = TRUE;
_righe_rcaus.ClearDescr(); _righe_rcaus.ClearDescr();
_righe_rcaus.CaricaRigheLibere(); _righe_rcaus.CaricaRigheLibere();
@ -913,18 +915,22 @@ bool CG0500_application::descr2array(TMask& m, bool fromHandler)
int tpm, m770, tpr; int tpm, m770, tpr;
// if (m.mode() == MODE_MOD && !fromHandler) // if (m.mode() == MODE_MOD && !fromHandler)
if (fromHandler) { if (fromHandler)
{
codreg = m.field(F_COD_REG).get(); codreg = m.field(F_COD_REG).get();
tpd = m.field(F_TIPO_DOC).get(); tpd = m.field(F_TIPO_DOC).get();
tpm = m.get_int(F_TIPO_MOV); tpm = m.get_int(F_TIPO_MOV);
m770 = m.get_int(F_M_770); m770 = m.get_int(F_M_770);
} else if (m.mode() == MODE_MOD) { }
else if (m.mode() == MODE_MOD)
{
codreg = caus.get("REG"); codreg = caus.get("REG");
tpd = caus.get("TIPODOC"); tpd = caus.get("TIPODOC");
tpm = caus.get_int("TIPOMOV"); tpm = caus.get_int("TIPOMOV");
m770 = caus.get_int("M770"); m770 = caus.get_int("M770");
} }
else { // sono in inserimento e prima di entrare negli handler else
{ // sono in inserimento e prima di entrare negli handler
codreg = m.field(F_COD_REG).get(); codreg = m.field(F_COD_REG).get();
tpd = m.field(F_TIPO_DOC).get(); tpd = m.field(F_TIPO_DOC).get();
tpm = m.get_int(F_TIPO_MOV); tpm = m.get_int(F_TIPO_MOV);
@ -933,7 +939,8 @@ bool CG0500_application::descr2array(TMask& m, bool fromHandler)
if (fromHandler) if (fromHandler)
tpr = m.get_int(F_TIPO_REG); tpr = m.get_int(F_TIPO_REG);
else { else
{
TString16 chiave; chiave << anno_iva() << codreg; TString16 chiave; chiave << anno_iva() << codreg;
TTable reg("REG"); TTable reg("REG");
reg.put("CODTAB", chiave); reg.put("CODTAB", chiave);
@ -1094,13 +1101,15 @@ bool CG0500_application::user_create()
_msk = new TMask("cg0500a"); _msk = new TMask("cg0500a");
if (!salda_conto()) { if (!salda_conto())
{
_msk->hide (F_MOV_SEZ); _msk->hide (F_MOV_SEZ);
_msk->hide (F_TIPO_MOV_1); _msk->hide (F_TIPO_MOV_1);
_msk->hide (F_TIPO_MOV_2); _msk->hide (F_TIPO_MOV_2);
_msk->show (F_COD_CAUS_IM); _msk->show (F_COD_CAUS_IM);
} }
else { else
{
_msk->show (F_MOV_SEZ); _msk->show (F_MOV_SEZ);
_msk->hide (F_COD_CAUS_IM); _msk->hide (F_COD_CAUS_IM);
} }

4
cg/cg0500b.uml
View File

@ -157,9 +157,9 @@ BEGIN
DISPLAY "Gruppo" GRUPPO DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO DISPLAY "Conto" CONTO
DISPLAY "Sottoconto" SOTTOCONTO DISPLAY "Sottoconto" SOTTOCONTO
OUTPUT 103 GRUPPO
OUTPUT 104 CONTO
OUTPUT 105 SOTTOCONTO OUTPUT 105 SOTTOCONTO
OUTPUT 104 CONTO
OUTPUT 103 GRUPPO
OUTPUT 107 DESCR OUTPUT 107 DESCR
// MESSAGE COPY, 207 // MESSAGE COPY, 207
// MESSAGE COPY, 307 // MESSAGE COPY, 307

15
cg/cg0501.cpp
View File

@ -11,11 +11,16 @@ const char* iva2name(TipoIVA iva)
const char* i; const char* i;
switch(iva) switch(iva)
{ {
case nessuna_iva : i = "Nessuna IVA"; break; case nessuna_iva :
case iva_acquisti: i = "IVA Acquisti"; break; i = "Nessuna IVA"; break;
case iva_vendite : i = "IVA Vendite"; break; case iva_acquisti:
case iva_generica: i = "IVA Generica"; break; i = "IVA Acquisti"; break;
default : i = "IVA ERRATA!"; break; case iva_vendite :
i = "IVA Vendite"; break;
case iva_generica:
i = "IVA Generica"; break;
default :
i = "IVA ERRATA!"; break;
} }
return i; return i;

65
cg/cg1400.cpp
View File

@ -1,7 +1,8 @@
#include <applicat.h> #include <applicat.h>
#include <config.h>
#include <form.h>
#include <mask.h> #include <mask.h>
#include <relation.h> #include <relation.h>
#include <form.h>
#include <sheet.h> #include <sheet.h>
#include <tabutil.h> #include <tabutil.h>
#include <utility.h> #include <utility.h>
@ -14,7 +15,7 @@ class TStampa_deleghe_IVA : public TApplication
{ {
TArray_sheet* _ditte; TArray_sheet* _ditte;
int _mese, _anno, _tipo; int _mese, _anno, _tipo;
TString _azienda, _dipendenza; TString16 _azienda, _dipendenza;
bool _stampa_distinte, _aggiorna_codici, _stampa_prova; bool _stampa_distinte, _aggiorna_codici, _stampa_prova;
protected: protected:
@ -50,38 +51,42 @@ bool TStampa_deleghe_IVA::destroy()
int TStampa_deleghe_IVA::select() int TStampa_deleghe_IVA::select()
{ {
{ {
TMask m("cg1400a"); TMask m("cg1400a");
if (m.run() != K_ENTER) return 0; TConfig c(CONFIG_STUDIO, "cg");
m.set(F_ABI, c.get("CodABI"));
m.set(F_CAB, c.get("CodCAB"));
if (m.run() != K_ENTER)
return 0;
_azienda = m.get(F_ABI); _azienda = m.get(F_ABI);
_dipendenza = m.get(F_CAB); _dipendenza = m.get(F_CAB);
_mese = atoi(m.get(F_MESE)); _mese = m.get_int(F_MESE);
_anno = atoi(m.get(F_ANNO)); _anno = m.get_int(F_ANNO);
_tipo = atoi(m.get(F_TIPO)); _tipo = m.get_int(F_TIPO);
_stampa_prova = m.get_bool(F_PROVA); _stampa_prova = m.get_bool(F_PROVA);
_stampa_distinte = m.get_bool(F_DISTINTA); _stampa_distinte = m.get_bool(F_DISTINTA);
_aggiorna_codici = m.get_bool(F_AGGIORNA); _aggiorna_codici = m.get_bool(F_AGGIORNA);
TDate d(m.get(F_DATA)); const TDate d(m.get(F_DATA));
printer().setdate(d); printer().setdate(d);
} }
TLocalisamfile nditte(LF_NDITTE); TLocalisamfile nditte(LF_NDITTE);
TTable deleghe("%DEL"); TTable deleghe("%DEL");
TString chiave(16); TString16 chiave;
TToken_string d(80); TToken_string d(80);
_ditte->destroy(); _ditte->destroy();
for (nditte.first(); !nditte.eof(); nditte.next()) for (nditte.first(); !nditte.eof(); nditte.next())
{ {
const long dit = atol(nditte.get("CODDITTA")); const long dit = nditte.get_long("CODDITTA");
chiave = format("%05ld", dit); chiave.format("%05ld", dit);
chiave << format("%04d%02d%d", _anno, _mese, _tipo); chiave << format("%04d%02d%d", _anno, _mese, _tipo);
deleghe.put("CODTAB", chiave); deleghe.put("CODTAB", chiave);
if (deleghe.read() == NOERR && deleghe.get_bool("B0") == FALSE) // Da stampare if (deleghe.read() == NOERR && deleghe.get_bool("B0") == FALSE) // Da stampare
@ -90,30 +95,30 @@ int TStampa_deleghe_IVA::select()
d.add(chiave.left(5)); // Codice ditta d.add(chiave.left(5)); // Codice ditta
d.add(nditte.get("RAGSOC")); // Ragione sociale d.add(nditte.get("RAGSOC")); // Ragione sociale
real importo(deleghe.get("R0")); const real importo(deleghe.get("R0"));
d.add(importo.string(".")); // Importo d.add(importo.string(".")); // Importo
const long az = atol(deleghe.get("I0")); const long az = deleghe.get_long("I0");
d.add(format("%05ld", az)); // Azienda d.add(format("%05ld", az)); // Azienda
const long di = atol(deleghe.get("I1")); const long di = deleghe.get_long("I1");
d.add(format("%05ld", di)); // Dipendenza d.add(format("%05ld", di)); // Dipendenza
_ditte->add(d); _ditte->add(d);
} }
} }
if (_ditte->items() > 0) if (_ditte->items() > 0)
{ {
const bool ok = _ditte->run() == K_ENTER; const bool ok = _ditte->run() == K_ENTER;
if (ok) enable_menu_item(M_FILE_PRINT); if (ok) enable_menu_item(M_FILE_PRINT);
} }
else else
{ {
warning_box("Nessuna ditta ha deleghe da stampare"); warning_box("Nessuna ditta ha deleghe da stampare");
return 2; return 2;
} }
return 1; return 1;
} }
bool TStampa_deleghe_IVA::menu(MENU_TAG) bool TStampa_deleghe_IVA::menu(MENU_TAG)
@ -155,7 +160,7 @@ void TStampa_deleghe_IVA::print_distinta()
TTable banche("%BAN"); TTable banche("%BAN");
TRectype& banca = banche.curr(); TRectype& banca = banche.curr();
TString codban(16); TString16 codban;
if (_azienda.not_empty()) if (_azienda.not_empty())
{ {
codban = _azienda; codban << _dipendenza; codban = _azienda; codban << _dipendenza;

6
cg/cg1400a.uml
View File

@ -4,8 +4,9 @@ PAGE "STAMPA DELEGHE IVA" -1 -1 58 11
NUMBER F_ABI 5 NUMBER F_ABI 5
BEGIN BEGIN
PROMPT 1 1 "Codice Azienda " PROMPT 1 1 "Codice ABI "
FLAGS "RZ" FLAGS "RZ"
FIELD CNF_STUDIO->cg.CodABI
USE %BAN USE %BAN
INPUT CODTAB[1,5] F_ABI INPUT CODTAB[1,5] F_ABI
INPUT CODTAB[6,10] F_CAB INPUT CODTAB[6,10] F_CAB
@ -19,8 +20,9 @@ END
NUMBER F_CAB 5 NUMBER F_CAB 5
BEGIN BEGIN
PROMPT 25 1 "Codice Dipendenza " PROMPT 22 1 "Codice CAB "
FLAGS "RZ" FLAGS "RZ"
FIELD CNF_STUDIO->cg.CodCAB
COPY USE F_ABI COPY USE F_ABI
INPUT CODTAB[1,5] F_ABI INPUT CODTAB[1,5] F_ABI
INPUT CODTAB[6,10] F_CAB INPUT CODTAB[6,10] F_CAB

13
cg/cg1700.cpp
View File

@ -20,8 +20,8 @@ enum descr {causale, conto};
class CG1700_application : public TPrintapp class CG1700_application : public TPrintapp
{ {
TLocalisamfile * _caus, * _rcaus, * _clifo, * _pcon, * _nditte, * _anag, * _com;
TRelation * _rel; TRelation * _rel;
TLocalisamfile * _clifo, * _pcon, * _nditte, * _anag, * _com;
TCursor * _cur; TCursor * _cur;
TMask * _msk; TMask * _msk;
TParagraph_string * _descr_causale, * _descr_conto; TParagraph_string * _descr_causale, * _descr_conto;
@ -108,7 +108,7 @@ void CG1700_application::get_dati_ditta()
int CG1700_application::stampa_intestazione_ditta() int CG1700_application::stampa_intestazione_ditta()
{ {
int r = 1; int r = 1;
TString codice_ditta; TString16 codice_ditta;
TString riga(132); TString riga(132);
get_dati_ditta(); get_dati_ditta();
@ -237,10 +237,7 @@ void CG1700_application::setta_righe_descr(TParagraph_string* str, enum descr de
bool CG1700_application::set_print(int) bool CG1700_application::set_print(int)
{ {
KEY tasto; const KEY tasto = _msk->run();
tasto = _msk->run();
if (tasto == K_ENTER) if (tasto == K_ENTER)
{ {
_data = _msk->get(F_DATASTAMPA); _data = _msk->get(F_DATASTAMPA);
@ -259,8 +256,6 @@ void CG1700_application::user_create()
_cur = new TCursor (_rel,"", 1); _cur = new TCursor (_rel,"", 1);
add_cursor(_cur); add_cursor(_cur);
_caus = new TLocalisamfile(LF_CAUSALI);
_rcaus = new TLocalisamfile(LF_RCAUSALI);
_com = new TLocalisamfile(LF_COMUNI); _com = new TLocalisamfile(LF_COMUNI);
_pcon = new TLocalisamfile(LF_PCON); _pcon = new TLocalisamfile(LF_PCON);
_clifo = new TLocalisamfile(LF_CLIFO); _clifo = new TLocalisamfile(LF_CLIFO);
@ -279,9 +274,7 @@ void CG1700_application::user_destroy()
delete _cur; delete _cur;
delete _rel; delete _rel;
delete _clifo; delete _clifo;
delete _caus;
delete _com; delete _com;
delete _rcaus;
delete _pcon; delete _pcon;
delete _nditte; delete _nditte;
delete _anag; delete _anag;

5
cg/cg1700a.uml
View File

@ -27,9 +27,10 @@ BEGIN
FLAGS "A" FLAGS "A"
END END
BUTTON DLG_OK 10 2 BUTTON DLG_PRINT 10 2
BEGIN BEGIN
PROMPT -12 -1 "" PROMPT -12 -1 "~Stampa"
MESSAGE EXIT,K_ENTER
END END
BUTTON DLG_QUIT 10 2 BUTTON DLG_QUIT 10 2

7
cg/cg3100a.uml
View File

@ -1,6 +1,6 @@
#include "cg3100.h" #include "cg3100.h"
PAGE "" -1 -1 76 20 PAGE "Lista Movimenti" -1 -1 76 20
NUMBER F_CODDITTA 5 NUMBER F_CODDITTA 5
BEGIN BEGIN
@ -199,9 +199,10 @@ BEGIN
END END
*/ */
BUTTON DLG_OK 9 2 BUTTON DLG_PRINT 9 2
BEGIN BEGIN
PROMPT -12 -1 "" PROMPT -12 -1 "~Stampa"
MESSAGE EXIT,K_ENTER
END END
BUTTON DLG_QUIT 9 2 BUTTON DLG_QUIT 9 2

8
cg/cg3200a.uml
View File

@ -1,7 +1,6 @@
#include "cg3200.h" #include "cg3200.h"
PAGE "" -1 -1 78 20 PAGE "Mastrini" -1 -1 78 20
NUMBER F_CODDITTA 5 NUMBER F_CODDITTA 5
BEGIN BEGIN
@ -558,9 +557,10 @@ BEGIN
ITEM "2|Due" ITEM "2|Due"
END END
BUTTON DLG_OK 9 2 BUTTON DLG_PRINT 9 2
BEGIN BEGIN
PROMPT -12 -1 "" PROMPT -12 -1 "~Stampa"
MESSAGE EXIT,K_ENTER
END END
BUTTON DLG_QUIT 9 2 BUTTON DLG_QUIT 9 2

76
cg/cg3400.cpp
View File

@ -1,10 +1,7 @@
// cg3400 - Stampa libro giornale // cg3400 - Stampa libro giornale
#include <applicat.h>
#include <isam.h> #include <isam.h>
#include <date.h>
#include <mask.h> #include <mask.h>
#include <lffiles.h>
#include <utility.h> #include <utility.h>
#include <tabutil.h> #include <tabutil.h>
#include <urldefid.h> #include <urldefid.h>
@ -176,7 +173,7 @@ bool CG3400_application::IsInEsercizio (TDate& da, TDate& a, int anno_eser)
if (!da.ok() || !a.ok()) return FALSE; if (!da.ok() || !a.ok()) return FALSE;
codtab.format ("%-4d", anno_eser); codtab.format ("%04d", anno_eser);
TabEs.zero(); TabEs.zero();
TabEs.put ("CODTAB", codtab); TabEs.put ("CODTAB", codtab);
TabEs.read(); TabEs.read();
@ -1146,15 +1143,20 @@ int CG3400_application::setta_righe_iva()
set_row(r, "@58gCodice Iva@68g%3s", (const char*)riga._codiva); set_row(r, "@58gCodice Iva@68g%3s", (const char*)riga._codiva);
switch (riga._tipodet) switch (riga._tipodet)
{ {
case 0 : set_row(r, "@73gDetraibile"); case 0 :
set_row(r, "@73gDetraibile");
break; break;
case 1 : set_row(r, "@73gIndetraibile su op.es."); case 1 :
set_row(r, "@73gIndetraibile su op.es.");
break; break;
case 3 : set_row(r, "@73gPassaggi interni"); case 3 :
set_row(r, "@73gPassaggi interni");
break; break;
case 9 : set_row(r, "@73gIndetraibile art.19"); case 9 :
set_row(r, "@73gIndetraibile art.19");
break;
default:
break; break;
default: break;
} }
} }
_iva_array.destroy(); _iva_array.destroy();
@ -1303,7 +1305,7 @@ HIDDEN int date2esc(const TDate& d, int* prevesc)
bool CG3400_application::mask_a_data (TMask_field& f, KEY k) bool CG3400_application::mask_a_data (TMask_field& f, KEY k)
{ {
if (k == K_ENTER) if (k == K_TAB && f.focusdirty() || k == K_ENTER)
{ {
TMask& m = f.mask(); TMask& m = f.mask();
const TDate data_a(f.get()); const TDate data_a(f.get());
@ -1313,26 +1315,28 @@ bool CG3400_application::mask_a_data (TMask_field& f, KEY k)
if (ae == 0) if (ae == 0)
return f.error_box("La data specificata non appartiene a nessun esercizio"); return f.error_box("La data specificata non appartiene a nessun esercizio");
TRegistro reg(codreg, ae); const TRegistro reg(codreg, ae);
if (!reg.ok()) if (!reg.ok())
return f.warning_box("Non trovo il registro %s per l'esercizio %d", return f.warning_box("Non trovo il registro %s per l'esercizio %d",
(const char *) codreg, ae); (const char *)codreg, ae);
if (reg.tipo() != 5) if (reg.tipo() != 5)
return f.warning_box("Il registro %s non e' di tipo libro giornale", return f.warning_box("Il registro %s non e' di tipo libro giornale",
(const char *) codreg); (const char *)codreg);
if (definitiva) if (!definitiva)
{ {
const TDate data_da(m.get(DATA_DA)); const TDate data_da(m.get(DATA_DA));
// se la stampa e' di prova DALLA_DATA e' obbligatoria // se la stampa e' di prova DALLA_DATA e' obbligatoria
if (!data_da.ok()) if (!data_da.ok())
return f.warning_box("Manca la data di partenza"); return f.warning_box("Manca la data di partenza");
if (data_da < app()->_inizioEs);
if (data_da < app()->_inizioEs || data_a > app()->_fineEs); return f.error_box("La data iniziale non appartiene all'esercizio %d, che inizia il %s",
return f.warning_box("Le date specificate non appartengono allo stesso esercizio"); ae, (app()->_inizioEs).string());
} }
if (data_a > app()->_fineEs);
return f.error_box("La data finale non appartiene all'esercizio %d, che termina il %s)",
ae, (app()->_fineEs).string());
} }
return TRUE; return TRUE;
} }
@ -1359,15 +1363,13 @@ bool CG3400_application::mask_a_cod_reg (TMask_field& f, KEY k)
a->leggi_tabreg(reg_cod, a->_ae); a->leggi_tabreg(reg_cod, a->_ae);
TString pag(8), stok(8);
pag << (a->_pagine_stampate+1);
stok << a->_stampa_ok;
if (definitiva) if (definitiva)
{
if (a->_stampa_ok == -1) // stampa precedente andata bene if (a->_stampa_ok == -1) // stampa precedente andata bene
m.field(PAGINA_DA).set(pag); m.set(PAGINA_DA, a->_pagine_stampate+1);
else else
m.field(PAGINA_DA).set(stok); m.set(PAGINA_DA, a->_stampa_ok);
}
} }
return TRUE; return TRUE;
} }
@ -1380,13 +1382,12 @@ bool CG3400_application::mask_a_cod_reg (TMask_field& f, KEY k)
// //
bool CG3400_application::mask_b_ripristina (TMask_field& f, KEY k) bool CG3400_application::mask_b_ripristina (TMask_field& f, KEY k)
{ {
CG3400_application * a = (CG3400_application*) MainApp();
if (k == K_TAB) if (k == K_TAB)
{ {
f.mask().field(PROGR_DARE).set(a->_tot_dare.string()); CG3400_application& a = (CG3400_application&)main_app();
f.mask().field(ULTIMA_DATA).set(a->_last_data.string()); f.mask().set(PROGR_DARE, a._tot_dare.string());
f.mask().field(N_RIGA_STAMPATO).set(format ("%6d", a->_nprog_da)); f.mask().set(ULTIMA_DATA, a._last_data.string());
f.mask().set(N_RIGA_STAMPATO, a._nprog_da);
} }
return TRUE; return TRUE;
} }
@ -1394,13 +1395,11 @@ bool CG3400_application::mask_b_ripristina (TMask_field& f, KEY k)
bool CG3400_application::set_print(int) bool CG3400_application::set_print(int)
{ {
TMask ma ("cg3400a"); TMask ma ("cg3400a");
TMask mb ("cg3400b");
KEY tasto; KEY tasto;
ma.set_handler (CODREG, mask_a_cod_reg); ma.set_handler (CODREG, mask_a_cod_reg);
// ma.set_handler (DATA_DA, mask_a_data); // ma.set_handler (DATA_DA, mask_a_data);
ma.set_handler (DATA_A, mask_a_data); ma.set_handler (DATA_A, mask_a_data);
mb.set_handler (DLG_RIPRISTINA, mask_b_ripristina);
// m.set_handler (REG_ANNO, mask_set_pagina_da); // m.set_handler (REG_ANNO, mask_set_pagina_da);
// m.set_handler (REG_DESC, mask_set_pagina_da); // m.set_handler (REG_DESC, mask_set_pagina_da);
@ -1410,12 +1409,12 @@ bool CG3400_application::set_print(int)
if (tasto == K_ENTER) if (tasto == K_ENTER)
{ {
_reg_cod = ma.get(CODREG); _reg_cod = ma.get(CODREG);
_stampa_definitiva = (bool) (ma.get(STAMPA_DEF) == "X"); _stampa_definitiva = ma.get_bool(STAMPA_DEF);
_data_da = ma.get(DATA_DA); _data_da = ma.get(DATA_DA);
_data_a = ma.get(DATA_A); _data_a = ma.get(DATA_A);
_pagina_da = atoi(ma.get(PAGINA_DA)); _pagina_da = ma.get_int(PAGINA_DA);
_stampa_width = (int)ma.get_long(STAMPA_WIDTH); _stampa_width = ma.get_int(STAMPA_WIDTH);
_stampa_len = (int)ma.get_long(STAMPA_LEN); _stampa_len = ma.get_int(STAMPA_LEN);
// Se stampa definita DALLA_DATA e' l'ultima data di stampa del // Se stampa definita DALLA_DATA e' l'ultima data di stampa del
// registro, se indicata, oppure la data di inizio esercizio // registro, se indicata, oppure la data di inizio esercizio
@ -1438,14 +1437,15 @@ bool CG3400_application::set_print(int)
if (_stampa_definitiva) if (_stampa_definitiva)
{ {
TMask mb("cg3400b");
mb.set_handler (DLG_RIPRISTINA, mask_b_ripristina);
mb.set (PROGR_DARE, _tot_dare.string()); mb.set (PROGR_DARE, _tot_dare.string());
mb.set (N_RIGA_STAMPATO, _nprog_da); mb.set (N_RIGA_STAMPATO, _nprog_da);
mb.set (ULTIMA_DATA, _last_data.string()); mb.set (ULTIMA_DATA, _last_data.string());
tasto = mb.run(); tasto = mb.run();
}
}
return (tasto == K_ENTER); return (tasto == K_ENTER);
}
}
return FALSE;
} }
int cg3400 (int argc, char * argv[]) int cg3400 (int argc, char * argv[])

10
cg/cg3400a.uml
View File

@ -1,6 +1,6 @@
#include "cg3400a.h" #include "cg3400a.h"
PAGE "" -1 -1 70 15 PAGE "Stampa Libro Giornale" -1 -1 70 15
STRING CODREG 3 STRING CODREG 3
BEGIN BEGIN
@ -30,7 +30,6 @@ BEGIN
DISPLAY "Anno" CODTAB DISPLAY "Anno" CODTAB
DISPLAY "Data inizio " D0 DISPLAY "Data inizio " D0
DISPLAY "Data fine " D1 DISPLAY "Data fine " D1
DISPLAY "Data scarico" D2
OUTPUT ANNO_ESER CODTAB OUTPUT ANNO_ESER CODTAB
// CHECKTYPE REQUIRED // CHECKTYPE REQUIRED
FLAGS "HRZ" FLAGS "HRZ"
@ -96,12 +95,13 @@ BEGIN
MESSAGE FALSE ENABLE,DATA_DA MESSAGE FALSE ENABLE,DATA_DA
END END
BUTTON DLG_OK 9 2 BUTTON DLG_PRINT 9 2
BEGIN BEGIN
PROMPT -12 -1 "" PROMPT -12 -1 "~Stampa"
MESSAGE EXIT,K_ENTER
END END
BUTTON DLG_CANCEL 9 2 BUTTON DLG_QUIT 9 2
BEGIN BEGIN
PROMPT -22 -1 "" PROMPT -22 -1 ""
END END

11
cg/cg4400a.uml
View File

@ -74,8 +74,8 @@ END
BUTTON F_ANNULLA 9 BUTTON F_ANNULLA 9
BEGIN BEGIN
PROMPT 42 3 "Annulla" PROMPT 42 3 "Azzera"
//MESSAGE EXIT,F_ANNULLA MESSAGE RESET,DA_CODICE|RESET,A_CODICE
END END
BUTTON F_VERIFICA 9 BUTTON F_VERIFICA 9
@ -220,12 +220,13 @@ BEGIN
GROUP 2 GROUP 2
END END
BUTTON DLG_OK 9 2 BUTTON DLG_PRINT 9 2
BEGIN BEGIN
PROMPT -12 -1 "" PROMPT -12 -1 "~Stampa"
MESSAGE EXIT,K_ENTER
END END
BUTTON DLG_CANCEL 9 2 BUTTON DLG_QUIT 9 2
BEGIN BEGIN
PROMPT -22 -1 "" PROMPT -22 -1 ""
END END

12
cg/cg5000a.uml
View File

@ -9,12 +9,12 @@ END
NUMBER FLD_CODABI 5 NUMBER FLD_CODABI 5
BEGIN BEGIN
PROMPT 3 2 "Codice az. banca " PROMPT 3 2 "Codice ABI "
USE %BAN USE %BAN
INPUT CODTAB[1,5] FLD_CODABI INPUT CODTAB[1,5] FLD_CODABI
DISPLAY "Banca" CODTAB[1,5] DISPLAY "ABI@5" CODTAB[1,5]
DISPLAY "Dipendenza" CODTAB[6,10] DISPLAY "CAB@5" CODTAB[6,10]
DISPLAY "Descrizione@50" S0 DISPLAY "Denominazione@50" S0
OUTPUT FLD_CODABI CODTAB[1,5] OUTPUT FLD_CODABI CODTAB[1,5]
OUTPUT FLD_CODCAB CODTAB[6,10] OUTPUT FLD_CODCAB CODTAB[6,10]
OUTPUT FLD_RAGSOCB S0 OUTPUT FLD_RAGSOCB S0
@ -25,9 +25,9 @@ END
NUMBER FLD_CODCAB 5 NUMBER FLD_CODCAB 5
BEGIN BEGIN
PROMPT 37 2 "Codice dipendenza " PROMPT 37 2 "Codice CAB "
COPY ALL FLD_CODABI COPY ALL FLD_CODABI
INPUT CODTAB[6,10] FLD_CODABI INPUT CODTAB[6,10] FLD_CODCAB
CHECKTYPE NORMAL CHECKTYPE NORMAL
FIELD CodCAB FIELD CodCAB
FLAGS "RZ" FLAGS "RZ"

141
cg/cg5100a.uml
View File

@ -4,12 +4,12 @@
TOOLBAR "" 0 20 0 2 TOOLBAR "" 0 20 0 2
BUTTON DLG_OK 8 2 BUTTON DLG_OK 10 2
BEGIN BEGIN
PROMPT -12 -1 "" PROMPT -12 -1 ""
END END
BUTTON DLG_QUIT 8 2 BUTTON DLG_QUIT 10 2
BEGIN BEGIN
PROMPT -22 -1 "" PROMPT -22 -1 ""
END END
@ -22,7 +22,6 @@ PAGE "Impostazione parametri ditta" -1 -1 77 8
NUMBER FLD_ANLIIV 4 NUMBER FLD_ANLIIV 4
BEGIN BEGIN
PROMPT 2 1 "@bANNO LIQUIDAZIONE IVA " PROMPT 2 1 "@bANNO LIQUIDAZIONE IVA "
FLAGS "A"
FIELD AnLiIv FIELD AnLiIv
END END
@ -55,7 +54,7 @@ BEGIN
FIELD RifPar FIELD RifPar
END END
GROUPBOX DLG_NULL 76 10 GROUPBOX DLG_NULL 76 11
BEGIN BEGIN
PROMPT 2 7 "" PROMPT 2 7 ""
END END
@ -90,60 +89,61 @@ END
BOOLEAN CHK_NRCFDX BOOLEAN CHK_NRCFDX
BEGIN BEGIN
PROMPT 4 12 "N. Rif. allineato a destra per clienti/fornitori " PROMPT 4 12 "N. Rif. allineato a destra per clienti"
HELP "" HELP ""
MESSAGE TRUE ENABLE,FLD_CMSGPC MESSAGE TRUE ENABLE,FLD_CMSGPC
MESSAGE FALSE DISABLE,FLD_CMSGPC MESSAGE FALSE DISABLE,FLD_CMSGPC
FIELD NrCfDx FIELD NrCliDx
END END
NUMBER FLD_CMSGPC 1 NUMBER FLD_CMSGPC 1
BEGIN BEGIN
PROMPT 56 12 " / " PROMPT 4 13 "N. Rif. allineato a destra per fornitori"
HELP "" HELP ""
FIELD CmSgPc FIELD NrForDx
END END
BOOLEAN CHK_GESVAL BOOLEAN CHK_GESVAL
BEGIN BEGIN
PROMPT 4 13 "Gestione Valuta" PROMPT 4 14 "Gestione Valuta"
HELP "" HELP ""
FIELD GesVal FIELD GesVal
END END
BOOLEAN CHK_GELIDI BOOLEAN CHK_GELIDI
BEGIN BEGIN
PROMPT 4 14 "Gestione liquidazione differita" PROMPT 4 15 "Gestione liquidazione differita"
HELP "" HELP ""
FIELD GeLiDi FIELD GeLiDi
END END
BOOLEAN CHK_GESVEN BOOLEAN CHK_GESVEN
BEGIN BEGIN
PROMPT 4 15 "Gestione vendite" PROMPT 4 16 "Gestione vendite"
HELP "" HELP ""
FIELD GesVen FIELD GesVen
END END
ENDPAGE ENDPAGE
PAGE "Impostazione parametri ditta" -1 -1 77 8 PAGE "Impostazione parametri ditta" -1 -1 77 8
GROUPBOX DLG_NULL 55 12 GROUPBOX DLG_NULL 55 12
BEGIN BEGIN
PROMPT 2 5 "Codici sottoconto" PROMPT 2 5 "Codici sottoconto per chiusura automatica dei conti"
END END
GROUPBOX DLG_NULL 20 12 GROUPBOX DLG_NULL 20 12
BEGIN BEGIN
PROMPT 57 5 "Ratei/Riscontri" PROMPT 57 5 "Ratei/Risconti"
END END
NUMBER FLD_CODLIC 5 NUMBER FLD_CODLIC 5
BEGIN BEGIN
PROMPT 1 2 "Codice libro incassi/pagamenti " PROMPT 1 2 "Codice libro incassi/pagamenti "
HELP "" HELP ""
USE ITL USE %ITL
INPUT CODTAB FLD_CODLIC INPUT CODTAB FLD_CODLIC
DISPLAY "Codice" CODTAB DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0 DISPLAY "Descrizione@50" S0
@ -152,15 +152,16 @@ BEGIN
FIELD CodLic FIELD CodLic
END END
NUMBER FLD_CODLIN 5 STRING FLD_CODLIN 1
BEGIN BEGIN
PROMPT 42 2 "Codice lingua " PROMPT 42 2 "Codice lingua "
HELP "" HELP ""
USE %LIN USE %LNG
DISPLAY "Codice" CODTAB DISPLAY "Codice" CODTAB
DISPLAY "Descrizione " S0 DISPLAY "Descrizione@50" S0
OUTPUT FLD_CODLIN CODTAB OUTPUT FLD_CODLIN CODTAB
INPUT CODTAB FLD_CODLIN INPUT CODTAB FLD_CODLIN
CHECKTYPE NORMAL
FIELD CodLin FIELD CodLin
END END
@ -168,7 +169,7 @@ STRING FLD_COCACH 3
BEGIN BEGIN
PROMPT 1 3 "Codice causale chiusura " PROMPT 1 3 "Codice causale chiusura "
HELP "" HELP ""
USE LF_CAUSALI SELECT TIPODOC="" USE LF_CAUSALI SELECT MOVAP="C"
INPUT CODCAUS FLD_COCACH INPUT CODCAUS FLD_COCACH
DISPLAY "Codice" CODCAUS DISPLAY "Codice" CODCAUS
DISPLAY "Descrizione@50" DESCR DISPLAY "Descrizione@50" DESCR
@ -181,7 +182,7 @@ STRING FLD_COCAAP 3
BEGIN BEGIN
PROMPT 42 3 "Codice causale apertura " PROMPT 42 3 "Codice causale apertura "
HELP "" HELP ""
COPY USE FLD_COCACH USE LF_CAUSALI SELECT MOVAP="A"
INPUT CODCAUS FLD_COCAAP INPUT CODCAUS FLD_COCAAP
COPY DISPLAY FLD_COCACH COPY DISPLAY FLD_COCACH
OUTPUT FLD_COCAAP CODCAUS OUTPUT FLD_COCAAP CODCAUS
@ -189,7 +190,6 @@ BEGIN
FIELD CoCaAp FIELD CoCaAp
END END
NUMBER FLD_CRIVAP 15 NUMBER FLD_CRIVAP 15
BEGIN BEGIN
PROMPT 1 -2 "Credito IVA anno precedente " PROMPT 1 -2 "Credito IVA anno precedente "
@ -198,7 +198,6 @@ BEGIN
FIELD CrIvAp FIELD CrIvAp
END END
TEXT DLG_NULL TEXT DLG_NULL
BEGIN BEGIN
PROMPT 32 6 "Gruppo Conto Sottoconto" PROMPT 32 6 "Gruppo Conto Sottoconto"
@ -206,17 +205,17 @@ END
TEXT DLG_NULL TEXT DLG_NULL
BEGIN BEGIN
PROMPT 31 7 "------------------------" PROMPT 31 7 "________________________"
END END
NUMBER FLD_CSBICHG 3 NUMBER FLD_CSBICHG 3
BEGIN BEGIN
PROMPT 3 8 "Bilancio di chiusura " PROMPT 3 8 "Bilancio di chiusura "
HELP "" HELP ""
USE LF_PCON SELECT CONTO=="" USE LF_PCON SELECT SOTTOCONTO!=""
INPUT GRUPPO FLD_CSBICHG INPUT GRUPPO FLD_CSBICHG
INPUT CONTO FLD_CSBICHC INPUT CONTO FLD_CSBICHC
INPUT CONTO FLD_CSBICHS INPUT SOTTOCONTO FLD_CSBICHS
DISPLAY "Gruppo" GRUPPO DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO DISPLAY "Conto" CONTO
DISPLAY "Sottoconto" SOTTOCONTO DISPLAY "Sottoconto" SOTTOCONTO
@ -239,7 +238,7 @@ END
NUMBER FLD_CSBICHS 6 NUMBER FLD_CSBICHS 6
BEGIN BEGIN
PROMPT 46 8 "" PROMPT 46 8 ""
COPY ALL FLD_CSBICHC COPY ALL FLD_CSBICHG
CHECKTYPE NORMAL CHECKTYPE NORMAL
FIELD CsBiChS FIELD CsBiChS
END END
@ -256,23 +255,22 @@ BEGIN
INPUT GRUPPO FLD_CSPRPEG INPUT GRUPPO FLD_CSPRPEG
INPUT CONTO FLD_CSPRPEC INPUT CONTO FLD_CSPRPEC
INPUT SOTTOCONTO FLD_CSPRPES INPUT SOTTOCONTO FLD_CSPRPES
CHECKTYPE NORMAL
FIELD CsPrPeG FIELD CsPrPeG
END END
NUMBER FLD_CSPRPEC 3 NUMBER FLD_CSPRPEC 3
BEGIN BEGIN
COPY USE FLD_CSBICHG COPY ALL FLD_CSPRPEG
COPY DISPLAY FLD_CSBICHG CHECKTYPE NORMAL
COPY OUTPUT FLD_CSPRPEG
COPY INPUT FLD_CSPRPEG
FIELD CsPrPeC FIELD CsPrPeC
PROMPT 39 9 "" PROMPT 39 9 ""
END END
NUMBER FLD_CSPRPES 6 NUMBER FLD_CSPRPES 6
BEGIN BEGIN
COPY USE FLD_CSBICHG COPY ALL FLD_CSPRPEG
COPY DISPLAY FLD_CSBICHG CHECKTYPE NORMAL
COPY OUTPUT FLD_CSPRPEG
COPY INPUT FLD_CSPRPEG
FIELD CsPrPeS FIELD CsPrPeS
PROMPT 46 9 "" PROMPT 46 9 ""
END END
@ -289,25 +287,23 @@ BEGIN
INPUT CONTO FLD_CSBIAPC INPUT CONTO FLD_CSBIAPC
INPUT SOTTOCONTO FLD_CSBIAPS INPUT SOTTOCONTO FLD_CSBIAPS
HELP "" HELP ""
CHECKTYPE NORMAL
FIELD CsBiApG FIELD CsBiApG
END END
NUMBER FLD_CSBIAPC 3 NUMBER FLD_CSBIAPC 3
BEGIN BEGIN
PROMPT 39 10 "" PROMPT 39 10 ""
COPY USE FLD_CSBICHG COPY ALL FLD_CSBIAPG
COPY DISPLAY FLD_CSBICHG CHECKTYPE NORMAL
COPY OUTPUT FLD_CSBIAPG
COPY INPUT FLD_CSBIAPG
FIELD CsBiApC FIELD CsBiApC
END END
NUMBER FLD_CSBIAPS 6 NUMBER FLD_CSBIAPS 6
BEGIN BEGIN
PROMPT 46 10 "" PROMPT 46 10 ""
COPY USE FLD_CSBICHG COPY ALL FLD_CSBIAPG
COPY DISPLAY FLD_CSBICHG CHECKTYPE NORMAL
COPY OUTPUT FLD_CSBIAPG
COPY INPUT FLD_CSBIAPG
FIELD CsBiApS FIELD CsBiApS
END END
@ -323,24 +319,21 @@ BEGIN
INPUT GRUPPO FLD_CSUECPG INPUT GRUPPO FLD_CSUECPG
INPUT CONTO FLD_CSUECPC INPUT CONTO FLD_CSUECPC
INPUT SOTTOCONTO FLD_CSUECPS INPUT SOTTOCONTO FLD_CSUECPS
CHECKTYPE NORMAL
FIELD CsUeCpG FIELD CsUeCpG
END END
NUMBER FLD_CSUECPC 3 NUMBER FLD_CSUECPC 3
BEGIN BEGIN
PROMPT 39 11 "" PROMPT 39 11 ""
COPY USE FLD_CSBICHG COPY ALL FLD_CSUECPG
COPY DISPLAY FLD_CSBICHG CHECKTYPE NORMAL
COPY OUTPUT FLD_CSUECPG
COPY INPUT FLD_CSUECPG
FIELD CsUeCpC FIELD CsUeCpC
END END
NUMBER FLD_CSUECPS 6 NUMBER FLD_CSUECPS 6
BEGIN BEGIN
PROMPT 46 11 "" PROMPT 46 11 ""
COPY USE FLD_CSBICHG COPY ALL FLD_CSUECPG
COPY DISPLAY FLD_CSBICHG CHECKTYPE NORMAL
COPY OUTPUT FLD_CSUECPG
COPY INPUT FLD_CSUECPG
FIELD CsUeCpS FIELD CsUeCpS
END END
@ -356,24 +349,22 @@ BEGIN
INPUT GRUPPO FLD_CSPECPG INPUT GRUPPO FLD_CSPECPG
INPUT CONTO FLD_CSPECPC INPUT CONTO FLD_CSPECPC
INPUT SOTTOCONTO FLD_CSPECPS INPUT SOTTOCONTO FLD_CSPECPS
CHECKTYPE NORMAL
FIELD CsPeCpG FIELD CsPeCpG
END END
NUMBER FLD_CSPECPC 3 NUMBER FLD_CSPECPC 3
BEGIN BEGIN
PROMPT 39 12 "" PROMPT 39 12 ""
COPY USE FLD_CSBICHG COPY ALL FLD_CSPECPG
COPY DISPLAY FLD_CSBICHG CHECKTYPE NORMAL
COPY OUTPUT FLD_CSPECPG
COPY INPUT FLD_CSPECPG
FIELD CsPeCpC FIELD CsPeCpC
END END
NUMBER FLD_CSPECPS 6 NUMBER FLD_CSPECPS 6
BEGIN BEGIN
PROMPT 46 12 "" PROMPT 46 12 ""
COPY USE FLD_CSBICHG COPY ALL FLD_CSPECPG
COPY DISPLAY FLD_CSBICHG CHECKTYPE NORMAL
COPY OUTPUT FLD_CSPECPG
COPY INPUT FLD_CSPECPG
FIELD CsPeCpS FIELD CsPeCpS
END END
@ -389,24 +380,21 @@ BEGIN
INPUT GRUPPO FLD_CSUECEG INPUT GRUPPO FLD_CSUECEG
INPUT CONTO FLD_CSUECEC INPUT CONTO FLD_CSUECEC
INPUT SOTTOCONTO FLD_CSUECES INPUT SOTTOCONTO FLD_CSUECES
CHECKTYPE NORMAL
FIELD CsUeCeG FIELD CsUeCeG
END END
NUMBER FLD_CSUECEC 3 NUMBER FLD_CSUECEC 3
BEGIN BEGIN
PROMPT 39 13 "" PROMPT 39 13 ""
COPY USE FLD_CSBICHG COPY ALL FLD_CSUECEG
COPY DISPLAY FLD_CSBICHG CHECKTYPE NORMAL
COPY OUTPUT FLD_CSUECEG
COPY INPUT FLD_CSUECEG
FIELD CsUeCeC FIELD CsUeCeC
END END
NUMBER FLD_CSUECES 6 NUMBER FLD_CSUECES 6
BEGIN BEGIN
PROMPT 46 13 "" PROMPT 46 13 ""
COPY USE FLD_CSBICHG COPY ALL FLD_CSUECEG
COPY OUTPUT FLD_CSUECEG CHECKTYPE NORMAL
COPY INPUT FLD_CSUECEG
COPY DISPLAY FLD_CSBICHG
FIELD CsUeCeS FIELD CsUeCeS
END END
@ -422,24 +410,21 @@ BEGIN
INPUT GRUPPO FLD_CSPECEG INPUT GRUPPO FLD_CSPECEG
INPUT CONTO FLD_CSPECEC INPUT CONTO FLD_CSPECEC
INPUT SOTTOCONTO FLD_CSPECES INPUT SOTTOCONTO FLD_CSPECES
CHECKTYPE NORMAL
FIELD CsPeCeG FIELD CsPeCeG
END END
NUMBER FLD_CSPECEC 3 NUMBER FLD_CSPECEC 3
BEGIN BEGIN
PROMPT 39 14 "" PROMPT 39 14 ""
COPY USE FLD_CSBICHG COPY ALL FLD_CSBICHG
COPY DISPLAY FLD_CSBICHG CHECKTYPE NORMAL
COPY OUTPUT FLD_CSPECEG
COPY INPUT FLD_CSPECEG
FIELD CsPeCeC FIELD CsPeCeC
END END
NUMBER FLD_CSPECES 6 NUMBER FLD_CSPECES 6
BEGIN BEGIN
PROMPT 46 14 "" PROMPT 46 14 ""
COPY USE FLD_CSBICHG COPY ALL FLD_CSBICHG
COPY DISPLAY FLD_CSBICHG CHECKTYPE NORMAL
COPY OUTPUT FLD_CSPECEG
COPY INPUT FLD_CSPECEG
FIELD CsPeCeS FIELD CsPeCeS
END END
@ -467,7 +452,7 @@ END
TEXT DLG_NULL TEXT DLG_NULL
BEGIN BEGIN
PROMPT 58 12 "Causale riscontri" PROMPT 58 12 "Causale risconti"
END END
@ -475,10 +460,10 @@ NUMBER FLD_RRCCRA 5
BEGIN BEGIN
PROMPT 64 11 "" PROMPT 64 11 ""
HELP "" HELP ""
COPY USE FLD_COCACH USE LF_CAUSALI
INPUT CODCAUS FLD_RRCCRA
COPY DISPLAY FLD_COCACH COPY DISPLAY FLD_COCACH
OUTPUT FLD_RRCCRA CODCAUS OUTPUT FLD_RRCCRA CODCAUS
INPUT CODCAUS FLD_RRCCRA
FIELD RrCcRa FIELD RrCcRa
END END
@ -486,10 +471,10 @@ NUMBER FLD_RRCCRI 5
BEGIN BEGIN
PROMPT 64 13 "" PROMPT 64 13 ""
HELP "" HELP ""
COPY USE FLD_COCACH COPY USE FLD_RRCCRA
INPUT CODCAUS FLD_RRCCRI
COPY DISPLAY FLD_COCACH COPY DISPLAY FLD_COCACH
OUTPUT FLD_RRCCRI CODCAUS OUTPUT FLD_RRCCRI CODCAUS
INPUT CODCAUS FLD_RRCCRI
FIELD RrCcRi FIELD RrCcRi
END END