Patch level : 2.2 209
Files correlati : gli stessi file della 2.1 Ricompilazione Demo : [ ] Commento Riportata la versione 2.1 patch 408 git-svn-id: svn://10.65.10.50/trunk@13463 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
parent
c0948f620b
commit
cdcf43cc70
@ -359,6 +359,7 @@ protected:
|
||||
virtual short period_field() const { return R_PERIODO_M; }
|
||||
virtual int anno() const { return get_int(R_ANNO); }
|
||||
virtual bool solofronte() const { return get_bool(R_SOLOFRONTE); }
|
||||
virtual bool descrizioni() const { return get_bool(R_DESCRIZIONI); }
|
||||
|
||||
public:
|
||||
void print();
|
||||
@ -373,7 +374,12 @@ TStampaIntra_mask::TStampaIntra_mask()
|
||||
void TStampaIntra_mask::print()
|
||||
{
|
||||
const int anno_s = anno();
|
||||
TStampaIntra_form form(tipo() == 'A' ? "in0100a" : "in0100b", tipo(), frequenza(anno_s), periodo(), anno_s, solofronte());
|
||||
TString16 nomeform;
|
||||
if (descrizioni())
|
||||
nomeform = tipo() == 'A' ? "in0100c" : "in0100d";
|
||||
else
|
||||
nomeform = tipo() == 'A' ? "in0100a" : "in0100b";
|
||||
TStampaIntra_form form((const char*) nomeform, tipo(), frequenza(anno_s), periodo(), anno_s, solofronte());
|
||||
form.print();
|
||||
}
|
||||
|
||||
|
@ -5,3 +5,4 @@
|
||||
#define R_PERIODO_T 104
|
||||
#define R_PERIODO_A 105
|
||||
#define R_SOLOFRONTE 106
|
||||
#define R_DESCRIZIONI 107
|
||||
|
@ -1,6 +1,6 @@
|
||||
#include "in0100a.h"
|
||||
|
||||
PAGE "Stampa Riepiloghi" -1 -1 32 8
|
||||
PAGE "Stampa Riepiloghi" -1 -1 32 10
|
||||
|
||||
LIST R_TIPO 1 10
|
||||
BEGIN
|
||||
@ -47,6 +47,11 @@ BEGIN
|
||||
PROMPT 1 5 "Stampa solo il frontespizio"
|
||||
END
|
||||
|
||||
BOOLEAN R_DESCRIZIONI
|
||||
BEGIN
|
||||
PROMPT 1 6 "Stampa descrizioni"
|
||||
END
|
||||
|
||||
BUTTON DLG_PRINT 10 2
|
||||
BEGIN
|
||||
PROMPT -12 -1 ""
|
||||
|
907
in/in0100c.frm
Executable file
907
in/in0100c.frm
Executable file
@ -0,0 +1,907 @@
|
||||
// Form per la stampa riepiloghi INTRA (Acquisti)
|
||||
|
||||
USE 9
|
||||
JOIN 6 TO 9 ALIAS 106 INTO TIPOA=TIPOA CODANAGR=CODANAGR
|
||||
JOIN 8 TO 106@ ALIAS 118 INTO CODANAGR=CODANAGR
|
||||
JOIN 13 TO 118@ ALIAS 213 INTO STATO=="" COM==COMNASC
|
||||
JOIN 13 TO 106@ ALIAS 313 INTO STATO==STATORES COM==COMRES
|
||||
JOIN 13 TO 106@ ALIAS 413 INTO STATO=="" COM==COMRF
|
||||
JOIN 6 TO 9 ALIAS 206 INTO TIPOA==TIPOSOGDEL CODANAGR==CODSOGDEL
|
||||
JOIN 13 TO 206@ ALIAS 513 INTO STATO==STATORES COM==COMRES
|
||||
JOIN 13 TO 206@ ALIAS 613 INTO STATO=="" COM==COMRF
|
||||
JOIN 135 TO 9 INTO ANNO=CODDITTA
|
||||
END
|
||||
|
||||
DESCRIPTION
|
||||
BEGIN
|
||||
END
|
||||
|
||||
|
||||
GENERAL
|
||||
BEGIN
|
||||
OFFSET 0 0
|
||||
CARATTERE "X"
|
||||
INIZIO_POS 2 4
|
||||
FINE_POS 76
|
||||
END
|
||||
|
||||
SECTION HEADER FIRST 16
|
||||
|
||||
NUMERO 1 4
|
||||
BEGIN
|
||||
KEY "Mese"
|
||||
PROMPT 43 14 ""
|
||||
PICTURE "@ #"
|
||||
END
|
||||
|
||||
NUMERO 2 1
|
||||
BEGIN
|
||||
KEY "Trimestre"
|
||||
PROMPT 55 14 ""
|
||||
END
|
||||
|
||||
NUMERO 3 5
|
||||
BEGIN
|
||||
KEY "Anno"
|
||||
PROMPT 64 14 ""
|
||||
PICTURE "^^# #"
|
||||
END
|
||||
|
||||
STRINGA 4 1
|
||||
BEGIN
|
||||
KEY "Tipo riepilogo"
|
||||
PROMPT 40 16 "" //1 dx
|
||||
END
|
||||
|
||||
STRINGA -1 80
|
||||
BEGIN
|
||||
PROMPT 3 4 "E L E N C O R I E P I L O G A T I V O"
|
||||
END
|
||||
|
||||
STRINGA -1 80
|
||||
BEGIN
|
||||
PROMPT 3 6 "D E G L I A C Q U I S T I"
|
||||
END
|
||||
|
||||
STRINGA -1 80
|
||||
BEGIN
|
||||
PROMPT 3 8 "I N T R A C O M U N I T A R I D I B E N I"
|
||||
END
|
||||
|
||||
STRINGA -1 10
|
||||
BEGIN
|
||||
PROMPT 68 4 "(EURO)"
|
||||
END
|
||||
|
||||
STRINGA -1 15
|
||||
BEGIN
|
||||
PROMPT 20 13 "Periodo :"
|
||||
END
|
||||
|
||||
STRINGA -1 10
|
||||
BEGIN
|
||||
PROMPT 43 13 "Mese"
|
||||
END
|
||||
|
||||
STRINGA -1 10
|
||||
BEGIN
|
||||
PROMPT 51 13 "Trimestre"
|
||||
END
|
||||
|
||||
STRINGA -1 10
|
||||
BEGIN
|
||||
PROMPT 65 13 "Anno"
|
||||
END
|
||||
|
||||
STRINGA -1 20
|
||||
BEGIN
|
||||
PROMPT 20 16 "Tipo riepilogo: "
|
||||
END
|
||||
|
||||
END
|
||||
|
||||
END
|
||||
|
||||
SECTION BODY FIRST 33
|
||||
|
||||
LISTA 99
|
||||
BEGIN
|
||||
KEY "Tipo anagrafica"
|
||||
PROMPT 1 1 ""
|
||||
FIELD TIPOA
|
||||
ITEM "F| " MESSAGE ENABLE,1@|DISABLE,2@
|
||||
ITEM "G| " MESSAGE ENABLE,2@|DISABLE,1@
|
||||
END
|
||||
|
||||
STRINGA 1
|
||||
BEGIN
|
||||
KEY "Codice Fiscale"
|
||||
PROMPT 3 7 ""
|
||||
FIELD 106@->COFI
|
||||
END
|
||||
|
||||
STRINGA 2
|
||||
BEGIN
|
||||
KEY "Partita IVA"
|
||||
PROMPT 53 7 ""
|
||||
FIELD 106@->PAIV
|
||||
END
|
||||
|
||||
STRINGA 3
|
||||
BEGIN
|
||||
KEY "Cognome"
|
||||
PROMPT 3 10 ""
|
||||
FIELD 106@->RAGSOC[1,30]
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
STRINGA 4
|
||||
BEGIN
|
||||
KEY "Nome"
|
||||
PROMPT 43 10 ""
|
||||
FIELD 106@->RAGSOC[31,50]
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
DATA 5
|
||||
BEGIN
|
||||
KEY "Data di nascita"
|
||||
PROMPT 4 13 ""
|
||||
FIELD 118@->DATANASC
|
||||
FORMAT "1442-"
|
||||
PICTURE "# #^# #^# #"
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
LISTA 6
|
||||
BEGIN
|
||||
KEY "Sesso"
|
||||
PROMPT 19 13 ""
|
||||
FIELD 118@->SESSO
|
||||
ITEM "M|X"
|
||||
ITEM "F| X"
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
STRINGA 7 32
|
||||
BEGIN
|
||||
KEY "Comune di nascita"
|
||||
PROMPT 23 13 ""
|
||||
FIELD 213@->DENCOM
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
STRINGA 8 2
|
||||
BEGIN
|
||||
KEY "Provincia di nascita"
|
||||
PROMPT 59 13 ""
|
||||
FIELD 213@->PROVCOM
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
STRINGA 9 4
|
||||
BEGIN
|
||||
KEY "Prefisso telefonico"
|
||||
PROMPT 64 13 ""
|
||||
FIELD 106@->PTELRF
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
STRINGA 10 9
|
||||
BEGIN
|
||||
KEY "Numero telefonico"
|
||||
PROMPT 69 13 ""
|
||||
FIELD 106@->TELRF
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
STRINGA 11
|
||||
BEGIN
|
||||
KEY "Denominazione o ragione sociale"
|
||||
PROMPT 3 17 ""
|
||||
FIELD 106@->RAGSOC
|
||||
GROUP 2
|
||||
END
|
||||
|
||||
STRINGA 12 4
|
||||
BEGIN
|
||||
KEY "Prefisso telefonico"
|
||||
PROMPT 64 17 ""
|
||||
FIELD 106@->PTELRF
|
||||
GROUP 2
|
||||
END
|
||||
|
||||
STRINGA 13 9
|
||||
BEGIN
|
||||
KEY "Numero telefonico"
|
||||
PROMPT 69 17 ""
|
||||
FIELD 106@->TELRF
|
||||
GROUP 2
|
||||
END
|
||||
|
||||
STRINGA 14 20
|
||||
BEGIN
|
||||
KEY "Comune di residenza fiscale"
|
||||
PROMPT 52 20 ""
|
||||
FIELD 413@->DENCOM
|
||||
MESSAGE EMPTY SHOW,3@|HIDE,4@
|
||||
MESSAGE SHOW,4@|HIDE,3@
|
||||
END
|
||||
|
||||
STRINGA 15 20
|
||||
BEGIN
|
||||
KEY "Comune di residenza"
|
||||
PROMPT 52 20 ""
|
||||
FIELD 313@->DENCOM
|
||||
GROUP 3
|
||||
END
|
||||
|
||||
STRINGA 16
|
||||
BEGIN
|
||||
KEY "Provincia di residenza fiscale"
|
||||
PROMPT 74 20 ""
|
||||
FIELD 413@->PROVCOM
|
||||
GROUP 4
|
||||
END
|
||||
|
||||
STRINGA 17
|
||||
BEGIN
|
||||
KEY "Provincia di residenza"
|
||||
PROMPT 74 20 ""
|
||||
FIELD 313@->PROVCOM
|
||||
GROUP 3
|
||||
END
|
||||
|
||||
STRINGA 18
|
||||
BEGIN
|
||||
KEY "Indirizzo residenza fiscale"
|
||||
PROMPT 1 20 ""
|
||||
FIELD 106@->INDRF[1,35]
|
||||
FLAGS "H"
|
||||
MESSAGE COPY,20
|
||||
END
|
||||
|
||||
STRINGA 19
|
||||
BEGIN
|
||||
KEY "Nr. civico di residenza fiscale"
|
||||
PROMPT 1 20 ""
|
||||
FIELD 106@->CIVRF
|
||||
FLAGS "H"
|
||||
MESSAGE APPEND,20
|
||||
END
|
||||
|
||||
STRINGA 20 38
|
||||
BEGIN
|
||||
KEY "Indirizzo residenza fiscale+nr. civico"
|
||||
PROMPT 3 20 ""
|
||||
GROUP 4
|
||||
END
|
||||
|
||||
STRINGA 21
|
||||
BEGIN
|
||||
KEY "Indirizzo residenza"
|
||||
PROMPT 1 20 ""
|
||||
FIELD 106@->INDRES[1,35]
|
||||
FLAGS "H"
|
||||
MESSAGE COPY,23
|
||||
END
|
||||
|
||||
STRINGA 22
|
||||
BEGIN
|
||||
KEY "Nr. civico di residenza"
|
||||
PROMPT 1 20 ""
|
||||
FIELD 106@->CIVRES
|
||||
FLAGS "H"
|
||||
MESSAGE APPEND,23
|
||||
END
|
||||
|
||||
STRINGA 23 38
|
||||
BEGIN
|
||||
KEY "Indirizzo residenza+nr. civico"
|
||||
PROMPT 3 20 ""
|
||||
GROUP 3
|
||||
END
|
||||
|
||||
STRINGA 24
|
||||
BEGIN
|
||||
KEY "CAP residenza fiscale"
|
||||
PROMPT 42 20 ""
|
||||
FIELD 106@->CAPRF
|
||||
GROUP 4
|
||||
END
|
||||
|
||||
STRINGA 25
|
||||
BEGIN
|
||||
KEY "CAP residenza"
|
||||
PROMPT 42 20 ""
|
||||
FIELD 106@->CAPRES
|
||||
GROUP 3
|
||||
END
|
||||
|
||||
LISTA 26 1
|
||||
BEGIN
|
||||
KEY "Elenchi presentati in precedenza"
|
||||
PROMPT 7 23 ""
|
||||
ITEM " | "
|
||||
ITEM "X|X"
|
||||
FIELD PRESELEN
|
||||
END
|
||||
|
||||
LISTA 26 1
|
||||
BEGIN
|
||||
KEY "Cessazione attivita'"
|
||||
PROMPT 40 23 ""
|
||||
ITEM " | "
|
||||
ITEM "X|X"
|
||||
FIELD CESSIVA
|
||||
END
|
||||
|
||||
STRINGA 27
|
||||
BEGIN
|
||||
KEY "Partita IVA delegato"
|
||||
PROMPT 11 27 ""
|
||||
FIELD 206@->PAIV
|
||||
END
|
||||
|
||||
STRINGA 28 50
|
||||
BEGIN
|
||||
KEY "Nome e Cognome o Ragione sociale delegato"
|
||||
PROMPT 3 30 ""
|
||||
FIELD 206@->RAGSOC
|
||||
END
|
||||
|
||||
STRINGA 29 4
|
||||
BEGIN
|
||||
KEY "Prefisso telefonico delegato"
|
||||
PROMPT 64 30 ""
|
||||
FIELD 206@->PTELRF
|
||||
END
|
||||
|
||||
STRINGA 30 9
|
||||
BEGIN
|
||||
KEY "Numero telefonico delegato"
|
||||
PROMPT 69 30 ""
|
||||
FIELD 206@->TELRF
|
||||
END
|
||||
|
||||
STRINGA 31 20
|
||||
BEGIN
|
||||
KEY "Comune di residenza fiscale delegato"
|
||||
PROMPT 52 33 ""
|
||||
FIELD 613@->DENCOM
|
||||
MESSAGE EMPTY SHOW,5@|HIDE,6@
|
||||
MESSAGE SHOW,6@|HIDE,5@
|
||||
END
|
||||
|
||||
STRINGA 32 20
|
||||
BEGIN
|
||||
KEY "Comune di residenza delegato"
|
||||
PROMPT 52 33 ""
|
||||
FIELD 513@->DENCOM
|
||||
GROUP 5
|
||||
END
|
||||
|
||||
STRINGA 33
|
||||
BEGIN
|
||||
KEY "Provincia di residenza fiscale delegato"
|
||||
PROMPT 74 33 ""
|
||||
FIELD 613@->PROVCOM
|
||||
GROUP 6
|
||||
END
|
||||
|
||||
STRINGA 34
|
||||
BEGIN
|
||||
KEY "Provincia di residenza delegato"
|
||||
PROMPT 74 33 ""
|
||||
FIELD 513@->PROVCOM
|
||||
GROUP 5
|
||||
END
|
||||
|
||||
STRINGA 35
|
||||
BEGIN
|
||||
KEY "Indirizzo residenza fiscale delegato"
|
||||
PROMPT 1 33 ""
|
||||
FIELD 206@->INDRF[1,35]
|
||||
FLAGS "H"
|
||||
MESSAGE COPY,37
|
||||
END
|
||||
|
||||
STRINGA 36
|
||||
BEGIN
|
||||
KEY "Nr. civico di residenza fiscale delegato"
|
||||
PROMPT 1 33 ""
|
||||
FIELD 206@->CIVRF
|
||||
FLAGS "H"
|
||||
MESSAGE APPEND,37
|
||||
END
|
||||
|
||||
STRINGA 37 38
|
||||
BEGIN
|
||||
KEY "Indirizzo residenza fiscale+nr. civico delegato"
|
||||
PROMPT 3 33 ""
|
||||
GROUP 6
|
||||
END
|
||||
|
||||
STRINGA 38
|
||||
BEGIN
|
||||
KEY "Indirizzo residenza delegato"
|
||||
PROMPT 1 33 ""
|
||||
FIELD 206@->INDRES[1,35]
|
||||
FLAGS "H"
|
||||
MESSAGE COPY,40
|
||||
END
|
||||
|
||||
STRINGA 39
|
||||
BEGIN
|
||||
KEY "Nr. civico di residenza delegato"
|
||||
PROMPT 1 33 ""
|
||||
FIELD 206@->CIVRES
|
||||
FLAGS "H"
|
||||
MESSAGE APPEND,40
|
||||
END
|
||||
|
||||
STRINGA 40 38
|
||||
BEGIN
|
||||
KEY "Indirizzo residenza+nr. civico delegato"
|
||||
PROMPT 3 33 ""
|
||||
GROUP 5
|
||||
END
|
||||
|
||||
STRINGA 41
|
||||
BEGIN
|
||||
KEY "CAP residenza fiscale delegato"
|
||||
PROMPT 42 33 ""
|
||||
FIELD 206@->CAPRF
|
||||
GROUP 6
|
||||
END
|
||||
|
||||
STRINGA 42
|
||||
BEGIN
|
||||
KEY "CAP residenza delegato"
|
||||
PROMPT 42 33 ""
|
||||
FIELD 206@->CAPRES
|
||||
GROUP 5
|
||||
END
|
||||
|
||||
END
|
||||
|
||||
SECTION FOOTER FIRST 23
|
||||
|
||||
NUMERO 1 3
|
||||
BEGIN
|
||||
KEY "Totale pagine sezione 1"
|
||||
PROMPT 11 6 ""
|
||||
END
|
||||
|
||||
NUMERO 2 5
|
||||
BEGIN
|
||||
KEY "Totale righe dettaglio sezione 1"
|
||||
PROMPT 18 6 ""
|
||||
END
|
||||
|
||||
NUMERO 3 15
|
||||
BEGIN
|
||||
KEY "Ammontare complessivo sezione 1"
|
||||
PROMPT 25 6 ""
|
||||
PICTURE "###.###.###"
|
||||
MESSAGE _IMP
|
||||
END
|
||||
|
||||
NUMERO 4 3
|
||||
BEGIN
|
||||
KEY "Totale pagine sezione 2"
|
||||
PROMPT 49 6 ""
|
||||
END
|
||||
|
||||
NUMERO 5 5
|
||||
BEGIN
|
||||
KEY "Totale righe dettaglio sezione 2"
|
||||
PROMPT 56 6 ""
|
||||
END
|
||||
|
||||
NUMERO 6 15
|
||||
BEGIN
|
||||
KEY "Ammontare complessivo sezione 2"
|
||||
PROMPT 64 6 ""
|
||||
PICTURE "###.###.###"
|
||||
MESSAGE _IMP
|
||||
END
|
||||
|
||||
DATA 8 10
|
||||
BEGIN
|
||||
KEY "Data di stampa"
|
||||
PROMPT 6 10 ""
|
||||
MESSAGE _TODAY
|
||||
END
|
||||
|
||||
END
|
||||
|
||||
SECTION HEADER ODD 21
|
||||
|
||||
NUMERO 1 4
|
||||
BEGIN
|
||||
KEY "Mese"
|
||||
PROMPT 16 15 ""
|
||||
PICTURE "@ #"
|
||||
END
|
||||
|
||||
NUMERO 2 1
|
||||
BEGIN
|
||||
KEY "Trimestre"
|
||||
PROMPT 29 15 ""
|
||||
END
|
||||
|
||||
NUMERO 3 5
|
||||
BEGIN
|
||||
KEY "Anno"
|
||||
PROMPT 37 15 ""
|
||||
PICTURE "^^# #"
|
||||
END
|
||||
|
||||
STRINGA 4
|
||||
BEGIN
|
||||
KEY "Partita IVA"
|
||||
PROMPT 53 15 ""
|
||||
FIELD 106@->PAIV
|
||||
END
|
||||
|
||||
END
|
||||
|
||||
SECTION BODY ODD 2
|
||||
|
||||
NUMERO 1 3
|
||||
BEGIN
|
||||
KEY "Progressivo riga"
|
||||
PROMPT 3 1 ""
|
||||
FIELD 135->NUMRIG
|
||||
END
|
||||
|
||||
STRINGA 2 2
|
||||
BEGIN
|
||||
KEY "Stato"
|
||||
PROMPT 7 1 ""
|
||||
FIELD 135->STATO
|
||||
END
|
||||
|
||||
STRINGA 3
|
||||
BEGIN
|
||||
KEY "Partita IVA"
|
||||
PROMPT 11 1 ""
|
||||
FIELD 135->PIVA
|
||||
END
|
||||
|
||||
NUMERO 4 12
|
||||
BEGIN
|
||||
KEY "Ammontare operazioni in Euro" //++
|
||||
PROMPT 23 1 "" //2 sx
|
||||
FIELD 135->AMMLIRE
|
||||
PICTURE "####.###.###"
|
||||
MESSAGE _IMP
|
||||
END
|
||||
|
||||
STRINGA 51 3
|
||||
BEGIN
|
||||
PROMPT 35 1 "" //2 sx
|
||||
FIELD 135->CODVAL
|
||||
FLAGS "H"
|
||||
END
|
||||
|
||||
NUMERO 5 12
|
||||
BEGIN
|
||||
KEY "Ammontare operazioni in valuta"
|
||||
PROMPT 35 1 "" //2 sx
|
||||
FIELD 135->AMMVALUTA
|
||||
MESSAGE _IMP
|
||||
PICTURE "####.###.###"
|
||||
END
|
||||
|
||||
STRINGA 6 1
|
||||
BEGIN
|
||||
KEY "Natura della transazione"
|
||||
PROMPT 49 1 "" //1 sx
|
||||
FIELD 135->NATURA
|
||||
END
|
||||
|
||||
NUMERO 7 4
|
||||
BEGIN
|
||||
KEY "Nomenclatura combinata prima parte"
|
||||
PROMPT 53 1 ""
|
||||
FIELD 135->NOMENCL[1,4]
|
||||
PICTURE "@@@@"
|
||||
END
|
||||
|
||||
NUMERO 71 2
|
||||
BEGIN
|
||||
KEY "Nomenclatura combinata seconda parte"
|
||||
PROMPT 57 1 ""
|
||||
FIELD 135->NOMENCL[5,6]
|
||||
PICTURE "@@"
|
||||
END
|
||||
|
||||
NUMERO 72 2
|
||||
BEGIN
|
||||
KEY "Nomenclatura combinata terza parte"
|
||||
PROMPT 59 1 ""
|
||||
FIELD 135->NOMENCL[7,8]
|
||||
PICTURE "@@"
|
||||
END
|
||||
|
||||
NUMERO 8 9
|
||||
BEGIN
|
||||
KEY "Massa netta in kilogrammi"
|
||||
PROMPT 62 1 ""
|
||||
FIELD 135->MASSAKG
|
||||
PICTURE "#########"
|
||||
MESSAGE _ROUND,0
|
||||
END
|
||||
|
||||
NUMERO 9 9
|
||||
BEGIN
|
||||
KEY "Massa in unita' supplementare"
|
||||
PROMPT 72 1 "" //1 sx
|
||||
FIELD 135->MASSAUMS
|
||||
PICTURE "#########"
|
||||
MESSAGE _ROUND,0
|
||||
END
|
||||
|
||||
NUMERO 10 12
|
||||
BEGIN
|
||||
KEY "Valore statistico"
|
||||
PROMPT 82 1 "" //2 sx
|
||||
FIELD 135->VALSTAT
|
||||
PICTURE "####.###.###"
|
||||
MESSAGE _IMP
|
||||
END
|
||||
|
||||
STRINGA 11 1
|
||||
BEGIN
|
||||
KEY "Codice consegna"
|
||||
PROMPT 96 1 "" //1 sx
|
||||
FIELD 135->CONSEGNA[1,1]
|
||||
END
|
||||
|
||||
STRINGA 12 1
|
||||
BEGIN
|
||||
KEY "Modo di trasporto"
|
||||
PROMPT 99 1 "" //1 sx
|
||||
FIELD 135->TRASPORTO
|
||||
END
|
||||
|
||||
STRINGA 13 2
|
||||
BEGIN
|
||||
KEY "Paese destinazione/provenienza"
|
||||
PROMPT 102 1 "" //1 sx
|
||||
FIELD 135->PAESE
|
||||
END
|
||||
|
||||
STRINGA 14 2
|
||||
BEGIN
|
||||
KEY "Paese di origine"
|
||||
PROMPT 106 1 "" //1 sx
|
||||
FIELD 135->PAESEORIG
|
||||
END
|
||||
|
||||
STRINGA 15 2
|
||||
BEGIN
|
||||
KEY "Provincia di destinazione"
|
||||
PROMPT 110 1 "" //1 sx
|
||||
FIELD 135->PROV
|
||||
END
|
||||
|
||||
END
|
||||
|
||||
SECTION FOOTER ODD 31
|
||||
|
||||
NUMERO 1 12
|
||||
BEGIN
|
||||
KEY "Riporto dalla pagina precedente"
|
||||
PROMPT 23 1 "" //2 sx
|
||||
PICTURE "####.###.###"
|
||||
MESSAGE _IMP
|
||||
END
|
||||
|
||||
NUMERO 2 12
|
||||
BEGIN
|
||||
KEY "Totale riepiloghi"
|
||||
PROMPT 23 3 "" //2 sx
|
||||
PICTURE "####.###.###"
|
||||
MESSAGE _IMP
|
||||
END
|
||||
|
||||
NUMERO 3 3
|
||||
BEGIN
|
||||
KEY "Numero di pagina"
|
||||
PROMPT 110 3 "" //1 sx
|
||||
END
|
||||
|
||||
END
|
||||
|
||||
SECTION HEADER EVEN 22
|
||||
|
||||
NUMERO 1 4
|
||||
BEGIN
|
||||
KEY "Mese"
|
||||
PROMPT 16 15 ""
|
||||
PICTURE "@ #"
|
||||
END
|
||||
|
||||
NUMERO 2 1
|
||||
BEGIN
|
||||
KEY "Trimestre"
|
||||
PROMPT 29 15 ""
|
||||
PICTURE ""
|
||||
END
|
||||
|
||||
NUMERO 3 6
|
||||
BEGIN
|
||||
KEY "Anno"
|
||||
PROMPT 37 15 ""
|
||||
PICTURE "^^# #"
|
||||
END
|
||||
|
||||
STRINGA 4
|
||||
BEGIN
|
||||
KEY "Partita IVA"
|
||||
PROMPT 53 15 ""
|
||||
FIELD 106@->PAIV
|
||||
END
|
||||
|
||||
END
|
||||
|
||||
// Sezione di stampa rettifiche
|
||||
|
||||
SECTION BODY EVEN 2
|
||||
|
||||
NUMERO 1 3
|
||||
BEGIN
|
||||
KEY "Progressivo riga"
|
||||
PROMPT 3 1 ""
|
||||
FIELD 135->NUMRIG
|
||||
END
|
||||
|
||||
NUMERO 2 2
|
||||
BEGIN
|
||||
KEY "Mese del periodo di riferimento (riempito da programma)"
|
||||
PROMPT 7 1 ""
|
||||
PICTURE "#@"
|
||||
END
|
||||
|
||||
NUMERO 3 1
|
||||
BEGIN
|
||||
KEY "Trimestre del periodo di riferimento (riempito da programma)"
|
||||
PROMPT 11 1 ""
|
||||
PICTURE "@"
|
||||
END
|
||||
|
||||
NUMERO 4 4
|
||||
BEGIN
|
||||
KEY "Anno del periodo di riferimento"
|
||||
PROMPT 14 1 ""
|
||||
FIELD 135->ANNORETT
|
||||
END
|
||||
|
||||
STRINGA 5 2
|
||||
BEGIN
|
||||
KEY "Stato"
|
||||
PROMPT 19 1 ""
|
||||
FIELD 135->STATO
|
||||
END
|
||||
|
||||
STRINGA 6
|
||||
BEGIN
|
||||
KEY "Partita IVA"
|
||||
PROMPT 23 1 ""
|
||||
FIELD 135->PIVA
|
||||
END
|
||||
|
||||
STRINGA 7 1
|
||||
BEGIN
|
||||
KEY "Segno"
|
||||
PROMPT 37 1 ""
|
||||
FIELD 135->SEGNORETT
|
||||
END
|
||||
|
||||
NUMERO 8 12
|
||||
BEGIN
|
||||
KEY "Ammontare operazioni in Euro"
|
||||
PROMPT 39 1 "" //2 sx
|
||||
FIELD 135->AMMLIRE
|
||||
PICTURE "####.###.###"
|
||||
MESSAGE _IMP
|
||||
END
|
||||
|
||||
STRINGA 91 3
|
||||
BEGIN
|
||||
PROMPT 35 1 "" //2 sx
|
||||
FIELD 135->CODVAL
|
||||
FLAGS "H"
|
||||
END
|
||||
|
||||
NUMERO 9 12
|
||||
BEGIN
|
||||
KEY "Ammontare operazioni in valuta"
|
||||
PROMPT 52 1 "" //2 sx
|
||||
FIELD 135->AMMVALUTA
|
||||
MESSAGE _IMP
|
||||
PICTURE "####.###.###"
|
||||
END
|
||||
|
||||
STRINGA 10 1
|
||||
BEGIN
|
||||
KEY "Natura della transazione"
|
||||
PROMPT 65 1 "" //1 sx
|
||||
FIELD 135->NATURA
|
||||
END
|
||||
|
||||
NUMERO 11 4
|
||||
BEGIN
|
||||
KEY "Nomenclatura combinata prima parte"
|
||||
PROMPT 68 1 "" //1 sx
|
||||
FIELD 135->NOMENCL[1,4]
|
||||
PICTURE "@@@@"
|
||||
END
|
||||
|
||||
NUMERO 111 2
|
||||
BEGIN
|
||||
KEY "Nomenclatura combinata seconda parte"
|
||||
PROMPT 72 1 ""
|
||||
FIELD 135->NOMENCL[5,6]
|
||||
PICTURE "@@"
|
||||
END
|
||||
|
||||
NUMERO 112 2
|
||||
BEGIN
|
||||
KEY "Nomenclatura combinata terza parte"
|
||||
PROMPT 74 1 ""
|
||||
FIELD 135->NOMENCL[7,8]
|
||||
PICTURE "@@"
|
||||
END
|
||||
|
||||
NUMERO 12 12
|
||||
BEGIN
|
||||
KEY "Valore statistico"
|
||||
PROMPT 78 1 "" //2 sx
|
||||
FIELD 135->VALSTAT
|
||||
PICTURE "####.###.###"
|
||||
MESSAGE _IMP
|
||||
END
|
||||
|
||||
END
|
||||
|
||||
SECTION FOOTER EVEN 36
|
||||
|
||||
STRINGA 4 1
|
||||
BEGIN
|
||||
KEY "Segno riporto rettifiche"
|
||||
PROMPT 37 1 ""
|
||||
END
|
||||
|
||||
NUMERO 1 12
|
||||
BEGIN
|
||||
KEY "Riporto dalla pagina precedente"
|
||||
PROMPT 39 1 "" //2 sx
|
||||
PICTURE "####.###.###"
|
||||
MESSAGE _IMP
|
||||
END
|
||||
|
||||
STRINGA 7 1
|
||||
BEGIN
|
||||
KEY "Segno Totale rettifiche"
|
||||
PROMPT 37 3 ""
|
||||
END
|
||||
|
||||
NUMERO 2 12
|
||||
BEGIN
|
||||
KEY "Totale rettifiche"
|
||||
PROMPT 39 3 "" //2 sx
|
||||
PICTURE "####.###.###"
|
||||
MESSAGE _IMP
|
||||
END
|
||||
|
||||
NUMERO 3 3
|
||||
BEGIN
|
||||
KEY "Numero di pagina"
|
||||
PROMPT 87 4 "" //2 sx
|
||||
END
|
||||
|
||||
END
|
1379
in/in0100d.frm
Executable file
1379
in/in0100d.frm
Executable file
File diff suppressed because it is too large
Load Diff
@ -944,11 +944,11 @@ HIDDEN bool _iban_val(TMask_field& f, KEY key)
|
||||
m.show(id[6], italy);
|
||||
m.show(id[7], italy);
|
||||
}
|
||||
if (f.dlg() == id[2] && !f.empty() && key == K_ENTER)
|
||||
if (f.dlg() == id[2] && key == K_ENTER)
|
||||
{
|
||||
const TString& stato = m.get(id[1]);
|
||||
const bool italy = stato.empty() || stato == "IT";
|
||||
const bool do_test = !m.field(id[italy ? 7 : 3]).empty(); // Faccio il test solo in presenza di conto corrente
|
||||
const bool do_test = !f.empty() && !m.field(id[italy ? 7 : 3]).empty(); // Faccio il test solo in presenza di conto corrente
|
||||
TString80 iban;
|
||||
if (do_test)
|
||||
{
|
||||
|
@ -141,11 +141,11 @@ BEGIN
|
||||
FIELD QLREGIONE
|
||||
END
|
||||
|
||||
NUMERO 12
|
||||
STRINGA 12
|
||||
BEGIN
|
||||
KEY "Data versamento"
|
||||
PROMPT 79 2 ""
|
||||
SPECIAL STRINGA TRASFER "ST002012" "NU"
|
||||
SPECIAL STRINGA TRASFER "ST002012" "DT"
|
||||
FIELD QLDV
|
||||
END
|
||||
|
||||
|
@ -147,64 +147,64 @@ BEGIN
|
||||
END
|
||||
|
||||
//Livelli giacenza
|
||||
STRING F_LIV1 10
|
||||
STRING F_LIV1 15
|
||||
BEGIN
|
||||
PROMPT 2 8 "Livello giacenza 1 "
|
||||
FLAGS "U"
|
||||
USE GCG
|
||||
JOIN FCG ALIAS ALIAS_FCG INTO CODTAB==CODTAB[1,1]
|
||||
INPUT CODTAB[1,1] "1"
|
||||
INPUT CODTAB[2,11] F_LIV1
|
||||
INPUT CODTAB[2,16] F_LIV1
|
||||
// DISPLAY "Livello@20" ALIAS_FCG@->S0
|
||||
DISPLAY "Gruppo@20" CODTAB[2,20]
|
||||
DISPLAY "Descr.@30" S0
|
||||
OUTPUT F_LIV1 CODTAB[2,12]
|
||||
OUTPUT F_LIV1 CODTAB[2,16]
|
||||
CHECKTYPE NORMAL
|
||||
MESSAGE EMPTY CHECK,F_GIAC|CLEAR,F_LIV2|CHECK,F_LIV2
|
||||
GROUP G_NOAUTO
|
||||
MESSAGE CHECK,F_GIAC|ENABLE,F_LIV2
|
||||
END
|
||||
|
||||
STRING F_LIV2 10
|
||||
STRING F_LIV2 15
|
||||
BEGIN
|
||||
FLAGS "U"
|
||||
PROMPT 40 8 "Livello giacenza 2 "
|
||||
// Non mettere FLAGS "D" perchè disabiliterebbe tutta la colonna
|
||||
COPY USE F_LIV1
|
||||
INPUT CODTAB[1,1] "2"
|
||||
INPUT CODTAB[2,12] F_LIV2
|
||||
INPUT CODTAB[2,16] F_LIV2
|
||||
COPY DISPLAY F_LIV1
|
||||
OUTPUT F_LIV2 CODTAB[2,12]
|
||||
OUTPUT F_LIV2 CODTAB[2,16]
|
||||
CHECKTYPE NORMAL
|
||||
GROUP G_NOAUTO
|
||||
MESSAGE EMPTY CHECK,F_GIAC|CLEAR,F_LIV3|CHECK,F_LIV3
|
||||
MESSAGE CHECK,F_GIAC|ENABLE,F_LIV3
|
||||
END
|
||||
|
||||
STRING F_LIV3 10
|
||||
STRING F_LIV3 15
|
||||
BEGIN
|
||||
FLAGS "U"
|
||||
PROMPT 2 9 "Livello giacenza 3 "
|
||||
COPY USE F_LIV1
|
||||
INPUT CODTAB[1,1] "3"
|
||||
INPUT CODTAB[2,12] F_LIV3
|
||||
INPUT CODTAB[2,16] F_LIV3
|
||||
COPY DISPLAY F_LIV1
|
||||
OUTPUT F_LIV3 CODTAB[2,12]
|
||||
OUTPUT F_LIV3 CODTAB[2,16]
|
||||
CHECKTYPE NORMAL
|
||||
GROUP G_NOAUTO
|
||||
MESSAGE EMPTY CHECK,F_GIAC|CLEAR,F_LIV4|CHECK,F_LIV4
|
||||
MESSAGE CHECK,F_GIAC|ENABLE,F_LIV4
|
||||
END
|
||||
|
||||
STRING F_LIV4 10
|
||||
STRING F_LIV4 15
|
||||
BEGIN
|
||||
FLAGS "U"
|
||||
PROMPT 40 9 "Livello giacenza 4 "
|
||||
COPY USE F_LIV1
|
||||
INPUT CODTAB[1,1] "4"
|
||||
INPUT CODTAB[2,12] F_LIV4
|
||||
INPUT CODTAB[2,16] F_LIV4
|
||||
COPY DISPLAY F_LIV1
|
||||
OUTPUT F_LIV4 CODTAB[2,12]
|
||||
OUTPUT F_LIV4 CODTAB[2,16]
|
||||
CHECKTYPE NORMAL
|
||||
GROUP G_NOAUTO
|
||||
MESSAGE CHECK,F_GIAC
|
||||
|
@ -200,6 +200,7 @@ SOURCE=..\cg\proforma.ini
|
||||
|
||||
# Begin Custom Build - Copying mask $(InputPath)...
|
||||
TargetDir=D:\Release\Campo22
|
||||
|
||||
InputPath=..\cg\proforma.ini
|
||||
InputName=proforma
|
||||
|
||||
@ -229,4 +230,4 @@ InputName=proforma
|
||||
SOURCE=.\cg7.rc
|
||||
# End Source File
|
||||
# End Target
|
||||
# End Project
|
||||
# End Project
|
@ -407,6 +407,41 @@ InputName=dt0400a
|
||||
|
||||
!ENDIF
|
||||
|
||||
# End Source File
|
||||
# End Group
|
||||
# Begin Group "Menus"
|
||||
|
||||
# PROP Default_Filter "men"
|
||||
# Begin Source File
|
||||
|
||||
SOURCE=..\dt\dtmenu.men
|
||||
|
||||
!IF "$(CFG)" == "dt0 - Win32 Release"
|
||||
|
||||
# Begin Custom Build - Copy men $(InputPath)...
|
||||
TargetDir=D:\Release\Campo21
|
||||
InputPath=..\dt\dtmenu.men
|
||||
InputName=dtmenu
|
||||
|
||||
"$(TargetDir)\$(InputName).men" : $(SOURCE) "$(INTDIR)" "$(OUTDIR)"
|
||||
copy $(InputPath) $(TargetDir)\$(InputName).men
|
||||
|
||||
# End Custom Build
|
||||
|
||||
!ELSEIF "$(CFG)" == "dt0 - Win32 Debug"
|
||||
|
||||
# Begin Custom Build - Copy men $(InputPath)...
|
||||
TargetDir=\U\Luca\D_02_01\exed
|
||||
InputPath=..\dt\dtmenu.men
|
||||
InputName=dtmenu
|
||||
|
||||
"$(TargetDir)\$(InputName).men" : $(SOURCE) "$(INTDIR)" "$(OUTDIR)"
|
||||
copy $(InputPath) $(TargetDir)\$(InputName).men
|
||||
|
||||
# End Custom Build
|
||||
|
||||
!ENDIF
|
||||
|
||||
# End Source File
|
||||
# End Group
|
||||
# Begin Source File
|
||||
|
270
projects/in0.dsp
270
projects/in0.dsp
@ -54,7 +54,7 @@ BSC32=bscmake.exe
|
||||
# ADD BSC32 /nologo
|
||||
LINK32=link.exe
|
||||
# ADD BASE LINK32 kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib /nologo /subsystem:windows /machine:I386
|
||||
# ADD LINK32 version.lib wsock32.lib kernel32.lib gdi32.lib user32.lib advapi32.lib comdlg32.lib shell32.lib ole32.lib oleaut32.lib comctl32.lib rpcrt4.lib winspool.lib /nologo /subsystem:windows /machine:I386 /nodefaultlib:"libc.lib" /out:"D:\Release\Campo22/in0.exe"
|
||||
# ADD LINK32 version.lib wsock32.lib kernel32.lib gdi32.lib user32.lib advapi32.lib comdlg32.lib shell32.lib ole32.lib oleaut32.lib comctl32.lib rpcrt4.lib winspool.lib /nologo /subsystem:windows /machine:I386 /nodefaultlib:"libc.lib" /out:"D:\Release\Campo21/in0.exe"
|
||||
# SUBTRACT LINK32 /map /debug /nodefaultlib
|
||||
|
||||
!ELSEIF "$(CFG)" == "in0 - Win32 Debug"
|
||||
@ -141,7 +141,7 @@ SOURCE=..\in\basticc.uml
|
||||
!IF "$(CFG)" == "in0 - Win32 Release"
|
||||
|
||||
# Begin Custom Build - Compiling mask $(InputPath)...
|
||||
TargetDir=D:\Release\Campo22
|
||||
TargetDir=D:\Release\Campo21
|
||||
InputPath=..\in\basticc.uml
|
||||
InputName=basticc
|
||||
|
||||
@ -153,7 +153,7 @@ InputName=basticc
|
||||
!ELSEIF "$(CFG)" == "in0 - Win32 Debug"
|
||||
|
||||
# Begin Custom Build - Compiling mask $(InputPath)...
|
||||
TargetDir=\U\Luca\R_02_02\exed
|
||||
TargetDir=\U\Luca\D_02_01\exed
|
||||
InputPath=..\in\basticc.uml
|
||||
InputName=basticc
|
||||
|
||||
@ -172,7 +172,7 @@ SOURCE=..\in\bastimt.uml
|
||||
!IF "$(CFG)" == "in0 - Win32 Release"
|
||||
|
||||
# Begin Custom Build - Compiling mask $(InputPath)...
|
||||
TargetDir=D:\Release\Campo22
|
||||
TargetDir=D:\Release\Campo21
|
||||
InputPath=..\in\bastimt.uml
|
||||
InputName=bastimt
|
||||
|
||||
@ -184,7 +184,7 @@ InputName=bastimt
|
||||
!ELSEIF "$(CFG)" == "in0 - Win32 Debug"
|
||||
|
||||
# Begin Custom Build - Compiling mask $(InputPath)...
|
||||
TargetDir=\U\Luca\R_02_02\exed
|
||||
TargetDir=\U\Luca\D_02_01\exed
|
||||
InputPath=..\in\bastimt.uml
|
||||
InputName=bastimt
|
||||
|
||||
@ -203,7 +203,7 @@ SOURCE=..\in\bastint.uml
|
||||
!IF "$(CFG)" == "in0 - Win32 Release"
|
||||
|
||||
# Begin Custom Build - Compiling mask $(InputPath)...
|
||||
TargetDir=D:\Release\Campo22
|
||||
TargetDir=D:\Release\Campo21
|
||||
InputPath=..\in\bastint.uml
|
||||
InputName=bastint
|
||||
|
||||
@ -215,7 +215,7 @@ InputName=bastint
|
||||
!ELSEIF "$(CFG)" == "in0 - Win32 Debug"
|
||||
|
||||
# Begin Custom Build - Compiling mask $(InputPath)...
|
||||
TargetDir=\U\Luca\R_02_02\exed
|
||||
TargetDir=\U\Luca\D_02_01\exed
|
||||
InputPath=..\in\bastint.uml
|
||||
InputName=bastint
|
||||
|
||||
@ -234,7 +234,7 @@ SOURCE=..\in\bastird.uml
|
||||
!IF "$(CFG)" == "in0 - Win32 Release"
|
||||
|
||||
# Begin Custom Build - Compiling mask $(InputPath)...
|
||||
TargetDir=D:\Release\Campo22
|
||||
TargetDir=D:\Release\Campo21
|
||||
InputPath=..\in\bastird.uml
|
||||
InputName=bastird
|
||||
|
||||
@ -246,7 +246,7 @@ InputName=bastird
|
||||
!ELSEIF "$(CFG)" == "in0 - Win32 Debug"
|
||||
|
||||
# Begin Custom Build - Compiling mask $(InputPath)...
|
||||
TargetDir=\U\Luca\R_02_02\exed
|
||||
TargetDir=\U\Luca\D_02_01\exed
|
||||
InputPath=..\in\bastird.uml
|
||||
InputName=bastird
|
||||
|
||||
@ -265,7 +265,7 @@ SOURCE=..\in\batbicc.uml
|
||||
!IF "$(CFG)" == "in0 - Win32 Release"
|
||||
|
||||
# Begin Custom Build - Compiling mask $(InputPath)...
|
||||
TargetDir=D:\Release\Campo22
|
||||
TargetDir=D:\Release\Campo21
|
||||
InputPath=..\in\batbicc.uml
|
||||
InputName=batbicc
|
||||
|
||||
@ -277,7 +277,7 @@ InputName=batbicc
|
||||
!ELSEIF "$(CFG)" == "in0 - Win32 Debug"
|
||||
|
||||
# Begin Custom Build - Compiling mask $(InputPath)...
|
||||
TargetDir=\U\Luca\R_02_02\exed
|
||||
TargetDir=\U\Luca\D_02_01\exed
|
||||
InputPath=..\in\batbicc.uml
|
||||
InputName=batbicc
|
||||
|
||||
@ -296,7 +296,7 @@ SOURCE=..\in\batbimt.uml
|
||||
!IF "$(CFG)" == "in0 - Win32 Release"
|
||||
|
||||
# Begin Custom Build - Compiling mask $(InputPath)...
|
||||
TargetDir=D:\Release\Campo22
|
||||
TargetDir=D:\Release\Campo21
|
||||
InputPath=..\in\batbimt.uml
|
||||
InputName=batbimt
|
||||
|
||||
@ -308,7 +308,7 @@ InputName=batbimt
|
||||
!ELSEIF "$(CFG)" == "in0 - Win32 Debug"
|
||||
|
||||
# Begin Custom Build - Compiling mask $(InputPath)...
|
||||
TargetDir=\U\Luca\R_02_02\exed
|
||||
TargetDir=\U\Luca\D_02_01\exed
|
||||
InputPath=..\in\batbimt.uml
|
||||
InputName=batbimt
|
||||
|
||||
@ -327,7 +327,7 @@ SOURCE=..\in\batbint.uml
|
||||
!IF "$(CFG)" == "in0 - Win32 Release"
|
||||
|
||||
# Begin Custom Build - Compiling mask $(InputPath)...
|
||||
TargetDir=D:\Release\Campo22
|
||||
TargetDir=D:\Release\Campo21
|
||||
InputPath=..\in\batbint.uml
|
||||
InputName=batbint
|
||||
|
||||
@ -339,7 +339,7 @@ InputName=batbint
|
||||
!ELSEIF "$(CFG)" == "in0 - Win32 Debug"
|
||||
|
||||
# Begin Custom Build - Compiling mask $(InputPath)...
|
||||
TargetDir=\U\Luca\R_02_02\exed
|
||||
TargetDir=\U\Luca\D_02_01\exed
|
||||
InputPath=..\in\batbint.uml
|
||||
InputName=batbint
|
||||
|
||||
@ -358,7 +358,7 @@ SOURCE=..\in\batbird.uml
|
||||
!IF "$(CFG)" == "in0 - Win32 Release"
|
||||
|
||||
# Begin Custom Build - Compiling mask $(InputPath)...
|
||||
TargetDir=D:\Release\Campo22
|
||||
TargetDir=D:\Release\Campo21
|
||||
InputPath=..\in\batbird.uml
|
||||
InputName=batbird
|
||||
|
||||
@ -370,7 +370,7 @@ InputName=batbird
|
||||
!ELSEIF "$(CFG)" == "in0 - Win32 Debug"
|
||||
|
||||
# Begin Custom Build - Compiling mask $(InputPath)...
|
||||
TargetDir=\U\Luca\R_02_02\exed
|
||||
TargetDir=\U\Luca\D_02_01\exed
|
||||
InputPath=..\in\batbird.uml
|
||||
InputName=batbird
|
||||
|
||||
@ -389,7 +389,7 @@ SOURCE=..\in\in0100a.uml
|
||||
!IF "$(CFG)" == "in0 - Win32 Release"
|
||||
|
||||
# Begin Custom Build - Compiling mask $(InputPath)...
|
||||
TargetDir=D:\Release\Campo22
|
||||
TargetDir=D:\Release\Campo21
|
||||
InputPath=..\in\in0100a.uml
|
||||
InputName=in0100a
|
||||
|
||||
@ -401,7 +401,7 @@ InputName=in0100a
|
||||
!ELSEIF "$(CFG)" == "in0 - Win32 Debug"
|
||||
|
||||
# Begin Custom Build - Compiling mask $(InputPath)...
|
||||
TargetDir=\U\Luca\R_02_02\exed
|
||||
TargetDir=\U\Luca\D_02_01\exed
|
||||
InputPath=..\in\in0100a.uml
|
||||
InputName=in0100a
|
||||
|
||||
@ -420,7 +420,7 @@ SOURCE=..\in\in0200a.uml
|
||||
!IF "$(CFG)" == "in0 - Win32 Release"
|
||||
|
||||
# Begin Custom Build - Compiling mask $(InputPath)...
|
||||
TargetDir=D:\Release\Campo22
|
||||
TargetDir=D:\Release\Campo21
|
||||
InputPath=..\in\in0200a.uml
|
||||
InputName=in0200a
|
||||
|
||||
@ -432,7 +432,7 @@ InputName=in0200a
|
||||
!ELSEIF "$(CFG)" == "in0 - Win32 Debug"
|
||||
|
||||
# Begin Custom Build - Compiling mask $(InputPath)...
|
||||
TargetDir=\U\Luca\R_02_02\exed
|
||||
TargetDir=\U\Luca\D_02_01\exed
|
||||
InputPath=..\in\in0200a.uml
|
||||
InputName=in0200a
|
||||
|
||||
@ -451,7 +451,7 @@ SOURCE=..\in\in0500a.uml
|
||||
!IF "$(CFG)" == "in0 - Win32 Release"
|
||||
|
||||
# Begin Custom Build - Compiling mask $(InputPath)...
|
||||
TargetDir=D:\Release\Campo22
|
||||
TargetDir=D:\Release\Campo21
|
||||
InputPath=..\in\in0500a.uml
|
||||
InputName=in0500a
|
||||
|
||||
@ -463,7 +463,7 @@ InputName=in0500a
|
||||
!ELSEIF "$(CFG)" == "in0 - Win32 Debug"
|
||||
|
||||
# Begin Custom Build - Compiling mask $(InputPath)...
|
||||
TargetDir=\U\Luca\R_02_02\exed
|
||||
TargetDir=\U\Luca\D_02_01\exed
|
||||
InputPath=..\in\in0500a.uml
|
||||
InputName=in0500a
|
||||
|
||||
@ -482,7 +482,7 @@ SOURCE=..\in\in0500b.uml
|
||||
!IF "$(CFG)" == "in0 - Win32 Release"
|
||||
|
||||
# Begin Custom Build - Compiling mask $(InputPath)...
|
||||
TargetDir=D:\Release\Campo22
|
||||
TargetDir=D:\Release\Campo21
|
||||
InputPath=..\in\in0500b.uml
|
||||
InputName=in0500b
|
||||
|
||||
@ -494,7 +494,7 @@ InputName=in0500b
|
||||
!ELSEIF "$(CFG)" == "in0 - Win32 Debug"
|
||||
|
||||
# Begin Custom Build - Compiling mask $(InputPath)...
|
||||
TargetDir=\U\Luca\R_02_02\exed
|
||||
TargetDir=\U\Luca\D_02_01\exed
|
||||
InputPath=..\in\in0500b.uml
|
||||
InputName=in0500b
|
||||
|
||||
@ -513,7 +513,7 @@ SOURCE=..\in\in0600a.uml
|
||||
!IF "$(CFG)" == "in0 - Win32 Release"
|
||||
|
||||
# Begin Custom Build - Compiling mask $(InputPath)...
|
||||
TargetDir=D:\Release\Campo22
|
||||
TargetDir=D:\Release\Campo21
|
||||
InputPath=..\in\in0600a.uml
|
||||
InputName=in0600a
|
||||
|
||||
@ -525,7 +525,7 @@ InputName=in0600a
|
||||
!ELSEIF "$(CFG)" == "in0 - Win32 Debug"
|
||||
|
||||
# Begin Custom Build - Compiling mask $(InputPath)...
|
||||
TargetDir=\U\Luca\R_02_02\exed
|
||||
TargetDir=\U\Luca\D_02_01\exed
|
||||
InputPath=..\in\in0600a.uml
|
||||
InputName=in0600a
|
||||
|
||||
@ -544,7 +544,7 @@ SOURCE=..\in\in0700a.uml
|
||||
!IF "$(CFG)" == "in0 - Win32 Release"
|
||||
|
||||
# Begin Custom Build - Compiling mask $(InputPath)...
|
||||
TargetDir=D:\Release\Campo22
|
||||
TargetDir=D:\Release\Campo21
|
||||
InputPath=..\in\in0700a.uml
|
||||
InputName=in0700a
|
||||
|
||||
@ -556,7 +556,7 @@ InputName=in0700a
|
||||
!ELSEIF "$(CFG)" == "in0 - Win32 Debug"
|
||||
|
||||
# Begin Custom Build - Compiling mask $(InputPath)...
|
||||
TargetDir=\U\Luca\R_02_02\exed
|
||||
TargetDir=\U\Luca\D_02_01\exed
|
||||
InputPath=..\in\in0700a.uml
|
||||
InputName=in0700a
|
||||
|
||||
@ -611,7 +611,7 @@ SOURCE=..\in\batbint.frm
|
||||
!IF "$(CFG)" == "in0 - Win32 Release"
|
||||
|
||||
# Begin Custom Build - Compiling form $(InputPath)...
|
||||
TargetDir=D:\Release\Campo22
|
||||
TargetDir=D:\Release\Campo21
|
||||
InputPath=..\in\batbint.frm
|
||||
InputName=batbint
|
||||
|
||||
@ -623,7 +623,7 @@ InputName=batbint
|
||||
!ELSEIF "$(CFG)" == "in0 - Win32 Debug"
|
||||
|
||||
# Begin Custom Build - Compiling form $(InputPath)...
|
||||
TargetDir=\U\Luca\R_02_02\exed
|
||||
TargetDir=\U\Luca\D_02_01\exed
|
||||
InputPath=..\in\batbint.frm
|
||||
InputName=batbint
|
||||
|
||||
@ -642,7 +642,7 @@ SOURCE=..\in\in0100a.frm
|
||||
!IF "$(CFG)" == "in0 - Win32 Release"
|
||||
|
||||
# Begin Custom Build - Compiling form $(InputPath)...
|
||||
TargetDir=D:\Release\Campo22
|
||||
TargetDir=D:\Release\Campo21
|
||||
InputPath=..\in\in0100a.frm
|
||||
InputName=in0100a
|
||||
|
||||
@ -654,7 +654,7 @@ InputName=in0100a
|
||||
!ELSEIF "$(CFG)" == "in0 - Win32 Debug"
|
||||
|
||||
# Begin Custom Build - Compiling form $(InputPath)...
|
||||
TargetDir=\U\Luca\R_02_02\exed
|
||||
TargetDir=\U\Luca\D_02_01\exed
|
||||
InputPath=..\in\in0100a.frm
|
||||
InputName=in0100a
|
||||
|
||||
@ -673,7 +673,7 @@ SOURCE=..\in\in0100b.frm
|
||||
!IF "$(CFG)" == "in0 - Win32 Release"
|
||||
|
||||
# Begin Custom Build - Compiling form $(InputPath)...
|
||||
TargetDir=D:\Release\Campo22
|
||||
TargetDir=D:\Release\Campo21
|
||||
InputPath=..\in\in0100b.frm
|
||||
InputName=in0100b
|
||||
|
||||
@ -685,7 +685,7 @@ InputName=in0100b
|
||||
!ELSEIF "$(CFG)" == "in0 - Win32 Debug"
|
||||
|
||||
# Begin Custom Build - Compiling form $(InputPath)...
|
||||
TargetDir=\U\Luca\R_02_02\exed
|
||||
TargetDir=\U\Luca\D_02_01\exed
|
||||
InputPath=..\in\in0100b.frm
|
||||
InputName=in0100b
|
||||
|
||||
@ -697,35 +697,31 @@ InputName=in0100b
|
||||
!ENDIF
|
||||
|
||||
# End Source File
|
||||
# End Group
|
||||
# Begin Group "Trr"
|
||||
|
||||
# PROP Default_Filter "trr"
|
||||
# Begin Source File
|
||||
|
||||
SOURCE=..\in\f133.trr
|
||||
SOURCE=..\in\in0100c.frm
|
||||
|
||||
!IF "$(CFG)" == "in0 - Win32 Release"
|
||||
|
||||
# Begin Custom Build - Copying trr $(InputPath)...
|
||||
TargetDir=D:\Release\Campo22
|
||||
InputPath=..\in\f133.trr
|
||||
InputName=f133
|
||||
# Begin Custom Build - Compiling form $(InputPath)...
|
||||
TargetDir=D:\Release\Campo21
|
||||
InputPath=..\in\in0100c.frm
|
||||
InputName=in0100c
|
||||
|
||||
"$(TargetDir)\recdesc\$(InputName).trr" : $(SOURCE) "$(INTDIR)" "$(OUTDIR)"
|
||||
copy $(InputPath) $(TargetDir)\recdesc\$(InputName).trr
|
||||
"$(TargetDir)\$(InputName).frm" : $(SOURCE) "$(INTDIR)" "$(OUTDIR)"
|
||||
frm32 $(InputPath) $(TargetDir)\$(InputName).frm
|
||||
|
||||
# End Custom Build
|
||||
|
||||
!ELSEIF "$(CFG)" == "in0 - Win32 Debug"
|
||||
|
||||
# Begin Custom Build - Copying trr $(InputPath)...
|
||||
TargetDir=\U\Luca\R_02_02\exed
|
||||
InputPath=..\in\f133.trr
|
||||
InputName=f133
|
||||
# Begin Custom Build - Compiling form $(InputPath)...
|
||||
TargetDir=\U\Luca\D_02_01\exed
|
||||
InputPath=..\in\in0100c.frm
|
||||
InputName=in0100c
|
||||
|
||||
"$(TargetDir)\recdesc\$(InputName).trr" : $(SOURCE) "$(INTDIR)" "$(OUTDIR)"
|
||||
copy $(InputPath) $(TargetDir)\recdesc\$(InputName).trr
|
||||
"$(TargetDir)\$(InputName).frm" : $(SOURCE) "$(INTDIR)" "$(OUTDIR)"
|
||||
frm32 $(InputPath) $(TargetDir)\$(InputName).frm
|
||||
|
||||
# End Custom Build
|
||||
|
||||
@ -734,60 +730,29 @@ InputName=f133
|
||||
# End Source File
|
||||
# Begin Source File
|
||||
|
||||
SOURCE=..\in\f134.trr
|
||||
SOURCE=..\in\in0100d.frm
|
||||
|
||||
!IF "$(CFG)" == "in0 - Win32 Release"
|
||||
|
||||
# Begin Custom Build - Copying trr $(InputPath)...
|
||||
TargetDir=D:\Release\Campo22
|
||||
InputPath=..\in\f134.trr
|
||||
InputName=f134
|
||||
# Begin Custom Build - Compiling form $(InputPath)...
|
||||
TargetDir=D:\Release\Campo21
|
||||
InputPath=..\in\in0100d.frm
|
||||
InputName=in0100d
|
||||
|
||||
"$(TargetDir)\recdesc\$(InputName).trr" : $(SOURCE) "$(INTDIR)" "$(OUTDIR)"
|
||||
copy $(InputPath) $(TargetDir)\recdesc\$(InputName).trr
|
||||
"$(TargetDir)\$(InputName).frm" : $(SOURCE) "$(INTDIR)" "$(OUTDIR)"
|
||||
frm32 $(InputPath) $(TargetDir)\$(InputName).frm
|
||||
|
||||
# End Custom Build
|
||||
|
||||
!ELSEIF "$(CFG)" == "in0 - Win32 Debug"
|
||||
|
||||
# Begin Custom Build - Copying trr $(InputPath)...
|
||||
TargetDir=\U\Luca\R_02_02\exed
|
||||
InputPath=..\in\f134.trr
|
||||
InputName=f134
|
||||
# Begin Custom Build - Compiling form $(InputPath)...
|
||||
TargetDir=\U\Luca\D_02_01\exed
|
||||
InputPath=..\in\in0100d.frm
|
||||
InputName=in0100d
|
||||
|
||||
"$(TargetDir)\recdesc\$(InputName).trr" : $(SOURCE) "$(INTDIR)" "$(OUTDIR)"
|
||||
copy $(InputPath) $(TargetDir)\recdesc\$(InputName).trr
|
||||
|
||||
# End Custom Build
|
||||
|
||||
!ENDIF
|
||||
|
||||
# End Source File
|
||||
# Begin Source File
|
||||
|
||||
SOURCE=..\in\f135.trr
|
||||
|
||||
!IF "$(CFG)" == "in0 - Win32 Release"
|
||||
|
||||
# Begin Custom Build - Copying trr $(InputPath)...
|
||||
TargetDir=D:\Release\Campo22
|
||||
InputPath=..\in\f135.trr
|
||||
InputName=f135
|
||||
|
||||
"$(TargetDir)\recdesc\$(InputName).trr" : $(SOURCE) "$(INTDIR)" "$(OUTDIR)"
|
||||
copy $(InputPath) $(TargetDir)\recdesc\$(InputName).trr
|
||||
|
||||
# End Custom Build
|
||||
|
||||
!ELSEIF "$(CFG)" == "in0 - Win32 Debug"
|
||||
|
||||
# Begin Custom Build - Copying trr $(InputPath)...
|
||||
TargetDir=\U\Luca\R_02_02\exed
|
||||
InputPath=..\in\f135.trr
|
||||
InputName=f135
|
||||
|
||||
"$(TargetDir)\recdesc\$(InputName).trr" : $(SOURCE) "$(INTDIR)" "$(OUTDIR)"
|
||||
copy $(InputPath) $(TargetDir)\recdesc\$(InputName).trr
|
||||
"$(TargetDir)\$(InputName).frm" : $(SOURCE) "$(INTDIR)" "$(OUTDIR)"
|
||||
frm32 $(InputPath) $(TargetDir)\$(InputName).frm
|
||||
|
||||
# End Custom Build
|
||||
|
||||
@ -795,34 +760,34 @@ InputName=f135
|
||||
|
||||
# End Source File
|
||||
# End Group
|
||||
# Begin Group "Dir"
|
||||
# Begin Group "Rpt"
|
||||
|
||||
# PROP Default_Filter "dir"
|
||||
# PROP Default_Filter "rpt"
|
||||
# Begin Source File
|
||||
|
||||
SOURCE=..\in\f133.dir
|
||||
SOURCE=..\in\batbicc.rpt
|
||||
|
||||
!IF "$(CFG)" == "in0 - Win32 Release"
|
||||
|
||||
# Begin Custom Build - Copying dir $(InputPath)...
|
||||
TargetDir=D:\Release\Campo22
|
||||
InputPath=..\in\f133.dir
|
||||
InputName=f133
|
||||
# Begin Custom Build - Compiling rpt $(InputPath)...
|
||||
TargetDir=D:\Release\Campo21
|
||||
InputPath=..\in\batbicc.rpt
|
||||
InputName=batbicc
|
||||
|
||||
"$(TargetDir)\recdesc\$(InputName).dir" : $(SOURCE) "$(INTDIR)" "$(OUTDIR)"
|
||||
copy $(InputPath) $(TargetDir)\recdesc\$(InputName).dir
|
||||
"$(TargetDir)\$(InputName).rpt" : $(SOURCE) "$(INTDIR)" "$(OUTDIR)"
|
||||
rpt32 $(InputPath) $(TargetDir)\$(InputName).rpt
|
||||
|
||||
# End Custom Build
|
||||
|
||||
!ELSEIF "$(CFG)" == "in0 - Win32 Debug"
|
||||
|
||||
# Begin Custom Build - Copying dir $(InputPath)...
|
||||
TargetDir=\U\Luca\R_02_02\exed
|
||||
InputPath=..\in\f133.dir
|
||||
InputName=f133
|
||||
# Begin Custom Build - Compiling rpt $(InputPath)...
|
||||
TargetDir=\U\Luca\D_02_01\exed
|
||||
InputPath=..\in\batbicc.rpt
|
||||
InputName=batbicc
|
||||
|
||||
"$(TargetDir)\recdesc\$(InputName).dir" : $(SOURCE) "$(INTDIR)" "$(OUTDIR)"
|
||||
copy $(InputPath) $(TargetDir)\recdesc\$(InputName).dir
|
||||
"$(TargetDir)\$(InputName).rpt" : $(SOURCE) "$(INTDIR)" "$(OUTDIR)"
|
||||
rpt32 $(InputPath) $(TargetDir)\$(InputName).rpt
|
||||
|
||||
# End Custom Build
|
||||
|
||||
@ -831,29 +796,29 @@ InputName=f133
|
||||
# End Source File
|
||||
# Begin Source File
|
||||
|
||||
SOURCE=..\in\f134.dir
|
||||
SOURCE=..\in\batbimt.rpt
|
||||
|
||||
!IF "$(CFG)" == "in0 - Win32 Release"
|
||||
|
||||
# Begin Custom Build - Copying dir $(InputPath)...
|
||||
TargetDir=D:\Release\Campo22
|
||||
InputPath=..\in\f134.dir
|
||||
InputName=f134
|
||||
# Begin Custom Build - Compiling rpt $(InputPath)...
|
||||
TargetDir=D:\Release\Campo21
|
||||
InputPath=..\in\batbimt.rpt
|
||||
InputName=batbimt
|
||||
|
||||
"$(TargetDir)\recdesc\$(InputName).dir" : $(SOURCE) "$(INTDIR)" "$(OUTDIR)"
|
||||
copy $(InputPath) $(TargetDir)\recdesc\$(InputName).dir
|
||||
"$(TargetDir)\$(InputName).rpt" : $(SOURCE) "$(INTDIR)" "$(OUTDIR)"
|
||||
rpt32 $(InputPath) $(TargetDir)\$(InputName).rpt
|
||||
|
||||
# End Custom Build
|
||||
|
||||
!ELSEIF "$(CFG)" == "in0 - Win32 Debug"
|
||||
|
||||
# Begin Custom Build - Copying dir $(InputPath)...
|
||||
TargetDir=\U\Luca\R_02_02\exed
|
||||
InputPath=..\in\f134.dir
|
||||
InputName=f134
|
||||
# Begin Custom Build - Compiling rpt $(InputPath)...
|
||||
TargetDir=\U\Luca\D_02_01\exed
|
||||
InputPath=..\in\batbimt.rpt
|
||||
InputName=batbimt
|
||||
|
||||
"$(TargetDir)\recdesc\$(InputName).dir" : $(SOURCE) "$(INTDIR)" "$(OUTDIR)"
|
||||
copy $(InputPath) $(TargetDir)\recdesc\$(InputName).dir
|
||||
"$(TargetDir)\$(InputName).rpt" : $(SOURCE) "$(INTDIR)" "$(OUTDIR)"
|
||||
rpt32 $(InputPath) $(TargetDir)\$(InputName).rpt
|
||||
|
||||
# End Custom Build
|
||||
|
||||
@ -862,29 +827,60 @@ InputName=f134
|
||||
# End Source File
|
||||
# Begin Source File
|
||||
|
||||
SOURCE=..\in\f135.dir
|
||||
SOURCE=..\in\batbint.rpt
|
||||
|
||||
!IF "$(CFG)" == "in0 - Win32 Release"
|
||||
|
||||
# Begin Custom Build - Copying dir $(InputPath)...
|
||||
TargetDir=D:\Release\Campo22
|
||||
InputPath=..\in\f135.dir
|
||||
InputName=f135
|
||||
# Begin Custom Build - Compiling rpt $(InputPath)...
|
||||
TargetDir=D:\Release\Campo21
|
||||
InputPath=..\in\batbint.rpt
|
||||
InputName=batbint
|
||||
|
||||
"$(TargetDir)\recdesc\$(InputName).dir" : $(SOURCE) "$(INTDIR)" "$(OUTDIR)"
|
||||
copy $(InputPath) $(TargetDir)\recdesc\$(InputName).dir
|
||||
"$(TargetDir)\$(InputName).rpt" : $(SOURCE) "$(INTDIR)" "$(OUTDIR)"
|
||||
rpt32 $(InputPath) $(TargetDir)\$(InputName).rpt
|
||||
|
||||
# End Custom Build
|
||||
|
||||
!ELSEIF "$(CFG)" == "in0 - Win32 Debug"
|
||||
|
||||
# Begin Custom Build - Copying dir $(InputPath)...
|
||||
TargetDir=\U\Luca\R_02_02\exed
|
||||
InputPath=..\in\f135.dir
|
||||
InputName=f135
|
||||
# Begin Custom Build - Compiling rpt $(InputPath)...
|
||||
TargetDir=\U\Luca\D_02_01\exed
|
||||
InputPath=..\in\batbint.rpt
|
||||
InputName=batbint
|
||||
|
||||
"$(TargetDir)\recdesc\$(InputName).dir" : $(SOURCE) "$(INTDIR)" "$(OUTDIR)"
|
||||
copy $(InputPath) $(TargetDir)\recdesc\$(InputName).dir
|
||||
"$(TargetDir)\$(InputName).rpt" : $(SOURCE) "$(INTDIR)" "$(OUTDIR)"
|
||||
rpt32 $(InputPath) $(TargetDir)\$(InputName).rpt
|
||||
|
||||
# End Custom Build
|
||||
|
||||
!ENDIF
|
||||
|
||||
# End Source File
|
||||
# Begin Source File
|
||||
|
||||
SOURCE=..\in\batbird.rpt
|
||||
|
||||
!IF "$(CFG)" == "in0 - Win32 Release"
|
||||
|
||||
# Begin Custom Build - Compiling rpt $(InputPath)...
|
||||
TargetDir=D:\Release\Campo21
|
||||
InputPath=..\in\batbird.rpt
|
||||
InputName=batbird
|
||||
|
||||
"$(TargetDir)\$(InputName).rpt" : $(SOURCE) "$(INTDIR)" "$(OUTDIR)"
|
||||
rpt32 $(InputPath) $(TargetDir)\$(InputName).rpt
|
||||
|
||||
# End Custom Build
|
||||
|
||||
!ELSEIF "$(CFG)" == "in0 - Win32 Debug"
|
||||
|
||||
# Begin Custom Build - Compiling rpt $(InputPath)...
|
||||
TargetDir=\U\Luca\D_02_01\exed
|
||||
InputPath=..\in\batbird.rpt
|
||||
InputName=batbird
|
||||
|
||||
"$(TargetDir)\$(InputName).rpt" : $(SOURCE) "$(INTDIR)" "$(OUTDIR)"
|
||||
rpt32 $(InputPath) $(TargetDir)\$(InputName).rpt
|
||||
|
||||
# End Custom Build
|
||||
|
||||
|
@ -16,4 +16,3 @@ del %TMP%\tmp.msk
|
||||
del %TMP%\tmp1.msk
|
||||
del %TMP%\tmp.uml
|
||||
del %TMP%\tmp.tmp
|
||||
|
||||
|
@ -90,6 +90,21 @@ Package=<4>
|
||||
|
||||
###############################################################################
|
||||
|
||||
Project: "ps0913"=".\ps0913 .dsp" - Package Owner=<4>
|
||||
|
||||
Package=<5>
|
||||
{{{
|
||||
}}}
|
||||
|
||||
Package=<4>
|
||||
{{{
|
||||
Begin Project Dependency
|
||||
Project_Dep_Name AgaLib
|
||||
End Project Dependency
|
||||
}}}
|
||||
|
||||
###############################################################################
|
||||
|
||||
Project: "ps0920"=.\ps0920.dsp - Package Owner=<4>
|
||||
|
||||
Package=<5>
|
||||
|
328
projects/ps0544.dsp
Executable file
328
projects/ps0544.dsp
Executable file
@ -0,0 +1,328 @@
|
||||
# Microsoft Developer Studio Project File - Name="ps0544" - Package Owner=<4>
|
||||
# Microsoft Developer Studio Generated Build File, Format Version 6.00
|
||||
# ** DO NOT EDIT **
|
||||
|
||||
# TARGTYPE "Win32 (x86) Application" 0x0101
|
||||
|
||||
CFG=ps0544 - Win32 Debug
|
||||
!MESSAGE This is not a valid makefile. To build this project using NMAKE,
|
||||
!MESSAGE use the Export Makefile command and run
|
||||
!MESSAGE
|
||||
!MESSAGE NMAKE /f "ps0544.mak".
|
||||
!MESSAGE
|
||||
!MESSAGE You can specify a configuration when running NMAKE
|
||||
!MESSAGE by defining the macro CFG on the command line. For example:
|
||||
!MESSAGE
|
||||
!MESSAGE NMAKE /f "ps0544.mak" CFG="ps0544 - Win32 Debug"
|
||||
!MESSAGE
|
||||
!MESSAGE Possible choices for configuration are:
|
||||
!MESSAGE
|
||||
!MESSAGE "ps0544 - Win32 Release" (based on "Win32 (x86) Application")
|
||||
!MESSAGE "ps0544 - Win32 Debug" (based on "Win32 (x86) Application")
|
||||
!MESSAGE
|
||||
|
||||
# Begin Project
|
||||
# PROP AllowPerConfigDependencies 0
|
||||
# PROP Scc_ProjName ""
|
||||
# PROP Scc_LocalPath ""
|
||||
CPP=cl.exe
|
||||
MTL=midl.exe
|
||||
RSC=rc.exe
|
||||
|
||||
!IF "$(CFG)" == "ps0544 - Win32 Release"
|
||||
|
||||
# PROP BASE Use_MFC 0
|
||||
# PROP BASE Use_Debug_Libraries 0
|
||||
# PROP BASE Output_Dir "Release"
|
||||
# PROP BASE Intermediate_Dir "Release"
|
||||
# PROP BASE Target_Dir ""
|
||||
# PROP Use_MFC 0
|
||||
# PROP Use_Debug_Libraries 0
|
||||
# PROP Output_Dir "..\release"
|
||||
# PROP Intermediate_Dir "..\release"
|
||||
# PROP Ignore_Export_Lib 0
|
||||
# PROP Target_Dir ""
|
||||
# ADD BASE CPP /nologo /W3 /GX /O2 /D "WIN32" /D "NDEBUG" /D "_WINDOWS" /YX /FD /c
|
||||
# ADD CPP /nologo /MT /W3 /O2 /I "..\include" /I "..\xvaga" /I "..\xi" /D "NDEBUG" /D "WIN32" /D "_WINDOWS" /D "XVT" /FD /c
|
||||
# SUBTRACT CPP /YX
|
||||
# ADD BASE MTL /nologo /D "NDEBUG" /mktyplib203 /o "NUL" /win32
|
||||
# ADD MTL /nologo /D "NDEBUG" /mktyplib203 /o "NUL" /win32
|
||||
# ADD BASE RSC /l 0x410 /d "NDEBUG"
|
||||
# ADD RSC /l 0x410 /i "..\..\wx240\include" /d "NDEBUG"
|
||||
BSC32=bscmake.exe
|
||||
# ADD BASE BSC32 /nologo
|
||||
# ADD BSC32 /nologo
|
||||
LINK32=link.exe
|
||||
# ADD BASE LINK32 kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib /nologo /subsystem:windows /machine:I386
|
||||
# ADD LINK32 version.lib wsock32.lib kernel32.lib gdi32.lib user32.lib advapi32.lib comdlg32.lib shell32.lib ole32.lib oleaut32.lib comctl32.lib rpcrt4.lib winspool.lib /nologo /subsystem:windows /machine:I386 /nodefaultlib:"libc.lib" /out:"D:\Release\Campo21/ps0544.exe"
|
||||
# SUBTRACT LINK32 /map /debug /nodefaultlib
|
||||
|
||||
!ELSEIF "$(CFG)" == "ps0544 - Win32 Debug"
|
||||
|
||||
# PROP BASE Use_MFC 0
|
||||
# PROP BASE Use_Debug_Libraries 1
|
||||
# PROP BASE Output_Dir "Debug"
|
||||
# PROP BASE Intermediate_Dir "Debug"
|
||||
# PROP BASE Target_Dir ""
|
||||
# PROP Use_MFC 0
|
||||
# PROP Use_Debug_Libraries 1
|
||||
# PROP Output_Dir "..\debug"
|
||||
# PROP Intermediate_Dir "..\debug"
|
||||
# PROP Ignore_Export_Lib 0
|
||||
# PROP Target_Dir ""
|
||||
# ADD BASE CPP /nologo /W3 /Gm /GX /Zi /Od /D "WIN32" /D "_DEBUG" /D "_WINDOWS" /YX /FD /c
|
||||
# ADD CPP /nologo /MTd /W3 /Gm /Zi /Od /I "..\include" /I "..\xvaga" /I "..\xi" /D "_DEBUG" /D "WIN32" /D "DBG" /D "_WINDOWS" /FR /FD /c
|
||||
# SUBTRACT CPP /YX
|
||||
# ADD BASE MTL /nologo /D "_DEBUG" /mktyplib203 /o "NUL" /win32
|
||||
# ADD MTL /nologo /D "_DEBUG" /mktyplib203 /o "NUL" /win32
|
||||
# ADD BASE RSC /l 0x410 /d "_DEBUG"
|
||||
# ADD RSC /l 0x410 /i "..\..\wx240\include" /d "_DEBUG"
|
||||
BSC32=bscmake.exe
|
||||
# ADD BASE BSC32 /nologo
|
||||
# ADD BSC32 /nologo
|
||||
LINK32=link.exe
|
||||
# ADD BASE LINK32 kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib /nologo /subsystem:windows /debug /machine:I386 /pdbtype:sept
|
||||
# ADD LINK32 version.lib wsock32.lib kernel32.lib gdi32.lib user32.lib advapi32.lib comdlg32.lib shell32.lib ole32.lib oleaut32.lib comctl32.lib rpcrt4.lib winspool.lib /nologo /subsystem:windows /debug /machine:I386 /nodefaultlib:"libc.lib" /out:"..\exed\ps0544.exe" /pdbtype:sept
|
||||
# SUBTRACT LINK32 /nodefaultlib
|
||||
|
||||
!ENDIF
|
||||
|
||||
# Begin Target
|
||||
|
||||
# Name "ps0544 - Win32 Release"
|
||||
# Name "ps0544 - Win32 Debug"
|
||||
# Begin Group "Sources"
|
||||
|
||||
# PROP Default_Filter "cpp"
|
||||
# Begin Source File
|
||||
|
||||
SOURCE=..\cg\cg2103.cpp
|
||||
# End Source File
|
||||
# Begin Source File
|
||||
|
||||
SOURCE=..\cg\cglib01.cpp
|
||||
# End Source File
|
||||
# Begin Source File
|
||||
|
||||
SOURCE=..\cg\cgpagame.cpp
|
||||
# End Source File
|
||||
# Begin Source File
|
||||
|
||||
SOURCE=..\cg\cgsaldac.cpp
|
||||
# End Source File
|
||||
# Begin Source File
|
||||
|
||||
SOURCE=..\ve\clifor.cpp
|
||||
# End Source File
|
||||
# Begin Source File
|
||||
|
||||
SOURCE=..\db\dblib.cpp
|
||||
# End Source File
|
||||
# Begin Source File
|
||||
|
||||
SOURCE=..\mg\mglib01.cpp
|
||||
# End Source File
|
||||
# Begin Source File
|
||||
|
||||
SOURCE=..\mg\mglib02.cpp
|
||||
# End Source File
|
||||
# Begin Source File
|
||||
|
||||
SOURCE=..\mg\mglib02a.cpp
|
||||
# End Source File
|
||||
# Begin Source File
|
||||
|
||||
SOURCE=..\pr\prlib01.cpp
|
||||
# End Source File
|
||||
# Begin Source File
|
||||
|
||||
SOURCE=..\ps\ps0544.cpp
|
||||
# End Source File
|
||||
# Begin Source File
|
||||
|
||||
SOURCE=..\ps\ps0544100.cpp
|
||||
# End Source File
|
||||
# Begin Source File
|
||||
|
||||
SOURCE=..\ps\ps0544200.cpp
|
||||
# End Source File
|
||||
# Begin Source File
|
||||
|
||||
SOURCE=..\ve\sconti.cpp
|
||||
# End Source File
|
||||
# Begin Source File
|
||||
|
||||
SOURCE=..\sv\svlib01.cpp
|
||||
# End Source File
|
||||
# Begin Source File
|
||||
|
||||
SOURCE=..\sv\svlib09.cpp
|
||||
# End Source File
|
||||
# Begin Source File
|
||||
|
||||
SOURCE=..\ve\velib01.cpp
|
||||
# End Source File
|
||||
# Begin Source File
|
||||
|
||||
SOURCE=..\ve\velib02.cpp
|
||||
# End Source File
|
||||
# Begin Source File
|
||||
|
||||
SOURCE=..\ve\velib03.cpp
|
||||
# End Source File
|
||||
# Begin Source File
|
||||
|
||||
SOURCE=..\ve\velib03a.cpp
|
||||
# End Source File
|
||||
# Begin Source File
|
||||
|
||||
SOURCE=..\ve\velib05.cpp
|
||||
# End Source File
|
||||
# End Group
|
||||
# Begin Group "Masks"
|
||||
|
||||
# PROP Default_Filter "uml"
|
||||
# Begin Source File
|
||||
|
||||
SOURCE=..\ps\ps0544100a.uml
|
||||
|
||||
!IF "$(CFG)" == "ps0544 - Win32 Release"
|
||||
|
||||
# Begin Custom Build - Compiling mask $(InputPath)...
|
||||
TargetDir=D:\Release\Campo21
|
||||
InputPath=..\ps\ps0544100a.uml
|
||||
InputName=ps0544100a
|
||||
|
||||
"$(TargetDir)\$(InputName).msk" : $(SOURCE) "$(INTDIR)" "$(OUTDIR)"
|
||||
msk32 $(InputPath) $(TargetDir)\$(InputName).msk
|
||||
|
||||
# End Custom Build
|
||||
|
||||
!ELSEIF "$(CFG)" == "ps0544 - Win32 Debug"
|
||||
|
||||
# Begin Custom Build - Compiling mask $(InputPath)...
|
||||
TargetDir=\U\cris\D_02_01\exed
|
||||
InputPath=..\ps\ps0544100a.uml
|
||||
InputName=ps0544100a
|
||||
|
||||
"$(TargetDir)\$(InputName).msk" : $(SOURCE) "$(INTDIR)" "$(OUTDIR)"
|
||||
msk32 $(InputPath) $(TargetDir)\$(InputName).msk
|
||||
|
||||
# End Custom Build
|
||||
|
||||
!ENDIF
|
||||
|
||||
# End Source File
|
||||
# Begin Source File
|
||||
|
||||
SOURCE=..\ps\ps0544200a.uml
|
||||
|
||||
!IF "$(CFG)" == "ps0544 - Win32 Release"
|
||||
|
||||
# Begin Custom Build - Compiling mask $(InputPath)...
|
||||
TargetDir=D:\Release\Campo21
|
||||
InputPath=..\ps\ps0544200a.uml
|
||||
InputName=ps0544200a
|
||||
|
||||
"$(TargetDir)\$(InputName).msk" : $(SOURCE) "$(INTDIR)" "$(OUTDIR)"
|
||||
msk32 $(InputPath) $(TargetDir)\$(InputName).msk
|
||||
|
||||
# End Custom Build
|
||||
|
||||
!ELSEIF "$(CFG)" == "ps0544 - Win32 Debug"
|
||||
|
||||
# Begin Custom Build - Compiling mask $(InputPath)...
|
||||
TargetDir=\U\cris\D_02_01\exed
|
||||
InputPath=..\ps\ps0544200a.uml
|
||||
InputName=ps0544200a
|
||||
|
||||
"$(TargetDir)\$(InputName).msk" : $(SOURCE) "$(INTDIR)" "$(OUTDIR)"
|
||||
msk32 $(InputPath) $(TargetDir)\$(InputName).msk
|
||||
|
||||
# End Custom Build
|
||||
|
||||
!ENDIF
|
||||
|
||||
# End Source File
|
||||
# End Group
|
||||
# Begin Group "Headers"
|
||||
|
||||
# PROP Default_Filter "h"
|
||||
# Begin Source File
|
||||
|
||||
SOURCE=..\ps\ps0544.h
|
||||
# End Source File
|
||||
# Begin Source File
|
||||
|
||||
SOURCE=..\ps\ps0544100a.h
|
||||
# End Source File
|
||||
# Begin Source File
|
||||
|
||||
SOURCE=..\ps\ps0544200a.h
|
||||
# End Source File
|
||||
# End Group
|
||||
# Begin Group "Ini"
|
||||
|
||||
# PROP Default_Filter ".ini"
|
||||
# Begin Source File
|
||||
|
||||
SOURCE=..\ps\ps0544100.ini
|
||||
|
||||
!IF "$(CFG)" == "ps0544 - Win32 Release"
|
||||
|
||||
!ELSEIF "$(CFG)" == "ps0544 - Win32 Debug"
|
||||
|
||||
# Begin Custom Build
|
||||
TargetDir=\U\cris\D_02_01\exed
|
||||
InputPath=..\ps\ps0544100.ini
|
||||
InputName=ps0544100
|
||||
|
||||
"$(TargetDir)\$(InputName).ini" : $(SOURCE) "$(INTDIR)" "$(OUTDIR)"
|
||||
cpini32 $(InputPath) $(TargetDir)\$(InputName).ini
|
||||
|
||||
# End Custom Build
|
||||
|
||||
!ENDIF
|
||||
|
||||
# End Source File
|
||||
# Begin Source File
|
||||
|
||||
SOURCE=..\ps\ps0544200.ini
|
||||
|
||||
!IF "$(CFG)" == "ps0544 - Win32 Release"
|
||||
|
||||
!ELSEIF "$(CFG)" == "ps0544 - Win32 Debug"
|
||||
|
||||
# Begin Custom Build
|
||||
TargetDir=\U\cris\D_02_01\exed
|
||||
InputPath=..\ps\ps0544200.ini
|
||||
InputName=ps0544200
|
||||
|
||||
"$(TargetDir)\$(InputName).ini" : $(SOURCE) "$(INTDIR)" "$(OUTDIR)"
|
||||
cpini32 $(InputPath) $(TargetDir)\$(InputName).ini
|
||||
|
||||
# End Custom Build
|
||||
|
||||
!ENDIF
|
||||
|
||||
# End Source File
|
||||
# End Group
|
||||
# Begin Source File
|
||||
|
||||
SOURCE=.\ps0544.rc
|
||||
|
||||
!IF "$(CFG)" == "ps0544 - Win32 Release"
|
||||
|
||||
# ADD BASE RSC /l 0x410
|
||||
# ADD RSC /l 0x410
|
||||
|
||||
!ELSEIF "$(CFG)" == "ps0544 - Win32 Debug"
|
||||
|
||||
# ADD BASE RSC /l 0x410
|
||||
# ADD RSC /l 0x410 /fo"..\Debug/ps0544.res"
|
||||
|
||||
!ENDIF
|
||||
|
||||
# End Source File
|
||||
# End Target
|
||||
# End Project
|
@ -96,12 +96,80 @@ LINK32=link.exe
|
||||
# PROP Default_Filter "cpp"
|
||||
# Begin Source File
|
||||
|
||||
SOURCE=..\cg\cg2103.cpp
|
||||
# End Source File
|
||||
# Begin Source File
|
||||
|
||||
SOURCE=..\cg\cglib01.cpp
|
||||
# End Source File
|
||||
# Begin Source File
|
||||
|
||||
SOURCE=..\cg\cgpagame.cpp
|
||||
# End Source File
|
||||
# Begin Source File
|
||||
|
||||
SOURCE=..\ve\clifor.cpp
|
||||
# End Source File
|
||||
# Begin Source File
|
||||
|
||||
SOURCE=..\db\dblib.cpp
|
||||
# End Source File
|
||||
# Begin Source File
|
||||
|
||||
SOURCE=..\mg\mglib01.cpp
|
||||
# End Source File
|
||||
# Begin Source File
|
||||
|
||||
SOURCE=..\mg\mglib02.cpp
|
||||
# End Source File
|
||||
# Begin Source File
|
||||
|
||||
SOURCE=..\mg\mglib02a.cpp
|
||||
# End Source File
|
||||
# Begin Source File
|
||||
|
||||
SOURCE=..\pr\prlib01.cpp
|
||||
# End Source File
|
||||
# Begin Source File
|
||||
|
||||
SOURCE=..\ps\ps0920.cpp
|
||||
# End Source File
|
||||
# Begin Source File
|
||||
|
||||
SOURCE=..\ps\ps0920100.cpp
|
||||
# End Source File
|
||||
# Begin Source File
|
||||
|
||||
SOURCE=..\ps\ps0920200.cpp
|
||||
# End Source File
|
||||
# Begin Source File
|
||||
|
||||
SOURCE=..\ve\sconti.cpp
|
||||
# End Source File
|
||||
# Begin Source File
|
||||
|
||||
SOURCE=..\sv\svlib01.cpp
|
||||
# End Source File
|
||||
# Begin Source File
|
||||
|
||||
SOURCE=..\sv\svlib09.cpp
|
||||
# End Source File
|
||||
# Begin Source File
|
||||
|
||||
SOURCE=..\ve\velib01.cpp
|
||||
# End Source File
|
||||
# Begin Source File
|
||||
|
||||
SOURCE=..\ve\velib02.cpp
|
||||
# End Source File
|
||||
# Begin Source File
|
||||
|
||||
SOURCE=..\ve\velib03.cpp
|
||||
# End Source File
|
||||
# Begin Source File
|
||||
|
||||
SOURCE=..\ve\velib03a.cpp
|
||||
# End Source File
|
||||
# End Group
|
||||
# Begin Group "Masks"
|
||||
|
||||
@ -126,6 +194,7 @@ InputName=ps0920100a
|
||||
|
||||
# Begin Custom Build - Compiling mask $(InputPath)...
|
||||
TargetDir=\U\Luca\R_02_02\exed
|
||||
|
||||
InputPath=..\ps\ps0920100a.uml
|
||||
InputName=ps0920100a
|
||||
|
||||
@ -136,6 +205,37 @@ InputName=ps0920100a
|
||||
|
||||
!ENDIF
|
||||
|
||||
# End Source File
|
||||
# Begin Source File
|
||||
|
||||
SOURCE=..\ps\ps0920200a.uml
|
||||
|
||||
!IF "$(CFG)" == "ps0920 - Win32 Release"
|
||||
|
||||
# Begin Custom Build - Compiling mask $(InputPath)...
|
||||
TargetDir=D:\Release\Campo21
|
||||
InputPath=..\ps\ps0920200a.uml
|
||||
InputName=ps0920200a
|
||||
|
||||
"$(TargetDir)\$(InputName).msk" : $(SOURCE) "$(INTDIR)" "$(OUTDIR)"
|
||||
msk32 $(InputPath) $(TargetDir)\$(InputName).msk
|
||||
|
||||
# End Custom Build
|
||||
|
||||
!ELSEIF "$(CFG)" == "ps0920 - Win32 Debug"
|
||||
|
||||
# Begin Custom Build - Compiling mask $(InputPath)...
|
||||
TargetDir=\U\Luca\D_02_01\exed
|
||||
InputPath=..\ps\ps0920200a.uml
|
||||
InputName=ps0920200a
|
||||
|
||||
"$(TargetDir)\$(InputName).msk" : $(SOURCE) "$(INTDIR)" "$(OUTDIR)"
|
||||
msk32 $(InputPath) $(TargetDir)\$(InputName).msk
|
||||
|
||||
# End Custom Build
|
||||
|
||||
!ENDIF
|
||||
|
||||
# End Source File
|
||||
# End Group
|
||||
# Begin Group "Headers"
|
||||
@ -149,6 +249,10 @@ SOURCE=..\ps\ps0920.h
|
||||
|
||||
SOURCE=..\ps\ps0920100a.h
|
||||
# End Source File
|
||||
# Begin Source File
|
||||
|
||||
SOURCE=..\ps\ps0920200a.h
|
||||
# End Source File
|
||||
# End Group
|
||||
# Begin Source File
|
||||
|
||||
@ -168,4 +272,4 @@ SOURCE=.\ps0920.rc
|
||||
|
||||
# End Source File
|
||||
# End Target
|
||||
# End Project
|
||||
# End Project
|
@ -912,7 +912,15 @@ bool TAuthorizationServer::Initialization()
|
||||
if (::GlobalFindAtom(ATOMIC_SEMAPHORE) == NULL)
|
||||
::GlobalAddAtom(ATOMIC_SEMAPHORE); // Same as old Frontend.exe
|
||||
#endif
|
||||
m_Dongle.Login();
|
||||
int delay = GetConfigInt("Delay", 10);
|
||||
|
||||
for (int i = 0; i < 3; i++)
|
||||
{
|
||||
if (i > 0)
|
||||
wxSleep(delay);
|
||||
if (m_Dongle.Login())
|
||||
break;
|
||||
}
|
||||
InitModules();
|
||||
|
||||
return true;
|
||||
|
@ -3,10 +3,10 @@ TIPORIGA|2|2|Tipo riga|2
|
||||
CODMAG[1,3]|2|3|Mag. |3
|
||||
CODMAG[4,5]|2|2|Dep.|2
|
||||
CODART|2|20|Codice Articolo|20
|
||||
CODG1|2|9|Codice\nLivello 1|9
|
||||
CODG2|2|9|Codice\nLivello 2|9
|
||||
CODG3|2|9|Codice\nLivello 3|9
|
||||
CODG4|2|9|Codice\nLivello 4|9
|
||||
CODG1|2|15|Codice\nLivello 1|15
|
||||
CODG2|2|15|Codice\nLivello 2|15
|
||||
CODG3|2|15|Codice\nLivello 3|15
|
||||
CODG4|2|15|Codice\nLivello 4|15
|
||||
DESCR|2|50|Descrizione|50
|
||||
UMQTA|2|2|UM|2
|
||||
QTA|3|1305|Quantita'|11
|
||||
|
@ -958,7 +958,30 @@ bool TContabilizzazione::load_parameters()
|
||||
bool TContabilizzazione::test_swap()
|
||||
{
|
||||
const char sez = _caus->sezione_clifo();
|
||||
const bool s = (_caus->reg().iva() == iva_vendite) ^ (sez == 'D');
|
||||
TipoIVA t = _caus->reg().iva();
|
||||
|
||||
if (t == nessuna_iva)
|
||||
{
|
||||
TBill c;
|
||||
|
||||
_caus->bill(1, c);
|
||||
char tipocf = c.tipo();
|
||||
|
||||
if (tipocf == 'C')
|
||||
t = iva_vendite;
|
||||
else
|
||||
if (tipocf == 'F')
|
||||
t = iva_acquisti;
|
||||
else
|
||||
{
|
||||
if (_caus->tipo_doc() == "FA")
|
||||
t = iva_acquisti;
|
||||
else
|
||||
t = iva_vendite;
|
||||
}
|
||||
|
||||
}
|
||||
const bool s = (t == iva_vendite) ^ (sez == 'D');
|
||||
return s;
|
||||
}
|
||||
|
||||
|
44
ve/verig.uml
44
ve/verig.uml
@ -167,7 +167,7 @@ BEGIN
|
||||
IFDEF(X_CODART)
|
||||
PROMPT X_CODART Y_CODART PR_CODART
|
||||
ELSEIF
|
||||
PROMPT 2 6 "Articolo "
|
||||
PROMPT 2 5 "Articolo "
|
||||
ENDIF
|
||||
USE LF_ANAMAG KEY 1
|
||||
INPUT CODART FR_CODART
|
||||
@ -196,7 +196,7 @@ BEGIN
|
||||
IFDEF(X_CODALT)
|
||||
PROMPT X_CODART Y_CODART PR_CODART
|
||||
ELSEIF
|
||||
PROMPT 2 6 "Articolo "
|
||||
PROMPT 2 5 "Articolo "
|
||||
ENDIF
|
||||
USE LF_CODCORR KEY 2
|
||||
JOIN LF_ANAMAG INTO CODART==CODART
|
||||
@ -234,19 +234,19 @@ BEGIN
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
STRING FR_LIV1 10
|
||||
STRING FR_LIV1 15
|
||||
BEGIN
|
||||
IFDEF(X_LIV1)
|
||||
PROMPT X_LIV1 Y_LIV1 ""
|
||||
ELSEIF
|
||||
PROMPT 37 6 ""
|
||||
PROMPT 37 5 ""
|
||||
FLAGS "U"
|
||||
USE GCG
|
||||
JOIN FCG ALIAS 500 INTO CODTAB==CODTAB[1,1]
|
||||
INPUT CODTAB[1,1] "1"
|
||||
INPUT CODTAB[2,] FR_LIV1
|
||||
DISPLAY "Livello@20" 500@->S0
|
||||
DISPLAY "Gruppo@10" CODTAB[2,]
|
||||
DISPLAY "Gruppo@15" CODTAB[2,]
|
||||
DISPLAY "Descrizione@30" S0
|
||||
OUTPUT FR_LIV1 CODTAB[2,]
|
||||
MESSAGE EMPTY RESET,FR_LIV2|RESET,FR_LIV3|RESET,FR_LIV4
|
||||
@ -258,12 +258,12 @@ ENDIF
|
||||
ENDIF
|
||||
END
|
||||
|
||||
STRING FR_LIV2 6
|
||||
STRING FR_LIV2 15
|
||||
BEGIN
|
||||
IFDEF(X_LIV2)
|
||||
PROMPT X_LIV2 Y_LIV2 ""
|
||||
ELSEIF
|
||||
PROMPT 50 6 ""
|
||||
PROMPT 55 5 ""
|
||||
ENDIF
|
||||
FLAGS "U"
|
||||
USE GCG
|
||||
@ -271,7 +271,7 @@ ENDIF
|
||||
INPUT CODTAB[1,1] "2"
|
||||
INPUT CODTAB[2,] FR_LIV2
|
||||
DISPLAY "Livello@20" 500@->S0
|
||||
DISPLAY "Gruppo@10" CODTAB[2,]
|
||||
DISPLAY "Gruppo@15" CODTAB[2,]
|
||||
DISPLAY "Descrizione@30" S0
|
||||
OUTPUT FR_LIV2 CODTAB[2,]
|
||||
MESSAGE EMPTY RESET,FR_LIV3|RESET,FR_LIV4
|
||||
@ -282,12 +282,12 @@ ENDIF
|
||||
CHECKTYPE NORMAL
|
||||
END
|
||||
|
||||
STRING FR_LIV3 6
|
||||
STRING FR_LIV3 15
|
||||
BEGIN
|
||||
IFDEF(X_LIV3)
|
||||
PROMPT X_LIV3 Y_LIV3 ""
|
||||
ELSEIF
|
||||
PROMPT 59 6 ""
|
||||
PROMPT 37 6 ""
|
||||
ENDIF
|
||||
FLAGS "U"
|
||||
USE GCG
|
||||
@ -295,7 +295,7 @@ ENDIF
|
||||
INPUT CODTAB[1,1] "3"
|
||||
INPUT CODTAB[2,] FR_LIV3
|
||||
DISPLAY "Livello@20" 500@->S0
|
||||
DISPLAY "Gruppo@10" CODTAB[2,]
|
||||
DISPLAY "Gruppo@15" CODTAB[2,]
|
||||
DISPLAY "Descrizione@30" S0
|
||||
OUTPUT FR_LIV3 CODTAB[2,]
|
||||
MESSAGE EMPTY RESET,FR_LIV4
|
||||
@ -306,12 +306,12 @@ ENDIF
|
||||
CHECKTYPE NORMAL
|
||||
END
|
||||
|
||||
STRING FR_LIV4 6
|
||||
STRING FR_LIV4 15
|
||||
BEGIN
|
||||
IFDEF(X_LIV4)
|
||||
PROMPT X_LIV4 Y_LIV4 ""
|
||||
ELSEIF
|
||||
PROMPT 67 6 ""
|
||||
PROMPT 55 6 ""
|
||||
ENDIF
|
||||
FLAGS "U"
|
||||
USE GCG
|
||||
@ -319,7 +319,7 @@ ENDIF
|
||||
INPUT CODTAB[1,1] "4"
|
||||
INPUT CODTAB[2,] FR_LIV4
|
||||
DISPLAY "Livello@20" 500@->S0
|
||||
DISPLAY "Gruppo@10" CODTAB[2,]
|
||||
DISPLAY "Gruppo@15" CODTAB[2,]
|
||||
DISPLAY "Descrizione@30" S0
|
||||
OUTPUT FR_LIV4 CODTAB[2,]
|
||||
IFDEF(MS_LIV4)
|
||||
@ -335,7 +335,7 @@ BEGIN
|
||||
IFDEF(X_CODSP)
|
||||
PROMPT X_CODSP Y_CODSP PR_CODSP
|
||||
ELSEIF
|
||||
PROMPT 2 6 "Spesa "
|
||||
PROMPT 2 5 "Spesa "
|
||||
ENDIF
|
||||
USE SPP
|
||||
INPUT CODTAB FR_CODSP
|
||||
@ -367,7 +367,7 @@ BEGIN
|
||||
IFDEF(X_CODSPV)
|
||||
PROMPT X_CODSPV Y_CODSPV PR_CODSPV
|
||||
ELSEIF
|
||||
PROMPT 2 6 "Spesa "
|
||||
PROMPT 2 5 "Spesa "
|
||||
ENDIF
|
||||
USE SPP SELECT S6=="V"
|
||||
INPUT CODTAB FR_CODSPV
|
||||
@ -397,7 +397,7 @@ BEGIN
|
||||
IFDEF(X_CODSPQ)
|
||||
PROMPT X_CODSPQ Y_CODSPQ PR_CODSPQ
|
||||
ELSEIF
|
||||
PROMPT 2 6 "Spesa "
|
||||
PROMPT 2 5 "Spesa "
|
||||
ENDIF
|
||||
USE SPP SELECT S6=="Q"
|
||||
INPUT CODTAB FR_CODSPQ
|
||||
@ -428,7 +428,7 @@ BEGIN
|
||||
IFDEF(X_CODSPP)
|
||||
PROMPT X_CODSPP Y_CODSPP PR_CODSPP
|
||||
ELSEIF
|
||||
PROMPT 2 6 "Spesa "
|
||||
PROMPT 2 5 "Spesa "
|
||||
ENDIF
|
||||
USE SPP SELECT S6=="P"
|
||||
INPUT CODTAB FR_CODSPP
|
||||
@ -491,7 +491,7 @@ BEGIN
|
||||
IFDEF(X_CODPRSV)
|
||||
PROMPT X_CODPRSV Y_CODPRSV PR_CODPRSV
|
||||
ELSEIF
|
||||
PROMPT 2 6 "Prestazione "
|
||||
PROMPT 2 5 "Prestazione "
|
||||
ENDIF
|
||||
USE PRS SELECT S6=='V'
|
||||
INPUT CODTAB FR_CODPRSV
|
||||
@ -521,7 +521,7 @@ BEGIN
|
||||
IFDEF(X_CODPRSQ)
|
||||
PROMPT X_CODPRSQ Y_CODPRSQ PR_CODPRSQ
|
||||
ELSEIF
|
||||
PROMPT 2 6 "Prestazione "
|
||||
PROMPT 2 5 "Prestazione "
|
||||
ENDIF
|
||||
USE PRS SELECT S6=='Q'
|
||||
INPUT CODTAB FR_CODPRSQ
|
||||
@ -552,7 +552,7 @@ BEGIN
|
||||
IFDEF(X_CODPRSP)
|
||||
PROMPT X_CODPRSP Y_CODPRSP PR_CODPRSP
|
||||
ELSEIF
|
||||
PROMPT 2 6 "Prestazione "
|
||||
PROMPT 2 5 "Prestazione "
|
||||
ENDIF
|
||||
USE PRS SELECT S6=='P'
|
||||
INPUT CODTAB FR_CODPRSQ
|
||||
@ -580,7 +580,7 @@ ENDIF
|
||||
IFDEF(FLD_DESCR)
|
||||
STRING FR_CODGOL 8
|
||||
BEGIN
|
||||
PROMPT 2 6 "Codice "
|
||||
PROMPT 2 5 "Codice "
|
||||
FLAGS "U"
|
||||
USE LF_GOLEM
|
||||
INPUT CODICE FR_CODGOL
|
||||
|
@ -2175,9 +2175,10 @@ wxFont& TFontId::Font(wxDC* dc, WINDOW win) const
|
||||
|
||||
const wxSize ppi = dc->GetPPI();
|
||||
|
||||
const int nTarget10 = 10 * ppi.x;
|
||||
const int cpi10 = 10 * 120 / nSize;
|
||||
const wxString str('M', cpi10);
|
||||
|
||||
const int nTarget10 = 10 * ppi.x; // pixel in 10 pollici in larghezza
|
||||
const int cpi10 = 10 * 120 / nSize; // caratteri stimati in 10 pollici
|
||||
const wxString str('M', cpi10); // stringa campione per stimare la larghezza
|
||||
|
||||
int nMin = 1, nMax = nSize*16; // Limiti arbitrari
|
||||
int nBest = 0;
|
||||
@ -2185,6 +2186,7 @@ wxFont& TFontId::Font(wxDC* dc, WINDOW win) const
|
||||
{
|
||||
const int nFontSize = (nMin+nMax)/2;
|
||||
wxFont courier(nFontSize, wxFIXED, wxNORMAL, wxNORMAL, FALSE, DEFAULT_FONT_NAME);
|
||||
|
||||
dc->SetFont(courier);
|
||||
int tw; dc->GetTextExtent(str, &tw, NULL);
|
||||
if (tw <= nTarget10)
|
||||
@ -2206,6 +2208,7 @@ wxFont& TFontId::Font(wxDC* dc, WINDOW win) const
|
||||
int major, minor;
|
||||
const int nVer = ::wxGetOsVersion(&major, &minor);
|
||||
if (nVer != wxWINDOWS_NT)
|
||||
|
||||
{
|
||||
bool bPrevGood = true;
|
||||
for (int i = 15; i > 0; i--)
|
||||
@ -2224,9 +2227,11 @@ wxFont& TFontId::Font(wxDC* dc, WINDOW win) const
|
||||
}
|
||||
#endif
|
||||
*/
|
||||
|
||||
dPrintScale = double(nBest) / double(nSize);
|
||||
#ifdef LINUX
|
||||
dPrintScale /= 10.0; // * wxPostScriptDC::GetResolution()) / 72.0);
|
||||
|
||||
#endif
|
||||
lastDC = dc;
|
||||
}
|
||||
@ -4988,4 +4993,4 @@ WINDOW statbar_create(int cid, int left, int top, int right, int bottom,
|
||||
w.SetStatusWidths(2, widths);
|
||||
|
||||
return (WINDOW)&w;
|
||||
}
|
||||
}
|
Loading…
x
Reference in New Issue
Block a user