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

17
cg/cg0400.cpp
View File

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

38
cg/cg0400a.uml
View File

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

26
cg/cg0400b.uml
View File

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

5
cg/cg4700.cpp
View File

@ -22,7 +22,7 @@ class GesAcc_app : public TRelation_application
virtual TRelation* get_relation() const { return _rel; } virtual TRelation* get_relation() const { return _rel; }
virtual TMask* get_mask(int mode); virtual TMask* get_mask(int mode);
virtual bool changing_mask(int mode) {return FALSE; } 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_mode (TMask&);
//virtual void init_query_insert_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; return TRUE;
} }
/*** Deve farlo il programma di stampa versamenti!
int GesAcc_app::rewrite(const TMask& m) int GesAcc_app::rewrite(const TMask& m)
{ {
TString16 chiave; TString16 chiave;
@ -108,6 +108,7 @@ int GesAcc_app::rewrite(const TMask& m)
m.autosave(_rel); m.autosave(_rel);
return _rel->rewrite(); return _rel->rewrite();
} }
***/
TMask* GesAcc_app::get_mask(int mode) TMask* GesAcc_app::get_mask(int mode)
{ {

9
cg/cg4700a.uml
View File

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