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

This commit was generated by cvs2svn to compensate for changes in r7803,

Browse Source 
which included commits to RCS files with non-trunk default branches.

git-svn-id: svn://10.65.10.50/trunk@7804 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy 1999-02-15 16:33:42 +00:00
parent 0b19fdebbc
commit 76a80dd0e5
10 changed files with 527 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
in/f133.dir Executable file
View File

@ -0,0 +1,3 @@
133
0
$intra|0|0|80|0|Movimenti intrastat|||

13
in/f133.trr Executable file
View File

@ -0,0 +1,13 @@
133
9
NUMREG|3|7|0|Numero di registrazione
DATAREG|5|8|0|Data registrazione
TIPOMOV|1|1|0|Tipo Movimento
TIPOCF|1|1|0|Tipo Cliente/Fornitore
CODCF|3|5|0|Codice Cliente/Fornitore
TOTDOC|4|18|2|Totale documento
TOTDOCIMM|4|18|2|Totale documento immesso
CODVAL|1|3|0|Codice valuta
CAMBIO|4|18|5|Cambio
1
NUMREG|

3
in/f134.dir Executable file
View File

@ -0,0 +1,3 @@
134
0
$rintra|0|0|94|0|Righe movimenti intra|||

17
in/f134.trr Executable file
View File

@ -0,0 +1,17 @@
134
13
NUMREG|3|7|0|Numero registrazione
NUMRIG|2|3|0|Numero di riga
AMMLIRE|4|18|2|Ammontare in lire
AMMVALUTA|4|18|2|Ammontare in valuta
TRASPORTO|6|1|0|Tipo di trasporto
NOMENCL|1|8|0|Nomenclatura
MASSAKG|4|13|5|Massa in Kilogrammi
MASSAUMS|4|13|6|Massa nell'unita' di misura specificata
UMS|1|2|0|Unita' di misura
VALSTAT|2|4|0|Valore statistico
REGIME|2|2|0|Regime
PAESEDEST|1|2|0|Paese di destinazione
PROVORIG|1|2|0|Provincia d'origine
1
NUMREG+NUMRIG|

16
in/in0.cpp Executable file
View File

@ -0,0 +1,16 @@
#include <xvt.h>
#include "in0.h"
int main(int argc, char** argv)
{
const int n = (argc > 1) ? (argv[1][1]-'0') : 0;
switch (n)
{
case 4 : is0500(argc, argv); break; // Immissione movimenti
default:
break;
}
exit(0);
return 0;
}

1
in/in0.h Executable file
View File

@ -0,0 +1 @@
int is0500(int argc, char* argv[]);

9
in/in0.url Executable file
View File

@ -0,0 +1,9 @@
#define APPNAME campo
#define QAPPNAME "campo"
#define QFIRMNAME "A.G.A. Informatica Srl"
#include <default.url>
MENU TASK_MENUBAR
SUBMENU MENU_FILE "~File"

104
in/in0500.cpp Executable file
View File

@ -0,0 +1,104 @@
#include <automask.h>
#include <currency.h>
#include <relapp.h>
#include "in0.h"
#include "in0500a.h"
class TImmissione_mask : public TAutomask
{
protected:
virtual bool on_field_event(TOperable_field& o, TField_event e, long jolly);
public:
TImmissione_mask() : TAutomask("in0500a") { }
virtual ~TImmissione_mask() { }
};
bool TImmissione_mask::on_field_event(TOperable_field& o, TField_event e, long jolly)
{
switch (o.dlg())
{
case F_VALUTA:
if (e == fe_modify)
{
TEdit_field& cambio = efield(F_CAMBIO);
if (cambio.empty())
{
TCursor* cur = efield(F_VALUTA).browse()->cursor();
cambio.set(cur->curr().get("S4"));
}
}
break;
case F_AMM_LIRE:
if (e == fe_modify)
{
TMask& m = o.mask();
if (m.get_real(F_AMM_VALUTA).is_zero())
{
TCurrency curr(real(o.get()), "_FIRM");
curr.change_value(get(F_VALUTA), get_real(F_CAMBIO));
m.set(F_AMM_VALUTA, curr.string(), TRUE);
}
}
break;
case F_AMM_VALUTA:
if (e == fe_modify)
{
TMask& m = o.mask();
if (m.get_real(F_AMM_LIRE).is_zero())
{
TCurrency curr(real(o.get()), get(F_VALUTA), get_real(F_CAMBIO));
curr.change_value("_FIRM");
m.set(F_AMM_LIRE, curr.string(), TRUE);
}
}
break;
default:
break;
}
return TRUE;
}
///////////////////////////////////////////////////////////
// Applicazione principale
///////////////////////////////////////////////////////////
class TImmissione_intra : public TRelation_application
{
TRelation* _rel;
TImmissione_mask* _msk;
protected:
virtual bool user_create();
virtual TRelation* get_relation() const { return _rel; }
virtual TMask* get_mask(int) { return _msk; }
virtual bool changing_mask(int mode) { return FALSE; }
virtual bool user_destroy();
public:
};
bool TImmissione_intra::user_create()
{
open_files(LF_TABCOM, LF_TAB, LF_CLIFO, LF_MOV,
LF_INTRA, LF_RINTRA, 0);
_rel = new TRelation(LF_INTRA);
_msk = new TImmissione_mask;
return TRUE;
}
bool TImmissione_intra::user_destroy()
{
delete _msk;
delete _rel;
return TRUE;
}
int is0500(int argc, char* argv[])
{
TImmissione_intra a;
a.run(argc, argv, "Immissione movimenti");
return 0;
}

38
in/in0500a.h Executable file
View File

@ -0,0 +1,38 @@
#define F_DITTA 201
#define F_DITTA_DESCR 202
#define F_NUM_REG 203
#define F_DATA_DOC 204
#define F_NUM_DOC 205
#define F_DATA_REG 207
#define F_TIPO_MOV 208
#define F_TIPO_CF 210
#define F_CLIFO 211
#define F_RAGSOC 212
#define F_STATO 215
#define F_PARTITA_IVA 216
#define F_TOT_DOC 220
#define F_TOT_IMM 221
#define F_DIF 222
#define F_VALUTA 230
#define F_CAMBIO 231
#define F_RIGHE 250
#define F_AMM_LIRE 101
#define F_AMM_VALUTA 102
#define F_TRASPORTO 103
#define F_NOMENCLATURA 104
#define F_MASSA_KG 105
#define F_MASSA_UMS 106
#define F_UMS 107
#define F_VALORE_STAT 108
#define F_REGIME 109
#define F_PAESE_DEST 110
#define F_PROV_ORIG 111

323
in/in0500a.uml Executable file
View File

@ -0,0 +1,323 @@
#include "in0500a.h"
TOOLBAR "Toolbar" 0 -3 0 3
#include <toolbar.h>
ENDPAGE
PAGE "Immissione Movimenti" -1 -1 78 18
GROUPBOX DLG_NULL 78 3
BEGIN
PROMPT 1 1 "@bDitta"
END
NUMBER F_DITTA 5
BEGIN
PROMPT 3 2 ""
FLAGS "DF"
USE LF_NDITTE
INPUT CODDITTA F_DITTA
OUTPUT F_DITTA_DESCR RAGSOC
CHECKTYPE REQUIRED
END
STRING F_DITTA_DESCR 50
BEGIN
PROMPT 10 2 "Ragione Sociale "
FLAGS "D"
END
NUMBER F_NUM_REG 5
BEGIN
PROMPT 1 4 "Numero registrazione "
USE LF_MOV
INPUT NUMREG F_NUM_REG
DISPLAY "Numero" NUMREG
DISPLAY "Data Doc.@10" DATADOC
DISPLAY "Num. Doc." NUMDOC
DISPLAY "Descrizione@50" DESCR
OUTPUT F_NUM_REG NUMREG
OUTPUT F_DATA_DOC DATADOC
OUTPUT F_NUM_DOC NUMDOC
CHECKTYPE SEARCH
KEY 1
FIELD NUMREG
END
DATA F_DATA_DOC
BEGIN
PROMPT 32 4 "Documento: data "
FLAGS "D"
END
DATA F_NUM_DOC
BEGIN
PROMPT 61 4 "Numero "
FLAGS "D"
END
DATA F_DATA_REG
BEGIN
PROMPT 1 5 "Data di registrazione "
FLAGS "A"
CHECKTYPE REQUIRED
FIELD DATAREG
END
LIST F_TIPO_MOV 1 12
BEGIN
PROMPT 49 5 "Tipo movimento "
ITEM "A|Acquisto"
MESSAGE "F",F_TIPO_CF
ITEM "C|Cessione"
MESSAGE "C",F_TIPO_CF
FIELD TIPOMOV
END
LISTA F_TIPO_CF 1 10
BEGIN
PROMPT 1 6 ""
FLAGS "D"
ITEM "C|Cliente"
ITEM "F|Fornitore"
FIELD TIPOCF
END
NUMBER F_CLIFO 5
BEGIN
PROMPT 16 6 ""
USE LF_CLIFO
INPUT TIPOCF F_TIPO_CF SELECT
INPUT CODCF F_CLIFO
DISPLAY "Codice" CODCF
DISPLAY "Stato" STATOPAIV
DISPLAY "Partita IVA@12" PAIV
DISPLAY "Ragione Sociale@50" RAGSOC
OUTPUT F_CLIFO CODCF
OUTPUT F_RAGSOC RAGSOC
OUTPUT F_STATO STATOPAIV
OUTPUT F_PARTITA_IVA PAIV
CHECKTYPE REQUIRED
ADD RUN CG0 -1
FIELD CODCF
END
STRING F_RAGSOC 50
BEGIN
PROMPT 26 6 ""
USE LF_CLIFO KEY 2
INPUT TIPOCF F_TIPO_CF SELECT
INPUT RAGSOC F_RAGSOC
DISPLAY "Ragione Sociale@50" RAGSOC
DISPLAY "Codice" CODCF
DISPLAY "Stato" STATOPAIV
DISPLAY "Partita IVA@12" PAIV
COPY OUTPUT F_CLIFO
CHECKTYPE REQUIRED
END
LIST F_STATO 2 14
BEGIN
PROMPT 1 7 "Stato CEE "
ITEM "BE|Belgio"
ITEM "DE|Germania"
ITEM "DK|Danimarca"
ITEM "EL|Grecia"
ITEM "ES|Spagna"
ITEM "FR|Francia"
ITEM "GB|Gran Bretagna"
ITEM "IE|Irlanda"
ITEM "IT|Italia"
ITEM "LU|Lussemburgo"
ITEM "NL|Olanda"
ITEM "PT|Portogallo"
FLAGS "D"
END
STRING F_PARTITA_IVA 12
BEGIN
PROMPT 49 7 "Partita IVA "
USE LF_CLIFO KEY 5
INPUT TIPOCF F_TIPO_CF SELECT
INPUT STATOPAIV F_STATO
INPUT PAIV F_PARTITA_IVA
DISPLAY "Stato" STATOPAIV
DISPLAY "Partita IVA@12" PAIV
DISPLAY "Codice" CODCF
DISPLAY "Ragione Sociale@50" RAGSOC
COPY OUTPUT F_CLIFO
VALIDATE PI_FUNC F_STATO
CHECKTYPE REQUIRED
WARNING "Lunghezza partita IVA errata"
END
CURRENCY F_TOT_DOC 18
BEGIN
PROMPT 1 8 "Totale documento da controllare "
FIELD TOTDOC
END
CURRENCY F_TOT_IMM 18
BEGIN
PROMPT 1 9 "Totale documento immesso "
FIELD TOTDOCIMM
END
STRING F_VALUTA 3
BEGIN
PROMPT 66 8 "Valuta "
FLAGS "U"
USE %VAL
INPUT CODTAB F_VALUTA
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_VALUTA CODTAB
CHECKTYPE REQUIRED
FIELD CODVAL
END
NUMBER F_CAMBIO 18 5
BEGIN
PROMPT 53 9 "Cambio "
CHECKTYPE REQUIRED
FIELD CAMBIO
END
SPREADSHEET F_RIGHE
BEGIN
PROMPT 0 11 ""
ITEM "Amm. Lire@18"
ITEM "Amm. Valuta@18"
ITEM "Tras.@4"
ITEM "Nomenclatura"
ITEM "Mas.Kg@13"
ITEM "Mas.Ums@13"
ITEM "UMS"
ITEM "Stat."
ITEM "R"
ITEM "Paese"
ITEM "Prov."
FLAGS "A"
USE LF_RINTRA KEY NUMRIG
INPUT NUMREG F_NUM_REG
END
ENDPAGE
ENDMASK
PAGE "Righe" -1 -1 68 10
CURRENCY F_AMM_LIRE 18
BEGIN
PROMPT 1 1 "Ammontare in lire "
FIELD AMMLIRE
END
CURRENCY F_AMM_VALUTA 18
BEGIN
PROMPT 1 2 "Ammontare in valuta "
DRIVENBY -F_VALUTA
FIELD AMMVALUTA
END
LISTA F_TRASPORTO 1 20
BEGIN
PROMPT 1 3 "Trasporto "
ITEM "1|Marittimo"
ITEM "2|Ferroviario"
ITEM "3|Stradale"
ITEM "4|Aereo"
ITEM "5|Spedizione postale"
ITEM "7|Installazioni fisse"
ITEM "8|Via acqua"
ITEM "9|Propulsione propria"
FIELD TRASPORTO
END
NUMBER F_NOMENCLATURA 8
BEGIN
PROMPT 36 3 "Nomenclatura "
FLAGS "Z"
USE %NOC
INPUT CODTAB F_NOMENCLATURA
DISPLAY "Codice@8" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_NOMENCLATURA CODTAB
CHECKTYPE REQUIRED
FIELD NOMENCL
END
NUMBER F_MASSA_KG 13 5
BEGIN
PROMPT 1 4 "Massa Kg. "
PICTURE ".5"
FIELD MASSAKG
END
NUMBER F_MASSA_UMS 13 5
BEGIN
PROMPT 36 4 "Massa "
PICTURE ".5"
FIELD MASSAUMS
END
STRING F_UMS 2
BEGIN
PROMPT 59 4 "UMS "
FLAGS "U"
USE %UMS
INPUT CODTAB F_UMS
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_UMS CODTAB
CHECKTYPE NORMAL
FIELD UMS
END
NUBER F_VALORE_STAT 4
BEGIN
PROMPT 1 5 "Valore statistico "
FIELD VALSTAT
END
NUMBER F_REGIME 2
BEGIN
PROMPT 36 5 "Regime "
FIELD REGIME
END
STRING F_PAESE_DEST 2
BEGIN
PROMPT 1 6 "Pase di destinazione "
FLAGS "U"
FIELD PAESEDEST
END
STRING F_PROV_ORIG 2
BEGIN
PROMPT 36 6 "Provincia d'origine "
FLAGS "U"
FIELD PROVORIG
END
BUTTON DLG_OK 10 2
BEGIN
PROMPT -13 -1 ""
END
BUTTON DLG_DELREC 10 2
BEGIN
PROMPT -23 -1 ""
END
BUTTON DLG_CANCEL 10 2
BEGIN
PROMPT -33 -1 ""
END
ENDPAGE
ENDMASK