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

Aumentate ad uno sproposito di colonne tutte le stampe relative

Browse Source 
alla contabilita'.

cglib01.cpp  Cambiato il campo TIPOAPERS in TIPOPER per stabilire il
             tipo di anagrafica nell'oggetto TBill


git-svn-id: svn://10.65.10.50/trunk@5400 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy 1997-10-20 14:23:01 +00:00
parent 8be687cf30
commit 66fe24764c
24 changed files with 632 additions and 983 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
cg/cg2100b.uml
View File

@ -48,7 +48,6 @@ END
DATE F_DATAREG DATE F_DATAREG
BEGIN BEGIN
PROMPT 1 3 "Data operazione " PROMPT 1 3 "Data operazione "
HELP "Data in cui viene effettuata l'operazione"
FIELD DATAREG FIELD DATAREG
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
MESSAGE COPY,K_DATAREG MESSAGE COPY,K_DATAREG
@ -58,7 +57,6 @@ END
DATE F_DATACOMP DATE F_DATACOMP
BEGIN BEGIN
PROMPT 1 4 "Data di competenza " PROMPT 1 4 "Data di competenza "
HELP "Data di competenza dell'operazione"
FIELD DATACOMP FIELD DATACOMP
MESSAGE COPY,K_DATACOMP MESSAGE COPY,K_DATACOMP
// DATACOMP NEW WAY // DATACOMP NEW WAY
@ -76,7 +74,6 @@ END
STRING F_CODCAUS 3 STRING F_CODCAUS 3
BEGIN BEGIN
PROMPT 1 5 "Causale " PROMPT 1 5 "Causale "
HELP "Codice della causale generante l'operazione"
FLAGS "UZ" FLAGS "UZ"
FIELD CODCAUS FIELD CODCAUS
USE LF_CAUSALI USE LF_CAUSALI
@ -96,7 +93,6 @@ END
STRING F_DESCRCAUS 50 STRING F_DESCRCAUS 50
BEGIN BEGIN
PROMPT 25 5 "" PROMPT 25 5 ""
HELP "Descrizione della causale generante l'operazione"
USE LF_CAUSALI KEY 2 USE LF_CAUSALI KEY 2
INPUT DESCR F_DESCRCAUS INPUT DESCR F_DESCRCAUS
DISPLAY "Descrizione@50" DESCR DISPLAY "Descrizione@50" DESCR
@ -108,7 +104,6 @@ END
LIST F_PROVVISORIO 1 24 LIST F_PROVVISORIO 1 24
BEGIN BEGIN
PROMPT 1 6 "Movimento provvisorio " PROMPT 1 6 "Movimento provvisorio "
HELP "Indicare se si tratta di movimento provvisorio"
FIELD PROVVIS FIELD PROVVIS
ITEM " |No (movimento normale)" ITEM " |No (movimento normale)"
ITEM "P|Si (cancellabile)" ITEM "P|Si (cancellabile)"
@ -126,7 +121,6 @@ END
DATE F_DATADOC DATE F_DATADOC
BEGIN BEGIN
PROMPT 1 7 "Data del documento " PROMPT 1 7 "Data del documento "
HELP "Data del documento generante il movimento"
FIELD DATADOC FIELD DATADOC
WARNING "Specificare una data del documento non superiore a quella dell'operazione" WARNING "Specificare una data del documento non superiore a quella dell'operazione"
VALIDATE DATE_CMP_FUNC <= F_DATAREG VALIDATE DATE_CMP_FUNC <= F_DATAREG
@ -136,7 +130,6 @@ END
STRING F_NUMDOC 7 STRING F_NUMDOC 7
BEGIN BEGIN
PROMPT 56 7 "Documento n. " PROMPT 56 7 "Documento n. "
HELP "Numero del documento generante il movimento"
FIELD NUMDOC FIELD NUMDOC
FLAGS "U" FLAGS "U"
WARNING "La causale impone di specificare il numero documento" WARNING "La causale impone di specificare il numero documento"
@ -151,7 +144,6 @@ END
STRING F_DESCAGG 5 STRING F_DESCAGG 5
BEGIN BEGIN
PROMPT 1 8 "Descrizione " PROMPT 1 8 "Descrizione "
HELP "Codice descrizione del movimento di contabilita'"
FLAGS "UZ" FLAGS "UZ"
USE %DPN USE %DPN
INPUT CODTAB F_DESCAGG INPUT CODTAB F_DESCAGG
@ -165,7 +157,6 @@ END
STRING F_DESCR 50 STRING F_DESCR 50
BEGIN BEGIN
PROMPT 25 8 "" PROMPT 25 8 ""
HELP "Descrizione del movimento di contabilita'"
FIELD DESCR FIELD DESCR
USE %DPN KEY 2 USE %DPN KEY 2
INPUT S0 F_DESCR INPUT S0 F_DESCR
@ -183,7 +174,6 @@ END
STRING SK_VALUTA 3 STRING SK_VALUTA 3
BEGIN BEGIN
PROMPT 2 11 "Valuta " PROMPT 2 11 "Valuta "
HELP "Codice della valuta per movimento"
FIELD CODVAL FIELD CODVAL
FLAGS "UZ" FLAGS "UZ"
GROUP 3 5 GROUP 3 5
@ -223,7 +213,7 @@ BEGIN
WARNING "E' stata specificata una valuta senza il cambio relativo" WARNING "E' stata specificata una valuta senza il cambio relativo"
END END
NUMBER F_TOTALE 15 NUMBER F_TOTALE 18
BEGIN BEGIN
PROMPT 2 12 "Importo movimento " PROMPT 2 12 "Importo movimento "
PICTURE "." PICTURE "."
@ -233,10 +223,9 @@ BEGIN
MESSAGE COPY,K_TOTALE MESSAGE COPY,K_TOTALE
END END
NUMBER SK_TOTDOCVAL 15 3 NUMBER SK_TOTDOCVAL 18 3
BEGIN BEGIN
PROMPT 44 12 "Totale in valuta " PROMPT 44 12 "Totale in valuta "
HELP ""
PICTURE ".3" PICTURE ".3"
GROUP 3 5 GROUP 3 5
VALIDATE REQIF_FUNC 1 F_TOTALE VALIDATE REQIF_FUNC 1 F_TOTALE
@ -318,17 +307,17 @@ BEGIN
FLAGS "D" FLAGS "D"
END END
NUMBER K_TOTALE 15 NUMBER K_TOTALE 18
BEGIN BEGIN
PROMPT 1 7 "Imp. movimento " PROMPT 1 7 "Imp. mov. "
PICTURE "." PICTURE "."
FLAGS "D" FLAGS "D"
GROUP 5 GROUP 5
END END
NUMBER K_RESIDUO 15 NUMBER K_RESIDUO 18
BEGIN BEGIN
PROMPT 33 7 "Residuo " PROMPT 32 7 "Residuo "
PICTURE "." PICTURE "."
FLAGS "D" FLAGS "D"
GROUP 5 GROUP 5
@ -345,8 +334,8 @@ END
SPREADSHEET F_SHEETCG 0 -2 SPREADSHEET F_SHEETCG 0 -2
BEGIN BEGIN
PROMPT 0 8 "" PROMPT 0 8 ""
ITEM "Dare@15F" ITEM "Dare@18F"
ITEM "Avere@15F" ITEM "Avere@18F"
ITEM "CF@2" ITEM "CF@2"
ITEM "Gr." ITEM "Gr."
ITEM "Co." ITEM "Co."
@ -363,14 +352,14 @@ BEGIN
ITEM "Tipo@4" ITEM "Tipo@4"
END END
NUMBER F_DARE 15 NUMBER F_DARE 18
BEGIN BEGIN
PROMPT 1 -1 "Sbilancio Dare " PROMPT 1 -1 "Sbilancio Dare "
FLAGS "DRV" FLAGS "DRV"
PICTURE "." PICTURE "."
END END
NUMBER F_AVERE 15 NUMBER F_AVERE 18
BEGIN BEGIN
PROMPT 41 -1 "Sbilancio Avere " PROMPT 41 -1 "Sbilancio Avere "
FLAGS "DRV" FLAGS "DRV"

36
cg/cg2100c.uml
View File

@ -445,16 +445,16 @@ BEGIN
WARNING "Inserire il cambio o eliminare il codice valuta" WARNING "Inserire il cambio o eliminare il codice valuta"
END END
NUMBER F_TOTALE 15 NUMBER F_TOTALE 18
BEGIN BEGIN
PROMPT 1 14 "Totale documento " PROMPT 1 14 "Totale documento "
FIELD TOTDOC FIELD TOTDOC
PICTURE "." PICTURE "."
END END
NUMBER SK_TOTDOCVAL 15 3 NUMBER SK_TOTDOCVAL 18 3
BEGIN BEGIN
PROMPT 35 14 "Tot. in valuta " PROMPT 38 14 "in valuta "
FIELD TOTDOCVAL FIELD TOTDOCVAL
GROUP 3 GROUP 3
PICTURE ".3" PICTURE ".3"
@ -477,7 +477,7 @@ BEGIN
WARNING "Codice IVA assente" WARNING "Codice IVA assente"
END END
NUMBER F_RITFIS 15 NUMBER F_RITFIS 18
BEGIN BEGIN
PROMPT 1 15 "Ritenute fiscali " PROMPT 1 15 "Ritenute fiscali "
FIELD RITFIS FIELD RITFIS
@ -485,7 +485,7 @@ BEGIN
PICTURE "." PICTURE "."
END END
NUMBER F_RITSOC 15 NUMBER F_RITSOC 18
BEGIN BEGIN
PROMPT 1 16 "Ritenute sociali " PROMPT 1 16 "Ritenute sociali "
FIELD RITSOC FIELD RITSOC
@ -537,25 +537,23 @@ NUMBER F_CAMBIOINTRA 15 5
BEGIN BEGIN
PROMPT 39 17 "Cambio intracomun. " PROMPT 39 17 "Cambio intracomun. "
FIELD CAMBIOI FIELD CAMBIOI
FLAGS "RU" FLAGS "U"
GROUP 4 GROUP 4
PICTURE ".5" PICTURE ".5"
END END
NUMBER F_CORRLIRE 15 NUMBER F_CORRLIRE 18
BEGIN BEGIN
PROMPT 1 18 "Corrispett. Lire " PROMPT 1 18 "Corrispett. Lire "
FIELD CORRLIRE FIELD CORRLIRE
FLAGS "R"
PICTURE "." PICTURE "."
GROUP 4 GROUP 4
END END
NUMBER F_CORRVALUTA 15 3 NUMBER F_CORRVALUTA 18 3
BEGIN BEGIN
PROMPT 39 18 "Corrispettivo valuta " PROMPT 39 18 "Corrispet. valuta "
FIELD CORRVALUTA FIELD CORRVALUTA
FLAGS "R"
PICTURE ".3" PICTURE ".3"
GROUP 4 GROUP 4
VALIDATE REQIF_FUNC 1 F_VALUTAINTRA VALIDATE REQIF_FUNC 1 F_VALUTAINTRA
@ -603,10 +601,10 @@ END
SPREADSHEET F_SHEETIVA 0 6 SPREADSHEET F_SHEETIVA 0 6
BEGIN BEGIN
PROMPT 0 4 "" PROMPT 0 4 ""
ITEM "Imponibile@15" ITEM "Imponibile@18"
ITEM "Iva@5" ITEM "Iva@5"
ITEM "Det@1" ITEM "Det@1"
ITEM "Imposta@15" ITEM "Imposta@18"
ITEM "CR@1" ITEM "CR@1"
ITEM "CF@1" ITEM "CF@1"
ITEM "Gr." ITEM "Gr."
@ -615,14 +613,14 @@ BEGIN
ITEM "Descrizione Conto@50" ITEM "Descrizione Conto@50"
END END
NUMBER F_IMPONIBILI 15 NUMBER F_IMPONIBILI 18
BEGIN BEGIN
PROMPT 1 11 "Totale imponibili " PROMPT 1 11 "Totale imponibili "
FLAGS "DV" FLAGS "DV"
PICTURE "." PICTURE "."
END END
NUMBER F_IMPOSTE 15 NUMBER F_IMPOSTE 18
BEGIN BEGIN
PROMPT 41 11 "Totale imposte " PROMPT 41 11 "Totale imposte "
FLAGS "DV" FLAGS "DV"
@ -632,8 +630,8 @@ END
SPREADSHEET F_SHEETCG 0 -2 SPREADSHEET F_SHEETCG 0 -2
BEGIN BEGIN
PROMPT 0 12 "" PROMPT 0 12 ""
ITEM "Dare@15F" ITEM "Dare@18F"
ITEM "Avere@15F" ITEM "Avere@18F"
ITEM "C/F@1" ITEM "C/F@1"
ITEM "Gr." ITEM "Gr."
ITEM "Co." ITEM "Co."
@ -650,14 +648,14 @@ BEGIN
ITEM "Tipo@4" ITEM "Tipo@4"
END END
NUMBER F_DARE 15 NUMBER F_DARE 18
BEGIN BEGIN
PROMPT 1 -1 "Sbilancio Dare " PROMPT 1 -1 "Sbilancio Dare "
FLAGS "DRV" FLAGS "DRV"
PICTURE "." PICTURE "."
END END
NUMBER F_AVERE 15 NUMBER F_AVERE 18
BEGIN BEGIN
PROMPT 41 -1 "Sbilancio Avere " PROMPT 41 -1 "Sbilancio Avere "
FLAGS "DRV" FLAGS "DRV"

25
cg/cg2100p.uml
View File

@ -5,12 +5,13 @@ TOOLBAR "" 0 20 0 2
BUTTON DLG_OK 10 2 BUTTON DLG_OK 10 2
BEGIN BEGIN
PROMPT -12 -11 "" PROMPT -12 -11 ""
PICTURE BMP_OK
END END
BUTTON P_NUOVO 10 2 BUTTON P_NUOVO 10 2
BEGIN BEGIN
PROMPT -22 -11 "~Nuovo" PROMPT -22 -11 "~Nuovo"
PICTURE 105 PICTURE BMP_NEWREC
END END
ENDPAGE ENDPAGE
@ -64,20 +65,20 @@ END
STRING P_NUMERO 7 STRING P_NUMERO 7
BEGIN BEGIN
PROMPT 16 3 "" PROMPT 15 3 ""
FLAGS "U" FLAGS "U"
END END
NUMBER P_RESIDUO 15 NUMBER P_RESIDUO 18
BEGIN BEGIN
PROMPT 30 3 "Residuo " PROMPT 25 3 "Residuo "
FLAGS "D" FLAGS "D"
PICTURE "." PICTURE "."
END END
NUMBER P_RESIDUOVAL 15 3 NUMBER P_RESIDUOVAL 18 3
BEGIN BEGIN
PROMPT 56 3 "" PROMPT 53 3 ""
FLAGS "D" FLAGS "D"
PICTURE ".3" PICTURE ".3"
END END
@ -105,8 +106,8 @@ BEGIN
ITEM "Data doc.@10" ITEM "Data doc.@10"
ITEM "Data scad." ITEM "Data scad."
ITEM "Descrizione@20" ITEM "Descrizione@20"
ITEM "Importo Lire@14" ITEM "Importo Lire@16"
ITEM "Importo Valuta@14" ITEM "Importo Valuta@16"
ITEM "Num. op. " ITEM "Num. op. "
ITEM "Data op.@10" ITEM "Data op.@10"
ITEM "Num. doc." ITEM "Num. doc."
@ -156,25 +157,25 @@ BEGIN
PROMPT 1 5 "Numero documento " PROMPT 1 5 "Numero documento "
END END
STRING 106 14 STRING 106 16
BEGIN BEGIN
PROMPT 34 2 "Documenti " PROMPT 34 2 "Documenti "
FLAGS "R" FLAGS "R"
END END
STRING 107 14 STRING 107 16
BEGIN BEGIN
PROMPT 34 3 "Pagamenti " PROMPT 34 3 "Pagamenti "
FLAGS "R" FLAGS "R"
END END
STRING 108 14 STRING 108 16
BEGIN BEGIN
PROMPT 34 4 "Altri importi " PROMPT 34 4 "Altri importi "
FLAGS "R" FLAGS "R"
END END
STRING 105 14 STRING 105 16
BEGIN BEGIN
PROMPT 34 5 "Saldo " PROMPT 34 5 "Saldo "
FLAGS "R" FLAGS "R"

17
cg/cg2100s.uml
View File

@ -7,6 +7,7 @@ TOOLBAR "" 0 20 0 2
BUTTON DLG_OK 10 2 BUTTON DLG_OK 10 2
BEGIN BEGIN
PROMPT -13 -11 "Conferma" PROMPT -13 -11 "Conferma"
PICTURE BMP_OK
END END
BUTTON DLG_DELREC 10 2 BUTTON DLG_DELREC 10 2
@ -65,14 +66,14 @@ BEGIN
FLAGS "D" FLAGS "D"
END END
NUMBER S_IMPORTO_SCAD 15 NUMBER S_IMPORTO_SCAD 18
BEGIN BEGIN
PROMPT 18 4 "Importo " PROMPT 18 4 "Importo "
PICTURE "." PICTURE "."
FLAGS "DR" FLAGS "DR"
END END
NUMBER S_IMPORTOVAL_SCAD 15 3 NUMBER S_IMPORTOVAL_SCAD 18 3
BEGIN BEGIN
PROMPT 43 4 "Importo in valuta " PROMPT 43 4 "Importo in valuta "
PICTURE ".3" PICTURE ".3"
@ -80,14 +81,14 @@ BEGIN
GROUP 3 GROUP 3
END END
NUMBER S_RESIDUOPAG 15 NUMBER S_RESIDUOPAG 18
BEGIN BEGIN
PROMPT 2 5 "Residuo pagamento " PROMPT 2 5 "Residuo pagamento "
PICTURE "." PICTURE "."
FLAGS "DR" FLAGS "DR"
END END
NUMBER S_RESIDUORATA 15 NUMBER S_RESIDUORATA 18
BEGIN BEGIN
PROMPT 48 5 "Residuo rata " PROMPT 48 5 "Residuo rata "
PICTURE "." PICTURE "."
@ -99,7 +100,7 @@ BEGIN
PROMPT 1 7 "@BPagamento" PROMPT 1 7 "@BPagamento"
END END
NUMBER S_IMPORTO 15 NUMBER S_IMPORTO 18
BEGIN BEGIN
PROMPT 2 8 "Importo pagamento " PROMPT 2 8 "Importo pagamento "
PICTURE "." PICTURE "."
@ -108,15 +109,15 @@ BEGIN
WARNING "L'importo deve essere specificato" WARNING "L'importo deve essere specificato"
END END
NUMBER S_RITENUTE 15 NUMBER S_RITENUTE 18
BEGIN BEGIN
PROMPT 38 8 "Ritenute professionali " PROMPT 41 8 "Ritenute profess. "
PICTURE "." PICTURE "."
FIELD RITENUTE FIELD RITENUTE
MESSAGE DIRTY,S_IMPORTO|K_TAB,S_IMPORTO MESSAGE DIRTY,S_IMPORTO|K_TAB,S_IMPORTO
END END
NUMBER S_IMPORTOVAL 15 3 NUMBER S_IMPORTOVAL 18 3
BEGIN BEGIN
PROMPT 2 9 "Importo in valuta " PROMPT 2 9 "Importo in valuta "
PICTURE ".3" PICTURE ".3"

10
cg/cg21cg.uml
View File

@ -34,17 +34,17 @@ BEGIN
PROMPT 1 4 "Conto principale" PROMPT 1 4 "Conto principale"
END END
NUMBER CG_DARE 15 NUMBER CG_DARE 18
BEGIN BEGIN
PROMPT 2 5 "Dare " PROMPT 2 5 "Dare "
FLAGS "RV" FLAGS "V"
PICTURE "." PICTURE "."
END END
NUMBER CG_AVERE 15 NUMBER CG_AVERE 18
BEGIN BEGIN
PROMPT 43 5 "Avere " PROMPT 38 5 "Avere "
FLAGS "RV" FLAGS "V"
PICTURE "." PICTURE "."
END END

11
cg/cg21iva.uml
View File

@ -49,19 +49,18 @@ BEGIN
FLAGS "D" FLAGS "D"
END END
NUMBER 101 15 NUMBER 101 18
BEGIN BEGIN
PROMPT 2 4 "Imponibile " PROMPT 2 4 "Imponibile "
HELP "Importo imponibile" FLAGS "V"
FLAGS "RV"
PICTURE "." PICTURE "."
END END
NUMBER 104 15 NUMBER 104 18
BEGIN BEGIN
PROMPT 48 4 "Imposta " PROMPT 48 4 "Imposta "
HELP "Importo dell'IVA. Se e' nullo, col tasto F8 si puo' effettuare lo scorporo" HELP "Importo dell'IVA. Se e' nullo, col tasto F8 si puo' effettuare lo scorporo"
FLAGS "RV" FLAGS "V"
PICTURE "." PICTURE "."
END END

4
cg/cg21rata.uml
View File

@ -7,7 +7,7 @@ BEGIN
WARNING "La data di scadenza e' obbligatoria" WARNING "La data di scadenza e' obbligatoria"
END END
NUMBER 102 15 NUMBER 102 18
BEGIN BEGIN
PROMPT 1 3 "Importo " PROMPT 1 3 "Importo "
PICTURE "." PICTURE "."
@ -15,7 +15,7 @@ BEGIN
WARNING "L'importo della rata non puo' essere nullo" WARNING "L'importo della rata non puo' essere nullo"
END END
NUMBER 103 15 3 NUMBER 103 18 3
BEGIN BEGIN
PROMPT 1 4 "Importo valuta " PROMPT 1 4 "Importo valuta "
FLAGS "D" FLAGS "D"

34
cg/cg21sld.uml
View File

@ -2,29 +2,39 @@ PAGE "Scadenze" -1 -1 77 20
TEXT DLG_NULL TEXT DLG_NULL
BEGIN BEGIN
PROMPT 1 0 "@bGestione scadenzario" PROMPT 1 0 "Imponibili"
END END
NUMBER FS_IMPONIBILI 15 TEXT DLG_NULL
BEGIN BEGIN
PROMPT 1 1 "Imponibili " PROMPT 30 0 "Imposte"
END
TEXT DLG_NULL
BEGIN
PROMPT 59 0 "Spese"
END
NUMBER FS_IMPONIBILI 18
BEGIN
PROMPT 1 1 ""
PICTURE "." PICTURE "."
FLAGS "D" FLAGS "D"
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
END END
NUMBER FS_IMPOSTE 15 NUMBER FS_IMPOSTE 18
BEGIN BEGIN
PROMPT 30 1 "Imposte " PROMPT 30 1 ""
PICTURE "." PICTURE "."
FLAGS "D" FLAGS "D"
END END
NUMBER FS_SPESE 15 NUMBER FS_SPESE 18
BEGIN BEGIN
PROMPT 56 1 "Spese " PROMPT 59 1 ""
PICTURE "." PICTURE "."
FLAGS "DR" FLAGS "D"
END END
RADIOBUTTON FS_RDIFFER 1 35 RADIOBUTTON FS_RDIFFER 1 35
@ -36,9 +46,9 @@ BEGIN
ITEM "4|Uguali finche' possibile" MESSAGE DISABLE,FS_NRATE ITEM "4|Uguali finche' possibile" MESSAGE DISABLE,FS_NRATE
END END
STRING FS_NAMEPAG 50 23 STRING FS_NAMEPAG 50 29
BEGIN BEGIN
PROMPT 38 2 "Pagamento " PROMPT 38 2 "Pagamento "
FLAGS "D" FLAGS "D"
END END
@ -204,8 +214,8 @@ SPREADSHEET FS_RATESHEET 0 -2
BEGIN BEGIN
PROMPT 1 11 "Rate" PROMPT 1 11 "Rate"
ITEM "Scadenza@10" ITEM "Scadenza@10"
ITEM "Importo@15" ITEM "Importo@18"
ITEM "In Valuta@15" ITEM "In Valuta@18"
ITEM "%@6" ITEM "%@6"
ITEM "Tipo" ITEM "Tipo"
ITEM "Classif." ITEM "Classif."

342
cg/cg3100.cpp
View File

@ -27,7 +27,6 @@
enum liste { enum liste {
movimenti=1, movimenti=1,
fatture=2, fatture=2,
movimenti_sezionale=3
}; };
bool filter_func (const TRelation *); bool filter_func (const TRelation *);
@ -90,6 +89,7 @@ class TListaMov_application : public TPrintapp
long _numreg, _numreg_fin, _numreg_ini, _codalleg, _numeroregp,_codclifosucc; long _numreg, _numreg_fin, _numreg_ini, _codalleg, _numeroregp,_codclifosucc;
long _codcf_prec, _numr, _numero; long _codcf_prec, _numr, _numero;
int _ae, _anno, _annoes, _annoeser; int _ae, _anno, _annoes, _annoeser;
bool _noseparator;
real _totdocumenti, _totdoc, _totimponibile, _totimposta, _importo; real _totdocumenti, _totdoc, _totimponibile, _totimposta, _importo;
real _op_esenti, _op_non_imp, _impo, _impos; real _op_esenti, _op_non_imp, _impo, _impos;
real _tot_dare, _tot_avere, _tot_avere_giornaliero; real _tot_dare, _tot_avere, _tot_avere_giornaliero;
@ -205,8 +205,7 @@ bool data_fine(TMask_field& f, KEY k)
} }
TEsercizi_contabili esc; TEsercizi_contabili esc;
if ( esc.exist(anno) && ( (app()._masc == "cg3100b") || if (esc.exist(anno) && ( (app()._masc == "cg3100b") || ((app()._masc == "cg3100a" ) && (decidi == 2)) ) )
((app()._masc == "cg3100a" ) && (decidi == 2)) ) )
{ {
const int prossimo = esc.next(anno); const int prossimo = esc.next(anno);
const TDate fine = esc[prossimo > 0 ? prossimo : anno].fine(); const TDate fine = esc[prossimo > 0 ? prossimo : anno].fine();
@ -227,11 +226,9 @@ bool data_fine(TMask_field& f, KEY k)
bool TListaMov_application::RicercaDoc(const char * tipo) bool TListaMov_application::RicercaDoc(const char * tipo)
{ {
TTable tab_tpd(TAB_TPD); TTable tab_tpd(TAB_TPD);
TString codtab = format ("%-2s", tipo); TString codtab = format ("%-2s", tipo);
tab_tpd.zero(); tab_tpd.zero();
tab_tpd.put("CODTAB", codtab); tab_tpd.put("CODTAB", codtab);
tab_tpd.read(); tab_tpd.read();
if (tab_tpd.good()) if (tab_tpd.good())
@ -751,26 +748,21 @@ void TListaMov_application::set_page(int file, int count)
{ {
_nr = 1; _nr = 1;
set_row(_nr,"@3n",FLD(LF_RMOV,RMV_NUMRIG)); set_row(_nr,"@3n",FLD(LF_RMOV,RMV_NUMRIG));
// set_row(_nr,"@5g@3s",FLD(LF_MOV,MOV_CODCAUS)); set_row(_nr,"@30g@22s",FLD(LF_RMOV,RMV_DESCR));
// set_row(_nr,"@9g#.20t", &_descr_causale); set_row(_nr,"@54g@pn",FLD(LF_RMOV,RMV_GRUPPO,"###"));
set_row(_nr,"@30g@24s",FLD(LF_RMOV,RMV_DESCR)); set_row(_nr,"@58g@pn",FLD(LF_RMOV,RMV_CONTO,"###"));
set_row(_nr,"@56g@pn",FLD(LF_RMOV,RMV_GRUPPO,"###")); set_row(_nr,"@62g@pn",FLD(LF_RMOV,RMV_SOTTOCONTO,"######"));
set_row(_nr,"@60g@pn",FLD(LF_RMOV,RMV_CONTO,"###")); set_row(_nr,"@69g#.20t",&_descr);
set_row(_nr,"@64g@pn",FLD(LF_RMOV,RMV_SOTTOCONTO,"######"));
set_row(_nr,"@71g#.21t",&_descr);
_appoggio = current_cursor()->curr(LF_RMOV).get(RMV_SEZIONE); _appoggio = current_cursor()->curr(LF_RMOV).get(RMV_SEZIONE);
if ((_appoggio=="D")||(_appoggio=="d")) if ((_appoggio=="D")||(_appoggio=="d"))
set_row(_nr,"@93g@pN",FLD(LF_RMOV,RMV_IMPORTO,"###.###.###.###")); set_row(_nr,"@90g@n",FLD(LF_RMOV,RMV_IMPORTO));
else else
set_row(_nr,"@111g@pN",FLD(LF_RMOV,RMV_IMPORTO,"###.###.###.###")); set_row(_nr,"@110g@n",FLD(LF_RMOV,RMV_IMPORTO));
//set_row(_nr,"@130g@f",FLD(LF_MOV,MOV_STAMPATO));
} }
else if (file == LF_MOV) else if (file == LF_MOV)
{ {
TString dep(132);
dep = "";
_n = 1; _n = 1;
set_row (_n++,(const char*)dep); set_row (_n++,"");
set_row (_n, "Operazione n. @14g@7n", FLD(LF_MOV,MOV_NUMREG)); set_row (_n, "Operazione n. @14g@7n", FLD(LF_MOV,MOV_NUMREG));
set_row (_n, "@22gdel@26g@d",FLD(LF_MOV,MOV_DATAREG)); set_row (_n, "@22gdel@26g@d",FLD(LF_MOV,MOV_DATAREG));
set_row (_n, "@37g@36s",FLD(LF_MOV,MOV_DESCR)); set_row (_n, "@37g@36s",FLD(LF_MOV,MOV_DESCR));
@ -806,12 +798,6 @@ void TListaMov_application::set_page(int file, int count)
} }
break; break;
case fatture:
break;
case movimenti_sezionale:
break;
default: default:
break; break;
} }
@ -819,9 +805,7 @@ void TListaMov_application::set_page(int file, int count)
void TListaMov_application::stampa_intestazione() void TListaMov_application::stampa_intestazione()
{ {
TString sep; set_row (1,"");
sep = "";
set_row (1,(const char*)sep);
if (_tipo_elenco == "C") if (_tipo_elenco == "C")
set_row (2, "@bCliente@8g@6n", FLD(LF_MOV,MOV_CODCF)); set_row (2, "@bCliente@8g@6n", FLD(LF_MOV,MOV_CODCF));
else else
@ -1077,11 +1061,7 @@ bool TListaMov_application::preprocess_page(int file,int counter)
_tipodoc = cur->curr(LF_MOV).get(MOV_TIPODOC); _tipodoc = cur->curr(LF_MOV).get(MOV_TIPODOC);
_codval = cur->curr(LF_MOV).get(MOV_CODVALI); _codval = cur->curr(LF_MOV).get(MOV_CODVALI);
_totdoc = cur->curr(LF_MOV).get_real(MOV_TOTDOC); _totdoc = cur->curr(LF_MOV).get_real(MOV_TOTDOC);
/*
if ((_tipo_elenco != _tipo_clifo_prec) &&
(_tipo_clifo_prec != "") && _salto_pagina)
printer().formfeed();
*/
if (_tipo_elenco != _tipo_clifo_prec && _tipo_clifo_prec != "") if (_tipo_elenco != _tipo_clifo_prec && _tipo_clifo_prec != "")
printer().formfeed(); printer().formfeed();
@ -1151,18 +1131,7 @@ bool TListaMov_application::preprocess_page(int file,int counter)
_allegb = CausAlleg(_codcaus); _allegb = CausAlleg(_codcaus);
_descr_doc = DescrDoc(_tipodoc); _descr_doc = DescrDoc(_tipodoc);
_intra = cur->curr(LF_RMOVIVA).get_bool(RMI_INTRA); _intra = cur->curr(LF_RMOVIVA).get_bool(RMI_INTRA);
/*
if ((_codval != "LIT") && _intracom)
{
reset_row(1);
set_row(1,"Corr.in lire@14g@pN",FLD(LF_MOV,MOV_CORRLIRE,"###.###.###.###"));
set_row(1,"@34gCorr.in valuta@49g@pN",FLD(LF_MOV,MOV_CORRVALUTA,"###.###.###,@@@"));
if (_simbolo.not_empty())
set_row(1,"@65g%.5s", (const char *)_simbolo);
else
set_row(1,"@65g%.3s", (const char *)_codval);
}
*/
if (!_settata_prima_riga) if (!_settata_prima_riga)
{ {
reset_print(); reset_print();
@ -1186,8 +1155,8 @@ bool TListaMov_application::preprocess_page(int file,int counter)
set_row(2,"@49g@3s",FLD(LF_MOV,MOV_CODCAUS)); set_row(2,"@49g@3s",FLD(LF_MOV,MOV_CODCAUS));
set_row(2,"@53g@2s",FLD(LF_MOV,MOV_TIPODOC)); set_row(2,"@53g@2s",FLD(LF_MOV,MOV_TIPODOC));
set_row(2,"@56g%-.12s", (const char *)_descr_doc); set_row(2,"@56g%-.12s", (const char *)_descr_doc);
set_row(2,"@69g@pN",FLD(LF_MOV,MOV_TOTDOC,"###.###.###.###")); set_row(2,"@67g@n",FLD(LF_MOV,MOV_TOTDOC));
set_row(2,"@85g@pN",FLD(LF_RMOVIVA,RMI_IMPONIBILE,"###.###.###.###")); set_row(2,"@84g@n",FLD(LF_RMOVIVA,RMI_IMPONIBILE));
set_row(2,"@101g@4s",FLD(LF_RMOVIVA,RMI_CODIVA)); set_row(2,"@101g@4s",FLD(LF_RMOVIVA,RMI_CODIVA));
set_row(2,"@105g@1n",FLD(LF_RMOVIVA,RMI_TIPODET)); set_row(2,"@105g@1n",FLD(LF_RMOVIVA,RMI_TIPODET));
if (_tipoatt == "E") if (_tipoatt == "E")
@ -1196,7 +1165,7 @@ bool TListaMov_application::preprocess_page(int file,int counter)
else if (_ricser == 2) else if (_ricser == 2)
set_row(2,"@109g2"); set_row(2,"@109g2");
set_row(2,"@111g@f",FLD(LF_RMOVIVA,RMI_INTRA)); set_row(2,"@111g@f",FLD(LF_RMOVIVA,RMI_INTRA));
set_row(2,"@114g@pN",FLD(LF_RMOVIVA,RMI_IMPOSTA,"###.###.###.###")); set_row(2,"@114g@n",FLD(LF_RMOVIVA,RMI_IMPOSTA));
if (_allegb) if (_allegb)
set_row(2,"@131g*"); set_row(2,"@131g*");
@ -1207,10 +1176,10 @@ bool TListaMov_application::preprocess_page(int file,int counter)
else if (_settata_prima_riga) else if (_settata_prima_riga)
{ {
reset_print(); reset_print();
set_row(1,"@85g@pN", FLD(LF_RMOVIVA,RMI_IMPONIBILE,"###.###.###.###")); set_row(1,"@84g@n", FLD(LF_RMOVIVA,RMI_IMPONIBILE));
set_row(1,"@101g@4s", FLD(LF_RMOVIVA,RMI_CODIVA)); set_row(1,"@101g@4s", FLD(LF_RMOVIVA,RMI_CODIVA));
set_row(1,"@105g@1n",FLD(LF_RMOVIVA,RMI_TIPODET)); set_row(1,"@105g@1n",FLD(LF_RMOVIVA,RMI_TIPODET));
set_row(1,"@114g@pN", FLD(LF_RMOVIVA,RMI_IMPOSTA,"###.###.###.###")); set_row(1,"@114g@n", FLD(LF_RMOVIVA,RMI_IMPOSTA));
incrementa_totali(); incrementa_totali();
} }
return TRUE; return TRUE;
@ -1218,9 +1187,6 @@ bool TListaMov_application::preprocess_page(int file,int counter)
} }
break; break;
case movimenti_sezionale:
break;
default: default:
break; break;
} }
@ -1334,28 +1300,16 @@ print_action TListaMov_application::postprocess_page(int file,int count)
{ {
if (( _scelta_stampa == 0 && _controllo_mov_errati != 1 && _decidi == 2) || (_scelta_stampa == 1 && _decidi == 2)) if (( _scelta_stampa == 0 && _controllo_mov_errati != 1 && _decidi == 2) || (_scelta_stampa == 1 && _decidi == 2))
{ {
TString data = _datareg.string(); set_row(n, "@b@60gTotali del giorno %s", _datareg.string());
set_row(n, "@b@60gTotali del"); set_row(n++, "@b@90g%r %r", &_tot_dare_giornaliero, &_tot_avere_giornaliero);
set_row(n, "@b@71ggiorno %s", (const char *)data);
TString pall (_tot_dare_giornaliero.string("#.###.###.###.###"));
TString ball (_tot_avere_giornaliero.string("#.###.###.###.###"));
set_row(n, "@b@91g%s", (const char*)pall);
set_row(n++, "@b@109g%s", (const char*)ball);
_tot_avere_giornaliero = 0; _tot_avere_giornaliero = 0;
_tot_dare_giornaliero = 0; _tot_dare_giornaliero = 0;
} }
if ((_scelta_stampa == 0 && _controllo_mov_errati != 1 && FINITO) || (_scelta_stampa == 1 && FINITO)) if ((_scelta_stampa == 0 && _controllo_mov_errati != 1 && FINITO) || (_scelta_stampa == 1 && FINITO))
{ {
TString sep; set_row(n++,"");
sep = ""; set_row(n, "@b@60gTotale generale");
set_row(n,(const char*)sep); set_row(n++, "@b@90g%r %r", &_tot_dare_generale, &_tot_avere_generale);
set_row(++n, "@b@60gTotale generale");
TString pal (_tot_dare_generale.string("#.###.###.###.###"));
TString bal (_tot_avere_generale.string("#.###.###.###.###"));
set_row(n, "@b@91g%s", (const char*)pal);
set_row(n++, "@b@109g%s", (const char*)bal);
//set_row(n, "@b@93g%r", &_tot_dare_generale);
//set_row(n++, "@b@111g%r", &_tot_avere_generale);
} }
} }
@ -1386,12 +1340,6 @@ break;
TString vall (corrval.string("###.###.###.###,@@@")); TString vall (corrval.string("###.###.###.###,@@@"));
set_row(rr,"Corr.in lire@14g%r", &corrlire); set_row(rr,"Corr.in lire@14g%r", &corrlire);
set_row(rr,"@34gCorr.in valuta@49g%s", (const char*) vall); set_row(rr,"@34gCorr.in valuta@49g%s", (const char*) vall);
/*
if (_simbolo.not_empty())
set_row(1,"@65g%.5s", (const char *)_simbolo);
else
set_row(1,"@65g%.3s", (const char *)_codval);
*/
set_row(rr++,"@70g%-3s", (const char *)_codval); set_row(rr++,"@70g%-3s", (const char *)_codval);
} }
_totdocumenti += _totdoc; _totdocumenti += _totdoc;
@ -1423,11 +1371,11 @@ break;
else else
set_row(rr++, "@bTotali Fornitore@18gDocumenti Totale documenti@49gAllegati:@63gImponibile@82gImposta@95gop. esenti@110gop. non imp."); set_row(rr++, "@bTotali Fornitore@18gDocumenti Totale documenti@49gAllegati:@63gImponibile@82gImposta@95gop. esenti@110gop. non imp.");
set_row(rr, "@b@18g%9d", _documenti); set_row(rr, "@b@18g%9d", _documenti);
set_row(rr, "@b@29g%r", &_totdocumenti); set_row(rr, "@b@28g%r", &_totdocumenti);
set_row(rr, "@b@58g%r", &_totimponibile); set_row(rr, "@b@56g%r", &_totimponibile);
set_row(rr, "@b@74g%r", &_totimposta); set_row(rr, "@b@74g%r", &_totimposta);
set_row(rr, "@b@90g%r", &_op_esenti); set_row(rr, "@b@92g%r", &_op_esenti);
set_row(rr, "@b@106g%r", &_op_non_imp); set_row(rr, "@b@110g%r", &_op_non_imp);
_totimposta = 0; _totimposta = 0;
_totimponibile = 0; _totimponibile = 0;
_op_esenti = 0; _op_esenti = 0;
@ -1441,58 +1389,13 @@ break;
} }
break; break;
case movimenti_sezionale:
break;
default: default:
break; break;
} }
return NEXT_PAGE; return NEXT_PAGE;
} }
/************
int TListaMov_application::my_next(TLocalisamfile & mov)
{
int esito;
TString cod_reg, causale;
int tipo_reg;
int ann_reg;
esito = mov.next();
switch (_scelta_stampa)
{
case 0:
return esito;
case 1:
while (!mov.eof())
{
cod_reg = mov.get (MOV_REG);
ann_reg = mov.get_int (MOV_ANNOIVA);
causale = mov.get (MOV_CODCAUS);
if ( ( _annoes != 0l)
|| ( (causale < (const char*)_causale_ini) || (causale > (const char*)_causale_fin)) )
{
esito = mov.next();
continue;
}
tipo_reg = CodiceRegistro (cod_reg, ann_reg);
if ( (tipo_reg != 1) && (tipo_reg != 2) )
return esito;
esito=mov.next();
}
break;
default:
break;
}
return esito;
}
********/
print_action TListaMov_application::postprocess_print(int file,int count) print_action TListaMov_application::postprocess_print(int file,int count)
{ {
if (count) if (count)
@ -1509,9 +1412,6 @@ print_action TListaMov_application::postprocess_print(int file,int count)
case fatture: case fatture:
break; break;
case movimenti_sezionale:
break;
default: default:
break; break;
} }
@ -1595,13 +1495,7 @@ bool TListaMov_application::segnala_errori_primariga()
if (tabtpd.read() == NOERR) if (tabtpd.read() == NOERR)
{ {
bool cor = tabtpd.get_bool("B0"); bool cor = tabtpd.get_bool("B0");
/*
i = (TipoIVA)tabtpd.get_int("I0"); // IVA acquisti, vendite, generica
const TipoIVA ri = rg.iva();
if (i == iva_generica) i = ri;
if (i != ri || ( cor && !rg.corrispettivi() ))
_err.set(16);
*/
int i = tabtpd.get_int("I0"); int i = tabtpd.get_int("I0");
if (i == 1 && tipo != 1) if (i == 1 && tipo != 1)
_err.set(15); _err.set(15);
@ -2005,17 +1899,14 @@ bool TListaMov_application::set_print(int m)
_masc = ""; _masc = "";
switch(toupper(_tipoc)) switch(toupper(_tipoc))
{ {
case 'M':
_masc = "cg3100a";
_tipo_lista = movimenti;
break;
case 'C': case 'C':
_masc = "cg3100b"; _masc = "cg3100b";
_tipo_lista = fatture; _tipo_lista = fatture;
break; break;
case 'S': case 'M':
_masc = "cg3100c"; _masc = "cg3100a";
_tipo_lista = movimenti_sezionale; _tipo_lista = movimenti;
break;
break; break;
default: default:
NFCHECK("Bad _tipoc"); NFCHECK("Bad _tipoc");
@ -2028,7 +1919,8 @@ bool TListaMov_application::set_print(int m)
msk.set_handler(F_DATAINI, data_inizio); msk.set_handler(F_DATAINI, data_inizio);
msk.set_handler(F_DATAFIN, data_fine); msk.set_handler(F_DATAFIN, data_fine);
if (msk.run() != K_ENTER) return FALSE; if (msk.run() != K_ENTER)
return FALSE;
reset_files(); reset_files();
TLocalisamfile* fl; TLocalisamfile* fl;
@ -2110,8 +2002,9 @@ bool TListaMov_application::set_print(int m)
} }
break; break;
case fatture: case fatture:
{ {
_noseparator = msk.get_bool(F_SEPARATOR);
fl = &(current_cursor()->file(LF_MOV)); fl = &(current_cursor()->file(LF_MOV));
TString tipo = msk.get(F_TIPOELENCO); TString tipo = msk.get(F_TIPOELENCO);
//bool movprov = msk.get_bool(F_STAMPAMOVP); //bool movprov = msk.get_bool(F_STAMPAMOVP);
@ -2163,9 +2056,6 @@ bool TListaMov_application::set_print(int m)
} }
break; break;
case movimenti_sezionale:
break;
default: default:
break; break;
} }
@ -2238,10 +2128,7 @@ bool TListaMov_application::user_destroy() // releasev e arrmask
void TListaMov_application::init_print(const TMask& msk) void TListaMov_application::init_print(const TMask& msk)
{ {
set_real_picture("###.###.###.###"); const TDate data (msk.get(F_DATASTAMPA));
TDate data (msk.get(F_DATASTAMPA));
printer().setdate(data); printer().setdate(data);
printer().footerlen(5); printer().footerlen(5);
@ -2249,6 +2136,7 @@ void TListaMov_application::init_print(const TMask& msk)
{ {
case movimenti: case movimenti:
{ {
set_real_picture("###.###.###.###.###");
reset_print(); reset_print();
_flags = 0; _flags = 0;
_err.reset(); _err.reset();
@ -2315,67 +2203,64 @@ void TListaMov_application::init_print(const TMask& msk)
} }
} }
break; break;
case fatture:
case fatture:
{
_flags = 0;
{
reset_print();
_settata_prima_riga = FALSE;
_tipo_clifo_prec = "";
_codcf_prec = 0l;
_numeroregp = 0;
_documenti = 0;
_totdocumenti = 0;
_totimponibile = 0;
_totimposta = 0;
_op_esenti = 0;
_op_non_imp = 0;
_annoes = msk.get_int(F_ANNO);
_salto_pagina = (bool)(msk.get(F_CAMBIO)=="X");
_data_ini = msk.get(F_DATAINI);
if (_data_ini.ok())
_flags |= ST_DATA;
_data_fin = msk.get(F_DATAFIN);
if (_data_fin.ok())
_flags |= ST_DATA;
TString tipo = msk.get(F_TIPOELENCO);
if ((tipo=="C")||(tipo=="F"))
{ {
_codice_ini = atol(msk.get(F_CODICEINI)); if (_noseparator)
_codice_fin = atol(msk.get(F_CODICEFIN)); set_real_picture("################");
} else
else set_real_picture("####.###.###.###");
{
_codice_ini = atol(msk.get(F_CODICEINI1));
_codice_fin = atol(msk.get(F_CODICEFIN1));
}
if (_codice_ini != 0)
_flags |= ST_CODICE;
if (_codice_fin != 0)
_flags |= ST_CODICE;
if (tipo == "E")
{
_tipo_ini = "C";
_tipo_fin = "F";
}
else
{
_tipo_ini = tipo;
_tipo_fin = tipo;
}
}
}
break;
_flags = 0;
case movimenti_sezionale: reset_print();
break; _settata_prima_riga = FALSE;
_tipo_clifo_prec = "";
default: _codcf_prec = 0l;
break; _numeroregp = 0;
} _documenti = 0;
_totdocumenti = 0;
_totimponibile = 0;
_totimposta = 0;
_op_esenti = 0;
_op_non_imp = 0;
_annoes = msk.get_int(F_ANNO);
_salto_pagina = (bool)(msk.get(F_CAMBIO)=="X");
_data_ini = msk.get(F_DATAINI);
if (_data_ini.ok())
_flags |= ST_DATA;
_data_fin = msk.get(F_DATAFIN);
if (_data_fin.ok())
_flags |= ST_DATA;
TString tipo = msk.get(F_TIPOELENCO);
if ((tipo=="C")||(tipo=="F"))
{
_codice_ini = atol(msk.get(F_CODICEINI));
_codice_fin = atol(msk.get(F_CODICEFIN));
}
else
{
_codice_ini = atol(msk.get(F_CODICEINI1));
_codice_fin = atol(msk.get(F_CODICEFIN1));
}
if (_codice_ini != 0)
_flags |= ST_CODICE;
if (_codice_fin != 0)
_flags |= ST_CODICE;
if (tipo == "E")
{
_tipo_ini = "C";
_tipo_fin = "F";
}
else
{
_tipo_ini = tipo;
_tipo_fin = tipo;
}
}
break;
default:
break;
}
} }
void TListaMov_application::preprocess_header() void TListaMov_application::preprocess_header()
@ -2450,8 +2335,8 @@ void TListaMov_application::preprocess_header()
set_header (soh++, " tutte le causali"); set_header (soh++, " tutte le causali");
if (_flags & ST_REGISTRO) if (_flags & ST_REGISTRO)
{ {
set_header (soh, "dal registro@13g%s",(const char*)_registro_ini); set_header (soh, "dal registro %s",(const char*)_registro_ini);
set_header (soh, "@17gal registro@29g%s",(const char*)_registro_fin); set_header (soh, "@17gal registro %s",(const char*)_registro_fin);
} }
else else
set_header (soh, "tutti i registri"); set_header (soh, "tutti i registri");
@ -2540,28 +2425,20 @@ void TListaMov_application::preprocess_header()
else else
if (_flags & ST_DATA) if (_flags & ST_DATA)
{ {
set_header (soh, "@15gdalla data@26g%s", (const char*)_data_ini.string()); set_header (soh, "@15gdalla data %s", (const char*)_data_ini.string());
set_header (soh, "@37galla data@47g%s", (const char*)_data_fin.string()); set_header (soh, "@37galla data %s", (const char*)_data_fin.string());
} }
else else
set_header (soh, "@15gcompleta in ordine di data"); set_header (soh, "@15gcompleta in ordine di data");
if (_flags & ST_CODICE) if (_flags & ST_CODICE)
{ {
set_header (soh, "@74gdal codice@85g%ld", _codice_ini); set_header (soh, "@74gdal codice %ld", _codice_ini);
set_header (soh, "@92gal codice@102g%ld", _codice_fin); set_header (soh, "@92gal codice %ld", _codice_fin);
} }
sep.fill('-'); sep.fill('-');
set_header (++soh, (const char *) sep); set_header (++soh, (const char *) sep);
set_header (++soh, "Numero Data @17gCod Protoc. Documento@49gCod Tp @75gTotale@101gCd Tp T O@129gNo"); set_header (++soh, "Numero Data Cod Protoc. Documento@49gCod Tp @75gTotale@101gCd Tp T O@129gNo");
set_header (++soh, "Regis. Operaz.@17gReg Numero Data@42gNumero@49gCau Dc @56gDescrizione@75gDocumento@90gImponibile@101gIv Det A I@121gImposta@129gAll"); set_header (++soh, "Regis. Operaz. Reg Numero Data@42gNumero@49gCau Dc @56gDescrizione@75gDocumento@90gImponibile@101gIv Det A I@121gImposta@129gAll");
break;
case movimenti_sezionale:
sep.fill(' ');
sep.overwrite ("Lista movimenti di solo sezionale");
set_header (soh++, (const char*)sep);
sep.fill('-');
set_header (soh++, (const char *) sep);
break; break;
default: default:
@ -2573,19 +2450,16 @@ void TListaMov_application::preprocess_header()
int cg3100(int argc, char* argv[]) int cg3100(int argc, char* argv[])
{ {
const char tipo = *argv[2]; const char tipo = *argv[2];
const char* title = "Lista movimenti";
TListaMov_application a(tipo); TListaMov_application a(tipo);
const char* title;
switch (tipo) switch (tipo)
{ {
case 'C': case 'C':
title = "Lista fatture clienti/fornitori"; title = "Lista fatture clienti/fornitori";
break; break;
/*
case 'S':
title = "Lista movimenti di solo sezionale";
break;
*/
default: default:
title = "Lista movimenti";
break; break;
} }
a.run(argc, argv, title); a.run(argc, argv, title);

1
cg/cg3100.h
View File

@ -32,6 +32,7 @@
#define F_RAGSOCFIN 128 #define F_RAGSOCFIN 128
#define F_RAGSOCINI1 129 #define F_RAGSOCINI1 129
#define F_RAGSOCFIN1 130 #define F_RAGSOCFIN1 130
#define F_SEPARATOR 131
#define ST_DATA 0x0001 #define ST_DATA 0x0001
#define ST_NUMERO 0x0002 #define ST_NUMERO 0x0002

25
cg/cg3100b.uml
View File

@ -4,15 +4,15 @@ PAGE "Lista Fatture" -1 -1 73 16
NUMBER F_CODDITTA 5 NUMBER F_CODDITTA 5
BEGIN BEGIN
PROMPT 2 1 "Ditta " PROMPT 2 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
@ -24,7 +24,7 @@ END
DATE F_DATASTAMPA DATE F_DATASTAMPA
BEGIN BEGIN
PROMPT 48 1 "Data stampa " PROMPT 48 1 "Data stampa "
HELP "Data in cui viene effettuata la stampa" HELP "Data in cui viene effettuata la stampa"
FLAGS "A" FLAGS "A"
END END
@ -213,6 +213,11 @@ BEGIN
END END
*/ */
BOOLEAN F_SEPARATOR
BEGIN
PROMPT 2 13 "Non stampare i separatri delle migliaia"
END
BUTTON DLG_PRINT 9 2 BUTTON DLG_PRINT 9 2
BEGIN BEGIN
PROMPT -12 -1 "~Stampa" PROMPT -12 -1 "~Stampa"

112
cg/cg3100c.uml
View File

@ -1,112 +0,0 @@
#include "cg3100.h"
PAGE "" -1 -1 76 19
NUMBER F_CODDITTA 5
BEGIN
PROMPT 2 2 "Ditta "
FLAGS "FRD"
USE LF_NDITTE KEY 1
CHECKTYPE REQUIRED
INPUT CODDITTA F_CODDITTA
DISPLAY "Codice" CODDITTA
DISPLAY "Ragione sociale @50" RAGSOC
OUTPUT F_CODDITTA CODDITTA
OUTPUT F_RAGSOC RAGSOC
END
STRING F_RAGSOC 50
BEGIN
PROMPT 2 3 "Ragione sociale "
FLAGS "D"
END
NUMBER F_ANNO 4
BEGIN
PROMPT 2 5 "Anno esercizio "
HELP "Anno d'esercizio di cui si vuole la stampa"
USE ESC
CHECKTYPE NORMAL
INPUT CODTAB F_ANNO
DISPLAY "Anno" CODTAB
DISPLAY "Data inizio esercizio" D0
DISPLAY "Data fine esercizio" D1
OUTPUT F_ANNO CODTAB
FLAGS "RZ"
ADD RUN cg0 -5 esc
END
DATE F_DATASTAMPA
BEGIN
PROMPT 2 6 "Data stampa "
HELP "Data in cui viene effettuata la stampa"
FLAGS "A"
END
RADIOBUTTON F_DECIDI 10
BEGIN
PROMPT 2 8 "Stampa "
HELP "Criteri di selezione dei movimenti"
ITEM "2|data"
MESSAGE DISABLE,2@|RESET,2@|ENABLE,1@
ITEM "1|numero"
MESSAGE DISABLE,1@|RESET,1@|ENABLE,2@
END
DATE F_DATAINI
BEGIN
PROMPT 19 9 "Stampa mov. dalla data "
HELP "Data da cui iniziare la stampa dei movimenti"
GROUP 1
END
DATE F_DATAFIN
BEGIN
PROMPT 55 9 "alla data "
HELP "Data a cui terminare la stampa dei movimenti"
GROUP 1
END
NUMBER F_NUMEROINI 7
BEGIN
PROMPT 19 10 "Stampa mov. dal numero "
HELP "Numero da cui iniziare la stampa dei movimenti"
FLAGS "R"
GROUP 2
END
NUMBER F_NUMEROFIN 7
BEGIN
PROMPT 55 10 "al numero "
HELP "Numero a cui terminare la stampa dei movimenti"
FLAGS "R"
GROUP 2
END
BOOLEAN F_STAMPAMOVP
BEGIN
PROMPT 2 12 "Stampa movimenti provvisori "
HELP "Indicare se stampare i movimenti provvisori"
END
TEXT DLG_NULL
BEGIN
PROMPT 2 15 "(N.B. se non indicato nessun valore stampa completa in ordine di data) "
END
BUTTON DLG_PRINT 9 2
BEGIN
PROMPT -12 -1 "~Stampa"
MESSAGE EXIT,K_ENTER
END
BUTTON DLG_QUIT 9 2
BEGIN
PROMPT -22 -1 ""
END
ENDPAGE
ENDMASK

477
cg/cg3200.cpp
View File

@ -84,6 +84,9 @@ class TMastrini_application : public TPrintapp
int _rw, _conta_mastrini, _indice_array, _item, _item_lista, _indice_lista; int _rw, _conta_mastrini, _indice_array, _item, _item_lista, _indice_lista;
int _ddociva_len; int _ddociva_len;
bool _noseparator;
TString _real_picture;
protected: protected:
virtual bool user_create() ; virtual bool user_create() ;
virtual bool user_destroy(); virtual bool user_destroy();
@ -881,9 +884,7 @@ void TMastrini_application::fai_stampa132()
set_row (_rw,"@30g#7t", &_numdoc); set_row (_rw,"@30g#7t", &_numdoc);
set_row (_rw,"@38g#3t", &_codcaus); set_row (_rw,"@38g#3t", &_codcaus);
set_row (_rw,"@117g#3t", &_g_contr); set_row (_rw,"@117g#3t #3t #6t", &_g_contr, &_c_contr, &_s_contr);
set_row (_rw,"@120g#3t", &_c_contr);
set_row (_rw,"@123g#6t", &_s_contr);
} }
void TMastrini_application::fai_stampa198() void TMastrini_application::fai_stampa198()
@ -968,11 +969,8 @@ void TMastrini_application::fai_stampa198()
// Stampa saldo movimenti // Stampa saldo movimenti
set_row (_rw,"@149g#t", &_saldo_movimenti_str); set_row (_rw,"@151g#t", &_saldo_movimenti_str);
set_row (_rw,"@168g#3t #3t #6t", &_g_contr, &_c_contr, &_s_contr);
set_row (_rw,"@165g#3t", &_g_contr);
set_row (_rw,"@169g#3t", &_c_contr);
set_row (_rw,"@173g#6t", &_s_contr);
} }
void TMastrini_application::stampa_totali132() void TMastrini_application::stampa_totali132()
@ -983,34 +981,28 @@ void TMastrini_application::stampa_totali132()
_rw = 2; _rw = 2;
sep.fill('-'); //Stampa 132 - (sep(132)) sep.fill('-'); //Stampa 132 - (sep(132))
set_row(_rw++,"@0g%s", (const char *) sep); set_row(_rw++,"@0g%s", (const char*)sep);
_totprogre_dare=_progredare+_totale_periodo_dare; _totprogre_dare=_progredare+_totale_periodo_dare;
_totprogre_avere=_progreavere+_totale_periodo_avere; _totprogre_avere=_progreavere+_totale_periodo_avere;
_saldo_periodo = _totale_periodo_dare - _totale_periodo_avere; _saldo_periodo = _totale_periodo_dare - _totale_periodo_avere;
_saldo_progre = _totprogre_dare - _totprogre_avere; _saldo_progre = _totprogre_dare - _totprogre_avere;
_saldo_progre_al = _totprogre_dare_al - _totprogre_avere_al; _saldo_progre_al = _totprogre_dare_al - _totprogre_avere_al;
TString string = _saldo_periodo.string("###.###.###.###"); set_row (_rw,"@32gTOTALI PERIODO");
set_row (_rw,"@32gTOTALI PERIODO@69g%15s", (const char*)string); set_row (_rw,"@66g%r", &_saldo_periodo);
string = _totale_periodo_dare.string("###.###.###.###"); set_row (_rw,"@83g%r", &_totale_periodo_dare);
set_row (_rw,"@85g%15s", (const char*)string); set_row (_rw++,"@100g%r", &_totale_periodo_avere);
string = _totale_periodo_avere.string("###.###.###.###");
set_row (_rw++,"@101g%15s", (const char*)string); set_row (_rw,"@32gTOTALI PROGRESSIVI");
string = _saldo_progre.string("###.###.###.###"); set_row (_rw,"@66g%r", &_saldo_progre);
set_row (_rw,"@32gTOTALI PROGRESSIVI@69g%15s", (const char*)string); set_row (_rw,"@83g%r", &_totprogre_dare);
string = _totprogre_dare.string("###.###.###.###"); set_row (_rw++,"@100g%r", &_totprogre_avere);
set_row (_rw,"@85g%15s", (const char*)string);
string = _totprogre_avere.string("###.###.###.###");
set_row (_rw++,"@101g%15s", (const char*)string);
if (_stampaprogre) //Progressivi attuali if (_stampaprogre) //Progressivi attuali
{ {
TString str = _saldo_progre_al.string("###.###.###.###"); set_row (_rw,"@32gTOTALI PROGRESSIVI AL %s", _ultima_data_reg.string());
set_row (_rw,"@32gTOTALI PROGRESSIVI AL@55g%s",(const char*)_ultima_data_reg.string()); set_row (_rw,"@66g%r", &_saldo_progre_al);
set_row (_rw,"@69g%15s", (const char*)str); set_row (_rw,"@83g%r", &_totprogre_dare_al);
str = _totprogre_dare_al.string("###.###.###.###"); set_row (_rw,"@100g%r", &_totprogre_avere_al);
set_row (_rw,"@85g%15s", (const char*)str);
str = _totprogre_avere_al.string("###.###.###.###");
set_row (_rw,"@101g%15s", (const char*)str);
} }
_devi_stampare_footer = FALSE; _devi_stampare_footer = FALSE;
} }
@ -1041,27 +1033,27 @@ void TMastrini_application::carica_array_totali132()
_lista.add(r); _lista.add(r);
r = ""; r = "";
r.add("@32gTOTALI PERIODO@69g%15s@85g%15s@101g%15s"); r.add("@32gTOTALI PERIODO@66g%s@83g%s@100g%s");
r.add(_saldo_periodo.string("###.###.###.###")); r.add(_saldo_periodo.string(_real_picture));
r.add(_totale_periodo_dare.string("###.###.###.###")); r.add(_totale_periodo_dare.string(_real_picture));
r.add(_totale_periodo_avere.string("###.###.###.###")); r.add(_totale_periodo_avere.string(_real_picture));
_lista.add(r); _lista.add(r);
r = ""; r = "";
r.add("@32gTOTALI PROGRESSIVI@69g%15s@85g%15s@101g%15s"); r.add("@32gTOTALI PROGRESSIVI@66g%s@83g%s@100g%s");
r.add(_saldo_progre.string("###.###.###.###")); r.add(_saldo_progre.string(_real_picture));
r.add(_totprogre_dare.string("###.###.###.###")); r.add(_totprogre_dare.string(_real_picture));
r.add(_totprogre_avere.string("###.###.###.###")); r.add(_totprogre_avere.string(_real_picture));
_lista.add(r); _lista.add(r);
r = ""; r = "";
if (_stampaprogre) //Progressivi attuali if (_stampaprogre) //Progressivi attuali
{ {
r.add("@32gTOTALI PROGRESSIVI AL@55g%s@69g%15s@85g%15s@101g%15s"); r.add("@32gTOTALI PROGRESSIVI AL@55g%s@66g%s@83g%s@100g%s");
r.add(_ultima_data_reg.string()); r.add(_ultima_data_reg.string());
r.add(_saldo_progre_al.string("###.###.###.###")); r.add(_saldo_progre_al.string(_real_picture));
r.add(_totprogre_dare_al.string("###.###.###.###")); r.add(_totprogre_dare_al.string(_real_picture));
r.add(_totprogre_avere_al.string("###.###.###.###")); r.add(_totprogre_avere_al.string(_real_picture));
_lista.add(r); _lista.add(r);
r = ""; r = "";
} }
@ -1086,7 +1078,7 @@ void TMastrini_application::carica_array_totali132()
r.add(fmt); r.add(fmt);
r.add(riga._descrdoc); r.add(riga._descrdoc);
totale = riga._totdociva; totale = riga._totdociva;
r.add(totale.string("###.###.###.###")); r.add(totale.string(_real_picture));
_lista.add(r); _lista.add(r);
r = ""; r = "";
} }
@ -1167,37 +1159,28 @@ void TMastrini_application::stampa_totali132_II()
void TMastrini_application::stampa_totali198() void TMastrini_application::stampa_totali198()
{ {
TString sep(198);
if (_nummast == 1 || _nummast == 3) if (_nummast == 1 || _nummast == 3)
_rw = 1; _rw = 1;
TString sep(198);
sep.fill('-'); //Stampa 198 - (sep(198)) sep.fill('-'); //Stampa 198 - (sep(198))
set_row(_rw++,"@0g%s", (const char *) sep); set_row(_rw++,"@0g%s", (const char*)sep);
_totprogre_dare=_progredare+_totale_periodo_dare; _totprogre_dare=_progredare+_totale_periodo_dare;
_totprogre_avere=_progreavere+_totale_periodo_avere; _totprogre_avere=_progreavere+_totale_periodo_avere;
TString string = _totale_periodo_dare.string("###.###.###.###");
set_row (_rw,"@32gTOTALI PERIODO@101g%15s", (const char*)string); set_row (_rw,"@32gTOTALI PERIODO@100g%r", &_totale_periodo_dare);
string = _totale_periodo_avere.string("###.###.###.###"); set_row (_rw,"@117g%r", &_totale_periodo_avere);
set_row (_rw,"@117g%15s", (const char*)string); set_row (_rw++,"@151g%r", &_saldo_movimenti);
string = _saldo_movimenti.string("###.###.###.###"); set_row (_rw,"@32gTOTALI PROGRESSIVI@100g%r", &_totprogre_dare);
set_row (_rw++,"@149g%15s", (const char*)string); set_row (_rw,"@117g%r", &_totprogre_avere);
string = _totprogre_dare.string("###.###.###.###"); set_row (_rw++,"@134g%r", &_saldo_progressivi);
set_row (_rw,"@32gTOTALI PROGRESSIVI@101g%15s",(const char*)string);
string = _totprogre_avere.string("###.###.###.###");
set_row (_rw,"@117g%15s", (const char*)string);
string = _saldo_progressivi.string("###.###.###.###");
set_row (_rw++,"@133g%15s", (const char*)string);
if (_stampaprogre) //Progressivi attuali if (_stampaprogre) //Progressivi attuali
{ {
set_row(_rw,"@32gTOTALI PROGRESSIVI AL@55g%s",(const char*)_ultima_data_reg.string()); set_row(_rw,"@32gTOTALI PROGRESSIVI AL@55g%s", _ultima_data_reg.string());
TString str = _totprogre_dare_al.string("###.###.###.###"); set_row (_rw,"@100g%r", &_totprogre_dare_al);
set_row (_rw,"@101g%15s", (const char*)str); set_row (_rw,"@117g%r", &_totprogre_avere_al);
str = _totprogre_avere_al.string("###.###.###.###"); set_row (_rw,"@134g%r", &_saldo_progressivi);
set_row (_rw,"@117g%15s", (const char*)str);
str = _saldo_progressivi.string("###.###.###.###");
set_row (_rw,"@133g%15s", (const char*)str);
} }
_devi_stampare_footer = FALSE; _devi_stampare_footer = FALSE;
} }
@ -1225,27 +1208,27 @@ void TMastrini_application::carica_array_totali198()
_totprogre_dare=_progredare+_totale_periodo_dare; _totprogre_dare=_progredare+_totale_periodo_dare;
_totprogre_avere=_progreavere+_totale_periodo_avere; _totprogre_avere=_progreavere+_totale_periodo_avere;
r.add("@32gTOTALI PERIODO@101g%15s@117g%15s@149g%15s"); r.add("@32gTOTALI PERIODO@100g%s@117g%s@151g%s");
r.add(_totale_periodo_dare.string("###.###.###.###")); r.add(_totale_periodo_dare.string(_real_picture));
r.add(_totale_periodo_avere.string("###.###.###.###")); r.add(_totale_periodo_avere.string(_real_picture));
r.add(_saldo_movimenti.string("###.###.###.###")); r.add(_saldo_movimenti.string(_real_picture));
_lista.add(r); _lista.add(r);
r = ""; r = "";
r.add("@32gTOTALI PROGRESSIVI@101g%15s@117g%15s@133g%15s"); r.add("@32gTOTALI PROGRESSIVI@100g%s@117g%s@134g%s");
r.add(_totprogre_dare.string("###.###.###.###")); r.add(_totprogre_dare.string(_real_picture));
r.add(_totprogre_avere.string("###.###.###.###")); r.add(_totprogre_avere.string(_real_picture));
r.add(_saldo_progressivi.string("###.###.###.###")); r.add(_saldo_progressivi.string(_real_picture));
_lista.add(r); _lista.add(r);
r = ""; r = "";
if (_stampaprogre) //Progressivi attuali if (_stampaprogre) //Progressivi attuali
{ {
r.add("@32gTOTALI PROGRESSIVI AL@55g%s@101g%15s@117g%15s@133g%15s"); r.add("@32gTOTALI PROGRESSIVI AL@55g%s@100g%s@117g%s@134g%s");
r.add(_ultima_data_reg.string()); r.add(_ultima_data_reg.string());
r.add(_totprogre_dare_al.string("###.###.###.###")); r.add(_totprogre_dare_al.string(_real_picture));
r.add(_totprogre_avere_al.string("###.###.###.###")); r.add(_totprogre_avere_al.string(_real_picture));
r.add(_saldo_progressivi.string("###.###.###.###")); r.add(_saldo_progressivi.string(_real_picture));
_lista.add(r); _lista.add(r);
r = ""; r = "";
} }
@ -1260,9 +1243,13 @@ void TMastrini_application::carica_array_totali198()
_lista.add(r); _lista.add(r);
r = ""; r = "";
TString fmt ("@0g%s"); // Guy: Real dick programmig!
TString fmt1(format("@%dg", _ddociva_len)); // TString fmt ("@0g%s");
fmt << fmt1 << "%15s"; // TString fmt1(format("@%dg", _ddociva_len));
// fmt << fmt1 << "%15s";
TString16 fmt;
fmt << "@0g%s@" << _ddociva_len << "g%15s";
for (int j = 0; j < _b.items(); j++) for (int j = 0; j < _b.items(); j++)
{ {
@ -1270,7 +1257,7 @@ void TMastrini_application::carica_array_totali198()
r.add(fmt); r.add(fmt);
r.add(riga._descrdoc); r.add(riga._descrdoc);
totale = riga._totdociva; totale = riga._totdociva;
r.add(totale.string("###.###.###.###")); r.add(totale.string(_real_picture));
_lista.add(r); _lista.add(r);
r = ""; r = "";
} }
@ -1518,7 +1505,7 @@ bool TMastrini_application::preprocess_page(int file, int counter)
// nella maschera. Se non viene specificato li stampa tutti // nella maschera. Se non viene specificato li stampa tutti
_importo = current_cursor()->curr(LF_RMOV).get_real(RMV_IMPORTO); _importo = current_cursor()->curr(LF_RMOV).get_real(RMV_IMPORTO);
_importo_str = _importo.string("###.###.###.###"); _importo_str = _importo.string(_real_picture);
_mov->setkey(1); _mov->setkey(1);
_mov->curr().zero(); _mov->curr().zero();
_mov->curr().put(MOV_NUMREG,_numreg); _mov->curr().put(MOV_NUMREG,_numreg);
@ -1561,15 +1548,13 @@ bool TMastrini_application::preprocess_page(int file, int counter)
if (_numcarat == 1) if (_numcarat == 1)
set_row (_rw, "@131g*"); set_row (_rw, "@131g*");
else else
if (_numcarat == 2) set_row (_rw, "@197g*");
set_row (_rw, "@197g*");
if (_stampa_mov_prov && provvis.trim().not_empty()) if (_stampa_mov_prov && provvis.trim().not_empty())
if (_numcarat == 1) if (_numcarat == 1)
set_row(_rw, "@129gP"); set_row(_rw, "@129gP");
else else
if (_numcarat == 2) set_row(_rw, "@195gP");
set_row(_rw, "@195gP");
_codcaus = _mov->curr().get(MOV_CODCAUS); _codcaus = _mov->curr().get(MOV_CODCAUS);
_tipodoc = _mov->curr().get(MOV_TIPODOC); _tipodoc = _mov->curr().get(MOV_TIPODOC);
@ -1870,15 +1855,15 @@ bool TMastrini_application::preprocess_page(int file, int counter)
{ {
if (_numcarat == 1) if (_numcarat == 1)
{ {
TString app (132); TString app(132);
app.spaces(); app.spaces();
set_row (_rw, "@0g%s", (const char*) app); set_row (_rw, "@0g%s", (const char*)app);
} }
else else
{ {
TString app (198); TString app(198);
app.spaces(); app.spaces();
set_row (_rw, "@0g%s", (const char*) app); set_row (_rw, "@0g%s", (const char*)app);
} }
} }
real dep_dare,dep_avere; real dep_dare,dep_avere;
@ -1919,17 +1904,17 @@ bool TMastrini_application::preprocess_page(int file, int counter)
if (_nummast != 3 || dep_dare != ZERO || dep_avere != ZERO) if (_nummast != 3 || dep_dare != ZERO || dep_avere != ZERO)
{ {
TString dare (dep_dare.string("###.###.###.###")); TString dare (dep_dare.string(_real_picture));
TString avere (dep_avere.string("###.###.###.###")); TString avere (dep_avere.string(_real_picture));
if (_numcarat == 1) if (_numcarat == 1)
{ {
set_row (_rw,"@32gA RIPORTO@85g%s", (const char*) dare); set_row (_rw,"@32gA RIPORTO@83g%s", (const char*) dare);
set_row (_rw,"@101g%s", (const char*) avere); set_row (_rw,"@100g%s", (const char*) avere);
} }
else else
if (_numcarat == 2) if (_numcarat == 2)
{ {
set_row (_rw,"@32gA RIPORTO@101g%s", (const char*) dare); set_row (_rw,"@32gA RIPORTO@100g%s", (const char*) dare);
set_row (_rw,"@117g%s", (const char*) avere); set_row (_rw,"@117g%s", (const char*) avere);
} }
} }
@ -1952,13 +1937,13 @@ bool TMastrini_application::preprocess_page(int file, int counter)
_riporto_parziale_dare += _importo; _riporto_parziale_dare += _importo;
if (_numcarat == 1) // Stampa 132 caratteri if (_numcarat == 1) // Stampa 132 caratteri
set_row (_rw,"@85g%s", (const char*) _importo_str); set_row (_rw,"@83g%s", (const char*) _importo_str);
else else
if (_numcarat == 2) // Stampa 198 caratteri if (_numcarat == 2) // Stampa 198 caratteri
{ {
_saldo_progressivi += _importo; _saldo_progressivi += _importo;
_saldo_movimenti += _importo; _saldo_movimenti += _importo;
set_row (_rw,"@101g%s", (const char*) _importo_str); set_row (_rw,"@100g%s", (const char*) _importo_str);
} }
} }
else if (_sezione == "A") else if (_sezione == "A")
@ -1967,7 +1952,7 @@ bool TMastrini_application::preprocess_page(int file, int counter)
_riporto_parziale_avere += _importo; _riporto_parziale_avere += _importo;
if (_numcarat == 1) // Stampa 132 caratteri if (_numcarat == 1) // Stampa 132 caratteri
set_row (_rw,"@101g%s", (const char*) _importo_str); set_row (_rw,"@100g%s", (const char*) _importo_str);
else else
if (_numcarat == 2) // Stampa 198 caratteri if (_numcarat == 2) // Stampa 198 caratteri
{ {
@ -1980,17 +1965,17 @@ bool TMastrini_application::preprocess_page(int file, int counter)
const int righe_rimaste = printer().rows_left(); const int righe_rimaste = printer().rows_left();
_stampato = righe_rimaste >= 1; _stampato = righe_rimaste >= 1;
_saldo_progressivi_str=_saldo_progressivi.string("###.###.###.###"); _saldo_progressivi_str=_saldo_progressivi.string(_real_picture);
_saldo_movimenti_str=_saldo_movimenti.string("###.###.###.###"); _saldo_movimenti_str=_saldo_movimenti.string(_real_picture);
if (_numcarat == 2) if (_numcarat == 2)
{ {
ricerca_regiva(); ricerca_regiva();
_protiva = atol(_mov->curr().get(MOV_PROTIVA)); _protiva = atol(_mov->curr().get(MOV_PROTIVA));
if (_protiva != 0) if (_protiva != 0)
set_row (_rw,"@189g%5d", _protiva); set_row (_rw,"@191g%5d", _protiva);
if (_tipo < 3) if (_tipo < 3)
set_row (_rw,"@180g#t" , &_regiva); set_row (_rw,"@183g#t" , &_regiva);
_dataregrmov = current_cursor()->curr(LF_RMOV).get_date(RMV_DATAREG); _dataregrmov = current_cursor()->curr(LF_RMOV).get_date(RMV_DATAREG);
dataregrmovstring=_dataregrmov.string(); dataregrmovstring=_dataregrmov.string();
@ -2006,7 +1991,7 @@ bool TMastrini_application::preprocess_page(int file, int counter)
if (((gruppof!=_gruppo)||(contof!=_conto)||(sottocf!=_sottoc))||(rmov.eof())) if (((gruppof!=_gruppo)||(contof!=_conto)||(sottocf!=_sottoc))||(rmov.eof()))
datasucc = (""); datasucc = ("");
if (datasucc != _dataregrmov) if (datasucc != _dataregrmov)
set_row (_rw,"@133g#t", &_saldo_progressivi_str); set_row (_rw,"@134g#t", &_saldo_progressivi_str);
rmov.readat(rec); rmov.readat(rec);
} }
_rw = 1; _rw = 1;
@ -2263,7 +2248,7 @@ void TMastrini_application::stampa_totaliiva()
TDociva& riga = (TDociva&)_b[j]; TDociva& riga = (TDociva&)_b[j];
set_row(_rw+j, "@0g%s",(const char*) riga._descrdoc); set_row(_rw+j, "@0g%s",(const char*) riga._descrdoc);
totale = riga._totdociva; totale = riga._totdociva;
TString string = totale.string("###.###.###.###"); TString string = totale.string(_real_picture);
set_row(_rw+j, fmt, (const char*)string); set_row(_rw+j, fmt, (const char*)string);
} }
@ -2375,6 +2360,20 @@ bool TMastrini_application::set_print(int)
} }
} }
_noseparator = _msk->get_bool(F_SEPARATOR);
if (_noseparator)
_real_picture = "################";
else
{
#ifdef DBG
_real_picture = "@@@@.@@@.@@@.@@@";
#else
_real_picture = "####.###.###.###";
#endif
}
set_real_picture(_real_picture);
if (tasto == K_ENTER) if (tasto == K_ENTER)
{ {
_codice_ditta = get_firm(); _codice_ditta = get_firm();
@ -2459,17 +2458,13 @@ bool TMastrini_application::set_print(int)
switch (_tipostampa) switch (_tipostampa)
{ {
case 1: _totale_saldo = 1.0; case 1: _totale_saldo = 1.0; break;
break; case 2: _totale_saldo = 0.0; break;
case 2: _totale_saldo = 0.0; case 3: _totale_saldo = 1.0; break;
break;
case 3: _totale_saldo = 1.0;
break;
default: break; default: break;
} }
enable_print_menu(); enable_print_menu();
enable_link("Collegamento prima nota: ", 'r'); enable_link("Collegamento prima nota: ", 'r');
return TRUE; return TRUE;
@ -2556,17 +2551,17 @@ void TMastrini_application::preprocess_footer()
if (_nummast != 3 || dep_dare != ZERO || dep_avere != ZERO) if (_nummast != 3 || dep_dare != ZERO || dep_avere != ZERO)
{ {
TString dare (dep_dare.string("###.###.###.###")); TString dare (dep_dare.string(_real_picture));
TString avere (dep_avere.string("###.###.###.###")); TString avere (dep_avere.string(_real_picture));
if (_numcarat == 1) if (_numcarat == 1)
{ {
set_footer (2,"@32gA RIPORTO@85g%s", (const char*) dare); set_footer (2,"@32gA RIPORTO@83g%s", (const char*) dare);
set_footer (2,"@101g%s", (const char*) avere); set_footer (2,"@100g%s", (const char*) avere);
} }
else else
if (_numcarat == 2) if (_numcarat == 2)
{ {
set_footer (2,"@32gA RIPORTO@101g%s", (const char*) dare); set_footer (2,"@32gA RIPORTO@100g%s", (const char*) dare);
set_footer (2,"@117g%s", (const char*) avere); set_footer (2,"@117g%s", (const char*) avere);
} }
} }
@ -2700,22 +2695,14 @@ void TMastrini_application::crea_intestazione()
set_header (1, "@12g%-.45s", (const char*) _ragsoc); set_header (1, "@12g%-.45s", (const char*) _ragsoc);
set_header (1, "@59g%s", (const char*) _indulc); set_header (1, "@59g%s", (const char*) _indulc);
//set_header (1, "@86g%-.9s", (const char*) _civulc); //set_header (1, "@86g%-.9s", (const char*) _civulc);
set_header (1, "@97g%-.5s", (const char*) _capulc); set_header (1, "@100g%-.5s", (const char*) _capulc);
set_header (1, "@103g%-.18s", (const char*) _com); set_header (1, "@103g%-.18s", (const char*) _com);
set_header (1, "@122g%-.3s", (const char*) _prov); set_header (1, "@122g%-.3s", (const char*) _prov);
} }
if (_nummast == 3) if (_nummast == 3)
{ set_header (3, "@0gSottoconto @b%3d %3d %6ld", _gruppo, _conto, _sottoc);
set_header (3, "@0gSottoconto@12g@b%d", _gruppo);
set_header (3, "@16g@b%d", _conto);
set_header (3, "@20g@b%ld", _sottoc);
}
else else
{ set_header (3, "@0gSottoconto %3d %3d %6ld", _gruppo, _conto, _sottoc);
set_header (3, "@0gSottoconto@12g%d", _gruppo);
set_header (3, "@16g%d", _conto);
set_header (3, "@20g%ld", _sottoc);
}
if (_tmcf == 'C') if (_tmcf == 'C')
_tipo_mask = 1; _tipo_mask = 1;
@ -2744,28 +2731,28 @@ void TMastrini_application::crea_intestazione()
set_header (8,"Data"); set_header (8,"Data");
if (_stampanum < 3) if (_stampanum < 3)
set_header (8,"@11gnumero"); set_header (8,"@11gnumero");
set_header (8,"@19gData@30gNumero@38gCod.Causale@61gDescrizione@96gDare@111gAvere@117gPartita@131gC"); set_header (8,"@19gData@30gNumero@38gCod.Causale@61gDescrizione@95gDare@111gAvere@117gPartita@131gC");
if (_stampa_mov_prov) if (_stampa_mov_prov)
set_header(8,"@129gP"); set_header(8,"@129gP");
sep.fill('-'); sep.fill('-');
set_header (9, (const char *) sep); set_header (9, (const char *) sep);
} }
else if (_numcarat == 2) else if (_numcarat == 2)
{ {
sep1.fill('-'); //Stampa 198 - (sep1(198)) sep1.fill('-'); //Stampa 198 - (sep1(198))
set_header (6,"@0g%s", (const char *) sep1); set_header (6,"@0g%s", (const char*)sep1);
set_header (7,"Operazione@23gData@34gNumero@169gContro@180gReg@188gNumero@197gA"); set_header (7,"Operazione@23gData@34gNumero@169gContro@183gReg@190gNumero@197gA");
if (_stampa_mov_prov) if (_stampa_mov_prov)
set_header(7,"@195gM"); set_header(7,"@195gM");
set_header (8,"Data"); set_header (8,"Data");
if (_stampanum < 3) if (_stampanum < 3)
set_header (8,"@11gnumero"); set_header (8,"@11gnumero");
set_header (8,"@23gDocumento@42gCod.Causale@70gDescrizione@112gDare@127gAvere@135gSaldo progre.@152gSaldo movim.@169gPartita@180gIva@184gProtocollo@197gC"); set_header (8,"@23gDocumento@42gCod.Causale@70gDescrizione@112gDare@127gAvere@135gSaldo progre.@152gSaldo movim.@169gPartita@183gIva@189gProtoc.@197gC");
if (_stampa_mov_prov) if (_stampa_mov_prov)
set_header(8,"@195gP"); set_header(8,"@195gP");
sep1.fill('-'); sep1.fill('-');
set_header (9,"@0g%s", (const char *) sep1); set_header (9,"@0g%s", (const char*)sep1);
} }
calcola_progressivi(); calcola_progressivi();
_saldo_progressivi += _saldo_progre_prec; _saldo_progressivi += _saldo_progre_prec;
@ -2774,21 +2761,15 @@ void TMastrini_application::crea_intestazione()
{ {
if (_numcarat == 1) if (_numcarat == 1)
{ {
TString string = _saldo_progre_prec.string("###.###.###.###"); set_header (10,"@42gPROGRESSIVI PRECEDENTI@66g%s", _saldo_progre_prec.string(_real_picture));
set_header (10,"@42gPROGRESSIVI PRECEDENTI@69g%15s",(const char*) string); set_header (10,"@83g%s", _progredare.string(_real_picture));
string = _progredare.string("###.###.###.###"); set_header (10,"@100g%s", _progreavere.string(_real_picture));
set_header (10,"@85g%15s",(const char*) string);
string = _progreavere.string("###.###.###.###");
set_header (10,"@101g%15s",(const char*) string);
} }
if (_numcarat == 2) if (_numcarat == 2)
{ {
TString string = _progredare.string("###.###.###.###"); set_header (10,"@70gPROGRESSIVI PRECEDENTI@100g%s", _progredare.string(_real_picture));
set_header (10,"@70gPROGRESSIVI PRECEDENTI@101g%15s",(const char*)string); set_header (10,"@117g%s", _progreavere.string(_real_picture));
string = _progreavere.string("###.###.###.###"); set_header (10,"@134g%s", _saldo_progre_prec.string(_real_picture));
set_header (10,"@117g%15s",(const char*) string);
string = _saldo_progre_prec.string("###.###.###.###");
set_header (10,"@133g%15s",(const char*) string);
} }
_riporto_dare = _progredare; _riporto_dare = _progredare;
_riporto_avere = _progreavere; _riporto_avere = _progreavere;
@ -2809,17 +2790,13 @@ void TMastrini_application::crea_intestazione()
{ {
if (_numcarat == 1) if (_numcarat == 1)
{ {
TString string = dep_dare.string("###.###.###.###"); set_header (10,"@32gA RIPORTO@83g%s", dep_dare.string(_real_picture));
set_header (10,"@32gA RIPORTO@85g%15s",(const char*) string); set_header (10,"@100g%s", dep_avere.string(_real_picture));
string = dep_avere.string("###.###.###.###");
set_header (10,"@101g%15s",(const char*) string);
} }
if (_numcarat == 2) if (_numcarat == 2)
{ {
TString string = dep_dare.string("###.###.###.###"); set_header (10,"@32gA RIPORTO@100g%s", dep_dare.string(_real_picture));
set_header (10,"@32gA RIPORTO@101g%15s",(const char*) string); set_header (10,"@117g%s", dep_avere.string(_real_picture));
string = dep_avere.string("###.###.###.###");
set_header (10,"@117g%15s",(const char*) string);
} }
} }
_riporto_parziale_dare = ZERO; _riporto_parziale_dare = ZERO;
@ -2889,30 +2866,23 @@ int TMastrini_application::crea_intestazione(int start_riga)
set_row (r, "@12g%-45s", (const char*) _ragsoc); set_row (r, "@12g%-45s", (const char*) _ragsoc);
set_row (r, "@59g%s", (const char*) _indulc); set_row (r, "@59g%s", (const char*) _indulc);
//set_row (r, "@86g%-9s", (const char*) _civulc); //set_row (r, "@86g%-9s", (const char*) _civulc);
set_row (r, "@97g%-5s", (const char*) _capulc); set_row (r, "@100g%-5s", (const char*) _capulc);
set_row (r, "@103g%-18s", (const char*) _com); set_row (r, "@103g%-18s", (const char*) _com);
set_row (r, "@122g%-3s", (const char*) _prov); set_row (r, "@122g%-3s", (const char*) _prov);
r += 2; r += 2;
} }
if (_nummast == 3) if (_nummast == 3)
{ set_row (r, "@0gSottoconto@12g@b%3d %3d %6ld", _gruppo, _conto, _sottoc);
set_row (r, "@0gSottoconto@12g@b%d", _gruppo);
set_row (r, "@16g@b%d", _conto);
set_row (r, "@20g@b%ld", _sottoc);
}
else else
{ set_row (r, "@0gSottoconto@12g%3d %3d %6ld", _gruppo, _conto, _sottoc);
set_row (r, "@0gSottoconto@12g%d", _gruppo);
set_row (r, "@16g%d", _conto);
set_row (r, "@20g%ld", _sottoc);
}
if (_tmcf == 'C') if (_tmcf == 'C')
_tipo_mask = 1; _tipo_mask = 1;
else if (_tmcf == 'F') else if (_tmcf == 'F')
_tipo_mask = 2; _tipo_mask = 2;
else if (_tmcf == '\0') else if (_tmcf == '\0')
_tipo_mask = 3; _tipo_mask = 3;
switch (_tipo_mask) switch (_tipo_mask)
{ {
case 1: r = ricerca_clifo(r); case 1: r = ricerca_clifo(r);
@ -2936,31 +2906,30 @@ int TMastrini_application::crea_intestazione(int start_riga)
set_row (r,"Data"); set_row (r,"Data");
if (_stampanum < 3) if (_stampanum < 3)
set_row (r,"@11gnumero"); set_row (r,"@11gnumero");
set_row (r++,"@19gData@30gNumero@38gCod.Causale@61gDescrizione@96gDare@111gAvere@117gPartita@131gC"); set_row (r++,"@19gData@30gNumero@38gCod.Causale@61gDescrizione@95gDare@111gAvere@117gPartita@131gC");
if (_stampa_mov_prov) if (_stampa_mov_prov)
set_header(r-1,"@129gP"); set_header(r-1,"@129gP");
sep.fill('-'); sep.fill('-');
set_row (r++,"@1g%s", (const char *) sep); set_row (r++,"@1g%s", (const char*)sep);
} }
else if (_numcarat == 2) else
{ {
sep1.fill('-'); //Stampa 198 - (sep1(198)) sep1.fill('-'); //Stampa 198 - (sep1(198))
set_row (r++,"@0g%s", (const char *) sep1); set_row (r++,"@0g%s", (const char*)sep1);
set_row (r++,"Operazione@23gData@34gNumero@169gContro@180gReg@188gNumero@197gA"); set_row (r++,"Operazione@23gData@34gNumero@169gContro@183gReg@190gNumero@197gA");
if (_stampa_mov_prov) if (_stampa_mov_prov)
set_row(r-1,"@195gM"); set_row(r-1,"@195gM");
set_row (r,"Data"); set_row (r,"Data");
if (_stampanum < 3) if (_stampanum < 3)
set_row (r,"@11gnumero"); set_row (r,"@11gnumero");
set_row (r,"@23gDocumento@42gCod.Causale@70gDescrizione@112gDare@127gAvere"); set_row (r,"@23gDocumento@42gCod.Causale@70gDescrizione@112gDare@127gAvere");
set_row (r++,"@135gSaldo progre.@152gSaldo movim.@169gPartita@180gIva@184gProtocollo@197gC"); set_row (r++,"@135gSaldo progre.@152gSaldo movim.@169gPartita@183gIva@189gProtoc.@197gC");
if (_stampa_mov_prov) if (_stampa_mov_prov)
set_row (r-1,"@195gP"); set_row (r-1,"@195gP");
sep1.fill('-'); sep1.fill('-');
set_row (r++,"@0g%s", (const char *) sep1); set_row (r++,"@0g%s", (const char*)sep1);
} }
if (_pagina != np) _pagina = np;
_pagina = np;
return r; return r;
} }
@ -2993,17 +2962,13 @@ void TMastrini_application::stampa_progre_riporto()
{ {
if (_numcarat == 1) if (_numcarat == 1)
{ {
TString string = dep_dare.string("###.###.###.###"); set_row (_rw,"@32gA RIPORTO@83g%r", &dep_dare);
set_row (_rw,"@32gA RIPORTO@85g%15s",(const char*) string); set_row (_rw++,"@100g%r",&dep_avere);
string = dep_avere.string("###.###.###.###");
set_row (_rw++,"@101g%15s",(const char*) string);
} }
if (_numcarat == 2) if (_numcarat == 2)
{ {
TString string = dep_dare.string("###.###.###.###"); set_row (_rw,"@32gA RIPORTO@100g%r", &dep_dare);
set_row (_rw,"@32gA RIPORTO@101g%15s",(const char*) string); set_row (_rw++,"@117g%r", &dep_avere);
string = dep_avere.string("###.###.###.###");
set_row (_rw++,"@117g%15s",(const char*) string);
} }
} }
_riporto_parziale_dare = ZERO; _riporto_parziale_dare = ZERO;
@ -3012,13 +2977,13 @@ void TMastrini_application::stampa_progre_riporto()
if (_numcarat == 1) if (_numcarat == 1)
{ {
sep =""; sep ="";
set_row(_rw,"@1g%s",(const char*) sep); set_row(_rw,"@1g%s",(const char*)sep);
}
else
{
sep1 ="";
set_row(_rw,"@1g%s",(const char*)sep1);
} }
else if (_numcarat == 2)
{
sep1 ="";
set_row(_rw,"@1g%s",(const char*) sep1);
}
} }
int TMastrini_application::stampa_progre_riporto(int start_riga) int TMastrini_application::stampa_progre_riporto(int start_riga)
@ -3048,17 +3013,13 @@ int TMastrini_application::stampa_progre_riporto(int start_riga)
{ {
if (_numcarat == 1) if (_numcarat == 1)
{ {
TString string = dep_dare.string("###.###.###.###"); set_row (r,"@32gA RIPORTO@83g%r", &dep_dare);
set_row (r,"@32gA RIPORTO@85g%15s",(const char*) string); set_row (r++,"@100g%r", &dep_avere);
string = dep_avere.string("###.###.###.###");
set_row (r++,"@101g%15s",(const char*) string);
} }
if (_numcarat == 2) if (_numcarat == 2)
{ {
TString string = dep_dare.string("###.###.###.###"); set_row (r,"@32gA RIPORTO@100g%r", &dep_dare);
set_row (r,"@32gA RIPORTO@101g%15s",(const char*) string); set_row (r++,"@117g%r", &dep_avere);
string = dep_avere.string("###.###.###.###");
set_row (r++,"@117g%15s",(const char*) string);
} }
} }
_riporto_parziale_dare = ZERO; _riporto_parziale_dare = ZERO;
@ -3069,11 +3030,11 @@ int TMastrini_application::stampa_progre_riporto(int start_riga)
sep =""; sep ="";
set_row(r++,"@1g%s",(const char*) sep); set_row(r++,"@1g%s",(const char*) sep);
} }
else if (_numcarat == 2) else
{ {
sep1 =""; sep1 ="";
set_row(r++,"@1g%s",(const char*) sep1); set_row(r++,"@1g%s",(const char*) sep1);
} }
return r; return r;
} }
@ -3311,24 +3272,17 @@ void TMastrini_application::stampa_progressivi()
_rw = 1; _rw = 1;
if (_numcarat == 1) if (_numcarat == 1)
{ {
TString string = _saldo_progre_prec.string("###.###.###.###"); set_row (_rw,"@42gPROGRESSIVI PRECEDENTI@66g%r", &_saldo_progre_prec);
set_row (_rw,"@42gPROGRESSIVI PRECEDENTI@69g%15s",(const char*) string); set_row (_rw,"@83g%r", &_progredare);
string = _progredare.string("###.###.###.###"); set_row (_rw++,"@100g%r", &_progreavere);
set_row (_rw,"@85g%15s",(const char*) string); }
string = _progreavere.string("###.###.###.###"); else
set_row (_rw++,"@101g%15s",(const char*) string); {
} set_row (_rw,"@70gPROGRESSIVI PRECEDENTI@100g%r", &_progredare);
set_row (_rw,"@117g%r", &_progreavere);
if (_numcarat == 2) set_row (_rw++,"@134g%r", &_saldo_progre_prec);
{ }
TString string = _progredare.string("###.###.###.###");
set_row (_rw,"@70gPROGRESSIVI PRECEDENTI@101g%15s",(const char*)string);
string = _progreavere.string("###.###.###.###");
set_row (_rw,"@117g%15s",(const char*) string);
string = _saldo_progre_prec.string("###.###.###.###");
set_row (_rw++,"@133g%15s",(const char*) string);
}
} }
int TMastrini_application::stampa_progressivi(int start_riga) int TMastrini_application::stampa_progressivi(int start_riga)
@ -3336,24 +3290,17 @@ int TMastrini_application::stampa_progressivi(int start_riga)
int r = start_riga; int r = start_riga;
if (_numcarat == 1) if (_numcarat == 1)
{ {
TString string = _saldo_progre_prec.string("###.###.###.###"); set_row (r,"@42gPROGRESSIVI PRECEDENTI@66g%r", &_saldo_progre_prec);
set_row (r,"@42gPROGRESSIVI PRECEDENTI@69g%15s",(const char*) string); set_row (r,"@83g%r", &_progredare);
string = _progredare.string("###.###.###.###"); set_row (r++,"@100g%r", &_progreavere);
set_row (r,"@85g%15s",(const char*) string); }
string = _progreavere.string("###.###.###.###"); else
set_row (r++,"@101g%15s",(const char*) string); {
} set_row (r,"@70gPROGRESSIVI PRECEDENTI@100g%r", &_progredare);
set_row (r,"@117g%r", &_progreavere);
if (_numcarat == 2) set_row (r++,"@134g%r", &_saldo_progre_prec);
{ }
TString string = _progredare.string("###.###.###.###");
set_row (r,"@70gPROGRESSIVI PRECEDENTI@101g%15s",(const char*)string);
string = _progreavere.string("###.###.###.###");
set_row (r,"@117g%15s",(const char*) string);
string = _saldo_progre_prec.string("###.###.###.###");
set_row (r++,"@133g%15s",(const char*) string);
}
return r; return r;
} }
@ -3485,7 +3432,7 @@ void TMastrini_application::ricerca_clifo()
set_header (5, "@33gP.I.@37g%-11s",(const char*) paiv); set_header (5, "@33gP.I.@37g%-11s",(const char*) paiv);
set_header (5, "@49gCF@52g%-16s",(const char*) cofi); set_header (5, "@49gCF@52g%-16s",(const char*) cofi);
set_header (5, "@69g%-.25s",(const char*) indcf); set_header (5, "@66g%-.25s",(const char*) indcf);
set_header (5, "@95g%-5s",(const char*) capcf); set_header (5, "@95g%-5s",(const char*) capcf);
set_header (5, "@101g%-.24s",(const char*) dencom); set_header (5, "@101g%-.24s",(const char*) dencom);
set_header (5, "@126g%-5s",(const char*) provcom); set_header (5, "@126g%-5s",(const char*) provcom);
@ -3624,7 +3571,7 @@ int TMastrini_application::ricerca_clifo(int start)
set_row (r, "@33gP.I.@37g%-11s",(const char*) paiv); set_row (r, "@33gP.I.@37g%-11s",(const char*) paiv);
set_row (r, "@49gCF@52g%-16s",(const char*) cofi); set_row (r, "@49gCF@52g%-16s",(const char*) cofi);
set_row (r, "@69g%-.25s",(const char*) indcf); set_row (r, "@66g%-.25s",(const char*) indcf);
set_row (r, "@95g%-5s",(const char*) capcf); set_row (r, "@95g%-5s",(const char*) capcf);
set_row (r, "@101g%-.24s",(const char*) dencom); set_row (r, "@101g%-.24s",(const char*) dencom);
set_row (r, "@126g%-5s",(const char*) provcom); set_row (r, "@126g%-5s",(const char*) provcom);
@ -3970,8 +3917,6 @@ bool TMastrini_application::user_create()
exp.add("SOTTOCONTO=SOTTOCONTO"); exp.add("SOTTOCONTO=SOTTOCONTO");
_rel->add(LF_RMOV,exp,2,LF_SALDI); _rel->add(LF_RMOV,exp,2,LF_SALDI);
// _cur1=add_cursor(new TCursor(_rel,"FLSCA=\"F\"",2));
_cur1=add_cursor(new TCursor(_rel,"FLSCA=\" \"",2)); _cur1=add_cursor(new TCursor(_rel,"FLSCA=\" \"",2));
_nditte = new TLocalisamfile (LF_NDITTE); _nditte = new TLocalisamfile (LF_NDITTE);
_unloc = new TLocalisamfile (LF_UNLOC); _unloc = new TLocalisamfile (LF_UNLOC);
@ -4021,16 +3966,12 @@ bool TMastrini_application::user_destroy()
delete _d30; delete _d30;
return TRUE; return TRUE;
} }
int cg3200(int argc, char* argv[]) int cg3200(int argc, char* argv[])
{ {
TMastrini_application a; TMastrini_application a;
a.run(argc, argv, "Stampa Mastrini"); a.run(argc, argv, "Stampa Mastrini");
return 0; return 0;
} }

1
cg/cg3200.h
View File

@ -36,6 +36,7 @@
#define F_STAMPATOTIVA 114 #define F_STAMPATOTIVA 114
#define F_TIPOSTAMPA 115 #define F_TIPOSTAMPA 115
#define F_STAMPAMOVPROV 116 #define F_STAMPAMOVPROV 116
#define F_SEPARATOR 117
#define F_MEMORIZZA 500 #define F_MEMORIZZA 500
#define F_NUMCARAT 501 #define F_NUMCARAT 501
#define F_NUMMAST 502 #define F_NUMMAST 502

5
cg/cg3200a.uml
View File

@ -453,6 +453,11 @@ BEGIN
PROMPT 4 13 "Stampa movimenti provvisori" PROMPT 4 13 "Stampa movimenti provvisori"
END END
BOOLEAN F_SEPARATOR
BEGIN
PROMPT 4 14 "Non stampare il separatore delle migliaia"
END
LIST F_STAMPANUM 15 LIST F_STAMPANUM 15
BEGIN BEGIN
PROMPT 4 15 "Stampa numerazione " PROMPT 4 15 "Stampa numerazione "

71
cg/cg3400.cpp
View File

@ -28,8 +28,7 @@
#include "cg3400a.h" #include "cg3400a.h"
#include "cg3400b.h" #include "cg3400b.h"
HIDDEN const char* TOT_PICTURE = "#.###.###.###.###"; HIDDEN const char* REAL_PICTURE = "###.###.###.###.###";
HIDDEN const char* REAL_PICTURE = "###.###.###.###";
HIDDEN const int RIGHE_FOOTER = 3; HIDDEN const int RIGHE_FOOTER = 3;
@ -40,13 +39,13 @@ HIDDEN const int POSCONTO = 74;
HIDDEN const int DARE132 = 95; HIDDEN const int DARE132 = 95;
HIDDEN const int AVERE132 = 112; HIDDEN const int AVERE132 = 112;
HIDDEN const int DARE198 = 150; HIDDEN const int DARE198 = 152;
HIDDEN const int AVERE198 = 174; HIDDEN const int AVERE198 = 174;
const int SCRITTA = 26; // prima era 29 HIDDEN const int SCRITTA = 26;
const int TOTDARE132 = 88; // prima era 92 HIDDEN const int TOTDARE132 = 84;
const int SEZA132 = 108; // prima era 111 HIDDEN const int SEZA132 = 108;
const int TOTAVERE132 = 110; // prima era 112 HIDDEN const int TOTAVERE132 = 110;
HIDDEN enum descr { causale, conto, operazione }; HIDDEN enum descr { causale, conto, operazione };
@ -440,8 +439,8 @@ int TStampa_giornale::set_totali_giorno(const TDate& data, const int righeiva)
// Se e' l'unico totale lo stampo anche se e' zero // Se e' l'unico totale lo stampo anche se e' zero
if (competenza_ec() || (_tot_avere_gg != ZERO || _tot_dare_gg != ZERO)) if (competenza_ec() || (_tot_avere_gg != ZERO || _tot_dare_gg != ZERO))
{ {
TString td(_tot_dare_gg.string (TOT_PICTURE)); TString td(_tot_dare_gg.string (REAL_PICTURE));
TString ta(_tot_avere_gg.string(TOT_PICTURE)); TString ta(_tot_avere_gg.string(REAL_PICTURE));
sprintf(dep, "@b@%dgTotale operazioni del %s @%dg%c %s @%dg%c @%dg%s", sprintf(dep, "@b@%dgTotale operazioni del %s @%dg%c %s @%dg%c @%dg%s",
_stampa_width == 132 ? SCRITTA : DARE198-STACC, _stampa_width == 132 ? SCRITTA : DARE198-STACC,
@ -449,7 +448,7 @@ int TStampa_giornale::set_totali_giorno(const TDate& data, const int righeiva)
_stampa_width == 132 ? TOTDARE132 : DARE198-2, _stampa_width == 132 ? TOTDARE132 : DARE198-2,
'D', 'D',
(const char*)td, (const char*)td,
_stampa_width == 132 ? SEZA132 : DARE198+20, _stampa_width == 132 ? SEZA132 : AVERE198-2,
'A', 'A',
_stampa_width == 132 ? TOTAVERE132 : AVERE198, _stampa_width == 132 ? TOTAVERE132 : AVERE198,
(const char*)ta (const char*)ta
@ -461,8 +460,8 @@ int TStampa_giornale::set_totali_giorno(const TDate& data, const int righeiva)
if (competenza_ep() || (_tot_avere_gg_ap != ZERO || _tot_dare_gg_ap != ZERO)) if (competenza_ep() || (_tot_avere_gg_ap != ZERO || _tot_dare_gg_ap != ZERO))
{ {
TString tdp(_tot_dare_gg_ap.string(TOT_PICTURE)); TString tdp(_tot_dare_gg_ap.string(REAL_PICTURE));
TString tap(_tot_avere_gg_ap.string(TOT_PICTURE)); TString tap(_tot_avere_gg_ap.string(REAL_PICTURE));
sprintf (dep, "@b@%dgTotale operazioni del %s Anno precedente @%dg%c %s @%dg%c @%dg%s", sprintf (dep, "@b@%dgTotale operazioni del %s Anno precedente @%dg%c %s @%dg%c @%dg%s",
_stampa_width == 132 ? SCRITTA : DARE198-STACC, _stampa_width == 132 ? SCRITTA : DARE198-STACC,
@ -470,7 +469,7 @@ int TStampa_giornale::set_totali_giorno(const TDate& data, const int righeiva)
_stampa_width == 132 ? TOTDARE132 : DARE198-2, _stampa_width == 132 ? TOTDARE132 : DARE198-2,
'D', 'D',
(const char*)tdp, (const char*)tdp,
_stampa_width == 132 ? SEZA132 : DARE198+20, _stampa_width == 132 ? SEZA132 : AVERE198-2,
'A', 'A',
_stampa_width == 132 ? TOTAVERE132 : AVERE198, _stampa_width == 132 ? TOTAVERE132 : AVERE198,
(const char*)tap (const char*)tap
@ -512,8 +511,8 @@ void TStampa_giornale::preprocess_footer()
if (_tot_avere_progr_ap != ZERO || _tot_dare_progr_ap != ZERO) if (_tot_avere_progr_ap != ZERO || _tot_dare_progr_ap != ZERO)
{ {
progr_dare_ap = _tot_dare_progr_ap.string(TOT_PICTURE); progr_dare_ap = _tot_dare_progr_ap.string(REAL_PICTURE);
progr_avere_ap = _tot_avere_progr_ap.string(TOT_PICTURE); progr_avere_ap = _tot_avere_progr_ap.string(REAL_PICTURE);
ap = TRUE; ap = TRUE;
} }
@ -535,8 +534,8 @@ void TStampa_giornale::preprocess_footer()
{ {
dt = _tot_dare_progr + _tot_dare_progr_ap; dt = _tot_dare_progr + _tot_dare_progr_ap;
at = _tot_avere_progr + _tot_avere_progr_ap; at = _tot_avere_progr + _tot_avere_progr_ap;
dts = dt.string(TOT_PICTURE); dts = dt.string(REAL_PICTURE);
ats = at.string(TOT_PICTURE); ats = at.string(REAL_PICTURE);
riga.format ("@b@%dg%s@%dg%c %s @%dg%c @%dg%s", riga.format ("@b@%dg%s@%dg%c %s @%dg%c @%dg%s",
_stampa_width == 132 ? SCRITTA : DARE198-STUMB, _stampa_width == 132 ? SCRITTA : DARE198-STUMB,
@ -545,7 +544,7 @@ void TStampa_giornale::preprocess_footer()
_stampa_width == 132 ? TOTDARE132 : DARE198, _stampa_width == 132 ? TOTDARE132 : DARE198,
'D', 'D',
(const char *) dts, (const char *) dts,
_stampa_width == 132 ? SEZA132 : DARE198+20, _stampa_width == 132 ? SEZA132 : AVERE198-2,
'A', 'A',
_stampa_width == 132 ? TOTAVERE132 : AVERE198, _stampa_width == 132 ? TOTAVERE132 : AVERE198,
(const char *) ats); (const char *) ats);
@ -572,8 +571,8 @@ int TStampa_giornale::set_totali_pagina(int righe)
if (_tot_avere_progr_ap != ZERO || _tot_dare_progr_ap != ZERO) if (_tot_avere_progr_ap != ZERO || _tot_dare_progr_ap != ZERO)
{ {
progr_dare_ap = _tot_dare_progr_ap.string(TOT_PICTURE); progr_dare_ap = _tot_dare_progr_ap.string(REAL_PICTURE);
progr_avere_ap = _tot_avere_progr_ap.string(TOT_PICTURE); progr_avere_ap = _tot_avere_progr_ap.string(REAL_PICTURE);
ap = TRUE; ap = TRUE;
} }
@ -582,15 +581,15 @@ int TStampa_giornale::set_totali_pagina(int righe)
// I totali distinti tra anno precedente e corrente SOLO SE STAMPA DI PROVA // I totali distinti tra anno precedente e corrente SOLO SE STAMPA DI PROVA
if (!_stampa_definitiva) if (!_stampa_definitiva)
{ {
progr_dare = _tot_dare_progr.string (TOT_PICTURE); progr_dare = _tot_dare_progr.string (REAL_PICTURE);
progr_avere = _tot_avere_progr.string(TOT_PICTURE); progr_avere = _tot_avere_progr.string(REAL_PICTURE);
riga = ""; riga = "";
riga.format("@b@%dgTotale progressivi @%dg%c %s @%dg%c @%dg%s", riga.format("@b@%dgTotale progressivi @%dg%c %s @%dg%c @%dg%s",
_stampa_width == 132 ? SCRITTA : DARE198-STUMB, _stampa_width == 132 ? SCRITTA : DARE198-STUMB,
_stampa_width == 132 ? TOTDARE132 : DARE198-2, _stampa_width == 132 ? TOTDARE132 : DARE198-2,
'D', 'D',
(const char *) progr_dare, (const char *) progr_dare,
_stampa_width == 132 ? SEZA132 : DARE198+20, _stampa_width == 132 ? SEZA132 : AVERE198-2,
'A', 'A',
_stampa_width == 132 ? TOTAVERE132 : AVERE198, _stampa_width == 132 ? TOTAVERE132 : AVERE198,
(const char *) progr_avere (const char *) progr_avere
@ -605,7 +604,7 @@ int TStampa_giornale::set_totali_pagina(int righe)
_stampa_width == 132 ? TOTDARE132 : DARE198-2, _stampa_width == 132 ? TOTDARE132 : DARE198-2,
'D', 'D',
(const char *) progr_dare_ap, (const char *) progr_dare_ap,
_stampa_width == 132 ? SEZA132 : DARE198+20, _stampa_width == 132 ? SEZA132 : AVERE198-2,
'A', 'A',
_stampa_width == 132 ? TOTAVERE132 : AVERE198, _stampa_width == 132 ? TOTAVERE132 : AVERE198,
(const char *) progr_avere_ap (const char *) progr_avere_ap
@ -616,15 +615,15 @@ int TStampa_giornale::set_totali_pagina(int righe)
_tot_dare_generale = _tot_dare_progr + _tot_dare_progr_ap; _tot_dare_generale = _tot_dare_progr + _tot_dare_progr_ap;
_tot_avere_generale = _tot_avere_progr + _tot_avere_progr_ap; _tot_avere_generale = _tot_avere_progr + _tot_avere_progr_ap;
dts = _tot_dare_generale.string (TOT_PICTURE); dts = _tot_dare_generale.string (REAL_PICTURE);
ats = _tot_avere_generale.string(TOT_PICTURE); ats = _tot_avere_generale.string(REAL_PICTURE);
riga.format("@b@%dgTotale progressivi generali @%dg%c %s @%dg%c @%dg%s", riga.format("@b@%dgTotale progressivi generali @%dg%c %s @%dg%c @%dg%s",
_stampa_width == 132 ? SCRITTA : DARE198-STUMB, _stampa_width == 132 ? SCRITTA : DARE198-STUMB,
_stampa_width == 132 ? TOTDARE132 : DARE198-2, _stampa_width == 132 ? TOTDARE132 : DARE198-2,
'D', 'D',
(const char *) dts, (const char *) dts,
_stampa_width == 132 ? SEZA132 : DARE198+20, _stampa_width == 132 ? SEZA132 : AVERE198-2,
'A', 'A',
_stampa_width == 132 ? TOTAVERE132 : AVERE198, _stampa_width == 132 ? TOTAVERE132 : AVERE198,
(const char *) ats (const char *) ats
@ -644,8 +643,8 @@ int TStampa_giornale::set_totali_pagina(int righe)
dt = _tot_dare_progr + _tot_dare_progr_ap; dt = _tot_dare_progr + _tot_dare_progr_ap;
at = _tot_avere_progr + _tot_avere_progr_ap; at = _tot_avere_progr + _tot_avere_progr_ap;
dts = dt.string(TOT_PICTURE); dts = dt.string(REAL_PICTURE);
ats = at.string(TOT_PICTURE); ats = at.string(REAL_PICTURE);
// "Se il mese e' finito devo scrivere Totale progressivi generali // "Se il mese e' finito devo scrivere Totale progressivi generali
// invece che A riportare" // invece che A riportare"
@ -655,7 +654,7 @@ int TStampa_giornale::set_totali_pagina(int righe)
_stampa_width == 132 ? TOTDARE132 : DARE198-2, _stampa_width == 132 ? TOTDARE132 : DARE198-2,
'D', 'D',
(const char *) dts, (const char *) dts,
_stampa_width == 132 ? SEZA132 : DARE198+20, _stampa_width == 132 ? SEZA132 : AVERE198-2,
'A', 'A',
_stampa_width == 132 ? TOTAVERE132 : AVERE198, _stampa_width == 132 ? TOTAVERE132 : AVERE198,
(const char *) ats); (const char *) ats);
@ -791,8 +790,8 @@ void TStampa_giornale::preprocess_header()
return; return;
} }
TString dare (riporto_dare.string (TOT_PICTURE)); TString dare (riporto_dare.string (REAL_PICTURE));
TString avere(riporto_avere.string(TOT_PICTURE)); TString avere(riporto_avere.string(REAL_PICTURE));
riporto.format("@b@%dgRiporto: @%dg%c %17s @%dg%c@%dg%17s", // prima erano %15s riporto.format("@b@%dgRiporto: @%dg%c %17s @%dg%c@%dg%17s", // prima erano %15s
_stampa_width == 132 ? SCRITTA : DARE198-11, _stampa_width == 132 ? SCRITTA : DARE198-11,
@ -1175,11 +1174,10 @@ void TStampa_giornale::set_rows (int file, int counter)
if (_stampa_width == 132) if (_stampa_width == 132)
{ {
set_row (r, "@110g%r", &_importo); // prima era 110 set_row (r, "@110g%r %c", &_importo, _sezione);
set_row (r, "@128g%c", _sezione);
} }
else // stampa_width == 198 else // stampa_width == 198
set_row (r, _sezione == 'D' ? "@152g%r" : "@174g%r", &_importo); // il primo era 150 set_row (r, _sezione == 'D' ? "@152g%r" : "@174g%r", &_importo);
if (_MovGiaStampato && !_stampa_definitiva) if (_MovGiaStampato && !_stampa_definitiva)
set_row(r,format("@%dg*",_stampa_width == 132 ? 131 : 197)); set_row(r,format("@%dg*",_stampa_width == 132 ? 131 : 197));
@ -1807,8 +1805,7 @@ void TStampa_giornale::init_print()
for (int i=1; i<RIGHE_FOOTER; i++) set_footer(i, "%s", " "); for (int i=1; i<RIGHE_FOOTER; i++) set_footer(i, "%s", " ");
// set_real_picture (REAL_PICTURE); set_real_picture (REAL_PICTURE);
set_real_picture (TOT_PICTURE);
set_print_zero(TRUE); set_print_zero(TRUE);
if (_stampa_width == 1) if (_stampa_width == 1)

111
cg/cg3500.cpp
View File

@ -39,7 +39,7 @@
typedef enum {stampagruppo, stampaconto, stampasottoconto, fine} tipo; typedef enum {stampagruppo, stampaconto, stampasottoconto, fine} tipo;
class CG3500_application : public TPrintapp class TStampa_riepilogo : public TPrintapp
{ {
TProgind * _prog; TProgind * _prog;
TSaldi_list* _lista; TSaldi_list* _lista;
@ -81,10 +81,11 @@ public:
int stampa_intestazione_ditta(); int stampa_intestazione_ditta();
TDate UltimaData(int,int,long); TDate UltimaData(int,int,long);
CG3500_application() {} TStampa_riepilogo() { }
virtual ~TStampa_riepilogo() { }
}; };
bool CG3500_application::riepilogo() bool TStampa_riepilogo::riepilogo()
{ {
TSaldo sld; TSaldo sld;
int g, c, gp, cp, indbil; int g, c, gp, cp, indbil;
@ -94,7 +95,7 @@ bool CG3500_application::riepilogo()
real saldo_conto,prg_conto_dare,prg_conto_avere,saldo_gruppo,prg_gruppo_dare,prg_gruppo_avere,prg_dare,prg_avere,saldo; real saldo_conto,prg_conto_dare,prg_conto_avere,saldo_gruppo,prg_gruppo_dare,prg_gruppo_avere,prg_dare,prg_avere,saldo;
CHECK(_tmp_saldi == NULL, "La minchia che riapro cg01!"); CHECK(_tmp_saldi == NULL, "La minchia che riapro cg01!");
_tmp_saldi = new TIsamtempfile(LF_SALDI, "cg01", 2); _tmp_saldi = new TIsamtempfile(LF_SALDI, "cg01", TRUE, TRUE);
gp=-1; gp=-1;
cp=-1; cp=-1;
@ -356,7 +357,7 @@ bool CG3500_application::riepilogo()
return TRUE; return TRUE;
} }
bool CG3500_application::ricerca_cf(TConto& conto,int indbil,real& prg_conto_dare,real& prg_conto_avere) bool TStampa_riepilogo::ricerca_cf(TConto& conto,int indbil,real& prg_conto_dare,real& prg_conto_avere)
{ {
TSaldo sld; TSaldo sld;
bool esiste_sc = FALSE; bool esiste_sc = FALSE;
@ -421,9 +422,13 @@ bool CG3500_application::ricerca_cf(TConto& conto,int indbil,real& prg_conto_dar
return esiste_sc; return esiste_sc;
} }
bool CG3500_application::preprocess_print(int file, int counter) bool TStampa_riepilogo::preprocess_print(int file, int counter)
{ {
set_real_picture ("###.###.###.###"); #ifdef DBG
set_real_picture ("@@@.@@@.###.###.###");
#else
set_real_picture ("###.###.###.###.###");
#endif
set_print_zero(FALSE); set_print_zero(FALSE);
_tmp_saldi->setkey(2); _tmp_saldi->setkey(2);
_prg_dare_tot = 0.00; _prg_dare_tot = 0.00;
@ -434,7 +439,7 @@ bool CG3500_application::preprocess_print(int file, int counter)
return TRUE; return TRUE;
} }
tipo CG3500_application::leggi_conti(int counter) tipo TStampa_riepilogo::leggi_conti(int counter)
{ {
TRecnotype pos; TRecnotype pos;
@ -486,9 +491,7 @@ tipo CG3500_application::leggi_conti(int counter)
_prg_dare = _tmp_saldi->get_real(SLD_PDARE); _prg_dare = _tmp_saldi->get_real(SLD_PDARE);
_prg_avere = _tmp_saldi->get_real(SLD_PAVERE); _prg_avere = _tmp_saldi->get_real(SLD_PAVERE);
_saldo_dare = _tmp_saldi->get_real(SLD_PDAREPRO); // W96SALDI del 10-06-96 _saldo_dare = _tmp_saldi->get_real(SLD_PDAREPRO); // W96SALDI del 10-06-96
//_saldo_dare = _tmp_saldi->get_real(SLD_PDARESCA);
_saldo_avere = _tmp_saldi->get_real(SLD_PAVEREPRO); _saldo_avere = _tmp_saldi->get_real(SLD_PAVEREPRO);
//_saldo_avere = _tmp_saldi->get_real(SLD_PAVERESCA);
CercaConto(_gcorr,_ccorr); CercaConto(_gcorr,_ccorr);
CercaGruppo(_gcorr); CercaGruppo(_gcorr);
@ -520,7 +523,7 @@ tipo CG3500_application::leggi_conti(int counter)
return stampasottoconto; return stampasottoconto;
} }
tipo CG3500_application::leggi_gruppi(int counter) tipo TStampa_riepilogo::leggi_gruppi(int counter)
{ {
TRecnotype pos; TRecnotype pos;
@ -591,7 +594,7 @@ tipo CG3500_application::leggi_gruppi(int counter)
} }
bool CG3500_application::CercaConto(int g, int c) bool TStampa_riepilogo::CercaConto(int g, int c)
{ {
_tmp_saldi->zero(); _tmp_saldi->zero();
_tmp_saldi->put(SLD_GRUPPO,g); _tmp_saldi->put(SLD_GRUPPO,g);
@ -622,7 +625,7 @@ bool CG3500_application::CercaConto(int g, int c)
return FALSE; return FALSE;
} }
bool CG3500_application::CercaGruppo(int g) bool TStampa_riepilogo::CercaGruppo(int g)
{ {
_tmp_saldi->zero(); _tmp_saldi->zero();
_tmp_saldi->put(SLD_GRUPPO,g); _tmp_saldi->put(SLD_GRUPPO,g);
@ -652,7 +655,7 @@ bool CG3500_application::CercaGruppo(int g)
return FALSE; return FALSE;
} }
bool CG3500_application::preprocess_page(int file, int counter) bool TStampa_riepilogo::preprocess_page(int file, int counter)
{ {
reset_print(); reset_print();
@ -685,7 +688,7 @@ bool CG3500_application::preprocess_page(int file, int counter)
return TRUE; return TRUE;
} }
void CG3500_application::postclose_print() void TStampa_riepilogo::postclose_print()
{ {
if (_tmp_saldi) if (_tmp_saldi)
{ delete _tmp_saldi; _tmp_saldi = NULL; } { delete _tmp_saldi; _tmp_saldi = NULL; }
@ -693,7 +696,7 @@ void CG3500_application::postclose_print()
//return NEXT_PAGE; //return NEXT_PAGE;
} }
print_action CG3500_application::postprocess_page(int file, int counter) print_action TStampa_riepilogo::postprocess_page(int file, int counter)
{ {
if (_tp == fine) if (_tp == fine)
return NEXT_PAGE; return NEXT_PAGE;
@ -701,49 +704,47 @@ print_action CG3500_application::postprocess_page(int file, int counter)
return REPEAT_PAGE; return REPEAT_PAGE;
} }
void CG3500_application::setta_riga_sottoconto() void TStampa_riepilogo::setta_riga_sottoconto()
{ {
TString udata = _ultima_data.string(); TString udata = _ultima_data.string();
//set_row(1,"%06ld", _scorr);
set_row(1,"%6ld", _scorr); set_row(1,"%6ld", _scorr);
//set_row(1,"@i %.32s@r",(const char*) _descr); set_row(1," %.34s@r",(const char*) _descr);
set_row(1," %.32s@r",(const char*) _descr);
set_row(1,"@42g%s",(const char*) udata); set_row(1,"@42g%s",(const char*) udata);
set_row(1,"@57g%r@77g%r@97g%r@117g%r",&_prg_dare,&_prg_avere,&_saldo_dare,&_saldo_avere); set_row(1,"@53g%r@73g%r@93g%r@113g%r",&_prg_dare,&_prg_avere,&_saldo_dare,&_saldo_avere);
} }
void CG3500_application::setta_riga_conto() void TStampa_riepilogo::setta_riga_conto()
{ {
TString riga (132); TString riga (132);
TString udata = _ultima_data.string(); TString udata = _ultima_data.string();
int r; int r;
riga = ""; riga = "";
if ( (_tp == fine) && (_scelta == 1) ) r = 2; if ( (_tp == fine) && (_scelta == 1) )
else r = 1; r = 2;
else
r = 1;
if (_scelta == 1) if (_scelta == 1)
{ {
set_row(r++,"%s",(const char*)riga); set_row(r++,"%s",(const char*)riga);
//set_row(r,"**** Totali conto %03d.%03d",_gconto,_cconto); set_row(r,"**** Totali conto %3d %3d",_gconto,_cconto);
set_row(r,"**** Totali conto %3d %3d",_gconto,_cconto); set_row(r,"@27g%.25s@r",(const char*)_descrconto);
// set_row(r,"@i %.27s@r",(const char*)_descrconto);
set_row(r," %.27s@r",(const char*)_descrconto);
} }
if (_scelta == 2) if (_scelta == 2)
{ {
set_row(r,"%3d", _ccorr); set_row(r,"%3d", _ccorr);
//set_row(r,"@i %.32s@r",(const char*)_descrconto); set_row(r," %.25s@r",(const char*)_descrconto);
set_row(r," %.32s@r",(const char*)_descrconto);
set_row(r,"@42g%s",(const char*)udata); set_row(r,"@42g%s",(const char*)udata);
} }
set_row(r++,"@57g%r@77g%r@97g%r@117g%r",&_prg_dare_conto,&_prg_avere_conto,&_saldo_dare_conto,&_saldo_avere_conto); set_row(r++,"@53g%r@73g%r@93g%r@113g%r",&_prg_dare_conto,&_prg_avere_conto,&_saldo_dare_conto,&_saldo_avere_conto);
if ( (_scelta == 1) || ((_scelta == 2) && (_tp == fine)) ) if ( (_scelta == 1) || ((_scelta == 2) && (_tp == fine)) )
set_row(r,"%s",(const char*)riga); set_row(r,"%s",(const char*)riga);
} }
void CG3500_application::setta_riga_gruppo() void TStampa_riepilogo::setta_riga_gruppo()
{ {
TString riga (132); TString riga (132);
int r = 0; int r = 0;
@ -755,32 +756,27 @@ void CG3500_application::setta_riga_gruppo()
if (_scelta == 2) if (_scelta == 2)
if (_tp == fine) r = 3; if (_tp == fine) r = 3;
else r = 2; else r = 2;
//set_row(r,"**** TOTALI GRUPPO %3d-",_ggruppo); set_row(r,"**** TOTALI GRUPPO %3d",_ggruppo);
set_row(r,"**** TOTALI GRUPPO %3d ",_ggruppo); set_row(r,"@27g%.25s@r",(const char*)_descrgruppo);
//set_row(r,"@i %.30s@r",(const char*)_descrgruppo); set_row(r++,"@53g%r@73g%r@93g%r@113g%r",&_prg_dare_gruppo,&_prg_avere_gruppo,&_saldo_dare_gruppo,&_saldo_avere_gruppo);
set_row(r," %.30s@r",(const char*)_descrgruppo);
set_row(r++,"@57g%r@77g%r@97g%r@117g%r",&_prg_dare_gruppo,&_prg_avere_gruppo,&_saldo_dare_gruppo,&_saldo_avere_gruppo);
set_row(r++,"%s",(const char*)riga); set_row(r++,"%s",(const char*)riga);
riga = ""; riga = "";
set_row(r,"%s",(const char*)riga); set_row(r,"%s",(const char*)riga);
} }
void CG3500_application::setta_riga_totale() void TStampa_riepilogo::setta_riga_totale()
{ {
_saldo_tot = _prg_dare_tot - _prg_avere_tot; _saldo_tot = _prg_dare_tot - _prg_avere_tot;
const int r = _scelta == 1 ? 8 : 6; const int r = _scelta == 1 ? 8 : 6;
//17/11/1995 //17/11/1995
TString pdt(_prg_dare_tot.string("#.###.###.###.###")); set_row(r, "**** TOTALE GENERALE @53g%r@73g%r", &_prg_dare_tot, &_prg_avere_tot);
TString pat(_prg_avere_tot.string("#.###.###.###.###"));
set_row(r, "**** TOTALE GENERALE @55g%s@75g%s",
(const char*)pdt, (const char*)pat);
// Guy: 10/01/97 errore MI6125 // Guy: 10/01/97 errore MI6125
if (_saldo_tot != 0.0) if (_saldo_tot != 0.0)
{ {
int go = 95; int go = 93;
if (_saldo_tot < 0.0) if (_saldo_tot < 0.0)
{ {
_saldo_tot = -_saldo_tot; _saldo_tot = -_saldo_tot;
@ -788,14 +784,14 @@ void CG3500_application::setta_riga_totale()
} }
TString st(24); TString st(24);
st << '@' << go << 'g' << _saldo_tot.string("#.###.###.###.###"); st << '@' << go << 'g' << _saldo_tot.string("###.###.###.###.###");
set_row(r, (const char*)st); set_row(r, (const char*)st);
} }
} }
TDate CG3500_application::UltimaData(int g, int c, long s) TDate TStampa_riepilogo::UltimaData(int g, int c, long s)
{ {
TLocalisamfile saldi(LF_SALDI, FALSE); //il parametro a false permette di usare un record corrente del file saldi differente a quello del file temporaneo TLocalisamfile saldi(LF_SALDI);
TDate uldata; TDate uldata;
saldi.zero(); saldi.zero();
@ -815,7 +811,7 @@ TDate CG3500_application::UltimaData(int g, int c, long s)
return uldata; return uldata;
} }
bool CG3500_application::user_create() bool TStampa_riepilogo::user_create()
{ {
_clifo = new TLocalisamfile(LF_CLIFO); _clifo = new TLocalisamfile(LF_CLIFO);
_com = new TLocalisamfile(LF_COMUNI); _com = new TLocalisamfile(LF_COMUNI);
@ -827,7 +823,7 @@ bool CG3500_application::user_create()
return TRUE; return TRUE;
} }
bool CG3500_application::user_destroy() bool TStampa_riepilogo::user_destroy()
{ {
delete _com; delete _com;
delete _pcn; delete _pcn;
@ -839,19 +835,17 @@ bool CG3500_application::user_destroy()
return TRUE; return TRUE;
} }
bool CG3500_application::set_print(int) bool TStampa_riepilogo::set_print(int)
{ {
TMask m ("cg3500a"); TMask m ("cg3500a");
KEY tasto; KEY tasto = m.run();
tasto = m.run();
if (tasto == K_ENTER) if (tasto == K_ENTER)
{ {
_annoese = atoi(m.get(F_ANNO)); _annoese = atoi(m.get(F_ANNO));
_scelta = atoi(m.get(F_STAMPA)); _scelta = atoi(m.get(F_STAMPA));
_richiesta = atoi(m.get(F_RICHIESTA)); _richiesta = atoi(m.get(F_RICHIESTA));
_data = m.get(F_DATASTAMPA); _data = m.get(F_DATASTAMPA);
_prog = new TProgind(_pcn->items(),"Elaborazione in corso... prego attendere",FALSE); _prog = new TProgind(_pcn->items(), "Elaborazione in corso...", FALSE);
riepilogo(); riepilogo();
@ -872,7 +866,7 @@ TRectype& cerca_com (const char * cod, TLocalisamfile *comuni)
return comuni->curr(); return comuni->curr();
} }
void CG3500_application::get_dati_ditta() void TStampa_riepilogo::get_dati_ditta()
{ {
TLocalisamfile nditte(LF_NDITTE); TLocalisamfile nditte(LF_NDITTE);
TLocalisamfile anag(LF_ANAG); TLocalisamfile anag(LF_ANAG);
@ -922,7 +916,7 @@ void CG3500_application::get_dati_ditta()
} }
} }
int CG3500_application::stampa_intestazione_ditta() int TStampa_riepilogo::stampa_intestazione_ditta()
{ {
int r = 1; int r = 1;
TString codice_ditta; TString codice_ditta;
@ -946,7 +940,7 @@ int CG3500_application::stampa_intestazione_ditta()
return r; return r;
} }
void CG3500_application::preprocess_header() void TStampa_riepilogo::preprocess_header()
{ {
int r; int r;
reset_header(); reset_header();
@ -977,11 +971,8 @@ void CG3500_application::preprocess_header()
int cg3500 (int argc, char* argv[]) int cg3500 (int argc, char* argv[])
{ {
TStampa_riepilogo a;
CG3500_application a;
a.run(argc, argv, "Stampa riepilogo gruppi/conti"); a.run(argc, argv, "Stampa riepilogo gruppi/conti");
return 0; return 0;
} }

7
cg/cg3600.cpp
View File

@ -1,5 +1,3 @@
#include <stdlib.h>
#include <applicat.h> #include <applicat.h>
#include <colors.h> #include <colors.h>
#include <controls.h> #include <controls.h>
@ -944,7 +942,7 @@ bool TMastrino::collapse(long rec)
{ {
bool ok = TRUE; // Posso eliminare? bool ok = TRUE; // Posso eliminare?
if (row(rec).tipo() != riga_mastrino) // Se non sono su una riga mastrino ... if (row(rec).tipo() != riga_mastrino) // Se non sono su una riga mastrino ...
rec = pred(rec, riga_mastrino); // ... mi sposto sulla precedente rec = pred(rec, riga_mastrino); // ... mi sposto sulla precedente riga mastrino
else else
ok = !expandable(rec); // Controlla che sia possibile ok = !expandable(rec); // Controlla che sia possibile
@ -2176,8 +2174,7 @@ HIDDEN void set_imp(TMask_field& f, const TImporto& imp)
if (!imp.is_zero()) if (!imp.is_zero())
{ {
TString80 str; TString80 str;
str = imp.valore().string("."); str.format("%s %c", imp.valore().string("."), imp.sezione());
str << ' ' << imp.sezione();
f.set(str); f.set(str);
} }
else else

64
cg/cg3600b.uml
View File

@ -67,16 +67,16 @@ BEGIN
ITEM "C@1F" ITEM "C@1F"
ITEM "Causale@20F" ITEM "Causale@20F"
ITEM "Operazione@20" ITEM "Operazione@20"
ITEM "Dare@15R" ITEM "Dare@19R"
ITEM "Avere@15R" ITEM "Avere@19R"
ITEM "N.Doc. \nN.Prot.@7" ITEM "N.Doc. \nN.Prot.@7"
ITEM "Importo@17R" ITEM "Importo@21R"
ITEM "Saldo Fine\nGiornata@17R" ITEM "Saldo Fine\nGiornata@21R"
END END
TEXT DLG_NULL TEXT DLG_NULL
BEGIN BEGIN
PROMPT 26 -5 "@bSaldo" PROMPT 23 -5 "@bSaldo"
END END
TEXT DLG_NULL TEXT DLG_NULL
@ -86,55 +86,55 @@ END
TEXT DLG_NULL TEXT DLG_NULL
BEGIN BEGIN
PROMPT 61 -5 "@bAvere" PROMPT 64 -5 "@bAvere"
END END
TEXT DLG_NULL TEXT DLG_NULL
BEGIN BEGIN
PROMPT 1 -4 "Progr. precedenti" PROMPT 1 -4 "Progr. prec."
END END
STRING F_TOTPRO_SAL 17 STRING F_TOTPRO_SAL 21
BEGIN BEGIN
PROMPT 20 -4 "" PROMPT 14 -4 ""
FLAGS "DR" FLAGS "DR"
END END
NUMBER F_TOTPRO_DAR 15 NUMBER F_TOTPRO_DAR 19
BEGIN BEGIN
PROMPT 39 -4 "" PROMPT 37 -4 ""
PICTURE "." PICTURE "."
FLAGS "D" FLAGS "D"
END END
NUMBER F_TOTPRO_AVE 15 NUMBER F_TOTPRO_AVE 19
BEGIN BEGIN
PROMPT 56 -4 "" PROMPT 58 -4 ""
PICTURE "." PICTURE "."
FLAGS "D" FLAGS "D"
END END
TEXT DLG_NULL TEXT DLG_NULL
BEGIN BEGIN
PROMPT 1 -3 "Tot. riga corrente" PROMPT 1 -3 "Tot. riga"
END END
STRING F_TOTRIG_SAL 17 STRING F_TOTRIG_SAL 21
BEGIN BEGIN
PROMPT 20 -3 "" PROMPT 14 -3 ""
FLAGS "DR" FLAGS "DR"
END END
NUMBER F_TOTRIG_DAR 15 NUMBER F_TOTRIG_DAR 19
BEGIN BEGIN
PROMPT 39 -3 "" PROMPT 37 -3 ""
PICTURE "." PICTURE "."
FLAGS "D" FLAGS "D"
END END
NUMBER F_TOTRIG_AVE 15 NUMBER F_TOTRIG_AVE 19
BEGIN BEGIN
PROMPT 56 -3 "" PROMPT 58 -3 ""
PICTURE "." PICTURE "."
FLAGS "D" FLAGS "D"
END END
@ -144,22 +144,22 @@ BEGIN
PROMPT 1 -2 "Tot. periodo" PROMPT 1 -2 "Tot. periodo"
END END
STRING F_TOTPER_SAL 17 STRING F_TOTPER_SAL 21
BEGIN BEGIN
PROMPT 20 -2 "" PROMPT 14 -2 ""
FLAGS "DR" FLAGS "DR"
END END
NUMBER F_TOTPER_DAR 15 NUMBER F_TOTPER_DAR 19
BEGIN BEGIN
PROMPT 39 -2 "" PROMPT 37 -2 ""
PICTURE "." PICTURE "."
FLAGS "D" FLAGS "D"
END END
NUMBER F_TOTPER_AVE 15 NUMBER F_TOTPER_AVE 19
BEGIN BEGIN
PROMPT 56 -2 "" PROMPT 58 -2 ""
PICTURE "." PICTURE "."
FLAGS "D" FLAGS "D"
END END
@ -169,22 +169,22 @@ BEGIN
PROMPT 1 -1 "Tot. attuali" PROMPT 1 -1 "Tot. attuali"
END END
STRING F_TOTATT_SAL 17 STRING F_TOTATT_SAL 21
BEGIN BEGIN
PROMPT 20 -1 "" PROMPT 14 -1 ""
FLAGS "DR" FLAGS "DR"
END END
NUMBER F_TOTATT_DAR 15 NUMBER F_TOTATT_DAR 19
BEGIN BEGIN
PROMPT 39 -1 "" PROMPT 37 -1 ""
PICTURE "." PICTURE "."
FLAGS "D" FLAGS "D"
END END
NUMBER F_TOTATT_AVE 15 NUMBER F_TOTATT_AVE 19
BEGIN BEGIN
PROMPT 56 -1 "" PROMPT 58 -1 ""
PICTURE "." PICTURE "."
FLAGS "D" FLAGS "D"
END END

25
cg/cg4500.cpp
View File

@ -311,11 +311,9 @@ bool TAp_eser::check_esercizio(TString& cod, TDate s1, TDate f1)
return ret; return ret;
} }
int cg4500 (int argc, char* argv[]) int cg4500 (int argc, char* argv[])
{ {
switch (*argv[2]) switch (toupper(*argv[2]))
{ {
case 'C': case 'C':
{ {
@ -323,15 +321,16 @@ int cg4500 (int argc, char* argv[])
a.run(argc, argv, "Apertura nuovo esercizio"); a.run(argc, argv, "Apertura nuovo esercizio");
} }
break; break;
case 'I': case 'I':
{ {
TAp_iva a; TAp_iva a;
a.run(argc, argv, "Apertura nuovo esercizio IVA"); a.run(argc, argv, "Apertura nuovo esercizio IVA");
} }
break; break;
default: default:
break; error_box("Uso: cg4 -4 [C,I]");
} break;
return TRUE; }
return TRUE;
} }

62
cg/cg5200.cpp
View File

@ -95,8 +95,9 @@ bool TRiga_array::add_riga(const TRectype& rec_saldi)
} }
if (!found) if (!found)
{ {
TRectype* r = new TRectype(rec_saldi); // copia anche i valori di rec_saldi // TRectype* r = new TRectype(rec_saldi); // copia anche i valori di rec_saldi
add(r); // add(r);
add(rec_saldi);
} }
return found; return found;
} }
@ -107,7 +108,6 @@ bool TRiga_array::add_riga(const TRectype& rec_saldi)
class TSaldibrowse_application : public TBrowse_application class TSaldibrowse_application : public TBrowse_application
{ {
TMask* _msk; TMask* _msk;
TCursor * _cur; TCursor * _cur;
TRelation * _rel,* _rel1; TRelation * _rel,* _rel1;
@ -117,6 +117,8 @@ class TSaldibrowse_application : public TBrowse_application
long _s; long _s;
bool _saldo_conto, _saldo_gruppo, _saldo_sottoc, _scarongly; bool _saldo_conto, _saldo_gruppo, _saldo_sottoc, _scarongly;
TEsercizi_contabili _ese;
protected: protected:
virtual bool user_create(); virtual bool user_create();
virtual bool user_destroy(); virtual bool user_destroy();
@ -165,13 +167,14 @@ void TSaldibrowse_application::init_modify_mode(TMask& m)
m.disable(DLG_FINDREC); m.disable(DLG_FINDREC);
m.disable(F_ANNO); m.disable(F_ANNO);
m.disable(F_SCARICATO); m.disable(F_SCARICATO);
TString tipo(m.get(F_TIPOCF));
if (tipo=="C") const char tipo = m.get(F_TIPOCF)[0];
if (tipo=='C')
m.disable(F_DESCR_CLIENTE); m.disable(F_DESCR_CLIENTE);
else if (tipo=="F") else if (tipo=='F')
m.disable(F_DESCR_FORN); m.disable(F_DESCR_FORN);
else m.disable(F_DESCR_CONTO); else
m.disable(F_DESCR_CONTO);
} }
bool TSaldibrowse_application::fai_filtro() bool TSaldibrowse_application::fai_filtro()
@ -185,8 +188,7 @@ bool TSaldibrowse_application::fai_filtro()
tipo = m.get(F_TIPOCF)[0]; tipo = m.get(F_TIPOCF)[0];
if (_anno != 0) if (_anno != 0)
{ {
TEsercizi_contabili ese; _annop = _ese.pred(_anno);
_annop = ese.pred(_anno);
} }
else else
_annop = 0; _annop = 0;
@ -234,17 +236,11 @@ bool TSaldibrowse_application::anno_handler(TMask_field& f, KEY key)
{ {
if (key == K_TAB && f.focusdirty()) if (key == K_TAB && f.focusdirty())
{ {
const TString16 cod_eser = f.get(); const int anno = atoi(f.get());
const int anno = atoi(cod_eser);
if (anno > 0) if (anno > 0)
{ {
app()._esc->put("CODTAB", cod_eser); if (!app()._ese.exist(anno))
if (app()._esc->read() != NOERR) return f.error_box("Esercizio %d non presente.", anno);
{
f.error_box("Esercizio %s non presente.", (const char *) cod_eser);
return FALSE;
}
else else
app()._anno = anno; app()._anno = anno;
} }
@ -437,24 +433,36 @@ void TSaldibrowse_application::add_r(int numrig,int a,real& slf,char sff,real& s
int TSaldibrowse_application::compare_rows(const TObject** o1, const TObject** o2) int TSaldibrowse_application::compare_rows(const TObject** o1, const TObject** o2)
{ {
TToken_string* r1 = ( TToken_string*)*o1; TToken_string* r1 = (TToken_string*)*o1;
TToken_string* r2 = ( TToken_string*)*o2; TToken_string* r2 = (TToken_string*)*o2;
int rt = 0;
/* Dick programming
TDate d1,d2; TDate d1,d2;
TString c1,c2; TString c1,c2;
c1.format("%04d", r1->get_int(0)); c1.format("%04d", r1->get_int(0));
c2.format("%04d", r2->get_int(0)); c2.format("%04d", r2->get_int(0));
app()._esc->zero(); app()._esc->zero();
app()._esc->put("CODTAB",c1); app()._esc->put("CODTAB",c1);
if (app()._esc->read() == NOERR) d1 = app()._esc->get_date("D0"); if (app()._esc->read() == NOERR)
else d1 = botime; d1 = app()._esc->get_date("D0");
else
d1 = botime;
app()._esc->put("CODTAB",c2); app()._esc->put("CODTAB",c2);
if (app()._esc->read() == NOERR) d2 = app()._esc->get_date("D0"); if (app()._esc->read() == NOERR)
else d2 = botime; d2 = app()._esc->get_date("D0");
else
d2 = botime;
*/
if (d1 < d2) rt = -1; TEsercizi_contabili& ese = app()._ese;
else if (d1 > d2) rt = +1; int a1 = r1->get_int(0);
TDate d1 = ese.exist(a1) ? ese[a1].inizio() : TDate(1, 1, a1);
int a2 = r2->get_int(0);
TDate d2 = ese.exist(a2) ? ese[a2].inizio() : TDate(1, 1, a2);
int rt = d1 == d2 ? 0 : (d1 < d2 ? -1 : +1);
return rt; return rt;
} }

120
cg/cg5200a.uml
View File

@ -214,193 +214,135 @@ SPREADSHEET F_SHEET_SALDI
BEGIN BEGIN
PROMPT 0 7 "" PROMPT 0 7 ""
ITEM "Es.@4" ITEM "Es.@4"
ITEM " Saldo iniziale@15" ITEM "Saldo iniziale@19"
ITEM "" ITEM ""
ITEM "Progr.Att.: Dare@15" ITEM "Progr.Att.: Dare@19"
ITEM " Avere@15" ITEM "Avere@19"
ITEM " Saldo@15" ITEM "Saldo@19"
ITEM "" ITEM ""
// ITEM "Progr.Mov.Elim.: Dare@15" ITEM "Saldo di chiusura@19"
// ITEM " Avere@15"
ITEM "Saldo di chiusura@15"
ITEM "" ITEM ""
ITEM "Saldo complessivo" ITEM "Saldo complessivo"
ITEM "" ITEM ""
ITEM "Ult.Op.: Data" ITEM "Ult.Op.: Data"
ITEM " Numero" ITEM " Numero"
ITEM "Progr.Mov.Prov.: Dare@15" ITEM "Progr.Mov.Prov.:Dare@19"
ITEM " Avere@15" ITEM "Avere@19"
ITEM " Saldo@15" ITEM "Saldo@19"
ITEM "" ITEM ""
ITEM "Progr.Mov.Elim.: Dare@15" ITEM "Progr.Mov.Elim.:Dare@19"
ITEM " Avere@15" ITEM "Avere@19"
END END
ENDPAGE ENDPAGE
ENDMASK ENDMASK
PAGE "" -1 -1 70 16 PAGE "" -1 -1 78 16
NUMBER 101 4 NUMBER 101 4
BEGIN BEGIN
PROMPT 1 1 "Codice esercizio " PROMPT 1 1 "Codice esercizio "
HELP "Codice esercizio a cui si riferisce il saldo"
FLAGS "R"
END END
NUMBER 102 15 NUMBER 102 19
BEGIN BEGIN
PROMPT 1 3 "Saldo Iniziale " PROMPT 1 3 "Saldo Iniziale "
HELP "Importo del saldo iniziale"
FLAGS "R"
PICTURE "." PICTURE "."
END END
STRING 103 1 STRING 103 1
BEGIN BEGIN
PROMPT 44 3 "" PROMPT 48 3 ""
HELP "Sezione del saldo iniziale"
FLAGS ""
END END
NUMBER 104 15 NUMBER 104 19
BEGIN BEGIN
PROMPT 1 4 "Progr.Attuali: Dare " PROMPT 1 4 "Progr.Attuali: Dare "
HELP "Progressivo dare attuale del conto da visualizzare"
FLAGS "R"
PICTURE "." PICTURE "."
END END
NUMBER 105 15 NUMBER 105 19
BEGIN BEGIN
PROMPT 47 4 "Avere " PROMPT 51 4 "Avere "
HELP "Progressivo avere attuale del conto da visualizzare"
FLAGS "R"
PICTURE "." PICTURE "."
END END
NUMBER 106 15 NUMBER 106 19
BEGIN BEGIN
PROMPT 22 5 "Saldo " PROMPT 22 5 "Saldo "
HELP "Saldo attuale del conto"
FLAGS "R"
PICTURE "." PICTURE "."
END END
STRING 107 1 STRING 107 1
BEGIN BEGIN
PROMPT 44 5 "" PROMPT 48 5 ""
FLAGS "R"
HELP "Sezione del saldo attuale del conto"
END END
/* ===================================================================== NUMBER 108 19
NUMBER 108 15
BEGIN
PROMPT 1 6 "Progr.Mov.Eliminati: Dare "
HELP "Progressivi dare attuali dei movimenti eliminati"
FLAGS "R"
PICTURE "."
END
NUMBER 109 15
BEGIN
PROMPT 47 6 "Avere "
HELP "Progressivi avere attuali dei movimenti eliminati"
FLAGS "R"
PICTURE "."
END
=======================================================================*/
NUMBER 108 15
BEGIN BEGIN
PROMPT 1 6 " Saldo di chiusura " PROMPT 1 6 " Saldo di chiusura "
HELP "Saldo di chiusura"
FLAGS "R"
PICTURE "." PICTURE "."
END END
STRING 109 1 STRING 109 1
BEGIN BEGIN
PROMPT 44 6 "" PROMPT 48 6 ""
HELP "Sezione del saldo di chiusura"
FLAGS "R"
END END
NUMBER 110 15 NUMBER 110 19
BEGIN BEGIN
PROMPT 1 7 "Saldo complessivo " PROMPT 1 7 "Saldo complessivo "
HELP "Saldo complessivo attuale del conto"
FLAGS "R"
PICTURE "." PICTURE "."
END END
STRING 111 1 STRING 111 1
BEGIN BEGIN
PROMPT 44 7 "" PROMPT 48 7 ""
HELP "Sezione del saldo attuale complessivo del conto"
FLAGS "R"
END END
DATE 112 DATE 112
BEGIN BEGIN
PROMPT 1 8 "Ultima data operazione " PROMPT 1 8 "Ultima data operazione "
HELP "Ultima data di registrazione che ha movimentato il conto"
FLAGS "R"
END END
NUMBER 113 7 NUMBER 113 7
BEGIN BEGIN
PROMPT 1 9 "Ultimo numero operazione " PROMPT 1 9 "Ultimo numero operazione "
HELP "Ultimo numero di registrazione che ha movimentato il conto"
FLAGS "R"
END END
NUMBER 114 15 NUMBER 114 19
BEGIN BEGIN
PROMPT 1 10 "Progr.Mov.Provvisori: Dare " PROMPT 1 10 "Progr.Mov.Provvisori: Dare "
HELP "Progressivi dare attuali dei movimenti provvisori"
FLAGS "R"
PICTURE "." PICTURE "."
END END
NUMBER 115 15 NUMBER 115 19
BEGIN BEGIN
PROMPT 47 10 "Avere " PROMPT 51 10 "Avere "
HELP "Progressivi avere attuali dei movimenti provvisori del conto"
FLAGS "R"
PICTURE "." PICTURE "."
END END
NUMBER 116 15 NUMBER 116 19
BEGIN BEGIN
PROMPT 1 11 "Saldo " PROMPT 1 11 "Saldo "
HELP "Saldo dei progressivi dei movimenti provvisori del conto"
FLAGS "R"
PICTURE "." PICTURE "."
END END
STRING 117 1 STRING 117 1
BEGIN BEGIN
PROMPT 44 11 "" PROMPT 48 11 ""
HELP "Sezione del saldo progressivi dei movimenti provvisori del conto"
FLAGS "R"
END END
NUMBER 118 15 NUMBER 118 19
BEGIN BEGIN
PROMPT 1 12 "Progr.Mov.Eliminati: Dare " PROMPT 1 12 "Progr.Mov.Eliminati: Dare "
HELP "Progressivi dare attuali dei movimenti eliminati"
FLAGS "R"
PICTURE "." PICTURE "."
END END
NUMBER 119 15 NUMBER 119 19
BEGIN BEGIN
PROMPT 47 12 "Avere " PROMPT 51 12 "Avere "
HELP "Progressivi avere attuali dei movimenti eliminati"
FLAGS "R"
PICTURE "." PICTURE "."
END END

2
cg/cglib01.cpp
View File

@ -646,7 +646,7 @@ bool TBill::find()
} }
_sospeso = clifo.get_bool("SOSPESO"); _sospeso = clifo.get_bool("SOSPESO");
const char tipoa = clifo.get_char("TIPOAPER"); const char tipoa = clifo.get_char("TIPOPERS");
if (tipoa == 'F') // Se persona fisica allora aggiusta la ragione sociale if (tipoa == 'F') // Se persona fisica allora aggiusta la ragione sociale
{ {
TString nome(descrizione().mid(30)); TString nome(descrizione().mid(30));

6
cg/cgpagame.cpp
View File

@ -1339,7 +1339,9 @@ void TPagamento::adjust_parameters(bool mcomm)
void TPagamento::adjust_perc(int rdiff, bool v) void TPagamento::adjust_perc(int rdiff, bool v)
{ {
real other = importo_da_dividere(v); const real other = importo_da_dividere(v);
if (other.is_zero())
return;
const int first = _tpr > 3 ? 1 : 0; const int first = _tpr > 3 ? 1 : 0;
@ -1349,7 +1351,7 @@ void TPagamento::adjust_perc(int rdiff, bool v)
// togli pezzo di troppo // togli pezzo di troppo
if (j == first && _tpr > 0 && _tpr < 4) if (j == first && _tpr > 0 && _tpr < 4)
rvl -= importo_da_non_dividere(v); rvl -= importo_da_non_dividere(v);
real zpx = (rvl * 100.0)/other; // percentuale real zpx = (rvl * 100.0) / other; // percentuale
zpx.round(2); zpx.round(2);
set_percrata(j, zpx); set_percrata(j, zpx);
} }