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

Patch level :2.2 34

Browse Source 
Files correlati     :vendite in generale
Ricompilazione Demo : [ ]
Commento            :
prima stesura della maschera tabella dipendenti;
modificate le precedenti tabelle prs e spp per uniformare alcuni incasinatissimi campi stringa;modificati anche ve6600.cpp e velib.h


git-svn-id: svn://10.65.10.50/trunk@12399 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
luca 2004-10-14 13:58:00 +00:00
parent cd7cbdfff6
commit 83f6740873
6 changed files with 635 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
ve/batbprs.uml
View File

@ -45,7 +45,7 @@ END
STRING F_CODASSFIS 4
BEGIN
PROMPT 2 7 "Codice IVA "
FIELD S3
FIELD S3[1,4]
FLAGS "U"
USE %IVA
INPUT CODTAB F_CODASSFIS
@ -292,7 +292,7 @@ STRING F_GRUPPOPCIA 3
BEGIN
PROMPT 2 15 "Conto industr. "
FLAGS "Z"
FIELD S1[1,3]
FIELD S2[21,23]
CHECKTYPE NORMAL
END
@ -300,14 +300,14 @@ STRING F_CONTOPCIA 3
BEGIN
PROMPT 22 15 ""
FLAGS "Z"
FIELD S1[4,6]
FIELD S2[24,26]
END
STRING F_SOTTOPCIA 6
BEGIN
PROMPT 30 15 ""
FLAGS "Z"
FIELD S1[7,12]
FIELD S2[27,32]
USE PCI SELECT CODTAB[7,12]!=""
INPUT CODTAB[1,3] F_GRUPPOPCIA
INPUT CODTAB[4,6] F_CONTOPCIA

2
ve/batbspp.uml
View File

@ -45,7 +45,7 @@ END
STRING F_CODASSFIS 4
BEGIN
PROMPT 2 7 "Codice IVA "
FIELD S3
FIELD S3[1,4]
FLAG "U"
USE %IVA
INPUT CODTAB F_CODASSFIS

6
ve/ve6600.cpp
View File

@ -43,7 +43,11 @@ const TString& TIndustriosa_app::conto_industriale(const TRiga_documento& row, T
if (row.is_prestazione())
{
const TRectype& rec = cache().get("PRS", row.get(RDOC_CODART));
conto = rec.get(acquisti ? "S1" : "S2");
conto = rec.get("S2");
if (acquisti)
conto = conto.mid(20,12).trim();
else
conto = conto.left(12).trim();
}
if (!conto.empty())
{

2
ve/velib.h
View File

@ -123,7 +123,7 @@ public:
const TString& descrizione() const { return get("S0"); }
const TString& field_perc() const { return get("S5"); }
const TString & um() const { return get("S7"); }
const TString& cod_iva() const { return get("S3"); }
const TString& cod_iva() const { return get("S3").left(4); }
real prezzo() const { return get_real("R0"); }
real qta() const { return get_real("R1"); }
real perc() const { return get_real("R2"); }

45
ve/vetbdip.h Executable file
View File

@ -0,0 +1,45 @@
#define F_CODICE 101
#define F_COGNOME 102
#define F_NOME 103
#define F_COLLAB 104
#define F_CODFORN 105
#define F_CODFIS 106
#define F_ADDRESS 107
#define F_CIVICO 108
#define F_STATO 109
#define F_DESTATO 110
#define F_COMUNE 111
#define F_DENCOM 112
#define F_LOCALITA 113
#define F_CAP 114
#define F_PROV 115
#define F_MRP_ATTIVO 116
#define F_IMPIANTO 117
#define F_LINEA 118
#define F_CODIVA 119
#define F_DESIVA 120
#define F_CODVAL 121
#define F_DESVAL 122
#define F_CAMPI 123
#define F_PREZZO 124
#define F_QTA 125
#define F_UM 126
#define F_GRUPPOV 129
#define F_CONTOV 130
#define F_SOTTOV 131
#define F_DESCRCONTOV 132
#define F_GRUPPOA 133
#define F_CONTOA 134
#define F_SOTTOA 135
#define F_DESCRCONTOA 136
#define F_GRUPPOPCIA 140
#define F_CONTOPCIA 141
#define F_SOTTOPCIA 142
#define F_DESCRCONTOPCIA 143
#define F_GRUPPOPCIV 144
#define F_CONTOPCIV 145
#define F_SOTTOPCIV 146
#define F_DESCRCONTOPCIV 147

579
ve/vetbdip.uml Executable file
View File

@ -0,0 +1,579 @@
#include "vetbdip.h"
TOOLBAR "" 0 20 60 2
#include <toolbar.h>
ENDPAGE
PAGE "Tabella dipendenti" 11 60 14
GROUPBOX DLG_NULL 75 5
BEGIN
PROMPT 1 0 ""
FLAGS "R"
END
STRING F_CODICE 16
BEGIN
PROMPT 2 1 "Codice "
FIELD CODTAB
KEY 1
USE DIP
FLAGS "U"
INPUT CODTAB F_CODICE
DISPLAY "Codice@16" CODTAB
DISPLAY "Cognome@40" S0[1,40]
DISPLAY "Nome@30" S0[41,70]
OUTPUT F_CODICE CODTAB
OUTPUT F_COGNOME S0[1,40]
OUTPUT F_NOME S0[41,70]
CHECKTYPE REQUIRED
MESSAGE COPY,11@
END
STRING F_COGNOME 40
BEGIN
PROMPT 2 2 "Cognome "
FIELD S0[1,40]
KEY 2
USE DIP KEY 2
INPUT S0[1,40] F_COGNOME
DISPLAY "Cognome@40" S0[1,40]
DISPLAY "Nome@30" S0[41,70]
DISPLAY "Codice@16" CODTAB
COPY OUTPUT F_CODICE
CHECKTYPE REQUIRED
MESSAGE COPY,12@
END
STRING F_NOME 30
BEGIN
PROMPT 2 3 "Nome "
FIELD S0[41,70]
KEY 2
USE DIP KEY 2
INPUT S0[41,70] F_NOME
DISPLAY "Nome@30" S0[41,70]
DISPLAY "Cognome@40" S0[1,40]
DISPLAY "Codice@16" CODTAB
COPY OUTPUT F_CODICE
CHECKTYPE REQUIRED
MESSAGE COPY,13@
END
BOOLEAN F_COLLAB
BEGIN
PROMPT 2 5 "Collaboratore"
FIELD B0
MESSAGE FALSE CLEAR,F_CODFORN|ENABLE,10@
MESSAGE TRUE ENABLE,F_CODFORN|CLEAR,10@
END
NUMBER F_CODFORN 6
BEGIN
PROMPT 2 6 "Codice fornitore "
FIELD I6
USE LF_CLIFO
INPUT TIPOCF "F"
INPUT CODCF F_CODFORN
DISPLAY "Codice" CODCF
DISPLAY "Ragione Sociale@50" RAGSOC
OUTPUT F_CODFORN CODCF
OUTPUT F_ADDRESS INDCF
OUTPUT F_CIVICO CIVCF
OUTPUT F_STATO STATOCF
OUTPUT F_COMUNE COMCF
OUTPUT F_LOCALITA LOCALITACF
OUTPUT F_CAP CAPCF
OUTPUT F_CODFIS COFI
OUTPUT F_CODIVA PAIVA
END
STRING F_CODFIS 16
BEGIN
PROMPT 2 7 "Codice fiscale "
FIELD S3[5,21]
FLAGS "U"
GROUP 10
END
GROUPBOX DLG_NULL 76 6
BEGIN
PROMPT 1 8 "@bRecapito"
END
STRING F_ADDRESS 35
BEGIN
PROMPT 2 9 "Indirizzo "
FIELD S1[1,35]
GROUP 10
END
STRING F_CIVICO 5
BEGIN
PROMPT 65 9 "N. "
FIELD S3[26,35]
GROUP 10
END
NUMBER F_STATO 3
BEGIN
PROMPT 2 10 "Comune: Stato "
FIELD I7
FLAGS "Z"
USE %STA
INPUT CODTAB F_STATO
DISPLAY "Codice" CODTAB
DISPLAY "Stato@50" S0
OUTPUT F_STATO CODTAB
OUTPUT F_DESTATO S0
CHECKTYPE NORMAL
GROUP 10
END
STRING F_DESTATO 50
BEGIN
PROMPT 23 10 ""
USE %STA KEY 2
INPUT S0 F_DESTATO
DISPLAY "Stato@60" S0
DISPLAY "Codice" CODTAB
COPY OUTPUT F_STATO
GROUP 10
END
STRING F_COMUNE 4
BEGIN
PROMPT 8 11 ":Codice "
FIELD S3[22,25]
FLAGS "U"
USE LF_COMUNI
INPUT STATO F_STATO SELECT
INPUT COM F_COMUNE
DISPLAY "Stato" STATO
DISPLAY "Codice" COM
DISPLAY "Comune@50" DENCOM
OUTPUT F_STATO STATO
OUTPUT F_COMUNE COM
OUTPUT F_CAP CAPCOM
OUTPUT F_DENCOM DENCOM
OUTPUT F_PROV PROVCOM
CHECKTYPE NORMAL
ADD RUN ba4 -0
GROUP 10
END
STRING F_DENCOM 50
BEGIN
PROMPT 23 11 ""
USE LF_COMUNI KEY 2
INPUT DENCOM F_DENCOM
DISPLAY "Comune@50" DENCOM
DISPLAY "Stato" STATO
DISPLAY "Codice" COM
COPY OUTPUT F_COMUNE
ADD RUN ba4 -0
GROUP 10
END
STRING F_LOCALITA 35
BEGIN
PROMPT 2 12 "Localita' "
FIELD S1[36,70]
GROUP 10
END
STRING F_CAP 5
BEGIN
PROMPT 53 12 "CAP "
FIELD I8
GROUP 10
END
STRING F_PROV 5
BEGIN
PROMPT 64 12 "Prov"
FLAGS "D"
GROUP 10
END
BOOLEAN F_MRP_ATTIVO
BEGIN
PROMPT 1 14 "@bCollegamento M.R.P.:"
MESSAGE FALSE CLEAR,9@
MESSAGE TRUE ENABLE,9@
// FLAGS "H"
END
STRING F_IMPIANTO 5
BEGIN
PROMPT 23 14 "Impianto "
FIELD S8
USE IMP
INPUT CODTAB F_IMPIANTO
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_IMPIANTO CODTAB
GROUP 9
END
STRING F_LINEA 5
BEGIN
PROMPT 45 14 "Linea "
FIELD S9
USE LNP
INPUT CODTAB F_LINEA
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_LINEA CODTAB
GROUP 9
END
GROUPBOX DLG_NULL 76 7
BEGIN
PROMPT 1 15 "@bCalendario"
END
ENDPAGE
PAGE "Pagina 2" 11 60 14
GROUPBOX DLG_NULL 75 5
BEGIN
PROMPT 1 0 ""
FLAGS "R"
END
STRING DLG_NULL 16
BEGIN
PROMPT 2 1 "Codice "
FLAGS "UD"
GROUP 11
END
STRING DLG_NULL 40
BEGIN
PROMPT 2 2 "Cognome "
FLAGS "D"
GROUP 12
END
STRING DLG_NULL 30
BEGIN
PROMPT 2 3 "Nome "
FLAGS "D"
GROUP 13
END
STRING F_CODIVA 4
BEGIN
PROMPT 2 7 "Codice IVA "
FIELD S3[1,4]
FLAGS "U"
USE %IVA
INPUT CODTAB F_CODIVA
DISPLAY "Codice " CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_CODIVA CODTAB
OUTPUT F_DESIVA S0
CHECKTYPE NORMAL
END
STRING F_DESIVA 50
BEGIN
PROMPT 25 7 ""
USE %IVA KEY 2
INPUT S0 F_DESIVA
DISPLAY "Descrizione@50" S0
DISPLAY "Codice " CODTAB
COPY OUTPUT F_CODIVA
CHECKTYPE NORMAL
END
STRING F_CODVAL 4
BEGIN
PROMPT 2 8 "Codice valuta "
FIELD S4
FLAGS "U"
USE %VAL
INPUT CODTAB F_CODVAL
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_CODVAL CODTAB
OUTPUT F_DESVAL S0
CHECKTYPE NORMAL
END
STRING F_DESVAL 50
BEGIN
PROMPT 25 8 ""
USE %VAL KEY 2
INPUT S0 F_DESVAL
DISPLAY "Descrizione@50" S0
DISPLAY "Codice" CODTAB
COPY OUTPUT F_CODVAL
CHECKTYPE NORMAL
END
LISTBOX F_CAMPI 15
BEGIN
PROMPT 2 9 "Campo default "
FIELD S6
ITEM "Q|Qta prezzo "
MESSAGE SHOW,1@|ENABLE,2@
FLAGS "D"
END
CURRENCY F_PREZZO 15
BEGIN
PROMPT 2 10 "Prezzo "
FIELD R0
FLAGS "U"
GROUP 1
END
NUMBER F_QTA 13 5
BEGIN
PROMPT 35 10 "Quantita' "
FIELD R1
GROUP 1 2
END
STRING F_UM 2
BEGIN
PROMPT 63 10 "U.M. "
FIELD S7
FLAGS "U"
USE %UMS
INPUT CODTAB F_UM
DISPLAY "U.M." CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_UM CODTAB
CHECKTYPE NORMAL
GROUP 1
END
NUMBER F_GRUPPOV 3
BEGIN
PROMPT 2 11 "Conto vendita "
FIELD I0
CHECKTYPE NORMAL
END
NUMBER F_CONTOV 3
BEGIN
PROMPT 22 11 ""
FIELD I1
USE LF_PCON SELECT (CONTO!="") && (SOTTOCONTO=="")
INPUT GRUPPO F_GRUPPOV
INPUT CONTO F_CONTOV
DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO
DISPLAY "Descrizione@50" DESCR
OUTPUT F_GRUPPOV GRUPPO
OUTPUT F_CONTOV CONTO
CHECKTYPE NORMAL
ADD RUN CG0 -0
WARNING "Il conto deve essere un ricavo"
END
NUMBER F_SOTTOV 6
BEGIN
PROMPT 30 11 ""
FIELD I2
USE LF_PCON SELECT SOTTOCONTO!=""
JOIN LF_PCON ALIAS 500 INTO GRUPPO==GRUPPO CONTO==CONTO
INPUT GRUPPO F_GRUPPOV
INPUT CONTO F_CONTOV
INPUT SOTTOCONTO F_SOTTOV
DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO
DISPLAY "Sottoconto" SOTTOCONTO
DISPLAY "Descrizione@50" DESCR
OUTPUT F_GRUPPOV GRUPPO
OUTPUT F_CONTOV CONTO
OUTPUT F_SOTTOV SOTTOCONTO
OUTPUT F_DESCRCONTOV DESCR
CHECKTYPE NORMAL
WARNING "Sottoconto errato"
ADD RUN CG0 -0
END
STRING F_DESCRCONTOV 50
BEGIN
PROMPT 17 12 ""
FLAG "U"
USE LF_PCON KEY 2 SELECT (SOTTOCONTO!="")
JOIN LF_PCON ALIAS 500 INTO GRUPPO==GRUPPO CONTO==CONTO
INPUT DESCR F_DESCRCONTOV
DISPLAY "Descrizione@50" DESCR
DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO
DISPLAY "Sottoconto" SOTTOCONTO
COPY OUTPUT F_SOTTOV
CHECKTYPE NORMAL
WARNING "Il conto deve essere un ricavo"
ADD RUN CG0 -0
END
NUMBER F_GRUPPOA 3
BEGIN
PROMPT 2 13 "Conto acquisti "
FIELD I3
CHECKTYPE NORMAL
END
NUMBER F_CONTOA 3
BEGIN
PROMPT 22 13 ""
FIELD I4
COPY USE F_CONTOV
INPUT GRUPPO F_GRUPPOA
INPUT CONTO F_CONTOA
DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO
DISPLAY "Descrizione@50" DESCR
OUTPUT F_GRUPPOA GRUPPO
OUTPUT F_CONTOA CONTO
CHECKTYPE NORMAL
WARNING "Il conto deve essere un costo"
ADD RUN CG0 -0
END
NUMBER F_SOTTOA 6
BEGIN
PROMPT 30 13 ""
FIELD I5
COPY USE F_SOTTOV
INPUT GRUPPO F_GRUPPOA
INPUT CONTO F_CONTOA
INPUT SOTTOCONTO F_SOTTOA
COPY DISPLAY F_SOTTOV
OUTPUT F_GRUPPOA GRUPPO
OUTPUT F_CONTOA CONTO
OUTPUT F_SOTTOA SOTTOCONTO
OUTPUT F_DESCRCONTOA DESCR
CHECKTYPE NORMAL
WARNING "Sottoconto errato"
ADD RUN CG0 -0
END
STRING F_DESCRCONTOA 50
BEGIN
PROMPT 17 14 ""
FLAG "U"
COPY USE F_DESCRCONTOV
INPUT DESCR F_DESCRCONTOA
COPY DISPLAY F_DESCRCONTOV
COPY OUTPUT F_SOTTOA
CHECKTYPE NORMAL
WARNING "Il conto deve essere un ricavo"
ADD RUN CG0 -0
END
STRING F_GRUPPOPCIA 3
BEGIN
PROMPT 2 15 "Conto industr. "
FLAGS "Z"
FIELD S2[21,23]
CHECKTYPE NORMAL
END
STRING F_CONTOPCIA 3
BEGIN
PROMPT 22 15 ""
FLAGS "Z"
FIELD S2[24,26]
END
STRING F_SOTTOPCIA 6
BEGIN
PROMPT 30 15 ""
FLAGS "Z"
FIELD S2[27,32]
USE PCI SELECT CODTAB[7,12]!=""
INPUT CODTAB[1,3] F_GRUPPOPCIA
INPUT CODTAB[4,6] F_CONTOPCIA
INPUT CODTAB[7,12] F_SOTTOPCIA
DISPLAY "Gruppo" CODTAB[1,3]
DISPLAY "Conto" CODTAB[4,6]
DISPLAY "Sottoconto" CODTAB[7,12]
DISPLAY "Descrizione@50" S0
OUTPUT F_GRUPPOPCIA CODTAB[1,3]
OUTPUT F_CONTOPCIA CODTAB[4,6]
OUTPUT F_SOTTOPCIA CODTAB[7,12]
OUTPUT F_DESCRCONTOPCIA S0
CHECKTYPE NORMAL
ADD RUN BA3 -0 PCI
END
STRING F_DESCRCONTOPCIA 50
BEGIN
PROMPT 2 16 "acquisti "
FLAG "U"
USE PCI KEY 2 SELECT (CODTAB[7,12]!="")
INPUT S0 F_DESCRCONTOPCIA
DISPLAY "Descrizione@50" S0
DISPLAY "Gruppo" CODTAB[1,3]
DISPLAY "Conto" CODTAB[4,6]
DISPLAY "Sottoconto" CODTAB[7,12]
COPY OUTPUT F_SOTTOPCIA
CHECKTYPE NORMAL
ADD RUN BA0 -3 PCI
END
STRING F_GRUPPOPCIV 3
BEGIN
PROMPT 2 17 "Conto industr. "
FLAGS "Z"
FIELD S2[1,3]
CHECKTYPE NORMAL
END
STRING F_CONTOPCIV 3
BEGIN
PROMPT 22 17 ""
FLAGS "Z"
FIELD S2[4,6]
END
STRING F_SOTTOPCIV 6
BEGIN
PROMPT 30 17 ""
FLAGS "Z"
FIELD S2[7,12]
USE PCI SELECT CODTAB[7,12]!=""
INPUT CODTAB[1,3] F_GRUPPOPCIV
INPUT CODTAB[4,6] F_CONTOPCIV
INPUT CODTAB[7,12] F_SOTTOPCIV
DISPLAY "Gruppo" CODTAB[1,3]
DISPLAY "Conto" CODTAB[4,6]
DISPLAY "Sottoconto" CODTAB[7,12]
DISPLAY "Descrizione@50" S0
OUTPUT F_GRUPPOPCIV CODTAB[1,3]
OUTPUT F_CONTOPCIV CODTAB[4,6]
OUTPUT F_SOTTOPCIV CODTAB[7,12]
OUTPUT F_DESCRCONTOPCIV S0
CHECKTYPE NORMAL
ADD RUN BA3 -0 PCI
END
STRING F_DESCRCONTOPCIV 50
BEGIN
PROMPT 2 18 "vendita "
FLAG "U"
USE PCI KEY 2 SELECT (CODTAB[7,12]!="")
INPUT S0 F_DESCRCONTOPCIV
DISPLAY "Descrizione@50" S0
DISPLAY "Gruppo" CODTAB[1,3]
DISPLAY "Conto" CODTAB[4,6]
DISPLAY "Sottoconto" CODTAB[7,12]
COPY OUTPUT F_SOTTOPCIV
CHECKTYPE NORMAL
ADD RUN BA0 -3 PCI
END
ENDPAGE
ENDMASK