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

Sostituite varie TCursor::filter con TCursor::setfilter.

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@105 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy 1994-08-31 07:06:12 +00:00
parent 4e890c5a83
commit 74f2ca61c9
3 changed files with 215 additions and 214 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

391
cg/cg2100b.uml
View File

@ -1,197 +1,194 @@
#include "cg2100.h" #include "cg2100.h"
TOOLBAR "" 0 20 0 2 TOOLBAR "" 0 20 0 2
#include <toolbar.h> #include <toolbar.h>
ENDPAGE ENDPAGE
PAGE "OPERAZIONE DI PRIMA NOTA" -1 -1 77 20 PAGE "OPERAZIONE DI PRIMA NOTA" -1 -1 77 20
GROUPBOX DLG_NULL 78 3 GROUPBOX DLG_NULL 78 3
BEGIN BEGIN
PROMPT 1 0 "@BMovimento di sola contabilita'" PROMPT 1 0 "@BMovimento di sola contabilita'"
END END
NUMBER F_CODDITTA 5 NUMBER F_CODDITTA 5
BEGIN BEGIN
PROMPT 3 1 "Ditta " PROMPT 3 1 "Ditta "
FLAGS "FRD" FLAGS "FRD"
USE LF_NDITTE KEY 1 USE LF_NDITTE KEY 1
INPUT CODDITTA F_CODDITTA INPUT CODDITTA F_CODDITTA
DISPLAY "Codice" CODDITTA DISPLAY "Codice" CODDITTA
OUTPUT F_RAGSOC RAGSOC OUTPUT F_RAGSOC RAGSOC
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
END END
STRING F_RAGSOC 50 STRING F_RAGSOC 50
BEGIN BEGIN
PROMPT 17 1 "Ragione " PROMPT 17 1 "Ragione "
FLAGS "D" FLAGS "D"
END END
NUMBER F_NUMREG 7 NUMBER F_NUMREG 7
BEGIN BEGIN
PROMPT 1 3 "Operazione n. " PROMPT 1 3 "Operazione n. "
FIELD LF_MOV->NUMREG FIELD NUMREG
FLAGS "RD" FLAGS "RD"
KEY 1 KEY 1
END END
DATE F_DATAREG DATE F_DATAREG
BEGIN BEGIN
PROMPT 44 3 "Data operazione " PROMPT 44 3 "Data operazione "
FIELD LF_MOV->DATAREG FIELD DATAREG
END END
STRING F_NUMDOC 7 STRING F_NUMDOC 7
BEGIN BEGIN
PROMPT 1 4 "Documento n. " PROMPT 1 4 "Documento n. "
FIELD LF_MOV->NUMDOC FIELD NUMDOC
WARNING "La causale impone di specificare il numero documento" WARNING "La causale impone di specificare il numero documento"
END END
DATE F_DATACOMP DATE F_DATACOMP
BEGIN BEGIN
PROMPT 44 4 "Data di competenza " PROMPT 44 4 "Data di competenza "
FIELD LF_MOV->DATACOMP FIELD DATACOMP
END END
NUMBER F_ANNOES 4 NUMBER F_ANNOES 4
BEGIN BEGIN
PROMPT 1 5 "Esercizio " PROMPT 1 5 "Esercizio "
FIELD LF_MOV->ANNOES FIELD ANNOES
FLAGS "D" FLAGS "D"
END END
NUMBER F_ANNOIVA 4 NUMBER F_ANNOIVA 4
BEGIN BEGIN
FLAGS "H" FLAGS "H"
END END
DATE F_DATADOC DATE F_DATADOC
BEGIN BEGIN
PROMPT 44 5 "Data del documento " PROMPT 44 5 "Data del documento "
FIELD LF_MOV->DATADOC FIELD DATADOC
FLAGS "A" FLAGS "A"
WARNING "Specificare una data del documento non superiore a quella di registrazione" WARNING "Specificare una data del documento non superiore a quella di registrazione"
VALIDATE DATE_CMP_FUNC <= F_DATAREG VALIDATE DATE_CMP_FUNC <= F_DATAREG
END END
STRING F_DESCAGG 5 STRING F_DESCAGG 5
BEGIN BEGIN
PROMPT 1 6 "Descrizione " PROMPT 1 6 "Descrizione "
FLAGS "U" FLAGS "U"
USE %DPN USE %DPN
INPUT CODTAB F_DESCAGG INPUT CODTAB F_DESCAGG
DISPLAY "Codice" CODTAB DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0 DISPLAY "Descrizione@50" S0
OUTPUT F_DESCAGG CODTAB OUTPUT F_DESCAGG CODTAB
OUTPUT F_DESCR S0 OUTPUT F_DESCR S0
CHECKTYPE NORMAL CHECKTYPE NORMAL
END END
STRING F_DESCR 50 STRING F_DESCR 50
BEGIN BEGIN
PROMPT 25 6 "" PROMPT 25 6 ""
FIELD LF_MOV->DESCR FIELD DESCR
USE %DPN KEY 2 USE %DPN KEY 2
INPUT S0 F_DESCR INPUT S0 F_DESCR
DISPLAY "Descrizione@50" S0 DISPLAY "Descrizione@50" S0
DISPLAY "Codice" CODTAB DISPLAY "Codice" CODTAB
COPY OUTPUT F_DESCAGG COPY OUTPUT F_DESCAGG
END END
LIST F_PROVVISORIO 1 25 LIST F_PROVVISORIO 1 25
BEGIN BEGIN
PROMPT 1 7 "Movimento provvisorio " PROMPT 1 7 "Movimento provvisorio "
FIELD PROVVIS FIELD PROVVIS
ITEM " |No (movimento normale)" ITEM " |No (movimento normale)"
MESSAGE ENABLE,DLG_DELREC ITEM "P|Si (cancellabile)"
ITEM "P|Si (cancellabile)" ITEM "N|Si (non cancellabile)"
MESSAGE ENABLE,DLG_DELREC END
ITEM "N|Si (non cancellabile)"
MESSAGE DISABLE,DLG_DELREC STRING F_CODCAUS 3
END BEGIN
PROMPT 1 8 "Causale "
STRING F_CODCAUS 3 FLAGS "U"
BEGIN FIELD CODCAUS
PROMPT 1 8 "Causale " USE LF_CAUSALI KEY 1
FLAGS "U" INPUT CODCAUS F_CODCAUS
FIELD LF_MOV->CODCAUS DISPLAY "Codice" CODCAUS
USE LF_CAUSALI KEY 1 DISPLAY "Descrizione@50" DESCR
INPUT CODCAUS F_CODCAUS OUTPUT F_CODCAUS CODCAUS
DISPLAY "Codice" CODCAUS OUTPUT F_DESCRCAUS DESCR
DISPLAY "Descrizione@50" DESCR CHECKTYPE NORMAL
OUTPUT F_CODCAUS CODCAUS ADD RUN cg0 -4
OUTPUT F_DESCRCAUS DESCR END
CHECKTYPE NORMAL
ADD RUN cg0 -4 STRING F_DESCRCAUS 50
END BEGIN
PROMPT 23 8 ""
STRING F_DESCRCAUS 50 USE LF_CAUSALI KEY 2
BEGIN INPUT DESCR F_DESCRCAUS
PROMPT 23 8 "" DISPLAY "Descrizione@50" DESCR
USE LF_CAUSALI KEY 2 DISPLAY "Codice" CODCAUS
INPUT DESCR F_DESCRCAUS COPY OUTPUT F_CODCAUS
DISPLAY "Descrizione@50" DESCR END
DISPLAY "Codice" CODCAUS
COPY OUTPUT F_CODCAUS STRING F_VALUTA 3
END BEGIN
PROMPT 1 9 "Valuta "
STRING F_VALUTA 3 FIELD CODVAL
BEGIN FLAGS "U"
PROMPT 1 9 "Valuta " GROUP 3
FIELD LF_MOV->CODVAL USE %VAL
FLAGS "U" INPUT CODTAB F_VALUTA
GROUP 3 DISPLAY "Codice" CODTAB
USE %VAL DISPLAY "Nome@50" S0
INPUT CODTAB F_VALUTA DISPLAY "Cambio corrente" R0
DISPLAY "Codice" CODTAB OUTPUT F_VALUTA CODTAB
DISPLAY "Nome@50" S0 OUTPUT F_CAMBIO R0
DISPLAY "Cambio corrente" R0 END
OUTPUT F_VALUTA CODTAB
OUTPUT F_CAMBIO R0 NUMBER F_CAMBIO 10
END BEGIN
PROMPT 16 9 "Cambio "
NUMBER F_CAMBIO 10 FIELD CAMBIO
BEGIN FLAGS "RU"
PROMPT 16 9 "Cambio " GROUP 3
FIELD LF_MOV->CAMBIO PICTURE ".3"
FLAGS "RU" END
GROUP 3
PICTURE ".3" BOOLEAN F_VISVAL
END BEGIN
PROMPT 42 9 "Visualizza importi in valuta"
BOOLEAN F_VISVAL GROUP 3
BEGIN END
PROMPT 42 9 "Visualizza importi in valuta"
GROUP 3 SPREADSHEET F_SHEETCG
END BEGIN
PROMPT 1 10 ""
SPREADSHEET F_SHEETCG ITEM "Dare@17"
BEGIN ITEM "Avere@17"
PROMPT 1 10 "" ITEM " @1"
ITEM "Dare@17" ITEM "Gr."
ITEM "Avere@17" ITEM "Co."
ITEM " @1" ITEM "Sottoc."
ITEM "Gr." ITEM "Descrizione conto@50"
ITEM "Co." ITEM "Codice"
ITEM "Sottoc." ITEM "Descrizione riga@50"
ITEM "Descrizione conto@50" ITEM " @1"
ITEM "Codice" ITEM "Gr./c"
ITEM "Descrizione riga@50" ITEM "Co./c"
ITEM " @1" ITEM "Sottoc./c"
ITEM "Gr./c" ITEM "Descrizione contropartita@50"
ITEM "Co./c" ITEM " @1"
ITEM "Sottoc./c" END
ITEM "Descrizione contropartita@50"
ITEM " @1" ENDPAGE
END
ENDMASK
ENDPAGE
#include "cg21cg.uml"
ENDMASK
#include "cg21cg.uml"

19
cg/cg3100.cpp
View File

@ -9,6 +9,7 @@
#include <urldefid.h> #include <urldefid.h>
#include <lffiles.h> #include <lffiles.h>
#include <mov.h> #include <mov.h>
#include <rmov.h> #include <rmov.h>
#include <rmoviva.h> #include <rmoviva.h>
@ -1363,8 +1364,8 @@ bool CG3100_application::set_print(int m)
{ {
select_cursor(_cur1); select_cursor(_cur1);
if (!provvis) if (!provvis)
_curr1->filter("(PROVVIS=\"\")"); _curr1->setfilter("(PROVVIS=\"\")");
else _curr1->filter(""); else _curr1->setfilter("");
fl = current_cursor()->file(LF_MOV); fl = current_cursor()->file(LF_MOV);
TRectype da (fl->curr()); TRectype da (fl->curr());
TRectype a (fl->curr()); TRectype a (fl->curr());
@ -1372,7 +1373,7 @@ bool CG3100_application::set_print(int m)
a.zero(); a.zero();
da.put(MOV_NUMREG, _numreg_ini); da.put(MOV_NUMREG, _numreg_ini);
a.put(MOV_NUMREG, _numreg_fin); a.put(MOV_NUMREG, _numreg_fin);
current_cursor()->setregion(&da,&a); current_cursor()->setregion(da,a);
add_file(LF_MOV); add_file(LF_MOV);
add_file(LF_RMOV,LF_MOV); add_file(LF_RMOV,LF_MOV);
add_file(LF_RMOVIVA,LF_MOV); add_file(LF_RMOVIVA,LF_MOV);
@ -1381,7 +1382,9 @@ bool CG3100_application::set_print(int m)
{ {
select_cursor(_cur2); select_cursor(_cur2);
if (!provvis) if (!provvis)
_curr2->filter("(PROVVIS=\"\")"); else _curr2->filter(""); _curr2->setfilter("(PROVVIS=\"\")");
else
_curr2->setfilter("");
fl = current_cursor()->file(LF_MOV); fl = current_cursor()->file(LF_MOV);
TRectype da (fl->curr()); TRectype da (fl->curr());
TRectype a (fl->curr()); TRectype a (fl->curr());
@ -1389,7 +1392,7 @@ bool CG3100_application::set_print(int m)
a.zero(); a.zero();
da.put(MOV_DATAREG, _data_ini); da.put(MOV_DATAREG, _data_ini);
a.put(MOV_DATAREG, _data_fin); a.put(MOV_DATAREG, _data_fin);
current_cursor()->setregion(&da,&a); current_cursor()->setregion(da,a);
add_file(LF_MOV); add_file(LF_MOV);
add_file(LF_RMOV,LF_MOV); add_file(LF_RMOV,LF_MOV);
add_file(LF_RMOVIVA,LF_MOV); add_file(LF_RMOVIVA,LF_MOV);
@ -1426,8 +1429,8 @@ bool CG3100_application::set_print(int m)
} }
select_cursor(_cur3); select_cursor(_cur3);
if (!movprov) if (!movprov)
_curr3->filter("(PROVVIS=\"\")"); _curr3->setfilter("(PROVVIS=\"\")");
else _curr3->filter(""); else _curr3->setfilter("");
TRectype da (fl->curr()); TRectype da (fl->curr());
TRectype a (fl->curr()); TRectype a (fl->curr());
da.zero(); da.zero();
@ -1440,7 +1443,7 @@ bool CG3100_application::set_print(int m)
da.put(MOV_DATAREG, _data_ini); da.put(MOV_DATAREG, _data_ini);
a.put(MOV_DATAREG, _data_fin); a.put(MOV_DATAREG, _data_fin);
da.put(MOV_TIPO, _tipo_ini); da.put(MOV_TIPO, _tipo_ini);
current_cursor()->setregion(&da,&a); current_cursor()->setregion(da,a);
add_file(LF_MOV); add_file(LF_MOV);
add_file(LF_RMOVIVA,LF_MOV); add_file(LF_RMOVIVA,LF_MOV);

19
cg/cg3200.cpp
View File

@ -60,8 +60,9 @@ class CG3200_application : public TPrintapp
bool _stampaprogre,_stampatotiva,_stampatot,_prima_volta,_stampa_mov_prov; bool _stampaprogre,_stampatotiva,_stampatot,_prima_volta,_stampa_mov_prov;
long _annomsk,_annoesmsk,_sottoc,_numreg,_annoes; int _annomsk,_annoesmsk,_annoes,_annomsksucc;
long _annomsksucc,_numgio,_protiva; long _sottoc,_numreg,_protiva,_numgio;
bool _stampa_progressivi_si,_competenza,_inizio_stampa,_puoi_stampare; bool _stampa_progressivi_si,_competenza,_inizio_stampa,_puoi_stampare;
int _tipocf; int _tipocf;
char _ricerca; char _ricerca;
@ -437,7 +438,7 @@ bool CG3200_application::preprocess_pconti(int file, int counter)
_mov->curr().zero(); _mov->curr().zero();
_mov->curr().put(MOV_NUMREG,_numreg); _mov->curr().put(MOV_NUMREG,_numreg);
_mov->read(); _mov->read();
_annoes = atol(_mov->curr().get(MOV_ANNOES)); _annoes = _mov->get_int(MOV_ANNOES);
_regiva = _mov->curr().get(MOV_REG); _regiva = _mov->curr().get(MOV_REG);
// Controlla se saldo e' diverso da 0 // Controlla se saldo e' diverso da 0
@ -467,7 +468,7 @@ bool CG3200_application::preprocess_pconti(int file, int counter)
_numdoc = _mov->curr().get(MOV_NUMDOC); _numdoc = _mov->curr().get(MOV_NUMDOC);
descrizione_causale(); descrizione_causale();
_descrizionemov = _mov->curr().get(MOV_DESCR); _descrizionemov = _mov->curr().get(MOV_DESCR);
_numgio = atol(_mov->curr().get(MOV_NUMGIO)); _numgio = _mov->get_long(MOV_NUMGIO);
if (_sezione == "D") if (_sezione == "D")
{ {
_totale_periodo_dare += _importo; _totale_periodo_dare += _importo;
@ -591,7 +592,7 @@ bool CG3200_application::preprocess_clifo(int file, int counter)
_mov->curr().zero(); _mov->curr().zero();
_mov->curr().put(MOV_NUMREG,_numreg); _mov->curr().put(MOV_NUMREG,_numreg);
_mov->read(); _mov->read();
_annoes = atol(_mov->curr().get(MOV_ANNOES)); _annoes = _mov->get_int(MOV_ANNOES);
_regiva = _mov->curr().get(MOV_REG); _regiva = _mov->curr().get(MOV_REG);
// Controlla se saldo e' diverso da 0 // Controlla se saldo e' diverso da 0
@ -621,7 +622,7 @@ bool CG3200_application::preprocess_clifo(int file, int counter)
_numdoc = _mov->curr().get(MOV_NUMDOC); _numdoc = _mov->curr().get(MOV_NUMDOC);
descrizione_causale(); descrizione_causale();
_descrizionemov = _mov->curr().get(MOV_DESCR); _descrizionemov = _mov->curr().get(MOV_DESCR);
_numgio = atol(_mov->curr().get(MOV_NUMGIO)); _numgio = _mov->get_int(MOV_NUMGIO);
if (_sezione == "D") if (_sezione == "D")
{ {
_totale_periodo_dare += _importo; _totale_periodo_dare += _importo;
@ -928,7 +929,7 @@ bool CG3200_application::set_print(int)
_data_ini = (_msk->get(F_DATAINI)); _data_ini = (_msk->get(F_DATAINI));
_data_fine = (_msk->get(F_DATAFINE)); _data_fine = (_msk->get(F_DATAFINE));
_annomsk = atol(_msk->get(F_ANNO)); _annomsk = _msk->get_int(F_ANNO);
if (_annomsk == 0) if (_annomsk == 0)
if (_data_fine == botime) //Se data_fine e' vuota if (_data_fine == botime) //Se data_fine e' vuota
@ -999,7 +1000,7 @@ bool CG3200_application::set_print(int)
a.put(PCN_CONTO,contofine); a.put(PCN_CONTO,contofine);
a.put(PCN_SOTTOCONTO,sottocontofine); a.put(PCN_SOTTOCONTO,sottocontofine);
current_cursor()->setregion(&da, &a); current_cursor()->setregion(da, a);
} }
else else
{ {
@ -1029,7 +1030,7 @@ bool CG3200_application::set_print(int)
a.put(CLI_CONTO,contofine); a.put(CLI_CONTO,contofine);
a.put(CLI_CODCF,sottocontofine); a.put(CLI_CODCF,sottocontofine);
current_cursor()->setregion(&da, &a); current_cursor()->setregion(da, a);
} }
if (_stampatotiva) if (_stampatotiva)