Sostituite varie TCursor::filter con TCursor::setfilter.
git-svn-id: svn://10.65.10.50/trunk@105 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy
parent
4e890c5a83
commit
74f2ca61c9
391
cg/cg2100b.uml
391
cg/cg2100b.uml
@ -1,197 +1,194 @@
|
||||
#include "cg2100.h"
|
||||
|
||||
TOOLBAR "" 0 20 0 2
|
||||
|
||||
#include <toolbar.h>
|
||||
|
||||
ENDPAGE
|
||||
|
||||
PAGE "OPERAZIONE DI PRIMA NOTA" -1 -1 77 20
|
||||
|
||||
GROUPBOX DLG_NULL 78 3
|
||||
BEGIN
|
||||
PROMPT 1 0 "@BMovimento di sola contabilita'"
|
||||
END
|
||||
|
||||
NUMBER F_CODDITTA 5
|
||||
BEGIN
|
||||
PROMPT 3 1 "Ditta "
|
||||
FLAGS "FRD"
|
||||
USE LF_NDITTE KEY 1
|
||||
INPUT CODDITTA F_CODDITTA
|
||||
DISPLAY "Codice" CODDITTA
|
||||
OUTPUT F_RAGSOC RAGSOC
|
||||
CHECKTYPE REQUIRED
|
||||
END
|
||||
|
||||
STRING F_RAGSOC 50
|
||||
BEGIN
|
||||
PROMPT 17 1 "Ragione "
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
NUMBER F_NUMREG 7
|
||||
BEGIN
|
||||
PROMPT 1 3 "Operazione n. "
|
||||
FIELD LF_MOV->NUMREG
|
||||
FLAGS "RD"
|
||||
KEY 1
|
||||
END
|
||||
|
||||
DATE F_DATAREG
|
||||
BEGIN
|
||||
PROMPT 44 3 "Data operazione "
|
||||
FIELD LF_MOV->DATAREG
|
||||
END
|
||||
|
||||
STRING F_NUMDOC 7
|
||||
BEGIN
|
||||
PROMPT 1 4 "Documento n. "
|
||||
FIELD LF_MOV->NUMDOC
|
||||
WARNING "La causale impone di specificare il numero documento"
|
||||
END
|
||||
|
||||
DATE F_DATACOMP
|
||||
BEGIN
|
||||
PROMPT 44 4 "Data di competenza "
|
||||
FIELD LF_MOV->DATACOMP
|
||||
END
|
||||
|
||||
NUMBER F_ANNOES 4
|
||||
BEGIN
|
||||
PROMPT 1 5 "Esercizio "
|
||||
FIELD LF_MOV->ANNOES
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
NUMBER F_ANNOIVA 4
|
||||
BEGIN
|
||||
FLAGS "H"
|
||||
END
|
||||
|
||||
DATE F_DATADOC
|
||||
BEGIN
|
||||
PROMPT 44 5 "Data del documento "
|
||||
FIELD LF_MOV->DATADOC
|
||||
FLAGS "A"
|
||||
WARNING "Specificare una data del documento non superiore a quella di registrazione"
|
||||
VALIDATE DATE_CMP_FUNC <= F_DATAREG
|
||||
END
|
||||
|
||||
STRING F_DESCAGG 5
|
||||
BEGIN
|
||||
PROMPT 1 6 "Descrizione "
|
||||
FLAGS "U"
|
||||
USE %DPN
|
||||
INPUT CODTAB F_DESCAGG
|
||||
DISPLAY "Codice" CODTAB
|
||||
DISPLAY "Descrizione@50" S0
|
||||
OUTPUT F_DESCAGG CODTAB
|
||||
OUTPUT F_DESCR S0
|
||||
CHECKTYPE NORMAL
|
||||
END
|
||||
|
||||
STRING F_DESCR 50
|
||||
BEGIN
|
||||
PROMPT 25 6 ""
|
||||
FIELD LF_MOV->DESCR
|
||||
USE %DPN KEY 2
|
||||
INPUT S0 F_DESCR
|
||||
DISPLAY "Descrizione@50" S0
|
||||
DISPLAY "Codice" CODTAB
|
||||
COPY OUTPUT F_DESCAGG
|
||||
END
|
||||
|
||||
LIST F_PROVVISORIO 1 25
|
||||
BEGIN
|
||||
PROMPT 1 7 "Movimento provvisorio "
|
||||
FIELD PROVVIS
|
||||
ITEM " |No (movimento normale)"
|
||||
MESSAGE ENABLE,DLG_DELREC
|
||||
ITEM "P|Si (cancellabile)"
|
||||
MESSAGE ENABLE,DLG_DELREC
|
||||
ITEM "N|Si (non cancellabile)"
|
||||
MESSAGE DISABLE,DLG_DELREC
|
||||
END
|
||||
|
||||
STRING F_CODCAUS 3
|
||||
BEGIN
|
||||
PROMPT 1 8 "Causale "
|
||||
FLAGS "U"
|
||||
FIELD LF_MOV->CODCAUS
|
||||
USE LF_CAUSALI KEY 1
|
||||
INPUT CODCAUS F_CODCAUS
|
||||
DISPLAY "Codice" CODCAUS
|
||||
DISPLAY "Descrizione@50" DESCR
|
||||
OUTPUT F_CODCAUS CODCAUS
|
||||
OUTPUT F_DESCRCAUS DESCR
|
||||
CHECKTYPE NORMAL
|
||||
ADD RUN cg0 -4
|
||||
END
|
||||
|
||||
STRING F_DESCRCAUS 50
|
||||
BEGIN
|
||||
PROMPT 23 8 ""
|
||||
USE LF_CAUSALI KEY 2
|
||||
INPUT DESCR F_DESCRCAUS
|
||||
DISPLAY "Descrizione@50" DESCR
|
||||
DISPLAY "Codice" CODCAUS
|
||||
COPY OUTPUT F_CODCAUS
|
||||
END
|
||||
|
||||
STRING F_VALUTA 3
|
||||
BEGIN
|
||||
PROMPT 1 9 "Valuta "
|
||||
FIELD LF_MOV->CODVAL
|
||||
FLAGS "U"
|
||||
GROUP 3
|
||||
USE %VAL
|
||||
INPUT CODTAB F_VALUTA
|
||||
DISPLAY "Codice" CODTAB
|
||||
DISPLAY "Nome@50" S0
|
||||
DISPLAY "Cambio corrente" R0
|
||||
OUTPUT F_VALUTA CODTAB
|
||||
OUTPUT F_CAMBIO R0
|
||||
END
|
||||
|
||||
NUMBER F_CAMBIO 10
|
||||
BEGIN
|
||||
PROMPT 16 9 "Cambio "
|
||||
FIELD LF_MOV->CAMBIO
|
||||
FLAGS "RU"
|
||||
GROUP 3
|
||||
PICTURE ".3"
|
||||
END
|
||||
|
||||
BOOLEAN F_VISVAL
|
||||
BEGIN
|
||||
PROMPT 42 9 "Visualizza importi in valuta"
|
||||
GROUP 3
|
||||
END
|
||||
|
||||
SPREADSHEET F_SHEETCG
|
||||
BEGIN
|
||||
PROMPT 1 10 ""
|
||||
ITEM "Dare@17"
|
||||
ITEM "Avere@17"
|
||||
ITEM " @1"
|
||||
ITEM "Gr."
|
||||
ITEM "Co."
|
||||
ITEM "Sottoc."
|
||||
ITEM "Descrizione conto@50"
|
||||
ITEM "Codice"
|
||||
ITEM "Descrizione riga@50"
|
||||
ITEM " @1"
|
||||
ITEM "Gr./c"
|
||||
ITEM "Co./c"
|
||||
ITEM "Sottoc./c"
|
||||
ITEM "Descrizione contropartita@50"
|
||||
ITEM " @1"
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
ENDMASK
|
||||
|
||||
#include "cg21cg.uml"
|
||||
|
||||
#include "cg2100.h"
|
||||
|
||||
TOOLBAR "" 0 20 0 2
|
||||
|
||||
#include <toolbar.h>
|
||||
|
||||
ENDPAGE
|
||||
|
||||
PAGE "OPERAZIONE DI PRIMA NOTA" -1 -1 77 20
|
||||
|
||||
GROUPBOX DLG_NULL 78 3
|
||||
BEGIN
|
||||
PROMPT 1 0 "@BMovimento di sola contabilita'"
|
||||
END
|
||||
|
||||
NUMBER F_CODDITTA 5
|
||||
BEGIN
|
||||
PROMPT 3 1 "Ditta "
|
||||
FLAGS "FRD"
|
||||
USE LF_NDITTE KEY 1
|
||||
INPUT CODDITTA F_CODDITTA
|
||||
DISPLAY "Codice" CODDITTA
|
||||
OUTPUT F_RAGSOC RAGSOC
|
||||
CHECKTYPE REQUIRED
|
||||
END
|
||||
|
||||
STRING F_RAGSOC 50
|
||||
BEGIN
|
||||
PROMPT 17 1 "Ragione "
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
NUMBER F_NUMREG 7
|
||||
BEGIN
|
||||
PROMPT 1 3 "Operazione n. "
|
||||
FIELD NUMREG
|
||||
FLAGS "RD"
|
||||
KEY 1
|
||||
END
|
||||
|
||||
DATE F_DATAREG
|
||||
BEGIN
|
||||
PROMPT 44 3 "Data operazione "
|
||||
FIELD DATAREG
|
||||
END
|
||||
|
||||
STRING F_NUMDOC 7
|
||||
BEGIN
|
||||
PROMPT 1 4 "Documento n. "
|
||||
FIELD NUMDOC
|
||||
WARNING "La causale impone di specificare il numero documento"
|
||||
END
|
||||
|
||||
DATE F_DATACOMP
|
||||
BEGIN
|
||||
PROMPT 44 4 "Data di competenza "
|
||||
FIELD DATACOMP
|
||||
END
|
||||
|
||||
NUMBER F_ANNOES 4
|
||||
BEGIN
|
||||
PROMPT 1 5 "Esercizio "
|
||||
FIELD ANNOES
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
NUMBER F_ANNOIVA 4
|
||||
BEGIN
|
||||
FLAGS "H"
|
||||
END
|
||||
|
||||
DATE F_DATADOC
|
||||
BEGIN
|
||||
PROMPT 44 5 "Data del documento "
|
||||
FIELD DATADOC
|
||||
FLAGS "A"
|
||||
WARNING "Specificare una data del documento non superiore a quella di registrazione"
|
||||
VALIDATE DATE_CMP_FUNC <= F_DATAREG
|
||||
END
|
||||
|
||||
STRING F_DESCAGG 5
|
||||
BEGIN
|
||||
PROMPT 1 6 "Descrizione "
|
||||
FLAGS "U"
|
||||
USE %DPN
|
||||
INPUT CODTAB F_DESCAGG
|
||||
DISPLAY "Codice" CODTAB
|
||||
DISPLAY "Descrizione@50" S0
|
||||
OUTPUT F_DESCAGG CODTAB
|
||||
OUTPUT F_DESCR S0
|
||||
CHECKTYPE NORMAL
|
||||
END
|
||||
|
||||
STRING F_DESCR 50
|
||||
BEGIN
|
||||
PROMPT 25 6 ""
|
||||
FIELD DESCR
|
||||
USE %DPN KEY 2
|
||||
INPUT S0 F_DESCR
|
||||
DISPLAY "Descrizione@50" S0
|
||||
DISPLAY "Codice" CODTAB
|
||||
COPY OUTPUT F_DESCAGG
|
||||
END
|
||||
|
||||
LIST F_PROVVISORIO 1 25
|
||||
BEGIN
|
||||
PROMPT 1 7 "Movimento provvisorio "
|
||||
FIELD PROVVIS
|
||||
ITEM " |No (movimento normale)"
|
||||
ITEM "P|Si (cancellabile)"
|
||||
ITEM "N|Si (non cancellabile)"
|
||||
END
|
||||
|
||||
STRING F_CODCAUS 3
|
||||
BEGIN
|
||||
PROMPT 1 8 "Causale "
|
||||
FLAGS "U"
|
||||
FIELD CODCAUS
|
||||
USE LF_CAUSALI KEY 1
|
||||
INPUT CODCAUS F_CODCAUS
|
||||
DISPLAY "Codice" CODCAUS
|
||||
DISPLAY "Descrizione@50" DESCR
|
||||
OUTPUT F_CODCAUS CODCAUS
|
||||
OUTPUT F_DESCRCAUS DESCR
|
||||
CHECKTYPE NORMAL
|
||||
ADD RUN cg0 -4
|
||||
END
|
||||
|
||||
STRING F_DESCRCAUS 50
|
||||
BEGIN
|
||||
PROMPT 23 8 ""
|
||||
USE LF_CAUSALI KEY 2
|
||||
INPUT DESCR F_DESCRCAUS
|
||||
DISPLAY "Descrizione@50" DESCR
|
||||
DISPLAY "Codice" CODCAUS
|
||||
COPY OUTPUT F_CODCAUS
|
||||
END
|
||||
|
||||
STRING F_VALUTA 3
|
||||
BEGIN
|
||||
PROMPT 1 9 "Valuta "
|
||||
FIELD CODVAL
|
||||
FLAGS "U"
|
||||
GROUP 3
|
||||
USE %VAL
|
||||
INPUT CODTAB F_VALUTA
|
||||
DISPLAY "Codice" CODTAB
|
||||
DISPLAY "Nome@50" S0
|
||||
DISPLAY "Cambio corrente" R0
|
||||
OUTPUT F_VALUTA CODTAB
|
||||
OUTPUT F_CAMBIO R0
|
||||
END
|
||||
|
||||
NUMBER F_CAMBIO 10
|
||||
BEGIN
|
||||
PROMPT 16 9 "Cambio "
|
||||
FIELD CAMBIO
|
||||
FLAGS "RU"
|
||||
GROUP 3
|
||||
PICTURE ".3"
|
||||
END
|
||||
|
||||
BOOLEAN F_VISVAL
|
||||
BEGIN
|
||||
PROMPT 42 9 "Visualizza importi in valuta"
|
||||
GROUP 3
|
||||
END
|
||||
|
||||
SPREADSHEET F_SHEETCG
|
||||
BEGIN
|
||||
PROMPT 1 10 ""
|
||||
ITEM "Dare@17"
|
||||
ITEM "Avere@17"
|
||||
ITEM " @1"
|
||||
ITEM "Gr."
|
||||
ITEM "Co."
|
||||
ITEM "Sottoc."
|
||||
ITEM "Descrizione conto@50"
|
||||
ITEM "Codice"
|
||||
ITEM "Descrizione riga@50"
|
||||
ITEM " @1"
|
||||
ITEM "Gr./c"
|
||||
ITEM "Co./c"
|
||||
ITEM "Sottoc./c"
|
||||
ITEM "Descrizione contropartita@50"
|
||||
ITEM " @1"
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
ENDMASK
|
||||
|
||||
#include "cg21cg.uml"
|
||||
|
||||
|
||||
@ -9,6 +9,7 @@
|
||||
#include <urldefid.h>
|
||||
|
||||
#include <lffiles.h>
|
||||
|
||||
#include <mov.h>
|
||||
#include <rmov.h>
|
||||
#include <rmoviva.h>
|
||||
@ -1363,8 +1364,8 @@ bool CG3100_application::set_print(int m)
|
||||
{
|
||||
select_cursor(_cur1);
|
||||
if (!provvis)
|
||||
_curr1->filter("(PROVVIS=\"\")");
|
||||
else _curr1->filter("");
|
||||
_curr1->setfilter("(PROVVIS=\"\")");
|
||||
else _curr1->setfilter("");
|
||||
fl = current_cursor()->file(LF_MOV);
|
||||
TRectype da (fl->curr());
|
||||
TRectype a (fl->curr());
|
||||
@ -1372,7 +1373,7 @@ bool CG3100_application::set_print(int m)
|
||||
a.zero();
|
||||
da.put(MOV_NUMREG, _numreg_ini);
|
||||
a.put(MOV_NUMREG, _numreg_fin);
|
||||
current_cursor()->setregion(&da,&a);
|
||||
current_cursor()->setregion(da,a);
|
||||
add_file(LF_MOV);
|
||||
add_file(LF_RMOV,LF_MOV);
|
||||
add_file(LF_RMOVIVA,LF_MOV);
|
||||
@ -1381,7 +1382,9 @@ bool CG3100_application::set_print(int m)
|
||||
{
|
||||
select_cursor(_cur2);
|
||||
if (!provvis)
|
||||
_curr2->filter("(PROVVIS=\"\")"); else _curr2->filter("");
|
||||
_curr2->setfilter("(PROVVIS=\"\")");
|
||||
else
|
||||
_curr2->setfilter("");
|
||||
fl = current_cursor()->file(LF_MOV);
|
||||
TRectype da (fl->curr());
|
||||
TRectype a (fl->curr());
|
||||
@ -1389,7 +1392,7 @@ bool CG3100_application::set_print(int m)
|
||||
a.zero();
|
||||
da.put(MOV_DATAREG, _data_ini);
|
||||
a.put(MOV_DATAREG, _data_fin);
|
||||
current_cursor()->setregion(&da,&a);
|
||||
current_cursor()->setregion(da,a);
|
||||
add_file(LF_MOV);
|
||||
add_file(LF_RMOV,LF_MOV);
|
||||
add_file(LF_RMOVIVA,LF_MOV);
|
||||
@ -1426,8 +1429,8 @@ bool CG3100_application::set_print(int m)
|
||||
}
|
||||
select_cursor(_cur3);
|
||||
if (!movprov)
|
||||
_curr3->filter("(PROVVIS=\"\")");
|
||||
else _curr3->filter("");
|
||||
_curr3->setfilter("(PROVVIS=\"\")");
|
||||
else _curr3->setfilter("");
|
||||
TRectype da (fl->curr());
|
||||
TRectype a (fl->curr());
|
||||
da.zero();
|
||||
@ -1440,7 +1443,7 @@ bool CG3100_application::set_print(int m)
|
||||
da.put(MOV_DATAREG, _data_ini);
|
||||
a.put(MOV_DATAREG, _data_fin);
|
||||
da.put(MOV_TIPO, _tipo_ini);
|
||||
current_cursor()->setregion(&da,&a);
|
||||
current_cursor()->setregion(da,a);
|
||||
add_file(LF_MOV);
|
||||
add_file(LF_RMOVIVA,LF_MOV);
|
||||
|
||||
|
||||
@ -60,8 +60,9 @@ class CG3200_application : public TPrintapp
|
||||
|
||||
bool _stampaprogre,_stampatotiva,_stampatot,_prima_volta,_stampa_mov_prov;
|
||||
|
||||
long _annomsk,_annoesmsk,_sottoc,_numreg,_annoes;
|
||||
long _annomsksucc,_numgio,_protiva;
|
||||
int _annomsk,_annoesmsk,_annoes,_annomsksucc;
|
||||
long _sottoc,_numreg,_protiva,_numgio;
|
||||
|
||||
bool _stampa_progressivi_si,_competenza,_inizio_stampa,_puoi_stampare;
|
||||
int _tipocf;
|
||||
char _ricerca;
|
||||
@ -437,7 +438,7 @@ bool CG3200_application::preprocess_pconti(int file, int counter)
|
||||
_mov->curr().zero();
|
||||
_mov->curr().put(MOV_NUMREG,_numreg);
|
||||
_mov->read();
|
||||
_annoes = atol(_mov->curr().get(MOV_ANNOES));
|
||||
_annoes = _mov->get_int(MOV_ANNOES);
|
||||
_regiva = _mov->curr().get(MOV_REG);
|
||||
|
||||
// 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);
|
||||
descrizione_causale();
|
||||
_descrizionemov = _mov->curr().get(MOV_DESCR);
|
||||
_numgio = atol(_mov->curr().get(MOV_NUMGIO));
|
||||
_numgio = _mov->get_long(MOV_NUMGIO);
|
||||
if (_sezione == "D")
|
||||
{
|
||||
_totale_periodo_dare += _importo;
|
||||
@ -591,7 +592,7 @@ bool CG3200_application::preprocess_clifo(int file, int counter)
|
||||
_mov->curr().zero();
|
||||
_mov->curr().put(MOV_NUMREG,_numreg);
|
||||
_mov->read();
|
||||
_annoes = atol(_mov->curr().get(MOV_ANNOES));
|
||||
_annoes = _mov->get_int(MOV_ANNOES);
|
||||
_regiva = _mov->curr().get(MOV_REG);
|
||||
|
||||
// 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);
|
||||
descrizione_causale();
|
||||
_descrizionemov = _mov->curr().get(MOV_DESCR);
|
||||
_numgio = atol(_mov->curr().get(MOV_NUMGIO));
|
||||
_numgio = _mov->get_int(MOV_NUMGIO);
|
||||
if (_sezione == "D")
|
||||
{
|
||||
_totale_periodo_dare += _importo;
|
||||
@ -928,7 +929,7 @@ bool CG3200_application::set_print(int)
|
||||
_data_ini = (_msk->get(F_DATAINI));
|
||||
_data_fine = (_msk->get(F_DATAFINE));
|
||||
|
||||
_annomsk = atol(_msk->get(F_ANNO));
|
||||
_annomsk = _msk->get_int(F_ANNO);
|
||||
|
||||
if (_annomsk == 0)
|
||||
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_SOTTOCONTO,sottocontofine);
|
||||
|
||||
current_cursor()->setregion(&da, &a);
|
||||
current_cursor()->setregion(da, a);
|
||||
}
|
||||
else
|
||||
{
|
||||
@ -1029,7 +1030,7 @@ bool CG3200_application::set_print(int)
|
||||
a.put(CLI_CONTO,contofine);
|
||||
a.put(CLI_CODCF,sottocontofine);
|
||||
|
||||
current_cursor()->setregion(&da, &a);
|
||||
current_cursor()->setregion(da, a);
|
||||
}
|
||||
|
||||
if (_stampatotiva)
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user