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

633
cg/Attic/cg1400.cpp
View File

@ -1,314 +1,319 @@
#include <applicat.h> #include <applicat.h>
#include <mask.h> #include <config.h>
#include <relation.h> #include <form.h>
#include <form.h> #include <mask.h>
#include <sheet.h> #include <relation.h>
#include <tabutil.h> #include <sheet.h>
#include <utility.h> #include <tabutil.h>
#include <utility.h>
#include <urldefid.h>
#include <urldefid.h>
#include "cg1400.h"
#include "cg1400.h"
class TStampa_deleghe_IVA : public TApplication
{ class TStampa_deleghe_IVA : public TApplication
TArray_sheet* _ditte; {
int _mese, _anno, _tipo; TArray_sheet* _ditte;
TString _azienda, _dipendenza; int _mese, _anno, _tipo;
bool _stampa_distinte, _aggiorna_codici, _stampa_prova; TString16 _azienda, _dipendenza;
bool _stampa_distinte, _aggiorna_codici, _stampa_prova;
protected:
virtual bool create(); protected:
virtual bool destroy(); virtual bool create();
virtual bool menu(MENU_TAG); virtual bool destroy();
virtual void print(); virtual bool menu(MENU_TAG);
virtual void print();
int select();
bool print_deleghe(); int select();
void print_distinta(); bool print_deleghe();
void print_distinta();
public:
TStampa_deleghe_IVA() : _ditte(NULL) {} public:
}; TStampa_deleghe_IVA() : _ditte(NULL) {}
};
bool TStampa_deleghe_IVA::create()
{ bool TStampa_deleghe_IVA::create()
CHECK(_ditte == NULL, "Eh la vaca!"); {
_ditte = new TArray_sheet(-1, -1, 0, 0, "Selezione Deleghe da stampare" ,"@1|Cod.@5|Ragione Sociale@50|Importo@15|Azienda|Dipend."); CHECK(_ditte == NULL, "Eh la vaca!");
dispatch_e_menu(BAR_ITEM(1)); _ditte = new TArray_sheet(-1, -1, 0, 0, "Selezione Deleghe da stampare" ,"@1|Cod.@5|Ragione Sociale@50|Importo@15|Azienda|Dipend.");
return TRUE; dispatch_e_menu(BAR_ITEM(1));
} return TRUE;
}
bool TStampa_deleghe_IVA::destroy()
{ bool TStampa_deleghe_IVA::destroy()
delete _ditte; {
return TRUE; delete _ditte;
} return TRUE;
}
int TStampa_deleghe_IVA::select()
{ int TStampa_deleghe_IVA::select()
{ {
TMask m("cg1400a"); {
if (m.run() != K_ENTER) return 0; TMask m("cg1400a");
TConfig c(CONFIG_STUDIO, "cg");
_azienda = m.get(F_ABI); m.set(F_ABI, c.get("CodABI"));
_dipendenza = m.get(F_CAB); m.set(F_CAB, c.get("CodCAB"));
if (m.run() != K_ENTER)
_mese = atoi(m.get(F_MESE)); return 0;
_anno = atoi(m.get(F_ANNO));
_tipo = atoi(m.get(F_TIPO)); _azienda = m.get(F_ABI);
_dipendenza = m.get(F_CAB);
_stampa_prova = m.get_bool(F_PROVA);
_stampa_distinte = m.get_bool(F_DISTINTA); _mese = m.get_int(F_MESE);
_aggiorna_codici = m.get_bool(F_AGGIORNA); _anno = m.get_int(F_ANNO);
_tipo = m.get_int(F_TIPO);
TDate d(m.get(F_DATA));
printer().setdate(d); _stampa_prova = m.get_bool(F_PROVA);
} _stampa_distinte = m.get_bool(F_DISTINTA);
_aggiorna_codici = m.get_bool(F_AGGIORNA);
TLocalisamfile nditte(LF_NDITTE);
const TDate d(m.get(F_DATA));
TTable deleghe("%DEL"); printer().setdate(d);
}
TString chiave(16);
TToken_string d(80); TLocalisamfile nditte(LF_NDITTE);
_ditte->destroy(); TTable deleghe("%DEL");
for (nditte.first(); !nditte.eof(); nditte.next()) TString16 chiave;
{ TToken_string d(80);
const long dit = atol(nditte.get("CODDITTA"));
chiave = format("%05ld", dit); _ditte->destroy();
chiave << format("%04d%02d%d", _anno, _mese, _tipo);
deleghe.put("CODTAB", chiave); for (nditte.first(); !nditte.eof(); nditte.next())
if (deleghe.read() == NOERR && deleghe.get_bool("B0") == FALSE) // Da stampare {
{ const long dit = nditte.get_long("CODDITTA");
d = " "; // Selezione chiave.format("%05ld", dit);
d.add(chiave.left(5)); // Codice ditta chiave << format("%04d%02d%d", _anno, _mese, _tipo);
d.add(nditte.get("RAGSOC")); // Ragione sociale deleghe.put("CODTAB", chiave);
if (deleghe.read() == NOERR && deleghe.get_bool("B0") == FALSE) // Da stampare
real importo(deleghe.get("R0")); {
d.add(importo.string(".")); // Importo d = " "; // Selezione
d.add(chiave.left(5)); // Codice ditta
const long az = atol(deleghe.get("I0")); d.add(nditte.get("RAGSOC")); // Ragione sociale
d.add(format("%05ld", az)); // Azienda
const real importo(deleghe.get("R0"));
const long di = atol(deleghe.get("I1")); d.add(importo.string(".")); // Importo
d.add(format("%05ld", di)); // Dipendenza
const long az = deleghe.get_long("I0");
_ditte->add(d); d.add(format("%05ld", az)); // Azienda
}
} const long di = deleghe.get_long("I1");
d.add(format("%05ld", di)); // Dipendenza
if (_ditte->items() > 0)
{ _ditte->add(d);
const bool ok = _ditte->run() == K_ENTER; }
if (ok) enable_menu_item(M_FILE_PRINT); }
}
else if (_ditte->items() > 0)
{ {
warning_box("Nessuna ditta ha deleghe da stampare"); const bool ok = _ditte->run() == K_ENTER;
return 2; if (ok) enable_menu_item(M_FILE_PRINT);
} }
return 1; else
} {
warning_box("Nessuna ditta ha deleghe da stampare");
bool TStampa_deleghe_IVA::menu(MENU_TAG) return 2;
{ }
int s = 0; return 1;
while ((s = select()) != 0) }
if (s == 1) print();
return FALSE; bool TStampa_deleghe_IVA::menu(MENU_TAG)
} {
int s = 0;
void TStampa_deleghe_IVA::print() while ((s = select()) != 0)
{ if (s == 1) print();
print_deleghe(); return FALSE;
if (_stampa_distinte) }
{
bool ok = yesno_box("Inserire il modulo continuo nella stampante " void TStampa_deleghe_IVA::print()
"e confermare la stampa della distinta"); {
if (ok) print_distinta(); print_deleghe();
} if (_stampa_distinte)
} {
bool ok = yesno_box("Inserire il modulo continuo nella stampante "
"e confermare la stampa della distinta");
void TStampa_deleghe_IVA::print_distinta() if (ok) print_distinta();
{ }
enum Tabulatori { TAB_DITTA = 0, TAB_SEDE = 52, TAB_PROV = 78, }
TAB_IMPORTO = 82, TAB_NOTE = 100 };
printer().open(); void TStampa_deleghe_IVA::print_distinta()
{
TLocalisamfile ditte(LF_NDITTE); enum Tabulatori { TAB_DITTA = 0, TAB_SEDE = 52, TAB_PROV = 78,
TRectype& ditta = ditte.curr(); TAB_IMPORTO = 82, TAB_NOTE = 100 };
TLocalisamfile anagrafiche(LF_ANAG); printer().open();
TRectype& anag = anagrafiche.curr();
TLocalisamfile ditte(LF_NDITTE);
TLocalisamfile comuni(LF_COMUNI); TRectype& ditta = ditte.curr();
TRectype& comune = comuni.curr();
TLocalisamfile anagrafiche(LF_ANAG);
TTable banche("%BAN"); TRectype& anag = anagrafiche.curr();
TRectype& banca = banche.curr();
TLocalisamfile comuni(LF_COMUNI);
TString codban(16); TRectype& comune = comuni.curr();
if (_azienda.not_empty())
{ TTable banche("%BAN");
codban = _azienda; codban << _dipendenza; TRectype& banca = banche.curr();
banca.put("CODTAB", codban);
banche.read(); TString16 codban;
} if (_azienda.not_empty())
{
TPrintrow row; codban = _azienda; codban << _dipendenza;
banca.put("CODTAB", codban);
if (atol(_azienda)) banche.read();
row.put(banca.get("S0"), 0); }
row.put("DISTINTA DELEGHE DI VERSAMENTO", 60);
row.put("Data @>", 110); TPrintrow row;
row.put("Pag.@#", 124);
printer().setheaderline(0, row); if (atol(_azienda))
row.put(banca.get("S0"), 0);
row.reset(); row.put("DISTINTA DELEGHE DI VERSAMENTO", 60);
if (atol(_dipendenza)) row.put("Data @>", 110);
row.put(banca.get("S1"), 0); row.put("Pag.@#", 124);
printer().setheaderline(0, row);
TString t(132);
t = "Dichiarazione "; row.reset();
switch (_tipo) if (atol(_dipendenza))
{ row.put(banca.get("S1"), 0);
case 2 : t << "annuale : "; break;
case 7 : t << "acconti IVA : "; break; TString t(132);
default: t << "periodica : " << _mese << '-'; break; t = "Dichiarazione ";
} switch (_tipo)
t << _anno; {
row.put(t, 60); case 2 : t << "annuale : "; break;
printer().setheaderline(1, row); case 7 : t << "acconti IVA : "; break;
default: t << "periodica : " << _mese << '-'; break;
t.fill('-', 130); }
row.reset(); t << _anno;
row.put(t, 0); row.put(t, 60);
printer().setheaderline(2, row); printer().setheaderline(1, row);
printer().setheaderline(4, row);
t.fill('-', 130);
row.reset(); row.reset();
row.put("Ditta", TAB_DITTA); row.put(t, 0);
row.put("Sede" , TAB_SEDE); printer().setheaderline(2, row);
row.put("Importo", TAB_IMPORTO+8); printer().setheaderline(4, row);
row.put("Note", TAB_NOTE);
printer().setheaderline(3, row); row.reset();
row.put("Ditta", TAB_DITTA);
real totale; row.put("Sede" , TAB_SEDE);
row.put("Importo", TAB_IMPORTO+8);
for (int i = 0; i < _ditte->items(); i++) row.put("Note", TAB_NOTE);
if (_ditte->checked(i)) printer().setheaderline(3, row);
{
const TString cod(_ditte->row(i).get(1)); real totale;
ditta.put("CODDITTA", cod);
ditte.read(); for (int i = 0; i < _ditte->items(); i++)
if (_ditte->checked(i))
anag.put("TIPOA", ditta.get("TIPOA")); {
anag.put("CODANAGR", ditta.get("CODANAGR")); const TString cod(_ditte->row(i).get(1));
anagrafiche.read(); ditta.put("CODDITTA", cod);
ditte.read();
comune.put("STATO", anag.get("STATORF"));
comune.put("COM", anag.get("COMRF")); anag.put("TIPOA", ditta.get("TIPOA"));
comuni.read(); anag.put("CODANAGR", ditta.get("CODANAGR"));
anagrafiche.read();
TParagraph_string dencom(comune.get("DENCOM"), 18);
comune.put("STATO", anag.get("STATORF"));
row.reset(); comune.put("COM", anag.get("COMRF"));
row.put(ditta.get("RAGSOC"), TAB_DITTA); comuni.read();
row.put(dencom.get(), 52);
row.put(comune.get("PROVCOM"), TAB_PROV); TParagraph_string dencom(comune.get("DENCOM"), 18);
TString imp(_ditte->row(i).get(3)); row.reset();
row.put(imp, TAB_IMPORTO); row.put(ditta.get("RAGSOC"), TAB_DITTA);
printer().print(row); row.put(dencom.get(), 52);
row.put(comune.get("PROVCOM"), TAB_PROV);
imp.strip(".");
real importo(imp); TString imp(_ditte->row(i).get(3));
totale += importo; row.put(imp, TAB_IMPORTO);
printer().print(row);
const char* r;
while ((r = dencom.get()) != NULL) imp.strip(".");
{ real importo(imp);
row.reset(); totale += importo;
row.put(r, 52);
printer().print(row); const char* r;
} while ((r = dencom.get()) != NULL)
} {
row.reset();
row.reset(); row.put(r, 52);
printer().print(row); printer().print(row);
row.put("@BTotale versamenti :", TAB_SEDE); }
row.put(totale.string("###.###.###.###"), TAB_IMPORTO); }
printer().print(row);
row.reset();
printer().close(); printer().print(row);
} row.put("@BTotale versamenti :", TAB_SEDE);
row.put(totale.string("###.###.###.###"), TAB_IMPORTO);
bool TStampa_deleghe_IVA::print_deleghe() printer().print(row);
{
bool ok = printer().open(); printer().close();
if (!ok) return FALSE; }
TFilename name; bool TStampa_deleghe_IVA::print_deleghe()
name << "del" << _azienda; {
TForm f(name); bool ok = printer().open();
if (!ok) return FALSE;
for (int i = 0; ok && i < _ditte->items(); i++)
if (_ditte->checked(i)) TFilename name;
{ name << "del" << _azienda;
const TString d(_ditte->row(i).get(1)); TForm f(name);
TRectype& delega = f.cursor()->curr(); for (int i = 0; ok && i < _ditte->items(); i++)
if (_ditte->checked(i))
TString chiave(16); {
chiave = d; chiave << format("%04d%02d%d", _anno, _mese, _tipo); const TString d(_ditte->row(i).get(1));
delega.put("CODTAB", chiave);
TRectype& delega = f.cursor()->curr();
f.cursor()->file()->read();
const bool cera = atoi(delega.get("S7")) != 0; TString chiave(16);
if (!cera) chiave = d; chiave << format("%04d%02d%d", _anno, _mese, _tipo);
{ delega.put("CODTAB", chiave);
delega.put("S7", _azienda);
delega.put("S8", _dipendenza); f.cursor()->file()->read();
f.cursor()->file()->rewrite(); const bool cera = atoi(delega.get("S7")) != 0;
} if (!cera)
f.cursor()->read(); // Posiziona il cursore {
delega.put("S7", _azienda);
ok = f.print(-1); // Stampa solo il record corrente delega.put("S8", _dipendenza);
if (!ok) break; f.cursor()->file()->rewrite();
}
bool scrivi = _aggiorna_codici && !cera; f.cursor()->read(); // Posiziona il cursore
if (!_stampa_prova) ok = f.print(-1); // Stampa solo il record corrente
{ if (!ok) break;
delega.put("B0", "X"); // Stampato
scrivi = TRUE; bool scrivi = _aggiorna_codici && !cera;
}
if (!_aggiorna_codici && !cera) // Cancella codice se non richiesto if (!_stampa_prova)
{ {
delega.put("S7", ""); delega.put("B0", "X"); // Stampato
delega.put("S8", ""); scrivi = TRUE;
scrivi = TRUE; }
} if (!_aggiorna_codici && !cera) // Cancella codice se non richiesto
if (scrivi) {
f.cursor()->file()->rewrite(); delega.put("S7", "");
} delega.put("S8", "");
printer().close(); scrivi = TRUE;
}
return ok; if (scrivi)
} f.cursor()->file()->rewrite();
}
printer().close();
int cg1400(int argc, char* argv[])
{ return ok;
TStampa_deleghe_IVA a; }
a.run(argc, argv, "Stampa Deleghe IVA");
return 0;
} int cg1400(int argc, char* argv[])
{
TStampa_deleghe_IVA a;
a.run(argc, argv, "Stampa Deleghe IVA");
return 0;
}

188
cg/Attic/cg1400a.uml
View File

@ -1,93 +1,95 @@
#include "cg1400.h" #include "cg1400.h"
PAGE "STAMPA DELEGHE IVA" -1 -1 58 11 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"
USE %BAN FIELD CNF_STUDIO->cg.CodABI
INPUT CODTAB[1,5] F_ABI USE %BAN
INPUT CODTAB[6,10] F_CAB INPUT CODTAB[1,5] F_ABI
DISPLAY "Azienda" CODTAB[1,5] INPUT CODTAB[6,10] F_CAB
DISPLAY "Dipendenza" CODTAB[6,10] DISPLAY "Azienda" CODTAB[1,5]
DISPLAY "Nome@50" S0 DISPLAY "Dipendenza" CODTAB[6,10]
DISPLAY "Filiale@50" S1 DISPLAY "Nome@50" S0
OUTPUT F_ABI CODTAB[1,5] DISPLAY "Filiale@50" S1
OUTPUT F_CAB CODTAB[6,10] OUTPUT F_ABI CODTAB[1,5]
END OUTPUT F_CAB CODTAB[6,10]
END
NUMBER F_CAB 5
BEGIN NUMBER F_CAB 5
PROMPT 25 1 "Codice Dipendenza " BEGIN
FLAGS "RZ" PROMPT 22 1 "Codice CAB "
COPY USE F_ABI FLAGS "RZ"
INPUT CODTAB[1,5] F_ABI FIELD CNF_STUDIO->cg.CodCAB
INPUT CODTAB[6,10] F_CAB COPY USE F_ABI
DISPLAY "Azienda" CODTAB[1,5] INPUT CODTAB[1,5] F_ABI
DISPLAY "Dipendenza" CODTAB[6,10] INPUT CODTAB[6,10] F_CAB
DISPLAY "Nome@50" S0 DISPLAY "Azienda" CODTAB[1,5]
DISPLAY "Filiale@50" S1 DISPLAY "Dipendenza" CODTAB[6,10]
OUTPUT F_ABI CODTAB[1,5] DISPLAY "Nome@50" S0
OUTPUT F_CAB CODTAB[6,10] DISPLAY "Filiale@50" S1
END OUTPUT F_ABI CODTAB[1,5]
OUTPUT F_CAB CODTAB[6,10]
DATA F_DATA END
BEGIN
PROMPT 1 3 "Data di stampa " DATA F_DATA
FLAGS "A" BEGIN
END PROMPT 1 3 "Data di stampa "
FLAGS "A"
LIST F_TIPO 21 END
BEGIN
PROMPT 28 3 "Tipo " LIST F_TIPO 21
ITEM "1|Periodica" MESSAGE ENABLE,F_MESE BEGIN
ITEM "2|Annuale" MESSAGE "13",F_MESE|DISABLE,F_MESE PROMPT 28 3 "Tipo "
ITEM "7|Acconti IVA" MESSAGE "12",F_MESE|DISABLE,F_MESE ITEM "1|Periodica" MESSAGE ENABLE,F_MESE
END ITEM "2|Annuale" MESSAGE "13",F_MESE|DISABLE,F_MESE
ITEM "7|Acconti IVA" MESSAGE "12",F_MESE|DISABLE,F_MESE
NUMBER F_ANNO 4 END
BEGIN
PROMPT 1 5 "Anno " NUMBER F_ANNO 4
FLAGS "A" BEGIN
END PROMPT 1 5 "Anno "
FLAGS "A"
LIST F_MESE 10 END
BEGIN
PROMPT 13 5 "Mese " LIST F_MESE 10
FLAGS "MA" BEGIN
ITEM "13|Annuale" MESSAGE "2",F_TIPO PROMPT 13 5 "Mese "
END FLAGS "MA"
ITEM "13|Annuale" MESSAGE "2",F_TIPO
BOOLEAN F_PROVA END
BEGIN
PROMPT 1 7 "Stampa di prova" BOOLEAN F_PROVA
END BEGIN
PROMPT 1 7 "Stampa di prova"
BOOLEAN F_AGGIORNA END
BEGIN
PROMPT 1 8 "Aggiorna codici banca sulle deleghe" BOOLEAN F_AGGIORNA
HELP "Scrive i codici banca sulle deleghe che non li riportano" BEGIN
END PROMPT 1 8 "Aggiorna codici banca sulle deleghe"
HELP "Scrive i codici banca sulle deleghe che non li riportano"
BOOLEAN F_DISTINTA END
BEGIN
PROMPT 1 9 "Stampa distinta deleghe" BOOLEAN F_DISTINTA
HELP "Stampa un riepilogo su carta normale delle deleghe stampate" BEGIN
END PROMPT 1 9 "Stampa distinta deleghe"
HELP "Stampa un riepilogo su carta normale delle deleghe stampate"
BUTTON DLG_SELECT 9 2 END
BEGIN
PROMPT 45 6 "Selezione" BUTTON DLG_SELECT 9 2
HELP "Permette di selezionare le ditte di cui stampare le deleghe" BEGIN
MESSAGE EXIT,K_ENTER PROMPT 45 6 "Selezione"
END HELP "Permette di selezionare le ditte di cui stampare le deleghe"
MESSAGE EXIT,K_ENTER
BUTTON DLG_QUIT 9 2 END
BEGIN
PROMPT 45 8 "" BUTTON DLG_QUIT 9 2
END BEGIN
PROMPT 45 8 ""
ENDPAGE END
ENDMASK ENDPAGE
ENDMASK

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();

123
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));
switch (app()->_filtro)
{ {
case 1: const int tiporeg = r->lfile()->get_int("I0");
if (anno == anno_iva() && tiporeg == 1) const bool corrisp = r->lfile()->get_bool("B0");
return TRUE;
break; switch (app()->_filtro)
case 2: {
if (anno == anno_iva() && tiporeg == 1 && corrisp) case 1:
return TRUE; return (tiporeg == 1);
break; case 2:
case 3: return (tiporeg == 1 && corrisp);
if (anno == anno_iva() && tiporeg == 2) case 3:
return TRUE; return (tiporeg == 2);
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) return ( (tiporeg == 1 && !corrisp) || tiporeg == 2 );
if (anno == anno_iva()) default:
if ( (tiporeg == 1 && !corrisp) || tiporeg == 2 ) return FALSE;
return TRUE; }
break; }
default:
return FALSE;
}
return FALSE; return FALSE;
} }
@ -405,25 +398,25 @@ 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;
} }
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,14 +427,15 @@ 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);
if (caus.read() == NOERR) if (caus.read() == NOERR)
{ {
const int tpm = caus.get_int(CAU_TIPOMOV); const int tpm = caus.get_int(CAU_TIPOMOV);
TString16 codreg = caus.get(CAU_REG); TString16 codreg = caus.get(CAU_REG);
if (codreg.not_empty() || tpm != 0) if (codreg.not_empty() || tpm != 0)
return f.warning_box("La causale per l'incasso immediato specificata (%s) deve essere puramente contabile", return f.warning_box("La causale per l'incasso immediato specificata (%s) deve essere puramente contabile",
@ -455,8 +449,8 @@ bool CG0500_application::codcausim_hndl (TMask_field& f, KEY k)
bool CG0500_application::MostraCampi(TMask_field& f) 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,12 +939,13 @@ 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);
reg.read(); reg.read();
tpr = reg.get_int("I0"); tpr = reg.get_int("I0");
} }
// carico le descrizioni fisse nell'array Righe_rcaus // carico le descrizioni fisse nell'array Righe_rcaus
@ -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

17
cg/cg0501.cpp
View File

@ -11,12 +11,17 @@ 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;
} }

633
cg/cg1400.cpp
View File

@ -1,314 +1,319 @@
#include <applicat.h> #include <applicat.h>
#include <mask.h> #include <config.h>
#include <relation.h> #include <form.h>
#include <form.h> #include <mask.h>
#include <sheet.h> #include <relation.h>
#include <tabutil.h> #include <sheet.h>
#include <utility.h> #include <tabutil.h>
#include <utility.h>
#include <urldefid.h>
#include <urldefid.h>
#include "cg1400.h"
#include "cg1400.h"
class TStampa_deleghe_IVA : public TApplication
{ class TStampa_deleghe_IVA : public TApplication
TArray_sheet* _ditte; {
int _mese, _anno, _tipo; TArray_sheet* _ditte;
TString _azienda, _dipendenza; int _mese, _anno, _tipo;
bool _stampa_distinte, _aggiorna_codici, _stampa_prova; TString16 _azienda, _dipendenza;
bool _stampa_distinte, _aggiorna_codici, _stampa_prova;
protected:
virtual bool create(); protected:
virtual bool destroy(); virtual bool create();
virtual bool menu(MENU_TAG); virtual bool destroy();
virtual void print(); virtual bool menu(MENU_TAG);
virtual void print();
int select();
bool print_deleghe(); int select();
void print_distinta(); bool print_deleghe();
void print_distinta();
public:
TStampa_deleghe_IVA() : _ditte(NULL) {} public:
}; TStampa_deleghe_IVA() : _ditte(NULL) {}
};
bool TStampa_deleghe_IVA::create()
{ bool TStampa_deleghe_IVA::create()
CHECK(_ditte == NULL, "Eh la vaca!"); {
_ditte = new TArray_sheet(-1, -1, 0, 0, "Selezione Deleghe da stampare" ,"@1|Cod.@5|Ragione Sociale@50|Importo@15|Azienda|Dipend."); CHECK(_ditte == NULL, "Eh la vaca!");
dispatch_e_menu(BAR_ITEM(1)); _ditte = new TArray_sheet(-1, -1, 0, 0, "Selezione Deleghe da stampare" ,"@1|Cod.@5|Ragione Sociale@50|Importo@15|Azienda|Dipend.");
return TRUE; dispatch_e_menu(BAR_ITEM(1));
} return TRUE;
}
bool TStampa_deleghe_IVA::destroy()
{ bool TStampa_deleghe_IVA::destroy()
delete _ditte; {
return TRUE; delete _ditte;
} return TRUE;
}
int TStampa_deleghe_IVA::select()
{ int TStampa_deleghe_IVA::select()
{ {
TMask m("cg1400a"); {
if (m.run() != K_ENTER) return 0; TMask m("cg1400a");
TConfig c(CONFIG_STUDIO, "cg");
_azienda = m.get(F_ABI); m.set(F_ABI, c.get("CodABI"));
_dipendenza = m.get(F_CAB); m.set(F_CAB, c.get("CodCAB"));
if (m.run() != K_ENTER)
_mese = atoi(m.get(F_MESE)); return 0;
_anno = atoi(m.get(F_ANNO));
_tipo = atoi(m.get(F_TIPO)); _azienda = m.get(F_ABI);
_dipendenza = m.get(F_CAB);
_stampa_prova = m.get_bool(F_PROVA);
_stampa_distinte = m.get_bool(F_DISTINTA); _mese = m.get_int(F_MESE);
_aggiorna_codici = m.get_bool(F_AGGIORNA); _anno = m.get_int(F_ANNO);
_tipo = m.get_int(F_TIPO);
TDate d(m.get(F_DATA));
printer().setdate(d); _stampa_prova = m.get_bool(F_PROVA);
} _stampa_distinte = m.get_bool(F_DISTINTA);
_aggiorna_codici = m.get_bool(F_AGGIORNA);
TLocalisamfile nditte(LF_NDITTE);
const TDate d(m.get(F_DATA));
TTable deleghe("%DEL"); printer().setdate(d);
}
TString chiave(16);
TToken_string d(80); TLocalisamfile nditte(LF_NDITTE);
_ditte->destroy(); TTable deleghe("%DEL");
for (nditte.first(); !nditte.eof(); nditte.next()) TString16 chiave;
{ TToken_string d(80);
const long dit = atol(nditte.get("CODDITTA"));
chiave = format("%05ld", dit); _ditte->destroy();
chiave << format("%04d%02d%d", _anno, _mese, _tipo);
deleghe.put("CODTAB", chiave); for (nditte.first(); !nditte.eof(); nditte.next())
if (deleghe.read() == NOERR && deleghe.get_bool("B0") == FALSE) // Da stampare {
{ const long dit = nditte.get_long("CODDITTA");
d = " "; // Selezione chiave.format("%05ld", dit);
d.add(chiave.left(5)); // Codice ditta chiave << format("%04d%02d%d", _anno, _mese, _tipo);
d.add(nditte.get("RAGSOC")); // Ragione sociale deleghe.put("CODTAB", chiave);
if (deleghe.read() == NOERR && deleghe.get_bool("B0") == FALSE) // Da stampare
real importo(deleghe.get("R0")); {
d.add(importo.string(".")); // Importo d = " "; // Selezione
d.add(chiave.left(5)); // Codice ditta
const long az = atol(deleghe.get("I0")); d.add(nditte.get("RAGSOC")); // Ragione sociale
d.add(format("%05ld", az)); // Azienda
const real importo(deleghe.get("R0"));
const long di = atol(deleghe.get("I1")); d.add(importo.string(".")); // Importo
d.add(format("%05ld", di)); // Dipendenza
const long az = deleghe.get_long("I0");
_ditte->add(d); d.add(format("%05ld", az)); // Azienda
}
} const long di = deleghe.get_long("I1");
d.add(format("%05ld", di)); // Dipendenza
if (_ditte->items() > 0)
{ _ditte->add(d);
const bool ok = _ditte->run() == K_ENTER; }
if (ok) enable_menu_item(M_FILE_PRINT); }
}
else if (_ditte->items() > 0)
{ {
warning_box("Nessuna ditta ha deleghe da stampare"); const bool ok = _ditte->run() == K_ENTER;
return 2; if (ok) enable_menu_item(M_FILE_PRINT);
} }
return 1; else
} {
warning_box("Nessuna ditta ha deleghe da stampare");
bool TStampa_deleghe_IVA::menu(MENU_TAG) return 2;
{ }
int s = 0; return 1;
while ((s = select()) != 0) }
if (s == 1) print();
return FALSE; bool TStampa_deleghe_IVA::menu(MENU_TAG)
} {
int s = 0;
void TStampa_deleghe_IVA::print() while ((s = select()) != 0)
{ if (s == 1) print();
print_deleghe(); return FALSE;
if (_stampa_distinte) }
{
bool ok = yesno_box("Inserire il modulo continuo nella stampante " void TStampa_deleghe_IVA::print()
"e confermare la stampa della distinta"); {
if (ok) print_distinta(); print_deleghe();
} if (_stampa_distinte)
} {
bool ok = yesno_box("Inserire il modulo continuo nella stampante "
"e confermare la stampa della distinta");
void TStampa_deleghe_IVA::print_distinta() if (ok) print_distinta();
{ }
enum Tabulatori { TAB_DITTA = 0, TAB_SEDE = 52, TAB_PROV = 78, }
TAB_IMPORTO = 82, TAB_NOTE = 100 };
printer().open(); void TStampa_deleghe_IVA::print_distinta()
{
TLocalisamfile ditte(LF_NDITTE); enum Tabulatori { TAB_DITTA = 0, TAB_SEDE = 52, TAB_PROV = 78,
TRectype& ditta = ditte.curr(); TAB_IMPORTO = 82, TAB_NOTE = 100 };
TLocalisamfile anagrafiche(LF_ANAG); printer().open();
TRectype& anag = anagrafiche.curr();
TLocalisamfile ditte(LF_NDITTE);
TLocalisamfile comuni(LF_COMUNI); TRectype& ditta = ditte.curr();
TRectype& comune = comuni.curr();
TLocalisamfile anagrafiche(LF_ANAG);
TTable banche("%BAN"); TRectype& anag = anagrafiche.curr();
TRectype& banca = banche.curr();
TLocalisamfile comuni(LF_COMUNI);
TString codban(16); TRectype& comune = comuni.curr();
if (_azienda.not_empty())
{ TTable banche("%BAN");
codban = _azienda; codban << _dipendenza; TRectype& banca = banche.curr();
banca.put("CODTAB", codban);
banche.read(); TString16 codban;
} if (_azienda.not_empty())
{
TPrintrow row; codban = _azienda; codban << _dipendenza;
banca.put("CODTAB", codban);
if (atol(_azienda)) banche.read();
row.put(banca.get("S0"), 0); }
row.put("DISTINTA DELEGHE DI VERSAMENTO", 60);
row.put("Data @>", 110); TPrintrow row;
row.put("Pag.@#", 124);
printer().setheaderline(0, row); if (atol(_azienda))
row.put(banca.get("S0"), 0);
row.reset(); row.put("DISTINTA DELEGHE DI VERSAMENTO", 60);
if (atol(_dipendenza)) row.put("Data @>", 110);
row.put(banca.get("S1"), 0); row.put("Pag.@#", 124);
printer().setheaderline(0, row);
TString t(132);
t = "Dichiarazione "; row.reset();
switch (_tipo) if (atol(_dipendenza))
{ row.put(banca.get("S1"), 0);
case 2 : t << "annuale : "; break;
case 7 : t << "acconti IVA : "; break; TString t(132);
default: t << "periodica : " << _mese << '-'; break; t = "Dichiarazione ";
} switch (_tipo)
t << _anno; {
row.put(t, 60); case 2 : t << "annuale : "; break;
printer().setheaderline(1, row); case 7 : t << "acconti IVA : "; break;
default: t << "periodica : " << _mese << '-'; break;
t.fill('-', 130); }
row.reset(); t << _anno;
row.put(t, 0); row.put(t, 60);
printer().setheaderline(2, row); printer().setheaderline(1, row);
printer().setheaderline(4, row);
t.fill('-', 130);
row.reset(); row.reset();
row.put("Ditta", TAB_DITTA); row.put(t, 0);
row.put("Sede" , TAB_SEDE); printer().setheaderline(2, row);
row.put("Importo", TAB_IMPORTO+8); printer().setheaderline(4, row);
row.put("Note", TAB_NOTE);
printer().setheaderline(3, row); row.reset();
row.put("Ditta", TAB_DITTA);
real totale; row.put("Sede" , TAB_SEDE);
row.put("Importo", TAB_IMPORTO+8);
for (int i = 0; i < _ditte->items(); i++) row.put("Note", TAB_NOTE);
if (_ditte->checked(i)) printer().setheaderline(3, row);
{
const TString cod(_ditte->row(i).get(1)); real totale;
ditta.put("CODDITTA", cod);
ditte.read(); for (int i = 0; i < _ditte->items(); i++)
if (_ditte->checked(i))
anag.put("TIPOA", ditta.get("TIPOA")); {
anag.put("CODANAGR", ditta.get("CODANAGR")); const TString cod(_ditte->row(i).get(1));
anagrafiche.read(); ditta.put("CODDITTA", cod);
ditte.read();
comune.put("STATO", anag.get("STATORF"));
comune.put("COM", anag.get("COMRF")); anag.put("TIPOA", ditta.get("TIPOA"));
comuni.read(); anag.put("CODANAGR", ditta.get("CODANAGR"));
anagrafiche.read();
TParagraph_string dencom(comune.get("DENCOM"), 18);
comune.put("STATO", anag.get("STATORF"));
row.reset(); comune.put("COM", anag.get("COMRF"));
row.put(ditta.get("RAGSOC"), TAB_DITTA); comuni.read();
row.put(dencom.get(), 52);
row.put(comune.get("PROVCOM"), TAB_PROV); TParagraph_string dencom(comune.get("DENCOM"), 18);
TString imp(_ditte->row(i).get(3)); row.reset();
row.put(imp, TAB_IMPORTO); row.put(ditta.get("RAGSOC"), TAB_DITTA);
printer().print(row); row.put(dencom.get(), 52);
row.put(comune.get("PROVCOM"), TAB_PROV);
imp.strip(".");
real importo(imp); TString imp(_ditte->row(i).get(3));
totale += importo; row.put(imp, TAB_IMPORTO);
printer().print(row);
const char* r;
while ((r = dencom.get()) != NULL) imp.strip(".");
{ real importo(imp);
row.reset(); totale += importo;
row.put(r, 52);
printer().print(row); const char* r;
} while ((r = dencom.get()) != NULL)
} {
row.reset();
row.reset(); row.put(r, 52);
printer().print(row); printer().print(row);
row.put("@BTotale versamenti :", TAB_SEDE); }
row.put(totale.string("###.###.###.###"), TAB_IMPORTO); }
printer().print(row);
row.reset();
printer().close(); printer().print(row);
} row.put("@BTotale versamenti :", TAB_SEDE);
row.put(totale.string("###.###.###.###"), TAB_IMPORTO);
bool TStampa_deleghe_IVA::print_deleghe() printer().print(row);
{
bool ok = printer().open(); printer().close();
if (!ok) return FALSE; }
TFilename name; bool TStampa_deleghe_IVA::print_deleghe()
name << "del" << _azienda; {
TForm f(name); bool ok = printer().open();
if (!ok) return FALSE;
for (int i = 0; ok && i < _ditte->items(); i++)
if (_ditte->checked(i)) TFilename name;
{ name << "del" << _azienda;
const TString d(_ditte->row(i).get(1)); TForm f(name);
TRectype& delega = f.cursor()->curr(); for (int i = 0; ok && i < _ditte->items(); i++)
if (_ditte->checked(i))
TString chiave(16); {
chiave = d; chiave << format("%04d%02d%d", _anno, _mese, _tipo); const TString d(_ditte->row(i).get(1));
delega.put("CODTAB", chiave);
TRectype& delega = f.cursor()->curr();
f.cursor()->file()->read();
const bool cera = atoi(delega.get("S7")) != 0; TString chiave(16);
if (!cera) chiave = d; chiave << format("%04d%02d%d", _anno, _mese, _tipo);
{ delega.put("CODTAB", chiave);
delega.put("S7", _azienda);
delega.put("S8", _dipendenza); f.cursor()->file()->read();
f.cursor()->file()->rewrite(); const bool cera = atoi(delega.get("S7")) != 0;
} if (!cera)
f.cursor()->read(); // Posiziona il cursore {
delega.put("S7", _azienda);
ok = f.print(-1); // Stampa solo il record corrente delega.put("S8", _dipendenza);
if (!ok) break; f.cursor()->file()->rewrite();
}
bool scrivi = _aggiorna_codici && !cera; f.cursor()->read(); // Posiziona il cursore
if (!_stampa_prova) ok = f.print(-1); // Stampa solo il record corrente
{ if (!ok) break;
delega.put("B0", "X"); // Stampato
scrivi = TRUE; bool scrivi = _aggiorna_codici && !cera;
}
if (!_aggiorna_codici && !cera) // Cancella codice se non richiesto if (!_stampa_prova)
{ {
delega.put("S7", ""); delega.put("B0", "X"); // Stampato
delega.put("S8", ""); scrivi = TRUE;
scrivi = TRUE; }
} if (!_aggiorna_codici && !cera) // Cancella codice se non richiesto
if (scrivi) {
f.cursor()->file()->rewrite(); delega.put("S7", "");
} delega.put("S8", "");
printer().close(); scrivi = TRUE;
}
return ok; if (scrivi)
} f.cursor()->file()->rewrite();
}
printer().close();
int cg1400(int argc, char* argv[])
{ return ok;
TStampa_deleghe_IVA a; }
a.run(argc, argv, "Stampa Deleghe IVA");
return 0;
} int cg1400(int argc, char* argv[])
{
TStampa_deleghe_IVA a;
a.run(argc, argv, "Stampa Deleghe IVA");
return 0;
}

188
cg/cg1400a.uml
View File

@ -1,93 +1,95 @@
#include "cg1400.h" #include "cg1400.h"
PAGE "STAMPA DELEGHE IVA" -1 -1 58 11 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"
USE %BAN FIELD CNF_STUDIO->cg.CodABI
INPUT CODTAB[1,5] F_ABI USE %BAN
INPUT CODTAB[6,10] F_CAB INPUT CODTAB[1,5] F_ABI
DISPLAY "Azienda" CODTAB[1,5] INPUT CODTAB[6,10] F_CAB
DISPLAY "Dipendenza" CODTAB[6,10] DISPLAY "Azienda" CODTAB[1,5]
DISPLAY "Nome@50" S0 DISPLAY "Dipendenza" CODTAB[6,10]
DISPLAY "Filiale@50" S1 DISPLAY "Nome@50" S0
OUTPUT F_ABI CODTAB[1,5] DISPLAY "Filiale@50" S1
OUTPUT F_CAB CODTAB[6,10] OUTPUT F_ABI CODTAB[1,5]
END OUTPUT F_CAB CODTAB[6,10]
END
NUMBER F_CAB 5
BEGIN NUMBER F_CAB 5
PROMPT 25 1 "Codice Dipendenza " BEGIN
FLAGS "RZ" PROMPT 22 1 "Codice CAB "
COPY USE F_ABI FLAGS "RZ"
INPUT CODTAB[1,5] F_ABI FIELD CNF_STUDIO->cg.CodCAB
INPUT CODTAB[6,10] F_CAB COPY USE F_ABI
DISPLAY "Azienda" CODTAB[1,5] INPUT CODTAB[1,5] F_ABI
DISPLAY "Dipendenza" CODTAB[6,10] INPUT CODTAB[6,10] F_CAB
DISPLAY "Nome@50" S0 DISPLAY "Azienda" CODTAB[1,5]
DISPLAY "Filiale@50" S1 DISPLAY "Dipendenza" CODTAB[6,10]
OUTPUT F_ABI CODTAB[1,5] DISPLAY "Nome@50" S0
OUTPUT F_CAB CODTAB[6,10] DISPLAY "Filiale@50" S1
END OUTPUT F_ABI CODTAB[1,5]
OUTPUT F_CAB CODTAB[6,10]
DATA F_DATA END
BEGIN
PROMPT 1 3 "Data di stampa " DATA F_DATA
FLAGS "A" BEGIN
END PROMPT 1 3 "Data di stampa "
FLAGS "A"
LIST F_TIPO 21 END
BEGIN
PROMPT 28 3 "Tipo " LIST F_TIPO 21
ITEM "1|Periodica" MESSAGE ENABLE,F_MESE BEGIN
ITEM "2|Annuale" MESSAGE "13",F_MESE|DISABLE,F_MESE PROMPT 28 3 "Tipo "
ITEM "7|Acconti IVA" MESSAGE "12",F_MESE|DISABLE,F_MESE ITEM "1|Periodica" MESSAGE ENABLE,F_MESE
END ITEM "2|Annuale" MESSAGE "13",F_MESE|DISABLE,F_MESE
ITEM "7|Acconti IVA" MESSAGE "12",F_MESE|DISABLE,F_MESE
NUMBER F_ANNO 4 END
BEGIN
PROMPT 1 5 "Anno " NUMBER F_ANNO 4
FLAGS "A" BEGIN
END PROMPT 1 5 "Anno "
FLAGS "A"
LIST F_MESE 10 END
BEGIN
PROMPT 13 5 "Mese " LIST F_MESE 10
FLAGS "MA" BEGIN
ITEM "13|Annuale" MESSAGE "2",F_TIPO PROMPT 13 5 "Mese "
END FLAGS "MA"
ITEM "13|Annuale" MESSAGE "2",F_TIPO
BOOLEAN F_PROVA END
BEGIN
PROMPT 1 7 "Stampa di prova" BOOLEAN F_PROVA
END BEGIN
PROMPT 1 7 "Stampa di prova"
BOOLEAN F_AGGIORNA END
BEGIN
PROMPT 1 8 "Aggiorna codici banca sulle deleghe" BOOLEAN F_AGGIORNA
HELP "Scrive i codici banca sulle deleghe che non li riportano" BEGIN
END PROMPT 1 8 "Aggiorna codici banca sulle deleghe"
HELP "Scrive i codici banca sulle deleghe che non li riportano"
BOOLEAN F_DISTINTA END
BEGIN
PROMPT 1 9 "Stampa distinta deleghe" BOOLEAN F_DISTINTA
HELP "Stampa un riepilogo su carta normale delle deleghe stampate" BEGIN
END PROMPT 1 9 "Stampa distinta deleghe"
HELP "Stampa un riepilogo su carta normale delle deleghe stampate"
BUTTON DLG_SELECT 9 2 END
BEGIN
PROMPT 45 6 "Selezione" BUTTON DLG_SELECT 9 2
HELP "Permette di selezionare le ditte di cui stampare le deleghe" BEGIN
MESSAGE EXIT,K_ENTER PROMPT 45 6 "Selezione"
END HELP "Permette di selezionare le ditte di cui stampare le deleghe"
MESSAGE EXIT,K_ENTER
BUTTON DLG_QUIT 9 2 END
BEGIN
PROMPT 45 8 "" BUTTON DLG_QUIT 9 2
END BEGIN
PROMPT 45 8 ""
ENDPAGE END
ENDMASK ENDPAGE
ENDMASK

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

20
cg/cg3200a.uml
View File

@ -1,19 +1,18 @@
#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
PROMPT 4 1 "Ditta " PROMPT 4 1 "Ditta "
FLAGS "FRD" FLAGS "FRD"
USE LF_NDITTE KEY 1 USE LF_NDITTE KEY 1
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
INPUT CODDITTA F_CODDITTA INPUT CODDITTA F_CODDITTA
DISPLAY "Codice" CODDITTA DISPLAY "Codice" CODDITTA
DISPLAY "Ragione sociale @50" RAGSOC DISPLAY "Ragione sociale @50" RAGSOC
OUTPUT F_CODDITTA CODDITTA OUTPUT F_CODDITTA CODDITTA
OUTPUT F_RAGSOC RAGSOC OUTPUT F_RAGSOC RAGSOC
END END
STRING F_RAGSOC 50 STRING F_RAGSOC 50
@ -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

84
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,16 +1143,21 @@ 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 :
break; set_row(r, "@73gDetraibile");
case 1 : set_row(r, "@73gIndetraibile su op.es."); break;
break; case 1 :
case 3 : set_row(r, "@73gPassaggi interni"); set_row(r, "@73gIndetraibile su op.es.");
break; break;
case 9 : set_row(r, "@73gIndetraibile art.19"); case 3 :
break; set_row(r, "@73gPassaggi interni");
default: break; break;
} case 9 :
set_row(r, "@73gIndetraibile art.19");
break;
default:
break;
}
} }
_iva_array.destroy(); _iva_array.destroy();
return r; return r;
@ -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 FALSE; return (tasto == K_ENTER);
} }
int cg3400 (int argc, char * argv[]) int cg3400 (int argc, char * argv[])

18
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
@ -12,13 +12,13 @@ BEGIN
DISPLAY "Codice" CODTAB[5,7] DISPLAY "Codice" CODTAB[5,7]
DISPLAY "Descrizione@50" S0 DISPLAY "Descrizione@50" S0
DISPLAY "Tipo" I0 DISPLAY "Tipo" I0
// OUTPUT ANNO_ESER CODTAB[1,4] // OUTPUT ANNO_ESER CODTAB[1,4]
OUTPUT CODREG CODTAB[5,7] OUTPUT CODREG CODTAB[5,7]
OUTPUT REG_DESC S0 OUTPUT REG_DESC S0
OUTPUT PAGINA_DA I1 OUTPUT PAGINA_DA I1
// OUTPUT DATA_DA D0 // OUTPUT DATA_DA D0
// OUTPUT DATA_A D1 // OUTPUT DATA_A D1
// CHECKTYPE NORMAL // CHECKTYPE NORMAL
FLAGS "R" FLAGS "R"
END END
@ -30,9 +30,8 @@ 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"
END END
@ -91,17 +90,18 @@ END
BOOLEAN STAMPA_DEF BOOLEAN STAMPA_DEF
BEGIN BEGIN
PROMPT 34 10 "Stampa definitiva" PROMPT 34 10 "Stampa definitiva"
MESSAGE TRUE DISABLE,DATA_DA | CLEAR, DATA_DA MESSAGE TRUE DISABLE,DATA_DA | CLEAR, DATA_DA
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

21
cg/cg4400a.uml
View File

@ -10,13 +10,13 @@ LISTBOX TIPO_STAMPA 2 27
BEGIN BEGIN
PROMPT 2 1 "Tipo stampa " PROMPT 2 1 "Tipo stampa "
ITEM "1|Libri bollati della ditta" ITEM "1|Libri bollati della ditta"
MESSAGE SHOW,1@|HIDE,2@|HIDE,3@ MESSAGE SHOW,1@|HIDE,2@|HIDE,3@
ITEM "2|Libri unici dello studio" ITEM "2|Libri unici dello studio"
MESSAGE SHOW,2@|HIDE,1@|HIDE,3@ MESSAGE SHOW,2@|HIDE,1@|HIDE,3@
ITEM "3|Stampa di prova" ITEM "3|Stampa di prova"
MESSAGE SHOW,3@|HIDE,1@|HIDE,2@|SHOW,CODICE_LIBRO MESSAGE SHOW,3@|HIDE,1@|HIDE,2@|SHOW,CODICE_LIBRO
ITEM "4|Stampa libri con riferimenti al libro giornale" ITEM "4|Stampa libri con riferimenti al libro giornale"
MESSAGE SHOW,1@|HIDE,2@|HIDE,3@ MESSAGE SHOW,1@|HIDE,2@|HIDE,3@
END END
*/ */
@ -33,7 +33,7 @@ BEGIN
END END
GROUPBOX DLG_NULL 35 5 GROUPBOX DLG_NULL 35 5
BEGIN BEGIN
PROMPT 20 1 "Scelta ditte" PROMPT 20 1 "Scelta ditte"
END END
@ -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"

149
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,8 +169,8 @@ 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
OUTPUT FLD_COCACH CODCAUS OUTPUT FLD_COCACH CODCAUS
@ -181,15 +182,14 @@ 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
CHECKTYPE NORMAL CHECKTYPE NORMAL
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