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

Corretti errori

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@1846 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
nik 1995-09-18 10:45:10 +00:00
parent 1d1035ed0a
commit b324468b47
11 changed files with 3348 additions and 3333 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
cg/cg0400.cpp
View File

@ -120,6 +120,7 @@ class CG0400_application : public TPrintapp
TDate _data;
int _sospmsk, _tipoprog, _livelloprog, _tipo_aliq, _tipo_attiv, _annoiva, _i;
int _mese, _anno;
long _codditta;
bool _st_inizio_anno, _prima_pagina;
TIva_array _iva_array,_iva1_array;
TGen_array _gen_array,_gen1_array;
@ -275,7 +276,7 @@ void CG0400_application::look_pim()
//Modifica del 12/07/1995
if (tipoiva == "VE") continue; //i codici iva di tipo "VE"
//Fine //non devono essere stampati
//Fine //non devono essere stampati
while (classify_pim(pim.curr(), imponibile, imposta, tipo))
{
@ -512,6 +513,7 @@ bool CG0400_application::set_print(int m)
case visualizza:
{
_sospmsk = _tipo_aliq = _tipo_attiv = 0;
_codditta = msk.get_long(F_CODDITTA);
_annoiva = msk.get_int(F_ANNO);
_tipoprog = msk.get_int(F_TIPO); // 1 <=> vendite; 2 <=> acquisti
_livelloprog = msk.get_int(F_LIVELLO); // 1 <=> aliquota; 2 <=> attivita'
@ -531,6 +533,7 @@ bool CG0400_application::set_print(int m)
break;
case stampa:
{
_codditta = msk.get_long(F_CODDITTA);
_anno = msk.get_int(F_ANNO);
_datast = msk.get(F_DATASTAMPA);
_mese = msk.get_int(F_MESE);
@ -538,7 +541,7 @@ bool CG0400_application::set_print(int m)
TLocalisamfile attiv(LF_ATTIV);
attiv.zero();
attiv.put(ATT_CODDITTA, get_firm());
attiv.put(ATT_CODDITTA, _codditta);
TRectype r(attiv.curr());
//prospetto per ogni codice attivita' della ditta
for(attiv.read(_isgteq); !attiv.eof(); attiv.next())
@ -814,7 +817,7 @@ void CG0400_application::get_dati_ditta()
TString tipoa;
nditte.zero();
nditte.put(NDT_CODDITTA, get_firm());
nditte.put(NDT_CODDITTA, _codditta);
nditte.read();
if (nditte.bad()) nditte.zero();
@ -859,13 +862,11 @@ void CG0400_application::get_dati_ditta()
int CG0400_application::stampa_intestazione_ditta()
{
int r = 1;
TString codice_ditta;
TString riga(132);
get_dati_ditta();
codice_ditta << get_firm();
set_header (r, "Ditta %s %s %s %s %s %s", (const char*)codice_ditta,
set_header (r, "Ditta %ld %s %s %s %s %s", _codditta,
(const char*)_ragsoc, (const char*)_viafis,
(const char*)_cap, (const char*)_comunefis,
(const char*)_provfis);
@ -972,7 +973,7 @@ void CG0400_application::preprocess_header()
TLocalisamfile nditte(LF_NDITTE);
nditte.zero();
nditte.put(NDT_CODDITTA, get_firm());
nditte.put(NDT_CODDITTA, _codditta);
if (nditte.read() == NOERR)
{
ragsoc = nditte.get(NDT_RAGSOC);
@ -985,14 +986,14 @@ void CG0400_application::preprocess_header()
reset_header();
char f = look_lia();
char f = look_lia(_codditta);
if (f == 'T')
descf = " TRIMESTRALE";
else if (f == 'M')
descf = " MENSILE";
else descf = "";
sep << "Ditta " << get_firm();
sep << "Ditta " << _codditta;
sep << " " << ragsoc;
sep << " " << descf;

48
cg/cg0400a.uml
View File

@ -1,6 +1,6 @@
#include "cg0400.h"
PAGE "Visualizzazione progressivi IVA" -1 -1 78 19
PAGE "Riepilogo progressivi IVA" -1 -1 78 19
GROUPBOX DLG_NULL 78 3
BEGIN
@ -9,26 +9,32 @@ END
NUMBER F_CODDITTA 5
BEGIN
PROMPT 3 1 "Ditta "
FLAGS "FRD"
USE LF_NDITTE KEY 1
CHECKTYPE REQUIRED
INPUT CODDITTA F_CODDITTA
DISPLAY "Codice" CODDITTA
DISPLAY "Ragione sociale @50" RAGSOC
OUTPUT F_RAGSOC RAGSOC
OUTPUT F_ATTIVITA CODATTPREV
PROMPT 2 1 "Ditta "
FLAGS "ZFR"
USE LF_NDITTE KEY 1
INPUT CODDITTA F_CODDITTA
DISPLAY "Ditta" CODDITTA
DISPLAY "Ragione sociale@50" RAGSOC
OUTPUT F_CODDITTA CODDITTA
OUTPUT F_RAGSOC RAGSOC
OUTPUT F_ATTIVITA CODATTPREV
CHECKTYPE REQUIRED
WARNING "Ditta assente"
END
STRING F_RAGSOC 50
BEGIN
PROMPT 17 1 "Ragione "
FLAGS "D"
PROMPT 17 1 "Rag.Soc."
USE LF_NDITTE KEY 2
INPUT RAGSOC F_RAGSOC
DISPLAY "Ragione Sociale@50" RAGSOC
DISPLAY "Codice" CODDITTA
COPY OUTPUT F_CODDITTA
END
NUMBER F_ANNO 4
BEGIN
PROMPT 3 3 "Anno liquidazione "
PROMPT 2 3 "Anno liquidazione "
HELP "Anno di cui si effettua la liquidazione"
FLAGS "A"
VALIDATE FIXLEN_FUNC 4
@ -37,7 +43,7 @@ END
RADIOBUTTON F_TIPO 18
BEGIN
PROMPT 3 5 "Tipo progressivi "
PROMPT 2 5 "Tipo progressivi "
HELP "Tipo di riepilogo da effettuare"
ITEM "1|Vendite"
MESSAGE HIDE,F_TIPOTABE|HIDE,F_TIPOTABEL|SHOW,F_TIPOTAB
@ -50,7 +56,7 @@ END
RADIOBUTTON F_TIPO1 18
BEGIN
PROMPT 3 5 "Tipo progressivi "
PROMPT 2 5 "Tipo progressivi "
HELP "Tipo di riepilogo da effettuare"
ITEM "1|Vendite"
MESSAGE HIDE,F_TIPOTABE|HIDE,F_TIPOTABEL|HIDE,F_TIPOTAB
@ -63,7 +69,7 @@ END
RADIOBUTTON F_LIVELLO 21
BEGIN
PROMPT 38 5 "Livello progressivi "
PROMPT 37 5 "Livello progressivi "
HELP "Tipo di raggruppamento dei riepiloghi"
ITEM "1|Per aliquota"
MESSAGE HIDE,F_ATTIVITA|SHOW,F_CODIVA|SHOW,F_TIPOTAB
@ -75,7 +81,7 @@ END
STRING F_CODIVA 4
BEGIN
PROMPT 3 10 "Codice IVA "
PROMPT 2 10 "Codice IVA "
HELP "Aliquota IVA da riepilogare"
FLAGS "U"
USE %IVA
@ -92,7 +98,7 @@ END
RADIOBUTTON F_TIPOTAB 38
BEGIN
PROMPT 3 12 "Tipo tabella "
PROMPT 2 12 "Tipo tabella "
HELP "Tipo di tabella da visualizzare"
ITEM "1|Vendite in genere"
ITEM "2|Vendite in sospensione d'imposta"
@ -100,7 +106,7 @@ END
STRING F_ATTIVITA 5
BEGIN
PROMPT 3 10 "Codice attivita' "
PROMPT 2 10 "Codice attivita' "
HELP "Codice dell'attivita' di cui si vuole il riepilogo"
USE LF_ATTIV
JOIN %AIS TO LF_ATTIV INTO CODTAB=CODATT
@ -115,7 +121,7 @@ END
NUMBER F_TIPOTABEL 1
BEGIN
PROMPT 3 12 "Tipo tabella "
PROMPT 2 12 "Tipo tabella "
HELP "Tipo di tabella da visualizzare"
SHEET "Tipo|Descrizione@50"
ITEM "1|Acquisti beni per rivendita"
@ -129,7 +135,7 @@ END
NUMBER F_TIPOTABE 1
BEGIN
PROMPT 3 12 "Tipo tabella "
PROMPT 2 12 "Tipo tabella "
HELP "Tipo di tabella da visualizzare"
SHEET "Tipo|Descrizione@50"
ITEM "1|Acquisti in genere"

28
cg/cg0400b.uml
View File

@ -9,32 +9,38 @@ END
NUMBER F_CODDITTA 5
BEGIN
PROMPT 3 1 "Ditta "
FLAGS "FRD"
PROMPT 2 1 "Ditta "
FLAGS "ZFR"
USE LF_NDITTE KEY 1
CHECKTYPE REQUIRED
INPUT CODDITTA F_CODDITTA
DISPLAY "Codice" CODDITTA
DISPLAY "Ragione sociale @50" RAGSOC
DISPLAY "Ditta" CODDITTA
DISPLAY "Ragione sociale@50" RAGSOC
OUTPUT F_CODDITTA CODDITTA
OUTPUT F_RAGSOC RAGSOC
CHECKTYPE REQUIRED
WARNING "Ditta assente"
END
STRING F_RAGSOC 50
BEGIN
PROMPT 17 1 "Ragione "
FLAGS "D"
PROMPT 17 1 "Rag.Soc."
USE LF_NDITTE KEY 2
INPUT RAGSOC F_RAGSOC
DISPLAY "Ragione Sociale@50" RAGSOC
DISPLAY "Codice" CODDITTA
COPY OUTPUT F_CODDITTA
END
DATE F_DATASTAMPA
BEGIN
PROMPT 3 4 "Data stampa "
PROMPT 2 4 "Data stampa "
HELP "Data in cui viene effettuata la stampa"
FLAGS "A"
END
NUMBER F_ANNO 4
BEGIN
PROMPT 3 6 "Anno riepilogo "
PROMPT 2 6 "Anno riepilogo "
FLAGS "A"
VALIDATE FIXLEN_FUNC 4
CHECKTYPE REQUIRED
@ -42,13 +48,13 @@ END
LISTBOX F_MESE 9
BEGIN
PROMPT 3 7 "Mese riepilogo "
PROMPT 2 7 "Mese riepilogo "
FLAGS "AM"
END
BOOLEAN F_STAMPA
BEGIN
PROMPT 3 9 "Stampa progressivi da inizio anno "
PROMPT 2 9 "Stampa progressivi da inizio anno "
END
/*

46
cg/cg4304.cpp
View File

@ -1823,44 +1823,44 @@ void TLiquidazione_app::set_acconto_p(_DescrItem& d)
const char* errmsg[3] = {
{"manca la tabella risultati liquidazione per l'anno corrente"},
{"manca la tabella risultati liquidazione per l'anno precedente"},
{"manca la tabella dichiarazione annuale per l'anno precedente"}};
{"manca la tabella risultati liquidazione per l'anno precedente"},
{"manca la tabella dichiarazione annuale per l'anno precedente"}};
set_row(1,"%t@7g%t",&(d._s0), &(d._s1));
if (d._f2)
set_row(1,"@50g@b*** %s ***@r", errmsg[d._f2 -1]);
else
set_row(1,"%t@7g%t",&(d._s0), &(d._s1));
if (d._f2)
set_row(1,"@50g@b*** %s ***@r", errmsg[d._f2 -1]);
else
{
if (d._f0) // base anno in corso
{
if (d._f0) // base anno in corso
{
if (d._f1) // stampa base di calcolo
{
/***
real bc = d._r0;
if (bc.sign() < 0)
{
real bc = d._r0;
if (bc.sign() < 0)
{
bc = abs(bc);
set_row(1,"@73g%r@86g%r@119g%s", &bc, &d._r1,
d._f3 ? "Si" : "No");
}
else
d._f3 ? "Si" : "No");
}
else
set_row(1,"@55g%r@86g%r@119g%s", &bc, &(d._r1),
d._f3 ? "Si" : "No");
***/
d._f3 ? "Si" : "No");
***/
set_row(1,"@58g%r@74g%r@96g%r@122g%s", &(d._r3),
&(d._r2), &(d._r1), d._f3 ? "Si" : "No");
}
else set_row(1,"@62g%r@91g%s", &(d._r1), d._f3 ? "Si" : "No");
}
else
{
}
else
{
if (d._f1) // stampa base di calcolo
set_row(1,"@58g%r@88g%r", &(d._r0), &(d._r1));
else
set_row(1,"@87g%r",&(d._r1));
}
}
//set_print_zero(FALSE);
}
}
//set_print_zero(FALSE);
}
void TLiquidazione_app::set_acchead_p(_DescrItem& d)
@ -1872,7 +1872,7 @@ void TLiquidazione_app::set_acchead_p(_DescrItem& d)
if (d._f0) // base anno in corso
{
set_header(2,"@40gCALCOLO ACCONTI IVA DICEMBRE %s "
"(base anno in corso)", (const char*) _year);
"(base anno in corso)", (const char*) _year);
if (d._f1) // stampa base calcolo
{
set_header(4,"@58g------- Base di calcolo -------");

5
cg/cg4700.cpp
View File

@ -22,7 +22,7 @@ class GesAcc_app : public TRelation_application
virtual TRelation* get_relation() const { return _rel; }
virtual TMask* get_mask(int mode);
virtual bool changing_mask(int mode) {return FALSE; }
virtual int rewrite(const TMask&);
//virtual int rewrite(const TMask&);
//virtual void init_query_mode (TMask&);
//virtual void init_query_insert_mode (TMask&);
};
@ -85,7 +85,7 @@ bool GesAcc_app::msk_acconto(TMask_field& f, KEY k)
return TRUE;
}
/*** Deve farlo il programma di stampa versamenti!
int GesAcc_app::rewrite(const TMask& m)
{
TString16 chiave;
@ -108,6 +108,7 @@ int GesAcc_app::rewrite(const TMask& m)
m.autosave(_rel);
return _rel->rewrite();
}
***/
TMask* GesAcc_app::get_mask(int mode)
{

9
cg/cg4700a.uml
View File

@ -29,11 +29,12 @@ BEGIN
PROMPT 16 1 "Rag.Soc "
KEY 1
USE LF_NDITTE KEY 2
INPUT CODDITTA F_CODDITTA
DISPLAY "Ditta" CODDITTA
INPUT RAGSOC F_RAGSOC
DISPLAY "Ragione sociale@50" RAGSOC
OUTPUT F_CODDITTA CODDITTA
OUTPUT F_RAGSOC RAGSOC
DISPLAY "Ditta" CODDITTA
COPY OUTPUT F_CODDITTA
WARNING "Ditta assente"
CHECKTYPE NORMAL
END
NUMBER F_ANNO 4