Intoduzione nuovi file per la variazione movimenti Saldaconto in ricezione
git-svn-id: svn://10.65.10.50/trunk@2963 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
ale
parent
bd2e2c034e
commit
9c5985e45c
2463
cg/cg6804.cpp
Executable file
2463
cg/cg6804.cpp
Executable file
File diff suppressed because it is too large
Load Diff
126
cg/cg6804.h
Executable file
126
cg/cg6804.h
Executable file
@ -0,0 +1,126 @@
|
||||
#ifndef __CG6804_H
|
||||
#define __CG6804_H
|
||||
|
||||
#include <mask.h>
|
||||
#include <relation.h>
|
||||
#include <tabutil.h>
|
||||
#include <utility.h>
|
||||
#include <config.h>
|
||||
#include <mailbox.h>
|
||||
#include <prefix.h>
|
||||
#include <urldefid.h>
|
||||
#include <msksheet.h>
|
||||
|
||||
#include <nditte.h>
|
||||
#include <mov.h>
|
||||
#include <rmov.h>
|
||||
#include <rmoviva.h>
|
||||
#include <pconti.h>
|
||||
#include <occas.h>
|
||||
#include <comuni.h>
|
||||
|
||||
class TVar_sc : public TApplication
|
||||
{
|
||||
TIsamtempfile* _tpart, *_tscad, *_tpagsca;
|
||||
TLocalisamfile* _part, *_scad, *_pagsca;
|
||||
TTable* _tab_reg;
|
||||
TRectype* _rec_part,* _rec_scad,* _rec_pagsca;
|
||||
TTransfer_file _tras_file;
|
||||
TMask* _msk, *_mask;
|
||||
|
||||
bool _registrato;
|
||||
TString _control_rec,_trasf,_std,_numpart,_tmcf;
|
||||
long _dittaric,_sottoc;
|
||||
int _gruppo,_conto,_anno,_nriga,_tm_caus;
|
||||
char _tipocf;
|
||||
bool _dd_caus,_nd_caus,_movval;
|
||||
|
||||
public:
|
||||
virtual bool create();
|
||||
virtual bool destroy();
|
||||
virtual bool menu(MENU_TAG m);
|
||||
bool main_loop();
|
||||
void apri_temp_file();
|
||||
bool esegui_controlli();
|
||||
bool leggi_trasfer();
|
||||
bool controlli();
|
||||
void leggi_record_controllo();
|
||||
bool video_SC();
|
||||
void registra_partita(TMask& m);
|
||||
void registra_scadenze(TMask& m);
|
||||
void registra_pagamenti(TMask& m);
|
||||
void setta_campi_maschera(TMask& m);
|
||||
void setta_parametri_record(const TString& sigla,const TString& flag);
|
||||
char TipoConto (int g, int c);
|
||||
void ricerca_localita(TString& com, TString& den, TString& cap, TString& prov);
|
||||
|
||||
static bool a_notify(TSheet_field& s, int r, KEY k);
|
||||
|
||||
// HANDLER sulla riga di partita
|
||||
static bool tipocf_handler (TMask_field& f, KEY k);
|
||||
static bool codcf_handler (TMask_field& f, KEY k);
|
||||
static bool rifpart_handler (TMask_field& f, KEY k);
|
||||
static bool datareg_handler (TMask_field& f, KEY k);
|
||||
static bool codcaus_handler (TMask_field& f, KEY k);
|
||||
static bool datadoc_handler (TMask_field& f, KEY k);
|
||||
static bool numdoc_handler (TMask_field& f, KEY k);
|
||||
static bool contocl_handler (TMask_field& f, KEY k);
|
||||
static bool tipomov_handler (TMask_field& f, KEY k);
|
||||
static bool sezione_handler (TMask_field& f, KEY k);
|
||||
static bool tipopag_handler (TMask_field& f, KEY k);
|
||||
static bool datapag_handler (TMask_field& f, KEY k);
|
||||
static bool codval_handler (TMask_field& f, KEY k);
|
||||
static bool datacam_handler (TMask_field& f, KEY k);
|
||||
static bool cambio_handler (TMask_field& f, KEY k);
|
||||
static bool gestione_handler (TMask_field& f, KEY k);
|
||||
static bool registra_dati_comuni(TMask_field& f, KEY k);
|
||||
static bool elimina_partita (TMask_field& f, KEY k);
|
||||
|
||||
// HANDLER sulla riga di scadenza
|
||||
static bool nrata_handler (TMask_field& f, KEY k);
|
||||
static bool codpag_handler (TMask_field& f, KEY k);
|
||||
static bool tpscad_handler (TMask_field& f, KEY k);
|
||||
static bool ultclass_handler (TMask_field& f, KEY k);
|
||||
static bool datascad_handler (TMask_field& f, KEY k);
|
||||
static bool banca_handler (TMask_field& f, KEY k);
|
||||
static bool codag_handler (TMask_field& f, KEY k);
|
||||
static bool datasoll_handler (TMask_field& f, KEY k);
|
||||
static bool importo_handler (TMask_field& f, KEY k);
|
||||
static bool impval_handler (TMask_field& f, KEY k);
|
||||
static bool elimina_scadenza (TMask_field& f, KEY k);
|
||||
|
||||
// HANDLER sulla riga di pagamento
|
||||
static bool rifpartita_handler (TMask_field& f, KEY k);
|
||||
static bool accsal_handler (TMask_field& f, KEY k);
|
||||
static bool passat_handler (TMask_field& f, KEY k);
|
||||
static bool impvalp_handler (TMask_field& f, KEY k);
|
||||
static bool abbuoni_handler (TMask_field& f, KEY k);
|
||||
static bool contropartita_handler(TMask_field& f, KEY k);
|
||||
static bool elimina_pagamenti (TMask_field& f, KEY k);
|
||||
static bool sezione_abb_handler (TMask_field& f, KEY k);
|
||||
static bool sezione_dc_handler (TMask_field& f, KEY k);
|
||||
static bool diffcambio_handler (TMask_field& f, KEY k);
|
||||
static bool ritenute_handler (TMask_field& f, KEY k);
|
||||
|
||||
bool descr_conto(const TString&,int,int,long,TString&);
|
||||
bool descr_caus (const TString&,TString&);
|
||||
bool descr_contocl(int,int,TString&);
|
||||
bool tipo_contocl(int,int,TString&);
|
||||
bool codvaluta (const TString& codval);
|
||||
void setta_mask_scad(char t,int g,int c,long s,int anno,const TString& np,int nr,TMask& m);
|
||||
void setta_mask_pagsca(char t,int g,int c,long s,int anno,const TString& np,int nr,TMask& m);
|
||||
char sezione(char tipo,int g,int c,long s,int anno,const TString& npart,int nriga,TString& codval,TMask& m);
|
||||
int tipo_movimento(char tipo,int g,int c,long s,int anno,const TString& npart,int nriga,TMask& m);
|
||||
void descr_condpag(const TString& codpag,int tipopag,const TString& ultclass,TString& d_condpag);
|
||||
bool record_partite(char tipo,int g,int c,long s,int anno,TString& npart,int nrigp);
|
||||
bool record_scadenze(char tipo,int g,int c,long s,int anno,TString& npart,int nrigp,int nrata);
|
||||
void sgancia_pagamenti(char tipo,int g,int c,long s,int anno,TString& npart,int nriga,int nrata);
|
||||
bool cancella_partita(TMask_field& f);
|
||||
bool cancella_scadenza(TMask_field& f);
|
||||
bool cancella_pagamenti(TMask_field& f);
|
||||
bool controlla_abbuoni_diffcam(char tipo,int g,int c,long s,int anno,TString& npart,int nriga,int nrata);
|
||||
|
||||
TVar_sc();
|
||||
};
|
||||
|
||||
#endif //__CG6804_H
|
||||
30
cg/cg6804a.h
Executable file
30
cg/cg6804a.h
Executable file
@ -0,0 +1,30 @@
|
||||
//*************************************
|
||||
//* (Variazione Movimenti Saldaconto) *
|
||||
//*************************************
|
||||
|
||||
// Campi maschera cg6804a.uml
|
||||
|
||||
#define F_TIPOCF 101
|
||||
#define F_GRUPPO 102
|
||||
#define F_CONTO 103
|
||||
#define F_SOTTOCONTO 104
|
||||
#define F_CLIENTE 105
|
||||
#define F_FORNITORE 106
|
||||
#define F_DESCR 107
|
||||
#define F_DESCRCLI 108
|
||||
#define F_DESCRFOR 109
|
||||
#define F_ANNO 110
|
||||
#define F_NUMPART 111
|
||||
#define F_NRIGA 112
|
||||
|
||||
// Campi maschera cg6804b.uml
|
||||
|
||||
#define F_RIGAPART 150
|
||||
|
||||
// Campi maschera cg6804d.uml
|
||||
|
||||
#define F_RIGASCAD 151
|
||||
|
||||
// Campi maschera cg6804e.uml
|
||||
|
||||
#define F_RIGAPAGSCA 152
|
||||
167
cg/cg6804a.uml
Executable file
167
cg/cg6804a.uml
Executable file
@ -0,0 +1,167 @@
|
||||
#include "cg6804a.h"
|
||||
|
||||
PAGE "Variazione Movimenti Saldaconto" -1 -1 78 10
|
||||
|
||||
LIST F_TIPOCF 1 12
|
||||
BEGIN
|
||||
PROMPT 1 1 "Tipo conto "
|
||||
ITEM " |Conto"
|
||||
MESSAGE SHOW,1@|RESET,1@|HIDE,2@|HIDE,3@
|
||||
ITEM "C|Cliente"
|
||||
MESSAGE HIDE,1@|SHOW,2@|RESET,2@|HIDE,3@
|
||||
ITEM "F|Fornitore"
|
||||
MESSAGE HIDE,1@|HIDE,2@|SHOW,3@|RESET,3@
|
||||
END
|
||||
|
||||
NUMBER F_GRUPPO 3
|
||||
BEGIN
|
||||
PROMPT 26 1 "Gruppo "
|
||||
USE LF_PCON SELECT CONTO==""
|
||||
INPUT GRUPPO F_GRUPPO
|
||||
DISPLAY "Gruppo" GRUPPO
|
||||
DISPLAY "Descrizione@50" DESCR
|
||||
OUTPUT F_GRUPPO GRUPPO
|
||||
CHECKTYPE NORMAL
|
||||
ADD RUN cg0 -0
|
||||
END
|
||||
|
||||
NUMBER F_CONTO 3
|
||||
BEGIN
|
||||
PROMPT 40 1 "Conto "
|
||||
USE LF_PCON SELECT (CONTO!="")&&(SOTTOCONTO="")
|
||||
INPUT GRUPPO F_GRUPPO
|
||||
INPUT CONTO F_CONTO
|
||||
DISPLAY "Gruppo" GRUPPO
|
||||
DISPLAY "Conto" CONTO
|
||||
DISPLAY "Descrizione@50" DESCR
|
||||
DISPLAY "Tipo" TMCF
|
||||
OUTPUT F_TIPOCF TMCF
|
||||
OUTPUT F_GRUPPO GRUPPO
|
||||
OUTPUT F_CONTO CONTO
|
||||
CHECKTYPE NORMAL
|
||||
ADD RUN cg0 -0
|
||||
END
|
||||
|
||||
NUMBER F_SOTTOCONTO 6
|
||||
BEGIN
|
||||
PROMPT 54 1 "Sottoconto "
|
||||
USE LF_PCON SELECT SOTTOCONTO!=""
|
||||
COPY INPUT F_CONTO
|
||||
INPUT SOTTOCONTO F_SOTTOCONTO
|
||||
DISPLAY "Gruppo" GRUPPO
|
||||
DISPLAY "Conto" CONTO
|
||||
DISPLAY "Sottoconto" SOTTOCONTO
|
||||
DISPLAY "Descrizione@50" DESCR
|
||||
OUTPUT F_GRUPPO GRUPPO
|
||||
OUTPUT F_CONTO CONTO
|
||||
OUTPUT F_SOTTOCONTO SOTTOCONTO
|
||||
OUTPUT F_DESCR DESCR
|
||||
ADD RUN cg0 -0
|
||||
GROUP 1
|
||||
CHECKTYPE NORMAL
|
||||
END
|
||||
|
||||
NUMBER F_CLIENTE 6
|
||||
BEGIN
|
||||
PROMPT 54 1 "Cliente "
|
||||
USE LF_CLIFO
|
||||
INPUT TIPOCF "C"
|
||||
INPUT CODCF F_CLIENTE
|
||||
DISPLAY "Cliente" CODCF
|
||||
DISPLAY "Descrizione@50" RAGSOC
|
||||
OUTPUT F_CLIENTE CODCF
|
||||
OUTPUT F_DESCRCLI RAGSOC
|
||||
ADD RUN cg0 -1 C
|
||||
GROUP 2
|
||||
CHECKTYPE NORMAL
|
||||
MESSAGE COPY,F_SOTTOCONTO
|
||||
END
|
||||
|
||||
NUMBER F_FORNITORE 6
|
||||
BEGIN
|
||||
PROMPT 54 1 "Fornitore "
|
||||
USE LF_CLIFO
|
||||
INPUT TIPOCF "F"
|
||||
INPUT CODCF F_FORNITORE
|
||||
DISPLAY "Fornitore" CODCF
|
||||
DISPLAY "Descrizione@50" RAGSOC
|
||||
OUTPUT F_FORNITORE CODCF
|
||||
OUTPUT F_DESCRFOR RAGSOC
|
||||
ADD RUN cg0 -1 F
|
||||
GROUP 3
|
||||
CHECKTYPE NORMAL
|
||||
MESSAGE COPY,F_SOTTOCONTO
|
||||
END
|
||||
|
||||
STRING F_DESCR 50 58
|
||||
BEGIN
|
||||
PROMPT 1 2 "Descrizione "
|
||||
USE LF_PCON KEY 2
|
||||
INPUT DESCR F_DESCR
|
||||
DISPLAY "Descrizione@50" DESCR
|
||||
DISPLAY "Gruppo" GRUPPO
|
||||
DISPLAY "Conto" CONTO
|
||||
DISPLAY "Sottoconto" SOTTOCONTO
|
||||
COPY OUTPUT F_SOTTOCONTO
|
||||
CHECKTYPE NORMAL
|
||||
GROUP 1
|
||||
ADD RUN cg0 -0
|
||||
END
|
||||
|
||||
STRING F_DESCRCLI 50 58
|
||||
BEGIN
|
||||
PROMPT 1 2 "Descrizione "
|
||||
USE LF_CLIFO KEY 2
|
||||
INPUT TIPOCF "C"
|
||||
INPUT RAGSOC F_DESCRCLI
|
||||
DISPLAY "Gruppo" GRUPPO
|
||||
DISPLAY "Conto" CONTO
|
||||
DISPLAY "Sottoconto" CODCF
|
||||
DISPLAY "Ragione sociale@50" RAGSOC
|
||||
COPY OUTPUT F_CLIENTE
|
||||
CHECKTYPE NORMAL
|
||||
GROUP 2
|
||||
ADD RUN cg0 -1
|
||||
END
|
||||
|
||||
STRING F_DESCRFOR 50 58
|
||||
BEGIN
|
||||
PROMPT 1 2 "Descrizione "
|
||||
USE LF_CLIFO KEY 2
|
||||
INPUT TIPOCF "F"
|
||||
INPUT RAGSOC F_DESCRFOR
|
||||
COPY DISPLAY F_DESCRCLI
|
||||
COPY OUTPUT F_FORNITORE
|
||||
CHECKTYPE NORMAL
|
||||
GROUP 3
|
||||
ADD RUN cg0 -1
|
||||
END
|
||||
|
||||
NUMBER F_ANNO 4
|
||||
BEGIN
|
||||
PROMPT 1 4 "Anno riferimento partita "
|
||||
END
|
||||
|
||||
STRING F_NUMPART 7
|
||||
BEGIN
|
||||
PROMPT 1 5 "Numero riferimento partita "
|
||||
END
|
||||
|
||||
NUMBER F_NRIGA 4
|
||||
BEGIN
|
||||
PROMPT 1 6 "Numero riga riferimento partita "
|
||||
END
|
||||
|
||||
BUTTON DLG_OK 9 2
|
||||
BEGIN
|
||||
PROMPT -12 -1 "~Conferma"
|
||||
MESSAGE EXIT,K_ENTER
|
||||
END
|
||||
|
||||
BUTTON DLG_QUIT 9 2
|
||||
BEGIN
|
||||
PROMPT -22 -1 ""
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
58
cg/cg6804b.uml
Executable file
58
cg/cg6804b.uml
Executable file
@ -0,0 +1,58 @@
|
||||
#include "cg6804a.h"
|
||||
|
||||
PAGE "Variazione Movimenti Saldaconto" -1 -1 78 20
|
||||
|
||||
SPREADSHEET F_RIGAPART 0 16
|
||||
BEGIN
|
||||
PROMPT 0 1 ""
|
||||
ITEM "Tipo"
|
||||
ITEM "Gruppo"
|
||||
ITEM "Conto"
|
||||
ITEM "Sottoconto"
|
||||
ITEM "Descrizione conto / Ragione sociale C/F@50"
|
||||
ITEM "Anno"
|
||||
ITEM "Numero@7"
|
||||
ITEM "N.riga"
|
||||
ITEM "Data doc.@10"
|
||||
ITEM "N.docum."
|
||||
ITEM "Causale"
|
||||
ITEM "Descrizione causale@50"
|
||||
ITEM "N.reg. "
|
||||
ITEM "N.rig."
|
||||
ITEM "Data oper."
|
||||
ITEM "Gruppo"
|
||||
ITEM "Conto"
|
||||
ITEM "Descrizione conto cliente@50"
|
||||
ITEM "Tipo mov."
|
||||
ITEM "Descrizione@50"
|
||||
ITEM "Sez"
|
||||
ITEM "Data pag. "
|
||||
ITEM "Tipo pag."
|
||||
ITEM "Cod. val."
|
||||
ITEM "Data cambio"
|
||||
ITEM "Cambio@15"
|
||||
END
|
||||
|
||||
BUTTON DLG_SAVEREC 10 2
|
||||
BEGIN
|
||||
PROMPT -13 -1 "~Registra"
|
||||
MESSAGE EXIT,K_SAVE
|
||||
END
|
||||
|
||||
BUTTON DLG_CANCEL 10 2
|
||||
BEGIN
|
||||
PROMPT -23 -1 ""
|
||||
MESSAGE EXIT,K_ESC
|
||||
END
|
||||
|
||||
BUTTON DLG_QUIT 10 2
|
||||
BEGIN
|
||||
PROMPT -33 -1 ""
|
||||
MESSAGE EXIT,K_QUIT
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
ENDMASK
|
||||
|
||||
#include "cg6804c.uml"
|
||||
209
cg/cg6804c.uml
Executable file
209
cg/cg6804c.uml
Executable file
@ -0,0 +1,209 @@
|
||||
PAGE "Variazione Movimenti Saldaconto" -1 -1 78 20
|
||||
|
||||
LIST 101 1 12
|
||||
BEGIN
|
||||
PROMPT 1 1 "Tipo conto "
|
||||
ITEM " |Conto"
|
||||
ITEM "C|Cliente"
|
||||
ITEM "F|Fornitore"
|
||||
FLAGS "DG"
|
||||
END
|
||||
|
||||
NUMBER 102 3
|
||||
BEGIN
|
||||
PROMPT 28 1 "Gruppo "
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
NUMBER 103 3
|
||||
BEGIN
|
||||
PROMPT 42 1 "Conto "
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
NUMBER 104 6
|
||||
BEGIN
|
||||
PROMPT 56 1 "Sottoconto "
|
||||
FLAGS "DG"
|
||||
END
|
||||
|
||||
STRING 105 50
|
||||
BEGIN
|
||||
PROMPT 1 2 "Descrizione "
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
TEXT DLG_NULL
|
||||
BEGIN
|
||||
PROMPT 1 3 "@bRiferimento partita "
|
||||
END
|
||||
|
||||
NUMBER 106 4
|
||||
BEGIN
|
||||
PROMPT 1 4 "Anno "
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
STRING 107 7
|
||||
BEGIN
|
||||
PROMPT 28 4 "Numero "
|
||||
FLAGS "UD"
|
||||
END
|
||||
|
||||
NUMBER 108 4
|
||||
BEGIN
|
||||
PROMPT 56 4 "Numero riga "
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
DATE 109
|
||||
BEGIN
|
||||
PROMPT 1 6 "Data documento "
|
||||
END
|
||||
|
||||
STRING 110 7
|
||||
BEGIN
|
||||
PROMPT 50 6 "Numero documento "
|
||||
END
|
||||
|
||||
STRING 111 3
|
||||
BEGIN
|
||||
PROMPT 1 7 "Causale "
|
||||
USE LF_CAUSALI KEY 1
|
||||
INPUT CODCAUS 111
|
||||
DISPLAY "Causale" CODCAUS
|
||||
DISPLAY "Descrizione@50" DESCR
|
||||
OUTPUT 111 CODCAUS
|
||||
OUTPUT 112 DESCR
|
||||
FLAGS "UZ"
|
||||
CHECKTYPE NORMAL
|
||||
END
|
||||
|
||||
STRING 112 50
|
||||
BEGIN
|
||||
PROMPT 25 7 ""
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
NUMBER 113 7
|
||||
BEGIN
|
||||
PROMPT 1 8 "Numero operazione "
|
||||
END
|
||||
|
||||
NUMBER 114 3
|
||||
BEGIN
|
||||
PROMPT 30 8 "Numero riga "
|
||||
END
|
||||
|
||||
DATE 115
|
||||
BEGIN
|
||||
PROMPT 49 8 "Data operazione "
|
||||
END
|
||||
|
||||
NUMBER 116 3
|
||||
BEGIN
|
||||
PROMPT 1 9 "Codice conto C/F "
|
||||
USE LF_PCON KEY 1
|
||||
INPUT GRUPPO 116
|
||||
INPUT CONTO 117
|
||||
DISPLAY "Gruppo" GRUPPO
|
||||
DISPLAY "Conto" CONTO
|
||||
DISPLAY "Descrizione@50" DESCR
|
||||
OUTPUT 116 GRUPPO
|
||||
OUTPUT 117 CONTO
|
||||
OUTPUT 118 DESCR
|
||||
CHECKTYPE NORMAL
|
||||
END
|
||||
|
||||
NUMBER 117 3
|
||||
BEGIN
|
||||
PROMPT 26 9 ""
|
||||
COPY ALL 116
|
||||
END
|
||||
|
||||
STRING 118 50
|
||||
BEGIN
|
||||
PROMPT 1 10 "Descrizione "
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
LIST 119 20
|
||||
BEGIN
|
||||
PROMPT 1 11 "Tipo movimento "
|
||||
ITEM "1|Fattura"
|
||||
ITEM "2|Nota credito"
|
||||
ITEM "3|Incasso/pagamento"
|
||||
ITEM "5|Insoluto"
|
||||
ITEM "6|Pagamento insoluto"
|
||||
END
|
||||
|
||||
STRING 120 50
|
||||
BEGIN
|
||||
PROMPT 1 12 "Descrizione "
|
||||
END
|
||||
|
||||
LIST 121 7
|
||||
BEGIN
|
||||
PROMPT 1 13 "Sezione "
|
||||
ITEM "D|Dare"
|
||||
ITEM "A|Avere"
|
||||
END
|
||||
|
||||
DATE 122
|
||||
BEGIN
|
||||
PROMPT 1 14 "Data pagamento "
|
||||
END
|
||||
|
||||
NUMBER 123 1
|
||||
BEGIN
|
||||
PROMPT 58 14 "Tipo pagamento "
|
||||
END
|
||||
|
||||
STRING 124 3
|
||||
BEGIN
|
||||
PROMPT 1 15 "Codice valuta "
|
||||
USE %VAL
|
||||
INPUT CODTAB 124
|
||||
DISPLAY "Codice" CODTAB
|
||||
DISPLAY "Descrizione@5" S0
|
||||
OUTPUT 124 CODTAB
|
||||
CHECKTYPE NORMAL
|
||||
FLAGS "U"
|
||||
END
|
||||
|
||||
DATE 125
|
||||
BEGIN
|
||||
PROMPT 1 16 "Data cambio "
|
||||
END
|
||||
|
||||
NUMBER 126 15 5
|
||||
BEGIN
|
||||
PROMPT 53 16 "Cambio "
|
||||
PICTURE ".5"
|
||||
END
|
||||
|
||||
BUTTON DLG_OK 8 2
|
||||
BEGIN
|
||||
PROMPT -14 -1 "~Conferma"
|
||||
MESSAGE EXIT,K_SAVE
|
||||
END
|
||||
|
||||
BUTTON DLG_DELREC 8 2
|
||||
BEGIN
|
||||
PROMPT -24 -1 "~Elimina"
|
||||
MESSAGE EXIT,K_DEL
|
||||
END
|
||||
|
||||
BUTTON DLG_CANCEL 8 2
|
||||
BEGIN
|
||||
PROMPT -34 -1 ""
|
||||
MESSAGE EXIT,K_ESC
|
||||
END
|
||||
|
||||
BUTTON 100 8 2
|
||||
BEGIN
|
||||
PROMPT -44 -1 "~Gestione"
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
57
cg/cg6804d.uml
Executable file
57
cg/cg6804d.uml
Executable file
@ -0,0 +1,57 @@
|
||||
#include "cg6804a.h"
|
||||
|
||||
PAGE "Variazione Movimenti Saldaconto" -1 -1 78 20
|
||||
|
||||
SPREADSHEET F_RIGASCAD 0 16
|
||||
BEGIN
|
||||
PROMPT 0 1 ""
|
||||
ITEM "Tipo"
|
||||
ITEM "Gruppo"
|
||||
ITEM "Conto"
|
||||
ITEM "Sottoconto"
|
||||
ITEM "Descrizione conto / Ragione sociale C/F@50"
|
||||
ITEM "Anno"
|
||||
ITEM "Numero@7"
|
||||
ITEM "N.riga"
|
||||
ITEM "N.rata"
|
||||
ITEM "Data scad."
|
||||
ITEM "Cod.pag."
|
||||
ITEM "Tipopag"
|
||||
ITEM "Ult.class."
|
||||
ITEM "Descrizione condizioni pagamento@50"
|
||||
ITEM "Sez"
|
||||
ITEM "Importo@15"
|
||||
ITEM "Importo in valuta"
|
||||
ITEM "Descrizione@50"
|
||||
ITEM "Ns.ABI"
|
||||
ITEM "Ns.CAB"
|
||||
ITEM "Vs.ABI"
|
||||
ITEM "Vs.CAB"
|
||||
ITEM "Cod.Agente"
|
||||
ITEM "Data soll."
|
||||
ITEM "Num. soll."
|
||||
END
|
||||
|
||||
BUTTON DLG_SAVEREC 10 2
|
||||
BEGIN
|
||||
PROMPT -13 -1 "~Registra"
|
||||
MESSAGE EXIT,K_SAVE
|
||||
END
|
||||
|
||||
BUTTON DLG_CANCEL 10 2
|
||||
BEGIN
|
||||
PROMPT -23 -1 ""
|
||||
MESSAGE EXIT,K_ESC
|
||||
END
|
||||
|
||||
BUTTON DLG_QUIT 10 2
|
||||
BEGIN
|
||||
PROMPT -33 -1 ""
|
||||
MESSAGE EXIT,K_QUIT
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
ENDMASK
|
||||
|
||||
#include "cg6804f.uml"
|
||||
63
cg/cg6804e.uml
Executable file
63
cg/cg6804e.uml
Executable file
@ -0,0 +1,63 @@
|
||||
#include "cg6804a.h"
|
||||
|
||||
PAGE "Variazione Movimenti Saldaconto" -1 -1 78 20
|
||||
|
||||
SPREADSHEET F_RIGAPAGSCA 0 16
|
||||
BEGIN
|
||||
PROMPT 0 1 ""
|
||||
ITEM "Tipo"
|
||||
ITEM "Gruppo"
|
||||
ITEM "Conto"
|
||||
ITEM "Sottoconto"
|
||||
ITEM "Descrizione conto / Ragione sociale C/F@50"
|
||||
ITEM "Anno"
|
||||
ITEM "Numero@7"
|
||||
ITEM "N.riga fatt."
|
||||
ITEM "N.rata fatt."
|
||||
ITEM "N.riga"
|
||||
ITEM "Acc./Sal."
|
||||
ITEM "Sez"
|
||||
ITEM "Importo pagato"
|
||||
ITEM "Sez"
|
||||
ITEM "Ritenute prof."
|
||||
ITEM "Sez"
|
||||
ITEM "Abbuoni@15"
|
||||
ITEM "Sez"
|
||||
ITEM "Diff. cambio@15"
|
||||
ITEM "Importo in valuta"
|
||||
ITEM "Tipo"
|
||||
ITEM "Gruppo"
|
||||
ITEM "Conto"
|
||||
ITEM "Sottoconto"
|
||||
ITEM "Descrizione contropartita@50"
|
||||
ITEM "Ns.ABI"
|
||||
ITEM "Ns.CAB"
|
||||
ITEM "Vs.ABI"
|
||||
ITEM "Vs.CAB"
|
||||
ITEM "Cod.Agente"
|
||||
ITEM "Attivo/Passivo"
|
||||
END
|
||||
|
||||
BUTTON DLG_SAVEREC 10 2
|
||||
BEGIN
|
||||
PROMPT -13 -1 "~Registra"
|
||||
MESSAGE EXIT,K_SAVE
|
||||
END
|
||||
|
||||
BUTTON DLG_CANCEL 10 2
|
||||
BEGIN
|
||||
PROMPT -23 -1 ""
|
||||
MESSAGE EXIT,K_ESC
|
||||
END
|
||||
|
||||
BUTTON DLG_QUIT 10 2
|
||||
BEGIN
|
||||
PROMPT -33 -1 ""
|
||||
MESSAGE EXIT,K_QUIT
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
ENDMASK
|
||||
|
||||
#include "cg6804g.uml"
|
||||
220
cg/cg6804f.uml
Executable file
220
cg/cg6804f.uml
Executable file
@ -0,0 +1,220 @@
|
||||
PAGE "Variazione Movimenti Saldaconto" -1 -1 78 18
|
||||
|
||||
LIST 101 1 12
|
||||
BEGIN
|
||||
PROMPT 1 1 "Tipo conto "
|
||||
ITEM " |Conto"
|
||||
ITEM "C|Cliente"
|
||||
ITEM "F|Fornitore"
|
||||
FLAGS "DG"
|
||||
END
|
||||
|
||||
NUMBER 102 3
|
||||
BEGIN
|
||||
PROMPT 28 1 "Gruppo "
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
NUMBER 103 3
|
||||
BEGIN
|
||||
PROMPT 42 1 "Conto "
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
NUMBER 104 6
|
||||
BEGIN
|
||||
PROMPT 56 1 "Sottoconto "
|
||||
FLAGS "DG"
|
||||
END
|
||||
|
||||
STRING 105 50
|
||||
BEGIN
|
||||
PROMPT 1 2 "Descrizione "
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
TEXT DLG_NULL
|
||||
BEGIN
|
||||
PROMPT 1 3 "@bRiferimento partita "
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
NUMBER 106 4
|
||||
BEGIN
|
||||
PROMPT 1 4 "Anno "
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
STRING 107 7
|
||||
BEGIN
|
||||
PROMPT 22 4 "Numero "
|
||||
FLAGS "UD"
|
||||
END
|
||||
|
||||
NUMBER 108 4
|
||||
BEGIN
|
||||
PROMPT 40 4 "N.ro riga "
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
NUMBER 109 4
|
||||
BEGIN
|
||||
PROMPT 59 4 "N.ro rata "
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
DATE 110
|
||||
BEGIN
|
||||
PROMPT 1 6 "Data scadenza "
|
||||
END
|
||||
|
||||
STRING 111 4
|
||||
BEGIN
|
||||
PROMPT 1 7 "Cod.pagamento "
|
||||
USE %CPG
|
||||
INPUT CODTAB 111
|
||||
DISPLAY "Codice" CODTAB
|
||||
DISPLAY "Descrizione@50" S0
|
||||
OUTPUT 111 CODTAB
|
||||
CHECKTYPE NORMAL
|
||||
FLAGS "U"
|
||||
ADD RUN ba3 -6
|
||||
END
|
||||
|
||||
NUMBER 112 1
|
||||
BEGIN
|
||||
PROMPT 27 7 "Tipo pagamento "
|
||||
END
|
||||
|
||||
STRING 113 1
|
||||
BEGIN
|
||||
PROMPT 48 7 "Ulteriore classificazione "
|
||||
FLAGS "U"
|
||||
END
|
||||
|
||||
STRING 114 50
|
||||
BEGIN
|
||||
PROMPT 1 8 "Descrizione "
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
STRING 115 1
|
||||
BEGIN
|
||||
PROMPT 1 9 "Importo "
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
NUMBER 116 15
|
||||
BEGIN
|
||||
PROMPT 18 9 ""
|
||||
PICTURE "."
|
||||
END
|
||||
|
||||
NUMBER 117 15
|
||||
BEGIN
|
||||
PROMPT 40 9 "Importo in valuta "
|
||||
PICTURE ".3"
|
||||
END
|
||||
|
||||
STRING 118 50
|
||||
BEGIN
|
||||
PROMPT 1 10 "Descrizione "
|
||||
END
|
||||
|
||||
NUMBER 119 5
|
||||
BEGIN
|
||||
PROMPT 1 11 "Codice ns. banca "
|
||||
USE %BAN KEY 1 SELECT CODTAB ?= "?????"
|
||||
INPUT CODTAB 119
|
||||
DISPLAY "Cod. ABI" CODTAB[1,5]
|
||||
DISPLAY "Denominazione@50" S0
|
||||
OUTPUT 119 CODTAB[1,5]
|
||||
CHECKTYPE NORMAL
|
||||
FLAGS "Z"
|
||||
END
|
||||
|
||||
NUMBER 120 5
|
||||
BEGIN
|
||||
PROMPT 26 11 ""
|
||||
USE %BAN
|
||||
INPUT CODTAB[1,5] 119
|
||||
INPUT CODTAB[6,10] 120
|
||||
DISPLAY "Cod. ABI" CODTAB[1,5]
|
||||
DISPLAY "Cod. CAB" CODTAB[6,10]
|
||||
DISPLAY "Denominazione@50" S0
|
||||
OUTPUT 119 CODTAB[1,5]
|
||||
OUTPUT 120 CODTAB[6,10]
|
||||
CHECKTYPE NORMAL
|
||||
FLAGS "Z"
|
||||
END
|
||||
|
||||
NUMBER 121 5
|
||||
BEGIN
|
||||
PROMPT 1 12 "Codice vs. banca "
|
||||
USE %BAN KEY 1 SELECT CODTAB ?= "?????"
|
||||
INPUT CODTAB 121
|
||||
DISPLAY "Cod. ABI" CODTAB[1,5]
|
||||
DISPLAY "Cod. CAB" CODTAB[6,10]
|
||||
DISPLAY "Denominazione@50" S0
|
||||
OUTPUT 121 CODTAB[1,5]
|
||||
CHECKTYPE NORMAL
|
||||
FLAGS "Z"
|
||||
END
|
||||
|
||||
NUMBER 122 5
|
||||
BEGIN
|
||||
PROMPT 26 12 ""
|
||||
USE %BAN
|
||||
INPUT CODTAB[1,5] 121
|
||||
INPUT CODTAB[6,10] 122
|
||||
DISPLAY "Cod. ABI" CODTAB[1,5]
|
||||
DISPLAY "Cod. CAB" CODTAB[6,10]
|
||||
DISPLAY "Denominazione@50" S0
|
||||
OUTPUT 121 CODTAB[1,5]
|
||||
OUTPUT 122 CODTAB[6,10]
|
||||
CHECKTYPE NORMAL
|
||||
FLAGS "Z"
|
||||
END
|
||||
|
||||
STRING 123 5
|
||||
BEGIN
|
||||
PROMPT 1 13 "Codice agente "
|
||||
USE AGE
|
||||
INPUT CODTAB 123
|
||||
DISPLAY "Codice" CODTAB
|
||||
DISPLAY "Denominazione@50" S0
|
||||
OUTPUT 123 CODTAB
|
||||
FLAGS "U"
|
||||
CHECKTYPE NORMAL
|
||||
END
|
||||
|
||||
DATE 124
|
||||
BEGIN
|
||||
PROMPT 1 14 "Data sollecito "
|
||||
END
|
||||
|
||||
NUMBER 125 2
|
||||
BEGIN
|
||||
PROMPT 53 14 "Numero sollecito "
|
||||
END
|
||||
|
||||
BUTTON DLG_OK 8 2
|
||||
BEGIN
|
||||
PROMPT -13 -1 "~Conferma"
|
||||
MESSAGE EXIT,K_SAVE
|
||||
END
|
||||
|
||||
BUTTON DLG_DELREC 8 2
|
||||
BEGIN
|
||||
PROMPT -23 -1 "~Elimina"
|
||||
MESSAGE EXIT,K_DEL
|
||||
END
|
||||
|
||||
BUTTON DLG_CANCEL 8 2
|
||||
BEGIN
|
||||
PROMPT -33 -1 ""
|
||||
MESSAGE EXIT,K_ESC
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
267
cg/cg6804g.uml
Executable file
267
cg/cg6804g.uml
Executable file
@ -0,0 +1,267 @@
|
||||
PAGE "Variazione Movimenti Saldaconto" -1 -1 78 20
|
||||
|
||||
LIST 101 1 12
|
||||
BEGIN
|
||||
PROMPT 1 1 "Tipo conto "
|
||||
ITEM " |Conto"
|
||||
ITEM "C|Cliente"
|
||||
ITEM "F|Fornitore"
|
||||
FLAGS "DG"
|
||||
END
|
||||
|
||||
NUMBER 102 3
|
||||
BEGIN
|
||||
PROMPT 28 1 "Gruppo "
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
NUMBER 103 3
|
||||
BEGIN
|
||||
PROMPT 42 1 "Conto "
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
NUMBER 104 6
|
||||
BEGIN
|
||||
PROMPT 56 1 "Sottoconto "
|
||||
FLAGS "DG"
|
||||
END
|
||||
|
||||
STRING 105 50
|
||||
BEGIN
|
||||
PROMPT 1 2 "Descrizione "
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
TEXT DLG_NULL
|
||||
BEGIN
|
||||
PROMPT 1 3 "@bRiferimento partita "
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
NUMBER 106 4
|
||||
BEGIN
|
||||
PROMPT 1 4 "Anno "
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
STRING 107 7
|
||||
BEGIN
|
||||
PROMPT 28 4 "Numero "
|
||||
FLAGS "UD"
|
||||
END
|
||||
|
||||
NUMBER 110 4
|
||||
BEGIN
|
||||
PROMPT 56 4 "Numero riga "
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
NUMBER 109 4
|
||||
BEGIN
|
||||
PROMPT 1 5 "Numero rata fatt. "
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
NUMBER 108 4
|
||||
BEGIN
|
||||
PROMPT 53 5 "Numero riga fatt. "
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
STRING 111 1
|
||||
BEGIN
|
||||
PROMPT 1 7 "Acconto/Saldo "
|
||||
FLAGS "U"
|
||||
END
|
||||
|
||||
STRING 112 1
|
||||
BEGIN
|
||||
PROMPT 1 8 "Importo pagato "
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
NUMBER 113 15
|
||||
BEGIN
|
||||
PROMPT 20 8 ""
|
||||
PICTURE "."
|
||||
END
|
||||
|
||||
STRING 114 1
|
||||
BEGIN
|
||||
PROMPT 1 9 "Ritenute prof. "
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
NUMBER 115 15
|
||||
BEGIN
|
||||
PROMPT 20 9 ""
|
||||
PICTURE "."
|
||||
END
|
||||
|
||||
STRING 116 1
|
||||
BEGIN
|
||||
PROMPT 1 10 "Abbuoni "
|
||||
FLAGS "U"
|
||||
END
|
||||
|
||||
NUMBER 117 15
|
||||
BEGIN
|
||||
PROMPT 20 10 ""
|
||||
PICTURE "."
|
||||
END
|
||||
|
||||
STRING 118 1
|
||||
BEGIN
|
||||
PROMPT 1 11 "Diff. cambio "
|
||||
FLAGS "U"
|
||||
END
|
||||
|
||||
NUMBER 119 15
|
||||
BEGIN
|
||||
PROMPT 20 11 ""
|
||||
PICTURE "."
|
||||
END
|
||||
|
||||
NUMBER 120 15
|
||||
BEGIN
|
||||
PROMPT 41 8 "Importo in valuta "
|
||||
PICTURE ".3"
|
||||
END
|
||||
|
||||
LIST 121 1 12
|
||||
BEGIN
|
||||
PROMPT -1 -1 ""
|
||||
ITEM " |Conto"
|
||||
ITEM "C|Cliente"
|
||||
ITEM "F|Fornitore"
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
NUMBER 122 3
|
||||
BEGIN
|
||||
PROMPT 1 12 "Cod.contropartita "
|
||||
END
|
||||
|
||||
NUMBER 123 3
|
||||
BEGIN
|
||||
PROMPT 27 12 ""
|
||||
END
|
||||
|
||||
NUMBER 124 6
|
||||
BEGIN
|
||||
PROMPT 34 12 ""
|
||||
USE LF_PCON
|
||||
INPUT GRUPPO 122
|
||||
INPUT CONTO 123
|
||||
INPUT SOTTOCONTO 124
|
||||
DISPLAY "Gruppo" GRUPPO
|
||||
DISPLAY "Conto" CONTO
|
||||
DISPLAY "Sottoconto" SOTTOCONTO
|
||||
DISPLAY "Descrizione@50" DESCR
|
||||
OUTPUT 122 GRUPPO
|
||||
OUTPUT 123 CONTO
|
||||
OUTPUT 124 SOTTOCONTO
|
||||
OUTPUT 125 DESCR
|
||||
CHECKTYPE NORMAL
|
||||
END
|
||||
|
||||
STRING 125 50
|
||||
BEGIN
|
||||
PROMPT 1 13 "Descrizione "
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
NUMBER 126 5
|
||||
BEGIN
|
||||
PROMPT 1 14 "Codice ns. banca "
|
||||
USE %BAN KEY 1 SELECT CODTAB ?= "?????"
|
||||
INPUT CODTAB 126
|
||||
DISPLAY "Cod. ABI" CODTAB[1,5]
|
||||
DISPLAY "Denominazione@50" S0
|
||||
OUTPUT 126 CODTAB[1,5]
|
||||
CHECKTYPE NORMAL
|
||||
FLAGS "Z"
|
||||
END
|
||||
|
||||
NUMBER 127 5
|
||||
BEGIN
|
||||
PROMPT 28 14 ""
|
||||
USE %BAN
|
||||
INPUT CODTAB[1,5] 126
|
||||
INPUT CODTAB[6,10] 127
|
||||
DISPLAY "Cod. ABI" CODTAB[1,5]
|
||||
DISPLAY "Cod. CAB" CODTAB[6,10]
|
||||
DISPLAY "Denominazione@50" S0
|
||||
OUTPUT 126 CODTAB[1,5]
|
||||
OUTPUT 127 CODTAB[6,10]
|
||||
CHECKTYPE NORMAL
|
||||
FLAGS "Z"
|
||||
END
|
||||
|
||||
NUMBER 128 5
|
||||
BEGIN
|
||||
PROMPT 1 15 "Codice vs. banca "
|
||||
USE %BAN KEY 1 SELECT CODTAB ?= "?????"
|
||||
INPUT CODTAB 128
|
||||
DISPLAY "Cod. ABI" CODTAB[1,5]
|
||||
DISPLAY "Cod. CAB" CODTAB[6,10]
|
||||
DISPLAY "Denominazione@50" S0
|
||||
OUTPUT 128 CODTAB[1,5]
|
||||
CHECKTYPE NORMAL
|
||||
FLAGS "Z"
|
||||
END
|
||||
|
||||
NUMBER 129 5
|
||||
BEGIN
|
||||
PROMPT 28 15 ""
|
||||
USE %BAN
|
||||
INPUT CODTAB[1,5] 128
|
||||
INPUT CODTAB[6,10] 129
|
||||
DISPLAY "Cod. ABI" CODTAB[1,5]
|
||||
DISPLAY "Cod. CAB" CODTAB[6,10]
|
||||
DISPLAY "Denominazione@50" S0
|
||||
OUTPUT 128 CODTAB[1,5]
|
||||
OUTPUT 129 CODTAB[6,10]
|
||||
CHECKTYPE NORMAL
|
||||
FLAGS "Z"
|
||||
END
|
||||
|
||||
STRING 130 5
|
||||
BEGIN
|
||||
PROMPT 1 16 "Codice agente "
|
||||
USE AGE
|
||||
INPUT CODTAB 130
|
||||
DISPLAY "Codice" CODTAB
|
||||
DISPLAY "Denominazione@50" S0
|
||||
OUTPUT 130 CODTAB
|
||||
FLAGS "U"
|
||||
CHECKTYPE NORMAL
|
||||
END
|
||||
|
||||
STRING 131 1
|
||||
BEGIN
|
||||
PROMPT 41 10 "Attivo / Passivo "
|
||||
FLAGS "UD"
|
||||
END
|
||||
|
||||
BUTTON DLG_OK 8 2
|
||||
BEGIN
|
||||
PROMPT -13 -1 "~Conferma"
|
||||
MESSAGE EXIT,K_SAVE
|
||||
END
|
||||
|
||||
BUTTON DLG_DELREC 8 2
|
||||
BEGIN
|
||||
PROMPT -23 -1 "~Elimina"
|
||||
MESSAGE EXIT,K_DEL
|
||||
END
|
||||
|
||||
BUTTON DLG_CANCEL 8 2
|
||||
BEGIN
|
||||
PROMPT -33 -1 ""
|
||||
MESSAGE EXIT,K_ESC
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user