Gestione Causali su riga movimento
e stampa con filtro sulle causali git-svn-id: svn://10.65.10.50/trunk@4717 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
augusto
parent
c7e5b4eb5f
commit
72d5e5fb6f
@ -14,6 +14,7 @@
|
|||||||
|
|
||||||
class TStampa_listamov : public TApplication
|
class TStampa_listamov : public TApplication
|
||||||
{
|
{
|
||||||
|
TArray _files;
|
||||||
TMask * _mask;
|
TMask * _mask;
|
||||||
TForm * _form;
|
TForm * _form;
|
||||||
|
|
||||||
@ -28,43 +29,70 @@ protected:
|
|||||||
|
|
||||||
bool TStampa_listamov::create()
|
bool TStampa_listamov::create()
|
||||||
{
|
{
|
||||||
TRectype darec(LF_MOVMAG),arec(LF_MOVMAG);
|
_files.add(new TLocalisamfile(LF_MOVMAG));
|
||||||
|
_files.add(new TLocalisamfile(LF_RMOVMAG));
|
||||||
|
_files.add(new TLocalisamfile(LF_ANAMAG));
|
||||||
|
_files.add(new TLocalisamfile(LF_UMART));
|
||||||
|
_files.add(new TLocalisamfile(LF_TAB));
|
||||||
|
|
||||||
|
TRectype darec(LF_RMOVMAG),arec(LF_RMOVMAG);
|
||||||
_mask = new TMask("mg4100");
|
_mask = new TMask("mg4100");
|
||||||
while (TRUE) {
|
while (_mask->run() == K_ENTER) {
|
||||||
if (_mask->run() != K_ENTER)
|
|
||||||
return FALSE;
|
|
||||||
_form = new TForm("mg4100", "");
|
_form = new TForm("mg4100", "");
|
||||||
TSorted_cursor& cur = (TSorted_cursor& )*_form->cursor();
|
TSorted_cursor& cur = (TSorted_cursor& )*_form->cursor();
|
||||||
|
|
||||||
TString filter("ANNOES==");
|
TString sortexp;
|
||||||
|
TString filter;
|
||||||
|
|
||||||
filter << _mask->get(F_ANNOES);
|
filter << '(' << LF_MOVMAG << "->ANNOES==\""<< _mask->get(F_ANNOES) << "\")";
|
||||||
cur.setfilter(filter);
|
if (_mask->get(F_CAU1).not_empty())
|
||||||
|
{
|
||||||
|
filter << "&&((CAUS==\"" << _mask->get(F_CAU1) << "\")";
|
||||||
|
filter << "||(" << LF_MOVMAG << "->CODCAUS==\"" << _mask->get(F_CAU1)<< "\")";
|
||||||
|
if (_mask->get(F_CAU2).not_empty())
|
||||||
|
filter << "||(CAUS==\"" << _mask->get(F_CAU2) << "\")"
|
||||||
|
<< "||(" << LF_MOVMAG << "->CODCAUS==\"" << _mask->get(F_CAU2)<< "\")";
|
||||||
|
if (_mask->get(F_CAU3).not_empty())
|
||||||
|
filter << "||(CAUS==\"" << _mask->get(F_CAU3)<< "\")"
|
||||||
|
<< "||(" << LF_MOVMAG << "->CODCAUS==\"" << _mask->get(F_CAU3)<< "\")";
|
||||||
|
if (_mask->get(F_CAU4).not_empty())
|
||||||
|
filter << "||(CAUS==\"" << _mask->get(F_CAU4)<< "\")"
|
||||||
|
<< "||(" << LF_MOVMAG << "->CODCAUS==\"" << _mask->get(F_CAU4)<< "\")";
|
||||||
|
if (_mask->get(F_CAU5).not_empty())
|
||||||
|
filter << "||(CAUS==\"" << _mask->get(F_CAU5)<< "\")"
|
||||||
|
<< "||(" << LF_MOVMAG << "->CODCAUS==\"" << _mask->get(F_CAU5)<< "\")";
|
||||||
|
if (_mask->get(F_CAU6).not_empty())
|
||||||
|
filter << "||(CAUS==\"" << _mask->get(F_CAU6)<< "\")"
|
||||||
|
<< "||(" << LF_MOVMAG << "->CODCAUS==\"" << _mask->get(F_CAU6)<< "\")";
|
||||||
|
filter << ")";
|
||||||
|
}
|
||||||
darec.zero(' ');
|
darec.zero(' ');
|
||||||
arec.zero(' ');
|
arec.zero(' ');
|
||||||
if (_mask->get(F_ORDINE)=="N")
|
if (_mask->get(F_ORDINE)=="N")
|
||||||
{
|
{
|
||||||
cur.setkey(1);
|
sortexp="NUMREG|CODART|NRIG";
|
||||||
// trova il record iniziale
|
// trova il record iniziale E finale
|
||||||
darec.put("NUMREG",_mask->get(F_DANUM));
|
darec.put("NUMREG",_mask->get(F_DANUM));
|
||||||
// trova il record finale
|
|
||||||
arec.put("NUMREG",_mask->get(F_ANUM));
|
arec.put("NUMREG",_mask->get(F_ANUM));
|
||||||
_form->find_field('B',odd_page,"HEADER_DATA").hide();
|
_form->find_field('B',odd_page,"HEADER_DATA").hide();
|
||||||
} else {
|
} else {
|
||||||
cur.setkey(4);
|
sortexp.cut(0) << LF_MOVMAG << "->DATAREG|NUMREG|CODART|NRIG";
|
||||||
// trova il record iniziale
|
// trova il record iniziale E finale
|
||||||
darec.put("DATACOMP",_mask->get(F_DADATA));
|
if (_mask->get(F_DADATA).not_empty())
|
||||||
// trova il record finale
|
filter << "&&( DATACOMP>=" << '"' << _mask->get(F_DADATA) << '"';
|
||||||
arec.put("DATACOMP",_mask->get(F_ADATA));
|
if (_mask->get(F_ADATA).not_empty())
|
||||||
|
filter << "&&( DATACOMP<=" << '"' << _mask->get(F_ADATA) << "\")";
|
||||||
_form->find_field('B',odd_page,"HEADER_DATA").show();
|
_form->find_field('B',odd_page,"HEADER_DATA").show();
|
||||||
}
|
}
|
||||||
cur.setregion(darec,arec);
|
|
||||||
|
|
||||||
|
cur.change_order(sortexp);
|
||||||
|
cur.setfilter(filter,TRUE);
|
||||||
|
cur.setregion(darec,arec);
|
||||||
|
|
||||||
_form->print();
|
_form->print();
|
||||||
delete _form;
|
delete _form;
|
||||||
} // while true
|
} // while true
|
||||||
return TRUE;
|
return FALSE;
|
||||||
}
|
}
|
||||||
bool TStampa_listamov::destroy()
|
bool TStampa_listamov::destroy()
|
||||||
{
|
{
|
||||||
|
|||||||
341
mg/mg4100.frm
341
mg/mg4100.frm
@ -1,23 +1,20 @@
|
|||||||
USE 110 KEY 4
|
USE LF_RMOVMAG BY NUMREG CODART NRIG
|
||||||
|
JOIN LF_MOVMAG TO LF_RMOVMAG INTO NUMREG==NUMREG
|
||||||
JOIN CAU TO 110 INTO CODTAB==CODCAUS
|
JOIN CAU TO 110 INTO CODTAB==CODCAUS
|
||||||
SORT 111 BY NUMREG CODART NRIG
|
JOIN LF_ANAMAG TO LF_RMOVMAG INTO CODART==CODART
|
||||||
JOIN TO 110 INTO NUMREG==NUMREG
|
JOIN 33 TO LF_MOVMAG INTO PROVV==DOCPROVV ANNO==ANNODOC CODNUM==CODNUM NDOC==NUMDOC
|
||||||
JOIN 47 TO 111 INTO CODART==CODART
|
|
||||||
JOIN 33 TO 110 INTO PROVV==DOCPROVV ANNO==ANNODOC CODNUM==CODNUM NDOC==NUMDOC
|
|
||||||
|
|
||||||
JOIN 49 TO 111 KEY 2 ALIAS 349 INTO CODART==CODART UM==UM
|
JOIN LF_UMART TO LF_RMOVMAG KEY 2 ALIAS 349 INTO CODART==CODART UM==UM
|
||||||
JOIN 49 TO 47 ALIAS 249 INTO CODART==CODART
|
JOIN LF_UMART TO LF_ANAMAG ALIAS 249 INTO CODART==CODART
|
||||||
END
|
END
|
||||||
|
|
||||||
DESCRIPTION
|
DESCRIPTION
|
||||||
BEGIN
|
BEGIN
|
||||||
47->* "Anagrafica articoli"
|
LF_ANAMAG->* "Anagrafica articoli"
|
||||||
109->* "Archivio Giacenze"
|
LF_MOVMAG->* "Movimenti di magazzino"
|
||||||
MAG->* "Tabella magazzini"
|
LF_RMOVMAG->* "Righe Movimenti di magazzino"
|
||||||
110->* "Movimenti di magazzino"
|
|
||||||
111->* "Righe Movimenti di magazzino"
|
|
||||||
49->* "Unità di misura articoli"
|
49->* "Unità di misura articoli"
|
||||||
33->* "documenti"
|
33->* "documenti"
|
||||||
END
|
END
|
||||||
|
|
||||||
GENERAL
|
GENERAL
|
||||||
@ -30,7 +27,7 @@ BEGIN
|
|||||||
FINALE 133
|
FINALE 133
|
||||||
END
|
END
|
||||||
|
|
||||||
SECTION HEADER ODD 3
|
SECTION HEADER ODD 6
|
||||||
|
|
||||||
STRINGA 1 40 1
|
STRINGA 1 40 1
|
||||||
BEGIN
|
BEGIN
|
||||||
@ -42,14 +39,14 @@ END
|
|||||||
STRINGA 2 10
|
STRINGA 2 10
|
||||||
BEGIN
|
BEGIN
|
||||||
KEY "Data"
|
KEY "Data"
|
||||||
PROMPT 120 1 "Data "
|
PROMPT 104 1 "Data "
|
||||||
MESSAGE _TODAY
|
MESSAGE _TODAY
|
||||||
END
|
END
|
||||||
|
|
||||||
NUMERO 3 7
|
NUMERO 3 7
|
||||||
BEGIN
|
BEGIN
|
||||||
KEY "Nr. pagina"
|
KEY "Nr. pagina"
|
||||||
PROMPT 137 1 "Pagina "
|
PROMPT 121 1 "Pagina "
|
||||||
MESSAGE _PAGENO
|
MESSAGE _PAGENO
|
||||||
END
|
END
|
||||||
|
|
||||||
@ -59,145 +56,221 @@ BEGIN
|
|||||||
PROMPT 45 2 "Stampa lista movimenti"
|
PROMPT 45 2 "Stampa lista movimenti"
|
||||||
END
|
END
|
||||||
|
|
||||||
STRINGA 5 146
|
STRINGA 5 132
|
||||||
BEGIN
|
BEGIN
|
||||||
KEY "Separatore (iniziale)"
|
KEY "Separatore (iniziale)"
|
||||||
PROMPT 1 3 "------------------------------------------------------------------------------------------------------------------------------------------------------"
|
PROMPT 1 3 "------------------------------------------------------------------------------------------------------------------------------------------------------"
|
||||||
END
|
END
|
||||||
|
|
||||||
|
STRINGA 6
|
||||||
|
BEGIN
|
||||||
|
KEY "numreg"
|
||||||
|
PROMPT 3 4 "Num."
|
||||||
|
END
|
||||||
|
|
||||||
|
STRINGA 7
|
||||||
|
BEGIN
|
||||||
|
KEY "datacomp"
|
||||||
|
PROMPT 10 4 "Data"
|
||||||
|
END
|
||||||
|
|
||||||
|
STRINGA 8
|
||||||
|
BEGIN
|
||||||
|
KEY "descr mov"
|
||||||
|
PROMPT 20 4 "Descrizione movimento"
|
||||||
|
END
|
||||||
|
|
||||||
|
STRINGA 101
|
||||||
|
BEGIN
|
||||||
|
KEY ""
|
||||||
|
PROMPT 2 5 "Cod.mag."
|
||||||
|
END
|
||||||
|
|
||||||
|
STRINGA 103 20
|
||||||
|
BEGIN
|
||||||
|
KEY ""
|
||||||
|
PROMPT 13 5 "Articolo"
|
||||||
|
END
|
||||||
|
|
||||||
|
STRINGA 104 40
|
||||||
|
BEGIN
|
||||||
|
KEY ""
|
||||||
|
PROMPT 35 5 "Descrizione articolo"
|
||||||
|
END
|
||||||
|
|
||||||
|
STRINGA 105
|
||||||
|
BEGIN
|
||||||
|
KEY "caus"
|
||||||
|
PROMPT 74 5 "Causale"
|
||||||
|
END
|
||||||
|
|
||||||
|
STRINGA 105
|
||||||
|
BEGIN
|
||||||
|
KEY "UMART"
|
||||||
|
PROMPT 82 5 "UM"
|
||||||
|
END
|
||||||
|
|
||||||
|
NUMERO 106
|
||||||
|
BEGIN
|
||||||
|
KEY "quant"
|
||||||
|
PROMPT 88 5 "Quantita'"
|
||||||
|
END
|
||||||
|
|
||||||
|
NUMERO 107
|
||||||
|
BEGIN
|
||||||
|
KEY "prezzo"
|
||||||
|
PROMPT 109 5 "Prezzo"
|
||||||
|
END
|
||||||
|
|
||||||
|
NUMERO 108
|
||||||
|
BEGIN
|
||||||
|
KEY "valore"
|
||||||
|
PROMPT 120 5 "Valore"
|
||||||
|
END
|
||||||
|
|
||||||
|
STRINGA 100 132
|
||||||
|
BEGIN
|
||||||
|
KEY "Separatore (iniziale)"
|
||||||
|
PROMPT 1 6 "------------------------------------------------------------------------------------------------------------------------------------------------------"
|
||||||
|
END
|
||||||
|
|
||||||
|
|
||||||
END
|
END
|
||||||
|
|
||||||
SECTION BODY ODD 1
|
SECTION BODY ODD 1
|
||||||
SECTION HEADER_DATA 1 0 1 GROUP
|
SECTION HEADER_DATA 1 0 1 GROUP
|
||||||
DATA 1
|
DATA 1
|
||||||
BEGIN
|
BEGIN
|
||||||
KEY "raggr fdata"
|
KEY "raggr fdata"
|
||||||
PROMPT 1 1 "------------- Registrazioni del "
|
PROMPT 1 1 "------------- Registrazioni del "
|
||||||
FIELD 110->DATACOMP
|
FIELD LF_MOVMAG->DATACOMP
|
||||||
END
|
END
|
||||||
END
|
END
|
||||||
SECTION RAGG_MOV 1 1 3 FILE 110 GROUP 110->DATACOMP
|
SECTION RAGG_MOV 1 1 3 FILE LF_RMOVMAG GROUP LF_MOVMAG->DATACOMP
|
||||||
|
|
||||||
NUMERO 1
|
NUMERO 1
|
||||||
BEGIN
|
BEGIN
|
||||||
KEY "numreg"
|
KEY "numreg"
|
||||||
PROMPT 1 1 ""
|
PROMPT 1 1 ""
|
||||||
FIELD 110->NUMREG
|
FIELD LF_MOVMAG->NUMREG
|
||||||
PICTURE "#####.@"
|
PICTURE "#####"
|
||||||
MESSAGE RESET,10
|
MESSAGE RESET,10
|
||||||
END
|
END
|
||||||
|
|
||||||
DATA 2 8
|
DATA 2 8
|
||||||
BEGIN
|
BEGIN
|
||||||
KEY "datacomp"
|
KEY "datacomp"
|
||||||
PROMPT 10 1 ""
|
PROMPT 10 1 ""
|
||||||
FIELD 110->DATACOMP
|
FIELD LF_MOVMAG->DATACOMP
|
||||||
END
|
END
|
||||||
|
STRINGA 3 40
|
||||||
|
BEGIN
|
||||||
|
KEY "descr mov"
|
||||||
|
PROMPT 20 1 ""
|
||||||
|
FIELD LF_MOVMAG->DESCR
|
||||||
|
END
|
||||||
|
STRINGA 4 22
|
||||||
|
BEGIN
|
||||||
|
KEY " CAUS mov"
|
||||||
|
PROMPT 10 2 "Causale movimento "
|
||||||
|
FIELD LF_MOVMAG->CODCAUS
|
||||||
|
END
|
||||||
|
STRINGA 5 20
|
||||||
|
BEGIN
|
||||||
|
KEY " DESCR CAUS"
|
||||||
|
PROMPT 32 2 ""
|
||||||
|
FIELD CAU->S0
|
||||||
|
END
|
||||||
|
|
||||||
STRINGA 3 8
|
SECTION INFO_DOC 3 0 1 NUM_EXPR LF_MOVMAG->NUMDOC!=0
|
||||||
BEGIN
|
STRINGA 6 20
|
||||||
KEY "descr mov"
|
BEGIN
|
||||||
PROMPT 20 1 ""
|
KEY " NUMDOC"
|
||||||
FIELD 110->DESCR
|
PROMPT 10 1 "Documento "
|
||||||
END
|
FIELD LF_MOVMAG->NUMDOC
|
||||||
|
END
|
||||||
|
STRINGA 7 20
|
||||||
|
BEGIN
|
||||||
|
KEY " datadoc"
|
||||||
|
PROMPT 30 1 "del "
|
||||||
|
FIELD 33->DATADOC
|
||||||
|
END
|
||||||
|
END
|
||||||
|
|
||||||
STRINGA 4 8
|
SECTION RIGHE_MOV 3 1 1 FILE LF_RMOVMAG GROUP NUMREG
|
||||||
BEGIN
|
STRINGA 101 3
|
||||||
KEY " CAUS mov"
|
BEGIN
|
||||||
PROMPT 1 2 ""
|
KEY ""
|
||||||
FIELD 110->CODCAUS
|
PROMPT 4 1 ""
|
||||||
END
|
FIELD LF_RMOVMAG->CODMAG[1,3]
|
||||||
STRINGA 5 20
|
END
|
||||||
BEGIN
|
STRINGA 102 3
|
||||||
KEY " DESCR CAUS"
|
BEGIN
|
||||||
PROMPT 10 2 ""
|
KEY ""
|
||||||
FIELD CAU->S0
|
PROMPT 8 1 ""
|
||||||
END
|
FIELD LF_RMOVMAG->CODMAG[4,5]
|
||||||
|
END
|
||||||
|
|
||||||
SECTION INFO_DOC 3 0 1 NUM_EXPR 110->NUMDOC!=0
|
STRINGA 103 20
|
||||||
STRINGA 6 20
|
BEGIN
|
||||||
BEGIN
|
KEY ""
|
||||||
KEY " NUMDOC"
|
PROMPT 13 1 ""
|
||||||
PROMPT 2 1 "Documento "
|
FIELD LF_RMOVMAG->CODART
|
||||||
FIELD 110->NUMDOC
|
END
|
||||||
END
|
|
||||||
STRINGA 7 20
|
|
||||||
BEGIN
|
|
||||||
KEY " datadoc"
|
|
||||||
PROMPT 20 1 "del "
|
|
||||||
FIELD 33->DATADOC
|
|
||||||
END
|
|
||||||
END
|
|
||||||
|
|
||||||
SECTION RIGHE_MOV 3 1 1 FILE 111
|
STRINGA 104 40
|
||||||
STRINGA 101 3
|
BEGIN
|
||||||
BEGIN
|
KEY ""
|
||||||
KEY ""
|
PROMPT 35 1 ""
|
||||||
PROMPT 4 1 ""
|
FIELD LF_ANAMAG->DESCR
|
||||||
FIELD 111->CODMAG[1,3]
|
END
|
||||||
END
|
|
||||||
STRINGA 102 3
|
|
||||||
BEGIN
|
|
||||||
KEY ""
|
|
||||||
PROMPT 8 1 ""
|
|
||||||
FIELD 111->CODMAG[4,5]
|
|
||||||
END
|
|
||||||
|
|
||||||
STRINGA 103 20
|
STRINGA 105 4
|
||||||
BEGIN
|
BEGIN
|
||||||
KEY ""
|
KEY "CAUS"
|
||||||
PROMPT 13 1 ""
|
PROMPT 77 1 ""
|
||||||
FIELD 111->CODART
|
FIELD LF_RMOVMAG->CAUS
|
||||||
END
|
END
|
||||||
|
|
||||||
STRINGA 104 40
|
STRINGA 105 20
|
||||||
BEGIN
|
BEGIN
|
||||||
KEY ""
|
KEY "UMART"
|
||||||
PROMPT 35 1 ""
|
PROMPT 82 1 ""
|
||||||
FIELD 47->DESCR
|
FIELD LF_RMOVMAG->UM
|
||||||
END
|
END
|
||||||
|
|
||||||
STRINGA 105 20
|
NUMERO 106
|
||||||
BEGIN
|
BEGIN
|
||||||
KEY "UMART"
|
KEY "quant"
|
||||||
PROMPT 77 1 ""
|
PROMPT 85 1 ""
|
||||||
FIELD 111->UM
|
FIELD LF_RMOVMAG->QUANT
|
||||||
END
|
PICTURE "####.###,@##"
|
||||||
|
END
|
||||||
|
|
||||||
NUMERO 106
|
NUMERO 107
|
||||||
BEGIN
|
BEGIN
|
||||||
KEY "quant"
|
KEY "prezzo"
|
||||||
PROMPT 80 1 ""
|
PROMPT 99 1 ""
|
||||||
FIELD 111->QUANT
|
FIELD LF_RMOVMAG->PREZZO
|
||||||
PICTURE "####.###,@##"
|
PICTURE "##.####.###@"
|
||||||
// se il valore è corretto con FC, l'UM stampata deve essere quella dell'articolo
|
END
|
||||||
//MESSAGE _NUMEXPR,111->QUANT*349@->FC
|
|
||||||
END
|
|
||||||
|
|
||||||
NUMERO 107
|
NUMERO 108
|
||||||
BEGIN
|
BEGIN
|
||||||
KEY "prezzo"
|
KEY "valore"
|
||||||
PROMPT 94 1 " £ "
|
PROMPT 112 1 ""
|
||||||
FIELD 111->PREZZO
|
MESSAGE _NUMEXPR,LF_RMOVMAG->PREZZO*LF_RMOVMAG->QUANT*349@->FC|ADD,10
|
||||||
PICTURE "##.####.###@"
|
PICTURE "##.###.####.##@"
|
||||||
END
|
END
|
||||||
|
|
||||||
NUMERO 108
|
END // RIGHE MOVIMENTO
|
||||||
BEGIN
|
|
||||||
KEY "valore"
|
|
||||||
FLAGS "H"
|
|
||||||
PROMPT 120 1 ""
|
|
||||||
MESSAGE _NUMEXPR,111->PREZZO*111->QUANT*349@->FC|ADD,10
|
|
||||||
END
|
|
||||||
|
|
||||||
END // RIGHE MOVIMENTO
|
NUMERO 10
|
||||||
|
BEGIN
|
||||||
NUMERO 10
|
KEY "totale mov"
|
||||||
BEGIN
|
PROMPT 83 3 "Totale valore movimentato: £ "
|
||||||
KEY "totale mov"
|
PICTURE "##.###.####.##@"
|
||||||
PROMPT 1 3 "Totale valore movimentato: £ "
|
END
|
||||||
PICTURE "##.###.####.##@"
|
|
||||||
END
|
|
||||||
|
|
||||||
|
|
||||||
END
|
END
|
||||||
|
|||||||
@ -4,4 +4,10 @@
|
|||||||
#define F_ANUM 104
|
#define F_ANUM 104
|
||||||
#define F_ORDINE 105
|
#define F_ORDINE 105
|
||||||
#define F_ANNOES 106
|
#define F_ANNOES 106
|
||||||
|
#define F_CAU1 107
|
||||||
|
#define F_CAU2 108
|
||||||
|
#define F_CAU3 109
|
||||||
|
#define F_CAU4 110
|
||||||
|
#define F_CAU5 111
|
||||||
|
#define F_CAU6 112
|
||||||
|
|
||||||
|
|||||||
147
mg/mg4100.uml
147
mg/mg4100.uml
@ -1,65 +1,146 @@
|
|||||||
#include "mg1500.h"
|
#include "mg4100.h"
|
||||||
PAGE "Stampa lista movimenti" -1 -1 78 18
|
PAGE "Stampa lista movimenti" -1 -1 78 18
|
||||||
|
|
||||||
NUMBER F_ANNOES 4
|
NUMBER F_ANNOES 4
|
||||||
BEGIN
|
BEGIN
|
||||||
FLAGS "A"
|
FLAGS "A"
|
||||||
PROMPT 2 9 "Codice esercizio "
|
PROMPT 2 1 "Codice esercizio "
|
||||||
|
USE ESC
|
||||||
|
INPUT CODTAB F_ANNOES
|
||||||
|
DISPLAY "Esercizio" CODTAB
|
||||||
|
DISPLAY "Dal@12" D0
|
||||||
|
DISPLAY "Al@12" D0
|
||||||
|
OUTPUT F_ANNOES CODTAB
|
||||||
|
ADD NONE
|
||||||
END
|
END
|
||||||
|
|
||||||
LISTBOX F_ORDINE 30
|
LISTBOX F_ORDINE 30
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 1 "Stampa ordinata per "
|
PROMPT 2 3 "Stampa ordinata per "
|
||||||
ITEM "D|data di competenza"
|
ITEM "D|data di competenza"
|
||||||
MESSAGE SHOW,1@|HIDE,2@
|
MESSAGE SHOW,1@|HIDE,2@
|
||||||
ITEM "N|numero di registrazione"
|
ITEM "N|numero di registrazione"
|
||||||
MESSAGE SHOW,2@|HIDE,1@
|
MESSAGE SHOW,2@|HIDE,1@
|
||||||
END
|
END
|
||||||
|
|
||||||
DATA F_DADATA
|
DATA F_DADATA
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 3 "Dalla data "
|
PROMPT 2 5 "Dalla data "
|
||||||
USE LF_MOVMAG KEY 4 SELECT ANNOES==#F_ANNOES// KEY 3 for DATAREG
|
USE LF_MOVMAG KEY 4 SELECT ANNOES==#F_ANNOES// KEY 3 for DATAREG
|
||||||
INPUT DATAREG F_DADATA
|
INPUT DATAREG F_DADATA
|
||||||
DISPLAY "Esercizio" ANNOES
|
DISPLAY "Esercizio" ANNOES
|
||||||
DISPLAY "N.@10" NUMREG
|
DISPLAY "N.@10" NUMREG
|
||||||
DISPLAY "Data@10" DATAREG
|
DISPLAY "Data@10" DATAREG
|
||||||
OUTPUT F_DADATA DATAREG
|
DISPLAY "Descrizione@30" DESCR
|
||||||
|
OUTPUT F_DADATA DATAREG
|
||||||
GROUP 1
|
GROUP 1
|
||||||
END
|
END
|
||||||
|
|
||||||
DATA F_ADATA
|
DATA F_ADATA
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 5 "Alla data "
|
PROMPT 2 7 "Alla data "
|
||||||
COPY USE F_DADATA
|
COPY USE F_DADATA
|
||||||
INPUT DATAREG F_ADATA
|
INPUT DATAREG F_ADATA
|
||||||
COPY DISPLAY F_DADATA
|
COPY DISPLAY F_DADATA
|
||||||
OUTPUT F_ADATA DATAREG
|
OUTPUT F_ADATA DATAREG
|
||||||
GROUP 1
|
GROUP 1
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING F_DANUM 7
|
STRING F_DANUM 7
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 3 "dal numero "
|
PROMPT 2 5 "dal numero "
|
||||||
USE LF_MOVMAG KEY 1 SELECT ANNOES=#F_ANNOES
|
USE LF_MOVMAG KEY 1 SELECT ANNOES=#F_ANNOES
|
||||||
INPUT NUMREG F_DANUM
|
INPUT NUMREG F_DANUM
|
||||||
DISPLAY "Esercizio" ANNOES
|
DISPLAY "Esercizio" ANNOES
|
||||||
DISPLAY "N.@10" NUMREG
|
DISPLAY "N.@10" NUMREG
|
||||||
DISPLAY "Data@10" DATAREG
|
DISPLAY "Data@10" DATAREG
|
||||||
OUTPUT F_DANUM NUMREG
|
DISPLAY "Descrizione@30" DESCR
|
||||||
GROUP 2
|
OUTPUT F_DANUM NUMREG
|
||||||
|
GROUP 2
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING F_ANUM 7
|
STRING F_ANUM 7
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 5 "Al numero "
|
PROMPT 2 7 "Al numero "
|
||||||
COPY USE F_DANUM
|
COPY USE F_DANUM
|
||||||
INPUT NUMREG F_ANUM
|
INPUT NUMREG F_ANUM
|
||||||
COPY DISPLAY F_DANUM
|
COPY DISPLAY F_DANUM
|
||||||
OUTPUT F_ANUM NUMREG
|
OUTPUT F_ANUM NUMREG
|
||||||
GROUP 2
|
GROUP 2
|
||||||
END
|
END
|
||||||
|
|
||||||
|
STRING F_CAU1 4
|
||||||
|
BEGIN
|
||||||
|
PROMPT 2 9 "Causale "
|
||||||
|
FLAGS "U"
|
||||||
|
USE %CAU
|
||||||
|
INPUT CODTAB F_CAU1
|
||||||
|
DISPLAY "Codice" CODTAB
|
||||||
|
DISPLAY "Descr@30" S0
|
||||||
|
OUTPUT F_CAU1 CODTAB
|
||||||
|
CHECKTYPE NORMAL
|
||||||
|
MESSAGE EMPTY CLEAR,F_CAU2 |CHECK,F_CAU2
|
||||||
|
MESSAGE ENABLE,F_CAU2
|
||||||
|
END
|
||||||
|
STRING F_CAU2 4
|
||||||
|
BEGIN
|
||||||
|
FLAGS "U"
|
||||||
|
PROMPT 2 10 "Causale "
|
||||||
|
INPUT CODTAB F_CAU2
|
||||||
|
COPY USE F_CAU1
|
||||||
|
COPY DISPLAY F_CAU1
|
||||||
|
OUTPUT F_CAU2 CODTAB
|
||||||
|
CHECKTYPE NORMAL
|
||||||
|
MESSAGE EMPTY CLEAR,F_CAU3 |CHECK,F_CAU3
|
||||||
|
MESSAGE ENABLE,F_CAU3
|
||||||
|
END
|
||||||
|
STRING F_CAU3 4
|
||||||
|
BEGIN
|
||||||
|
FLAGS "U"
|
||||||
|
PROMPT 2 11 "Causale "
|
||||||
|
COPY USE F_CAU1
|
||||||
|
INPUT CODTAB F_CAU3
|
||||||
|
COPY DISPLAY F_CAU1
|
||||||
|
OUTPUT F_CAU3 CODTAB
|
||||||
|
CHECKTYPE NORMAL
|
||||||
|
MESSAGE EMPTY CLEAR,F_CAU4 |CHECK,F_CAU4
|
||||||
|
MESSAGE ENABLE,F_CAU4
|
||||||
|
END
|
||||||
|
STRING F_CAU4 4
|
||||||
|
BEGIN
|
||||||
|
FLAGS "U"
|
||||||
|
PROMPT 2 12 "Causale "
|
||||||
|
COPY USE F_CAU1
|
||||||
|
INPUT CODTAB F_CAU4
|
||||||
|
COPY DISPLAY F_CAU1
|
||||||
|
OUTPUT F_CAU4 CODTAB
|
||||||
|
CHECKTYPE NORMAL
|
||||||
|
MESSAGE EMPTY CLEAR,F_CAU5 |CHECK,F_CAU5
|
||||||
|
MESSAGE ENABLE,F_CAU5
|
||||||
|
END
|
||||||
|
STRING F_CAU5 4
|
||||||
|
BEGIN
|
||||||
|
FLAGS "U"
|
||||||
|
PROMPT 2 13 "Causale "
|
||||||
|
COPY USE F_CAU1
|
||||||
|
INPUT CODTAB F_CAU5
|
||||||
|
COPY DISPLAY F_CAU1
|
||||||
|
OUTPUT F_CAU5 CODTAB
|
||||||
|
CHECKTYPE NORMAL
|
||||||
|
MESSAGE EMPTY CLEAR,F_CAU6 |CHECK,F_CAU6
|
||||||
|
MESSAGE ENABLE,F_CAU6
|
||||||
|
END
|
||||||
|
STRING F_CAU6 4
|
||||||
|
BEGIN
|
||||||
|
FLAGS "U"
|
||||||
|
PROMPT 2 14 "Causale "
|
||||||
|
COPY USE F_CAU1
|
||||||
|
INPUT CODTAB F_CAU6
|
||||||
|
COPY DISPLAY F_CAU1
|
||||||
|
OUTPUT F_CAU6 CODTAB
|
||||||
|
CHECKTYPE NORMAL
|
||||||
|
END
|
||||||
|
|
||||||
BUTTON DLG_OK 10 2
|
BUTTON DLG_OK 10 2
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT -12 -1 ""
|
PROMPT -12 -1 ""
|
||||||
|
|||||||
Loading…
x
Reference in New Issue
Block a user