Patch level : 10.0 838
Files correlati : lv4.exe Ricompilazione Demo : [ ] Commento : Aggiunta Tabella riclassificazione conti Cogeco git-svn-id: svn://10.65.10.50/branches/R_10_00@21164 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
alex
parent
2adc739768
commit
c98dcef404
@ -8,11 +8,13 @@ int main(int argc, char** argv)
|
|||||||
switch(n)
|
switch(n)
|
||||||
{
|
{
|
||||||
case 1:
|
case 1:
|
||||||
lv4200(argc, argv); break; //importazione saldaconto
|
lv4200(argc, argv); break; // Importazione saldaconto
|
||||||
case 2:
|
case 2:
|
||||||
lv4300(argc, argv); break; //importazione cespiti
|
lv4300(argc, argv); break; // Importazione cespiti
|
||||||
case 3:
|
case 3:
|
||||||
lv4400(argc, argv); break; //riscrittura movimenti
|
lv4400(argc, argv); break; // Riscrittura movimenti
|
||||||
|
case 5:
|
||||||
|
lv4600(argc, argv); break; // Riclassificazione conti COGECO
|
||||||
case 0:
|
case 0:
|
||||||
default:
|
default:
|
||||||
lv4100(argc, argv); break; //importazione movimenti contabili
|
lv4100(argc, argv); break; //importazione movimenti contabili
|
||||||
|
|||||||
3
lv/lv4.h
3
lv/lv4.h
@ -1,4 +1,5 @@
|
|||||||
int lv4100(int argc, char* argv[]); // importazione movimenti contabili
|
int lv4100(int argc, char* argv[]); // importazione movimenti contabili
|
||||||
int lv4200(int argc, char* argv[]); // importazione saldaconto
|
int lv4200(int argc, char* argv[]); // importazione saldaconto
|
||||||
int lv4300(int argc, char* argv[]); // importazione cespiti
|
int lv4300(int argc, char* argv[]); // importazione cespiti
|
||||||
int lv4400(int argc, char* argv[]); // riscrittura movimenti
|
int lv4400(int argc, char* argv[]); // riscrittura movimenti
|
||||||
|
int lv4600(int argc, char* argv[]); // riclassificazione conti COGECO
|
||||||
171
lv/lv4600.cpp
Executable file
171
lv/lv4600.cpp
Executable file
@ -0,0 +1,171 @@
|
|||||||
|
// gestione files Contabilita' Analitica: CENTRI DI COSTO
|
||||||
|
#include <automask.h>
|
||||||
|
#include <execp.h>
|
||||||
|
#include <relapp.h>
|
||||||
|
#include <pconti.h>
|
||||||
|
#include <recarray.h>
|
||||||
|
|
||||||
|
#include "lv4600a.h"
|
||||||
|
|
||||||
|
////////////////////////////////////////////////////////////////////////
|
||||||
|
//MASCHERA
|
||||||
|
////////////////////////////////////////////////////////////////////////
|
||||||
|
class TCG_ricl_msk : public TAutomask
|
||||||
|
{
|
||||||
|
virtual bool on_field_event(TOperable_field& o, TField_event e, long jolly);
|
||||||
|
|
||||||
|
public:
|
||||||
|
TCG_ricl_msk() : TAutomask("lv4600a") {}
|
||||||
|
};
|
||||||
|
|
||||||
|
bool TCG_ricl_msk::on_field_event(TOperable_field& o, TField_event e, long jolly)
|
||||||
|
{
|
||||||
|
switch (o.dlg())
|
||||||
|
{
|
||||||
|
case F_CONTO:
|
||||||
|
break;
|
||||||
|
default:
|
||||||
|
break;
|
||||||
|
}
|
||||||
|
return true;
|
||||||
|
}
|
||||||
|
|
||||||
|
class TCGRiclass_application : public TRelation_application
|
||||||
|
|
||||||
|
// @author:(INTERNAL) Vari
|
||||||
|
// @access:(INTERNAL) Private Member
|
||||||
|
{
|
||||||
|
// @cmember:(INTERNAL) Maschera corrente dell'applicazione
|
||||||
|
TMask* _msk;
|
||||||
|
// @cmember:(INTERNAL) Relazione corrente dell'applicazione
|
||||||
|
TRelation* _rel;
|
||||||
|
|
||||||
|
// @access Protected Member
|
||||||
|
protected:
|
||||||
|
virtual TMask* get_mask(int mode = MODE_QUERY) { CHECK(_msk, "Null mask"); return _msk; }
|
||||||
|
// @cmember Indica se la futura <mf Tab_application::get_mask> ritornera' una maschera diversa
|
||||||
|
// dalla corrente.
|
||||||
|
virtual bool changing_mask(int mode) { return false; }
|
||||||
|
// @cmember Ritorna la relazione da modificare
|
||||||
|
virtual TRelation* get_relation() const { CHECK(_rel, "Null relation"); return _rel; }
|
||||||
|
// @cmember Inizializza la maschera per il modo ricerca
|
||||||
|
virtual void init_query_mode(TMask& m);
|
||||||
|
// @cmember Inizializza la maschera per il modo ricerca ed inserimento (chiama <mf TRelation_application::init_query_mode>)
|
||||||
|
virtual void init_query_insert_mode(TMask& m) ;
|
||||||
|
// @cmember Inizializza la maschera per il modo inserimento
|
||||||
|
virtual void init_insert_mode(TMask& m);
|
||||||
|
// @cmember Inizializza la maschera per il modo modifica
|
||||||
|
virtual void init_modify_mode(TMask& m);
|
||||||
|
// @cmember Inizializzazione dei dati dell'utente
|
||||||
|
virtual bool user_create() ;
|
||||||
|
// @cmember Distruzione dei dati dell'utente
|
||||||
|
virtual bool user_destroy() ;
|
||||||
|
// @cmember Chiama il programma di stampa
|
||||||
|
virtual void print();
|
||||||
|
|
||||||
|
// @access Public Member
|
||||||
|
public:
|
||||||
|
// @cmember Costruttore
|
||||||
|
TCGRiclass_application() : _msk(NULL), _rel(NULL) { }
|
||||||
|
|
||||||
|
|
||||||
|
// @cmember Distruttore
|
||||||
|
virtual ~TCGRiclass_application() {}
|
||||||
|
};
|
||||||
|
|
||||||
|
|
||||||
|
void TCGRiclass_application::print()
|
||||||
|
{
|
||||||
|
TFilename rep("lvcgricl.rep");
|
||||||
|
TString cmd;
|
||||||
|
|
||||||
|
rep.custom_path();
|
||||||
|
cmd << "ba8 -4 "<< rep;
|
||||||
|
TExternal_app stampa(cmd);
|
||||||
|
stampa.run();
|
||||||
|
}
|
||||||
|
|
||||||
|
void TCGRiclass_application::init_query_mode(TMask& m)
|
||||||
|
{
|
||||||
|
TRelation_application::init_query_mode(m);
|
||||||
|
|
||||||
|
m.show(-1);
|
||||||
|
m.enable(-1);
|
||||||
|
m.hide(-2);
|
||||||
|
m.disable(-2);
|
||||||
|
m.disable(-10);
|
||||||
|
}
|
||||||
|
|
||||||
|
void TCGRiclass_application::init_query_insert_mode(TMask& m)
|
||||||
|
{
|
||||||
|
TRelation_application::init_query_insert_mode(m);
|
||||||
|
|
||||||
|
m.hide(-1);
|
||||||
|
m.disable(-1);
|
||||||
|
m.show(-2);
|
||||||
|
m.enable(-2);
|
||||||
|
m.enable(-10);
|
||||||
|
}
|
||||||
|
|
||||||
|
void TCGRiclass_application::init_modify_mode(TMask& m)
|
||||||
|
{
|
||||||
|
TRelation_application::init_modify_mode(m);
|
||||||
|
|
||||||
|
m.show(-1);
|
||||||
|
m.disable(-1);
|
||||||
|
m.hide(-2);
|
||||||
|
m.disable(-10);
|
||||||
|
}
|
||||||
|
|
||||||
|
void TCGRiclass_application::init_insert_mode(TMask& m)
|
||||||
|
{
|
||||||
|
TRelation_application::init_insert_mode(m);
|
||||||
|
|
||||||
|
m.show(-1);
|
||||||
|
m.disable(-1);
|
||||||
|
m.hide(-2);
|
||||||
|
m.disable(-2);
|
||||||
|
m.disable(-10);
|
||||||
|
}
|
||||||
|
|
||||||
|
bool TCGRiclass_application::user_create()
|
||||||
|
{
|
||||||
|
_rel = new TRelation(LF_RICLPDC);
|
||||||
|
_msk = new TCG_ricl_msk;
|
||||||
|
|
||||||
|
TConfig config(CONFIG_DITTA);
|
||||||
|
|
||||||
|
set_search_field(F_SOTTOCONTO);
|
||||||
|
|
||||||
|
TFilename rep("lvcgricl.rep");
|
||||||
|
|
||||||
|
if (rep.custom_path())
|
||||||
|
enable_menu_item(M_FILE_PRINT);
|
||||||
|
|
||||||
|
TString title;
|
||||||
|
_msk->get_caption(title);
|
||||||
|
set_title(title);
|
||||||
|
|
||||||
|
return true;
|
||||||
|
}
|
||||||
|
|
||||||
|
bool TCGRiclass_application::user_destroy()
|
||||||
|
{
|
||||||
|
if (_msk)
|
||||||
|
delete _msk;
|
||||||
|
if (_rel)
|
||||||
|
delete _rel;
|
||||||
|
|
||||||
|
return true;
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
int lv4600(int argc, char* argv[])
|
||||||
|
{
|
||||||
|
TCGRiclass_application a;
|
||||||
|
|
||||||
|
a.run(argc, argv, TR("Riclassificazione piano dei conti Cogeco"));
|
||||||
|
return 0;
|
||||||
|
}
|
||||||
|
|
||||||
16
lv/lv4600a.h
Executable file
16
lv/lv4600a.h
Executable file
@ -0,0 +1,16 @@
|
|||||||
|
//id campi maschera tc0800a (file piano dei conti Team System)
|
||||||
|
//campi normali
|
||||||
|
#define F_COD 101
|
||||||
|
#define F_CGMASTRO 102
|
||||||
|
#define F_CGCONTO 103
|
||||||
|
#define F_CGSOTTOCONTO 104
|
||||||
|
#define F_DESCRIZ 105
|
||||||
|
#define F_GRUPPO 106
|
||||||
|
#define F_CONTO 107
|
||||||
|
#define F_SOTTOCONTO 108
|
||||||
|
#define F_DESCG 109
|
||||||
|
#define F_DESCC 110
|
||||||
|
#define F_CGDESCR 111
|
||||||
|
#define F_GRUPPO2 115
|
||||||
|
#define F_CONTO2 116
|
||||||
|
#define F_SOTTOCONTO2 117
|
||||||
239
lv/lv4600a.uml
Executable file
239
lv/lv4600a.uml
Executable file
@ -0,0 +1,239 @@
|
|||||||
|
#include "lv4600a.h"
|
||||||
|
|
||||||
|
TOOLBAR "topbar" 0 0 0 2
|
||||||
|
#include <relapbar.h>
|
||||||
|
ENDPAGE
|
||||||
|
|
||||||
|
PAGE "Riclassificazione Conti" 0 2 0 0
|
||||||
|
|
||||||
|
LIST F_COD 7
|
||||||
|
BEGIN
|
||||||
|
PROMPT 50 50 ""
|
||||||
|
ITEM "CGCONTI|CGCONTI"
|
||||||
|
FIELD TIPORIC
|
||||||
|
FLAGS "D"
|
||||||
|
KEY 1
|
||||||
|
END
|
||||||
|
|
||||||
|
GROUPBOX DLG_NULL 78 9
|
||||||
|
BEGIN
|
||||||
|
PROMPT 1 1 "Conto Campo"
|
||||||
|
END
|
||||||
|
|
||||||
|
NUMBER F_GRUPPO2 3
|
||||||
|
BEGIN
|
||||||
|
PROMPT 2 2 "Gruppo "
|
||||||
|
HELP "Codice del gruppo"
|
||||||
|
FIELD GRUPPO
|
||||||
|
USE LF_RICLPDC
|
||||||
|
JOIN LF_PCON INTO GRUPPO==GRUPPO CONTO==CONTO SOTTOCONTO==SOTTOCONTO
|
||||||
|
JOIN &LCO TO LF_RICLPDC INTO CODTAB==CODICE
|
||||||
|
INPUT TIPORIC F_COD SELECT
|
||||||
|
INPUT GRUPPO F_GRUPPO2
|
||||||
|
INPUT CONTO F_CONTO2
|
||||||
|
INPUT SOTTOCONTO F_SOTTOCONTO2
|
||||||
|
DISPLAY "Gruppo" GRUPPO
|
||||||
|
DISPLAY "Conto" CONTO
|
||||||
|
DISPLAY "Sottoconto" SOTTOCONTO
|
||||||
|
DISPLAY "Descrizione@50" LF_PCON->DESCR
|
||||||
|
DISPLAY "Gruppo TS" CODICE[1,2]
|
||||||
|
DISPLAY "Conto TS" CODICE[3,4]
|
||||||
|
DISPLAY "Sottoconto TS" CODICE[5,7]
|
||||||
|
DISPLAY "Descrizione@50" &LCO->S0
|
||||||
|
OUTPUT F_GRUPPO2 GRUPPO
|
||||||
|
OUTPUT F_CONTO2 CONTO
|
||||||
|
OUTPUT F_SOTTOCONTO2 SOTTOCONTO
|
||||||
|
OUTPUT F_GRUPPO GRUPPO
|
||||||
|
OUTPUT F_CONTO CONTO
|
||||||
|
OUTPUT F_SOTTOCONTO SOTTOCONTO
|
||||||
|
KEY 1
|
||||||
|
GROUP 1
|
||||||
|
CHECKTYPE REQUIRED
|
||||||
|
END
|
||||||
|
|
||||||
|
NUMBER F_GRUPPO 3
|
||||||
|
BEGIN
|
||||||
|
PROMPT 2 2 "Gruppo "
|
||||||
|
HELP "Codice del gruppo"
|
||||||
|
FIELD GRUPPO
|
||||||
|
KEY 1
|
||||||
|
GROUP 2
|
||||||
|
USE LF_PCON KEY 1 SELECT CONTO=""
|
||||||
|
JOIN LF_RICLPDC INTO TIPORIC=="TSCONTI" GRUPPO==GRUPPO CONTO==CONTO SOTTOCONTO==SOTTOCONTO
|
||||||
|
JOIN &LCO TO LF_RICLPDC INTO CODTAB==CODICE
|
||||||
|
INPUT GRUPPO F_GRUPPO
|
||||||
|
DISPLAY "Gruppo" GRUPPO
|
||||||
|
DISPLAY "Descrizione@50" DESCR
|
||||||
|
DISPLAY "Gruppo TS" LF_RICLPDC->CODICE[1,2]
|
||||||
|
DISPLAY "Conto TS" LF_RICLPDC->CODICE[3,4]
|
||||||
|
DISPLAY "Sottoconto TS" LF_RICLPDC->CODICE[5,7]
|
||||||
|
DISPLAY "Descrizione@50" &LCO->S0
|
||||||
|
OUTPUT F_GRUPPO GRUPPO
|
||||||
|
OUTPUT F_GRUPPO2 GRUPPO
|
||||||
|
OUTPUT F_DESCG DESCR
|
||||||
|
CHECKTYPE REQUIRED
|
||||||
|
ADD RUN cg0 -0
|
||||||
|
FLAGS "G"
|
||||||
|
END
|
||||||
|
|
||||||
|
STRING F_DESCG 50
|
||||||
|
BEGIN
|
||||||
|
PROMPT 24 2 ""
|
||||||
|
FLAGS "D"
|
||||||
|
END
|
||||||
|
|
||||||
|
NUMBER F_CONTO2 3
|
||||||
|
BEGIN
|
||||||
|
PROMPT 2 4 "Conto "
|
||||||
|
HELP "Codice dell'eventuale conto"
|
||||||
|
FIELD CONTO
|
||||||
|
COPY ALL F_GRUPPO2
|
||||||
|
KEY 1
|
||||||
|
GROUP 1
|
||||||
|
CHECKTYPE NORMAL
|
||||||
|
WARNING "Manca il conto"
|
||||||
|
END
|
||||||
|
|
||||||
|
NUMBER F_CONTO 3
|
||||||
|
BEGIN
|
||||||
|
PROMPT 2 4 "Conto "
|
||||||
|
HELP "Codice dell'eventuale conto"
|
||||||
|
FIELD CONTO
|
||||||
|
KEY 1
|
||||||
|
GROUP 2
|
||||||
|
USE LF_PCON KEY 1 SELECT ((CONTO!="")&&(SOTTOCONTO=""))
|
||||||
|
JOIN LF_RICLPDC INTO TIPORIC=="CGCONTI" GRUPPO==GRUPPO CONTO==CONTO SOTTOCONTO==SOTTOCONTO
|
||||||
|
JOIN &LCO TO LF_RICLPDC INTO CODTAB==CODICE
|
||||||
|
COPY INPUT F_GRUPPO
|
||||||
|
INPUT CONTO F_CONTO
|
||||||
|
DISPLAY "Gruppo" GRUPPO
|
||||||
|
DISPLAY "Conto" CONTO
|
||||||
|
DISPLAY "Descrizione@50" DESCR
|
||||||
|
DISPLAY "Gruppo TS" LF_RICLPDC->CODICE[1,2]
|
||||||
|
DISPLAY "Conto TS" LF_RICLPDC->CODICE[3,4]
|
||||||
|
DISPLAY "Sottoconto TS" LF_RICLPDC->CODICE[5,7]
|
||||||
|
DISPLAY "Descrizione@50" &LCO->S0
|
||||||
|
OUTPUT F_GRUPPO GRUPPO
|
||||||
|
OUTPUT F_GRUPPO2 GRUPPO
|
||||||
|
OUTPUT F_CONTO CONTO
|
||||||
|
OUTPUT F_CONTO2 CONTO
|
||||||
|
OUTPUT F_DESCC DESCR
|
||||||
|
CHECKTYPE NORMAL
|
||||||
|
WARNING "Manca il conto"
|
||||||
|
ADD RUN cg0 -0
|
||||||
|
FLAGS "G"
|
||||||
|
END
|
||||||
|
|
||||||
|
STRING F_DESCC 50
|
||||||
|
BEGIN
|
||||||
|
PROMPT 24 4 ""
|
||||||
|
FLAGS "D"
|
||||||
|
END
|
||||||
|
|
||||||
|
NUMBER F_SOTTOCONTO2 6
|
||||||
|
BEGIN
|
||||||
|
PROMPT 2 6 "Sottoconto "
|
||||||
|
HELP "Codice dell'eventuale sottoconto"
|
||||||
|
FIELD SOTTOCONTO
|
||||||
|
COPY ALL F_GRUPPO2
|
||||||
|
KEY 1
|
||||||
|
GROUP 1
|
||||||
|
CHECKTYPE NORMAL
|
||||||
|
END
|
||||||
|
|
||||||
|
NUMBER F_SOTTOCONTO 6
|
||||||
|
BEGIN
|
||||||
|
PROMPT 2 6 "Sottoconto "
|
||||||
|
HELP "Codice dell'eventuale sottoconto"
|
||||||
|
FIELD SOTTOCONTO
|
||||||
|
KEY 1
|
||||||
|
GROUP 2
|
||||||
|
USE LF_PCON KEY 1 SELECT (SOTTOCONTO!="")
|
||||||
|
JOIN LF_RICLPDC INTO TIPORIC=="CGCONTI" GRUPPO==GRUPPO CONTO==CONTO SOTTOCONTO==SOTTOCONTO
|
||||||
|
JOIN &LCO TO LF_RICLPDC INTO CODTAB==CODICE
|
||||||
|
COPY INPUT F_CONTO
|
||||||
|
INPUT SOTTOCONTO F_SOTTOCONTO
|
||||||
|
DISPLAY "Gruppo" GRUPPO
|
||||||
|
DISPLAY "Conto" CONTO
|
||||||
|
DISPLAY "Sottoconto" SOTTOCONTO
|
||||||
|
DISPLAY "Sosp." SOSPESO
|
||||||
|
DISPLAY "Descrizione@50" DESCR
|
||||||
|
DISPLAY "Gruppo TS" LF_RICLPDC->CODICE[1,2]
|
||||||
|
DISPLAY "Conto TS" LF_RICLPDC->CODICE[3,4]
|
||||||
|
DISPLAY "Sottoconto TS" LF_RICLPDC->CODICE[5,7]
|
||||||
|
DISPLAY "Descrizione@50" &LCO->S0
|
||||||
|
OUTPUT F_GRUPPO GRUPPO
|
||||||
|
OUTPUT F_GRUPPO2 GRUPPO
|
||||||
|
OUTPUT F_CONTO CONTO
|
||||||
|
OUTPUT F_CONTO2 CONTO
|
||||||
|
OUTPUT F_SOTTOCONTO SOTTOCONTO
|
||||||
|
OUTPUT F_SOTTOCONTO2 SOTTOCONTO
|
||||||
|
OUTPUT F_DESCRIZ DESCR
|
||||||
|
ADD RUN cg0 -0
|
||||||
|
CHECKTYPE NORMAL
|
||||||
|
FLAGS "G"
|
||||||
|
END
|
||||||
|
|
||||||
|
STRING F_DESCRIZ 50
|
||||||
|
BEGIN
|
||||||
|
PROMPT 2 8 "Descrizione"
|
||||||
|
USE LF_PCON KEY 2
|
||||||
|
JOIN LF_RICLPDC INTO TIPORIC=="CGCONTI" GRUPPO==GRUPPO CONTO==CONTO SOTTOCONTO==SOTTOCONTO
|
||||||
|
JOIN &LCO TO LF_RICLPDC INTO CODTAB==CODICE
|
||||||
|
INPUT DESCR F_DESCRIZ
|
||||||
|
DISPLAY "Descrizione@50" DESCR
|
||||||
|
DISPLAY "Gruppo" GRUPPO
|
||||||
|
DISPLAY "Conto" CONTO
|
||||||
|
DISPLAY "Sottoconto" SOTTOCONTO
|
||||||
|
DISPLAY "Gruppo TS" LF_RICLPDC->CODICE[1,2]
|
||||||
|
DISPLAY "Conto TS" LF_RICLPDC->CODICE[3,4]
|
||||||
|
DISPLAY "Sottoconto TS" LF_RICLPDC->CODICE[5,7]
|
||||||
|
DISPLAY "Descrizione@50" &LCO->S0
|
||||||
|
COPY OUTPUT F_SOTTOCONTO
|
||||||
|
KEY 2
|
||||||
|
CHECKTYPE REQUIRED
|
||||||
|
GROUP 10
|
||||||
|
END
|
||||||
|
|
||||||
|
STRING F_CGMASTRO 6
|
||||||
|
BEGIN
|
||||||
|
PROMPT 2 10 "Mastro "
|
||||||
|
CHECKTYPE SEARCH
|
||||||
|
USE &LCO
|
||||||
|
INPUT CODTAB[1,6] F_CGMASTRO
|
||||||
|
INPUT CODTAB[7,12] F_CGCONTO
|
||||||
|
DISPLAY "Mastro" CODTAB[1,6]
|
||||||
|
DISPLAY "Conto" CODTAB[7,12]
|
||||||
|
DISPLAY "Sottoconto" CODTAB[5,7]
|
||||||
|
DISPLAY "Descrizione@60" S0
|
||||||
|
OUTPUT F_CGMASTRO CODTAB[1,6]
|
||||||
|
OUTPUT F_CGCONTO CODTAB[7,12]
|
||||||
|
OUTPUT F_CGDESCR S0
|
||||||
|
FLAGS "Z"
|
||||||
|
FIELD CODICE[1,6]
|
||||||
|
END
|
||||||
|
|
||||||
|
STRING F_CGCONTO 6
|
||||||
|
BEGIN
|
||||||
|
PROMPT 25 10 "Conto "
|
||||||
|
COPY ALL F_CGMASTRO
|
||||||
|
CHECKTYPE SEARCH
|
||||||
|
FIELD CODICE[7,12]
|
||||||
|
FLAGS "Z"
|
||||||
|
END
|
||||||
|
|
||||||
|
STRING F_CGDESCR 50
|
||||||
|
BEGIN
|
||||||
|
PROMPT 2 12 "Descrizione "
|
||||||
|
USE &LCO KEY 2
|
||||||
|
INPUT S0 F_CGDESCR
|
||||||
|
DISPLAY "Descrizione@60" S0
|
||||||
|
DISPLAY "Mastro" CODTAB[1,6]
|
||||||
|
DISPLAY "Conto" CODTAB[7,12]
|
||||||
|
COPY OUTPUT F_CGMASTRO
|
||||||
|
CHECKTYPE SEARCH
|
||||||
|
END
|
||||||
|
|
||||||
|
ENDPAGE
|
||||||
|
|
||||||
|
ENDMASK
|
||||||
Loading…
x
Reference in New Issue
Block a user